diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-07 01:26:54 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-07 01:26:54 +0000 |
commit | 1b80a4ed29ca16bf208be263cb4d477432b13e9a (patch) | |
tree | 668ca0bd9d15a4ae1747a2315f0ed20ac0f697ad /perl-install/install_steps_interactive.pm | |
parent | 645a015198b93d019d275aec4be82d15ca799114 (diff) | |
download | drakx-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar drakx-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar.gz drakx-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar.bz2 drakx-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar.xz drakx-1b80a4ed29ca16bf208be263cb4d477432b13e9a.zip |
- adapt to new setupBootloader
- add bootloader configuration in summary (still rough)
- various cleanup
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r-- | perl-install/install_steps_interactive.pm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index ab4458997..9da09e9c8 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -850,6 +850,7 @@ sub summary { { label => N("Keyboard"), val => \$o->{keyboard}, clicked => sub { $o->selectKeyboard(1) }, format => sub { translate(keyboard::keyboard2text($_[0])) } }, { label => N("Timezone"), val => \$o->{timezone}{timezone}, clicked => sub { $o->configureTimezone(1) } }, { label => N("Printer"), val => \$o->{printer}, clicked => sub { $o->configurePrinter(1) }, format => $format_printers }, +{ label => N("Bootloader"), val => \$o->{bootloader}, clicked => sub { any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security}) }, format => sub { "$o->{bootloader}{method} on $o->{bootloader}{boot}" } }, (map { { label => N("ISDN card"), val => $_->{description}, clicked => sub { $o->configureNetwork } } } grep { $_->{driver} eq 'hisax' } detect_devices::probeall()), @@ -1057,7 +1058,7 @@ sub setupBootloaderBefore { #------------------------------------------------------------------------------ sub setupBootloader { - my ($o, $more) = @_; + my ($o) = @_; if (arch() =~ /ppc/) { my $machtype = detect_devices::get_mac_generation(); if ($machtype !~ /NewWorld/) { @@ -1074,23 +1075,21 @@ N("Error installing aboot, try to force installation even if that destroys the first partition?")); }; } else { - any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security}, $o->{prefix}, $more) or return; + any::setupBootloader_simple($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security}) or return; { my $_w = $o->wait_message('', N("Installing bootloader")); eval { $o->SUPER::setupBootloader }; } if (my $err = $@) { - $err =~ /failed$/ or die; - $o->ask_warn('', - [ N("Installation of bootloader failed. The following error occured:"), - grep { !/^Warning:/ } cat_("$o->{prefix}/tmp/.error") ]); - unlink "$o->{prefix}/tmp/.error"; + $err =~ s/^\w+ failed// or die; + $err = formatError($err); + while ($err =~ s/^Warning:.*//m) {} + $o->ask_warn('', [ N("Installation of bootloader failed. The following error occured:"), $err ]); die "already displayed"; } elsif (arch() =~ /ppc/) { my $of_boot = cat_("$o->{prefix}/tmp/of_boot_dev") || die "Can't open $o->{prefix}/tmp/of_boot_dev"; chop($of_boot); - unlink "$o->{prefix}/tmp/.error"; $o->ask_warn('', N("You may need to change your Open Firmware boot-device to\n enable the bootloader. If you don't see the bootloader prompt at\n reboot, hold down Command-Option-O-F at reboot and enter:\n setenv boot-device %s,\\\\:tbxi\n Then type: shut-down\nAt your next boot you should see the bootloader prompt.", $of_boot)); } } |