diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakboot | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 516252c3b..75793f5d8 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -41,6 +41,12 @@ my $splash_working = any { /^--splash$/ } @ARGV; my $in = 'interactive'->vnew('su'); +my $all_hds = fsedit::get_hds(); +fs::get_raw_hds('', $all_hds); +fs::get_info_from_fstab($all_hds, ''); +my $fstab = [ fsedit::get_all_fstab($all_hds) ]; +my $bootloader = bootloader::read($fstab); + if (!$in->isa('interactive::gtk') || any { /^--boot$/ } @ARGV) { $::isWizard = 1; lilo_choice(); @@ -92,10 +98,12 @@ my %themes = ('path' => '/usr/share/bootsplash/themes/', my $kernel_release = `uname -r`; chomp $kernel_release; my $initrd = "/boot/initrd-$kernel_release.img" if -f "/boot/initrd-$kernel_release.img"; -my $cur_res = `/usr/share/bootsplash/scripts/detect-resolution $initrd`; -$cur_res =~ m/(\d+x\d+)x\d+/ and $cur_res = $1; -#- verify that current resolution is ok -if (!$cur_res) { + +require Xconfig::resolution_and_depth; +my $cur_res; +if (my $x_res = Xconfig::resolution_and_depth::from_bios($bootloader->{default_vga})) { + $cur_res = $x_res->{X} . 'x' . $x_res->{Y}; +} else { $no_bootsplash = 1; #- we can't select any theme we're not in Framebuffer mode :-/ $cur_res = '800x600' } @@ -234,15 +242,7 @@ $w->main; $in->exit(0); - sub lilo_choice() { - my $all_hds = fsedit::get_hds(); - fs::get_raw_hds('', $all_hds); - fs::get_info_from_fstab($all_hds, ''); - my $fstab = [ fsedit::get_all_fstab($all_hds) ]; - - my $bootloader = bootloader::read($fstab); - ask: eval { my $before = fs::fstab_to_string($all_hds); |