summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-22 22:17:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-22 22:17:23 +0000
commit68f8fc470b9d97ab209ab6d106a2efd7b4df83dd (patch)
tree0f3bbb59c7d14224960f776a80d3fbc12ac9750f /perl-install/bootlook.pm
parent4215d770341c72ec139ed5d5332d7406c08cde16 (diff)
downloaddrakx-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar
drakx-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar.gz
drakx-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar.bz2
drakx-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.tar.xz
drakx-68f8fc470b9d97ab209ab6d106a2efd7b4df83dd.zip
fix yves's code duplication of lilo_choice (use $::lilo_choice in bootlook)
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm27
1 files changed, 1 insertions, 26 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index fd0505167..4ca78f895 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -101,7 +101,7 @@ gtkadd($window,
gtkpack__(new Gtk::HBox(0, 0),
_("You are currently using %s as Boot Manager.
Click on Configure to launch the setup wizard.", $lilogrub),
- gtksignal_connect(new Gtk::Button (_("Configure")), clicked => \&lilo_choice)
+ gtksignal_connect(new Gtk::Button (_("Configure")), clicked => $::lilo_choice)
)
),
# aurora
@@ -314,28 +314,3 @@ 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 ($all_hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 };
- my $fstab = [ fsedit::get_all_fstab($all_hds) ];
- fs::merge_info_from_fstab($fstab);
-
- $::expert=1;
- ask:
- local $::isEmbedded = 0;
- any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) or return;
- eval { bootloader::install('', $bootloader, $fstab, $all_hds->{hds}) };
- if ($@) {
- $in->ask_warn('',
- [ _("Installation of LILO failed. The following error occured:"),
- grep { !/^Warning:/ } cat_("/tmp/.error") ]);
- unlink "/tmp/.error";
- goto ask;
- }
-}