summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-07 01:26:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-07 01:26:54 +0000
commit1b80a4ed29ca16bf208be263cb4d477432b13e9a (patch)
tree668ca0bd9d15a4ae1747a2315f0ed20ac0f697ad
parent645a015198b93d019d275aec4be82d15ca799114 (diff)
downloaddrakx-backup-do-not-use-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar
drakx-backup-do-not-use-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar.gz
drakx-backup-do-not-use-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar.bz2
drakx-backup-do-not-use-1b80a4ed29ca16bf208be263cb4d477432b13e9a.tar.xz
drakx-backup-do-not-use-1b80a4ed29ca16bf208be263cb4d477432b13e9a.zip
- adapt to new setupBootloader
- add bootloader configuration in summary (still rough) - various cleanup
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_steps.pm2
-rw-r--r--perl-install/install_steps_interactive.pm15
3 files changed, 9 insertions, 10 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index ff73fb305..0305a7bb7 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -281,7 +281,7 @@ sub setupBootloader {
modules::write_conf($o->{prefix});
installStepsCall($o, $auto, 'setupBootloaderBefore') if $ent_number == 1;
- installStepsCall($o, $auto, 'setupBootloader', $ent_number-1 + $clicked*2); #- gore :-(
+ installStepsCall($o, $auto, 'setupBootloader');
local $ENV{DRAKX_PASSWORD} = $o->{bootloader}{password};
local $ENV{DURING_INSTALL} = 1;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index d19672d3a..75e20fe77 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -861,7 +861,7 @@ sub setupBootloaderBefore {
}
}
-sub setupBootloader($) {
+sub setupBootloader {
my ($o) = @_;
return if $::g_auto_install;
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));
}
}