diff options
author | Mystery Man <unknown@mandriva.org> | 2002-08-05 15:51:48 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-08-05 15:51:48 +0000 |
commit | 60a32f602c51495953e8f5db7ff42704a939caca (patch) | |
tree | e5927f165ceb0e00e0067ed53ac00bcfb6ef4a80 /perl-install/standalone/drakboot | |
parent | f40f7286b31daab17a4db329040e543f830d3175 (diff) | |
download | drakx-60a32f602c51495953e8f5db7ff42704a939caca.tar drakx-60a32f602c51495953e8f5db7ff42704a939caca.tar.gz drakx-60a32f602c51495953e8f5db7ff42704a939caca.tar.bz2 drakx-60a32f602c51495953e8f5db7ff42704a939caca.tar.xz drakx-60a32f602c51495953e8f5db7ff42704a939caca.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_5mdk'.V1_1_9_5mdk
Diffstat (limited to 'perl-install/standalone/drakboot')
-rwxr-xr-x | perl-install/standalone/drakboot | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot deleted file mode 100755 index 9c3449d1d..000000000 --- a/perl-install/standalone/drakboot +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/perl - -use lib qw(/usr/lib/libDrakX); - -use standalone; #- warning, standalone must be loaded very first, for 'explanations' - -use common; -use interactive; -use any; -use bootloader; -use detect_devices; -use fsedit; -use fs; -use c; - -local $_ = join '', @ARGV; - -/-h/ and die "usage: drakboot [--expert] [--testing]\n"; - -$::expert = /-expert/; -$::testing = /-testing/; - -my $in = 'interactive'->vnew('su', 'bootloader'); - -$::lilo_choice = \&lilo_choice; - -if ($in->isa('interactive::gtk')) { - require 'bootlook.pm'; -} else { - lilo_choice(); -} - -!$::isEmbedded and $in->exit(0); -kill('USR1', $::CCPID); -goto ask; - -sub lilo_choice -{ - my $bootloader = bootloader::read(); - local ($_) = `detectloader`; - $bootloader->{methods} = { lilo => 1, grub => !!/grub/i, if_(arch() =~ /ppc/, yaboot => 1) }; - - my ($all_hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 }; - my $fstab = [ fsedit::get_all_fstab($all_hds) ]; - fs::merge_info_from_fstab($fstab); - - $::expert=1; - - ask: - local $::isEmbedded = 0; - any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) or return; - eval { bootloader::install($bootloader, $fstab, $all_hds->{hds}) }; - - my $loader = arch() =~ /ppc/ ? "Yaboot" : "LILO"; - if ($@) { - $in->ask_warn('', - [ _("Installation of %s failed. The following error occured:", $loader), - grep { !/^Warning:/ } cat_("/tmp/.error") ]); - unlink "/tmp/.error"; - goto ask; - } -} |