summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-04-10 17:01:26 +0000
committerYves Duret <yduret@mandriva.com>2001-04-10 17:01:26 +0000
commit842dab56effd7df6b34bcf187ff23080923a5d61 (patch)
treea0e9ac2274bde8701991bda1c34877643b69fb34 /perl-install
parent218965b57bbf49af6455d036f18f86dc7b7df64f (diff)
downloaddrakx-backup-do-not-use-842dab56effd7df6b34bcf187ff23080923a5d61.tar
drakx-backup-do-not-use-842dab56effd7df6b34bcf187ff23080923a5d61.tar.gz
drakx-backup-do-not-use-842dab56effd7df6b34bcf187ff23080923a5d61.tar.bz2
drakx-backup-do-not-use-842dab56effd7df6b34bcf187ff23080923a5d61.tar.xz
drakx-backup-do-not-use-842dab56effd7df6b34bcf187ff23080923a5d61.zip
grub/lilo mode
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm23
1 files changed, 8 insertions, 15 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index ded6e9412..5b9377f30 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -31,7 +31,7 @@ use standalone;
use common qw(:common :file :functional :system);
use my_gtk qw(:helpers :wrappers);
use any;
-#use Data::dumper;
+use Data::Dumper;
setlocale (LC_ALL, "");
Locale::GetText::textdomain ("Bootlookdrake");
@@ -341,14 +341,6 @@ sub updateAurora
}
-#sub AuroraChoose
-#{
-# opendir YREP, "/lib/aurora/Monitors" or die "bootlook: $!";
-# @files = grep !/^\.\.?$/, readdir YREP;
-# print @files;
-# closedir YREP;
-#}
-
#-------------------------------------------------------------
# launch autologin functions
#-------------------------------------------------------------
@@ -402,24 +394,25 @@ sub set_autologin {
}
-############################
+#-------------------------------------------------------------
+# lilo/grub functions
+#-------------------------------------------------------------
sub lilo_choice
{
my $bootloader = bootloader::read('', '/etc/lilo.conf');
local ($_) = `detectloader`;
$bootloader->{methods} = { lilo => 1, grub => !!/grub/i };
-
+
my ($hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 };
my $fstab = [ fsedit::get_fstab(@$hds) ];
fs::get_mntpoints_from_fstab($fstab);
$::expert=1;
- # ask:
+# ask:
+ print Data::Dumper->Dump([$in],['$in']), "\n", Data::Dumper->Dump([$hds],['$hds']), "\n";
any::setupBootloader($in, $bootloader, $hds, $fstab, $ENV{SECURE_LEVEL}) or $in->exit(0);
- # #eval { bootloader::install('', $bootloader, $fstab, $hds) };
- print "ici\n";
-
+# eval { bootloader::install('', $bootloader, $fstab, $hds) };
# if ($@) {
# $in->ask_warn('',
# [ _("Installation of LILO failed. The following error occured:"),