diff options
author | Mystery Man <unknown@mandriva.org> | 2005-09-02 16:38:15 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-09-02 16:38:15 +0000 |
commit | d53d83f3f80a9cad384644bb0d98b4d3d257b4d8 (patch) | |
tree | 575ef8f623300f7315ed26bec8c2ef670327366f /rescue/install_bootloader | |
parent | 46a079ddbe5c93b62183e0a30aed11328eee5939 (diff) | |
download | drakx-backup-do-not-use-10_3_0_52mdk.tar drakx-backup-do-not-use-10_3_0_52mdk.tar.gz drakx-backup-do-not-use-10_3_0_52mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_52mdk.tar.xz drakx-backup-do-not-use-10_3_0_52mdk.zip |
This commit was manufactured by cvs2svn to create tagV10_3_0_52mdk
'V10_3_0_52mdk'.
Diffstat (limited to 'rescue/install_bootloader')
-rwxr-xr-x | rescue/install_bootloader | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/rescue/install_bootloader b/rescue/install_bootloader deleted file mode 100755 index 59248a016..000000000 --- a/rescue/install_bootloader +++ /dev/null @@ -1,63 +0,0 @@ -#!/usr/bin/perl -# -# Guillaume Cottenceau -# -# Copyright 2001-2005 Mandriva -# -# This software may be freely redistributed under the terms of the GNU -# public license. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# - -use lib qw(../perl-install /usr/lib/libDrakX); -use common; -use bootloader; -use fs; - -$::prefix = '/mnt'; - -my $release = common::mandrake_release($::prefix) || - do { - system('guessmounts') == 0 or die 'guessmounts failed'; - common::mandrake_release($::prefix); - }; - -if ($release) { - $release =~ /Mandrake|Mandriva/ or die "release file doesn't contain 'Mandriva', exiting.\n"; -} elsif (fs::get::mntpoint2part($::prefix, [ fs::read_fstab('', '/proc/mounts') ])) { - die "unknown distribution mounted in $::prefix\n"; -} else { - die "Your root device isn't mounted on $::prefix\n"; -} - -my @main_methods = bootloader::configured_main_methods(); - -my $main_method; -if (@main_methods == 0) { - die "Cannot find a configured boot loader\n"; -} elsif (@main_methods == 1) { - ($main_method) = @main_methods; -} else { - while (1) { - print "Configuration files for Boot Loaders ", join(' and ', @main_methods), " were found.\n"; - print "Which one one should be installed? "; - chomp($main_method = <STDIN>); - if (member($main_method, @main_methods)) { - last; - } else { - print "bad choice\n"; - } - } -} - -my $install = $bootloader::{'install_raw_' . $main_method} or die "unknown bootloader method install_raw_$main_method\n"; - -print "About to re-install Boot Loader $main_method of following Mandriva Linux distribution:\n\t", - $release, - "\n=> ok? <press Enter to continue, 'n' and Enter to cancel> "; -<STDIN> =~ /^n/i and exit 0; - -$install->(); |