summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-22 14:38:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-22 14:38:20 +0000
commit5a99822ba89df07d7ac756ed5efd7cd7a8a9a360 (patch)
treebb0320d6a715c1dc17fca85b5f94a80b1ad6627b /perl-install
parentdf1aabfd83efbccaa3373c8195a54c67dd9ea08c (diff)
downloaddrakx-backup-do-not-use-5a99822ba89df07d7ac756ed5efd7cd7a8a9a360.tar
drakx-backup-do-not-use-5a99822ba89df07d7ac756ed5efd7cd7a8a9a360.tar.gz
drakx-backup-do-not-use-5a99822ba89df07d7ac756ed5efd7cd7a8a9a360.tar.bz2
drakx-backup-do-not-use-5a99822ba89df07d7ac756ed5efd7cd7a8a9a360.tar.xz
drakx-backup-do-not-use-5a99822ba89df07d7ac756ed5efd7cd7a8a9a360.zip
- use Xconfig::resolution_and_depth::bios_vga_modes() instead of %bootloader::vga_modes
- remove broken sparc code
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm30
1 files changed, 11 insertions, 19 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index c38dafe25..9679fb1fd 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -170,23 +170,17 @@ sub setupBootloader__mbr_or_not {
[ N("Skip") => '' ],
);
- my $default = arch() =~ /sparc/ ? ($b->{use_partition} ? $l[1] : $l[0]) :
- find { $_->[1] eq $b->{boot} } @l;
- $in->ask_from_({ title => arch() =~ /sparc/ ? N("SILO Installation") : N("LILO/grub Installation"),
+ my $default = find { $_->[1] eq $b->{boot} } @l;
+ $in->ask_from_({ title => N("LILO/grub Installation"),
messages => N("Where do you want to install the bootloader?"),
interactive_help_id => 'setupBootloaderBeginner',
},
[ { val => \$default, list => \@l, format => sub { $_[0][0] }, type => 'list' } ]);
my $new_boot = $default->[1] or return;
- if (arch() =~ /sparc/) {
- $b->{use_partition} = $new_boot eq $l[1][1];
- } else {
- #- remove bios mapping if the user changed the boot device
- delete $b->{bios} if $new_boot ne $b->{boot};
-
- $b->{boot} = $new_boot;
- }
+ #- remove bios mapping if the user changed the boot device
+ delete $b->{bios} if $new_boot ne $b->{boot};
+ $b->{boot} = $new_boot;
}
1;
}
@@ -194,8 +188,6 @@ sub setupBootloader__mbr_or_not {
sub setupBootloader__general {
my ($in, $b, $all_hds, $fstab, $security) = @_;
- my @silo_install_lang = (N("First sector of drive (MBR)"), N("First sector of boot partition"));
-
($b->{method}, my $method_choices) = bootloader::method_choices($fstab, $b);
my $profiles = bootloader::has_profiles($b);
my $prev_force_acpi = my $force_acpi = bootloader::get_append($b, 'acpi') !~ /off|ht/;
@@ -221,9 +213,7 @@ sub setupBootloader__general {
},
}, [
{ label => N("Bootloader to use"), val => \$b->{method}, list => [ keys %$method_choices ], format => sub { $method_choices->{$_[0]} } },
- arch() =~ /sparc/ ? (
- { label => N("Bootloader installation"), val => \$b->{use_partition}, list => [ 0, 1 ], format => sub { $silo_install_lang[$_[0]] } },
- ) : if_(arch() !~ /ia64/,
+ if_(arch() !~ /ia64/,
{ label => N("Boot device"), val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } (@{$all_hds->{hds}}, grep { !isFat_or_NTFS($_) } @$fstab)), detect_devices::floppies_dev() ], not_edit => !$::expert },
),
{ label => N("Delay before booting default image"), val => \$b->{timeout} },
@@ -291,10 +281,12 @@ sub setupBootloader__general {
sub setupBootloader__entries {
my ($in, $b, $_all_hds, $fstab) = @_;
+ require Xconfig::resolution_and_depth;
+
my $Modify = sub {
my ($e) = @_;
my $default = my $old_default = $e->{label} eq $b->{default};
- my $vga = $e->{vga} || 'normal';
+ my $vga = Xconfig::resolution_and_depth::from_bios($e->{vga});
my @l;
if ($e->{type} eq "image") {
@@ -303,7 +295,7 @@ sub setupBootloader__entries {
{ label => N("Root"), val => \$e->{root}, list => [ map { "/dev/$_->{device}" } @$fstab ], not_edit => !$::expert },
{ label => N("Append"), val => \$e->{append} },
if_(arch() !~ /ppc|ia64/,
-{ label => N("Video mode"), val => \$vga, list => [ keys %bootloader::vga_modes ], format => sub { $bootloader::vga_modes{$_[0]} }, not_edit => !$::expert, advanced => 1 },
+{ label => N("Video mode"), val => \$vga, list => [ '', Xconfig::resolution_and_depth::bios_vga_modes() ], format => \&Xconfig::resolution_and_depth::to_string, advanced => 1 },
),
{ label => N("Initrd"), val => \$e->{initrd}, list => [ map { s/$::prefix//; $_ } glob_("$::prefix/boot/initrd*") ], not_edit => 0, advanced => 1 },
);
@@ -343,7 +335,7 @@ sub setupBootloader__entries {
} } }, \@l) or return;
$b->{default} = $old_default || $default ? $default && $e->{label} : $b->{default};
- $e->{vga} = $vga eq 'normal' ? '' : $vga;
+ $e->{vga} = ref($vga) ? $vga->{bios} : $vga;
bootloader::configure_entry($e); #- hack to make sure initrd file are built.
1;
};