diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakboot | 14 |
2 files changed, 15 insertions, 3 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index e6428ae92..c685b86d1 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -593,6 +593,10 @@ wait %d seconds for default boot. $bootloader->{method} = first(method_choices($fstab, $bootloader)); } +sub detect_bootloader() { + chomp_(run_program::rooted_get_stdout($::prefix, 'detectloader')); +} + sub method_choices { my ($fstab, $bootloader) = @_; my %choices = ( diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index a83bd00c0..e75045c6b 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -49,7 +49,7 @@ ugtk2->import(qw(:helpers :wrappers :create)); my $no_bootsplash; my $x_mode = Xconfig::various::runlevel() == 5; my $auto_mode = any::get_autologin(); -my $lilogrub = chomp_(`detectloader -q`); +my $lilogrub = bootloader::detect_bootloader(); my $w = ugtk2->new(N("Boot Style Configuration")); my $window = $w->{window}; @@ -239,8 +239,7 @@ gtkadd($window, gtkadd(new Gtk2::Frame($disp_mode), # gtkpack__(new Gtk2::VBox(0,0), (gtkpack_(gtkset_border_width(new Gtk2::HBox(0, 0),5), - 1, N("You are currently using %s as your boot manager. -Click on Configure to launch the setup wizard.", $lilogrub), + 1, my $boot_label = Gtk2::Label->new(""), 0, gtksignal_connect(new Gtk2::Button(N("Configure")), clicked => \&lilo_choice), )), # "" #we need some place under the button -- replaced by gtkset_border_width( for the moment @@ -306,10 +305,18 @@ $x_box->set_sensitive($x_mode); $auto_box->set_sensitive($auto_mode->{autologin} ? 1 : 0); $window->show_all(); $no_bootsplash and $thm_frame->hide(); +update_bootloader_label($lilogrub); gtkflush(); $w->main; $in->exit(0); + +sub update_bootloader_label { + my ($bootloader) = @_; + $boot_label->set_label(N("You are currently using %s as your boot manager. +Click on Configure to launch the setup wizard.", $bootloader)); +} + sub lilo_choice() { my $bootloader = bootloader::read(); @@ -329,6 +336,7 @@ sub lilo_choice() { [ N("Installation of %s failed. The following error occured:", $loader), $err ]); goto ask; } + update_bootloader_label(bootloader::detect_bootloader()); } |