summaryrefslogtreecommitdiffstats
path: root/rescue/install_bootloader
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2005-09-02 22:32:32 +0000
committerMystery Man <unknown@mandriva.org>2005-09-02 22:32:32 +0000
commitbd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4 (patch)
tree7a03e33fba584c7014f990f1448a337627d50484 /rescue/install_bootloader
parent4da1048be0a7528a1a9f55e6f87cb2766508473b (diff)
downloaddrakx-10_3_0_53mdk.tar
drakx-10_3_0_53mdk.tar.gz
drakx-10_3_0_53mdk.tar.bz2
drakx-10_3_0_53mdk.tar.xz
drakx-10_3_0_53mdk.zip
This commit was manufactured by cvs2svn to create tagV10_3_0_53mdk
'V10_3_0_53mdk'.
Diffstat (limited to 'rescue/install_bootloader')
-rwxr-xr-xrescue/install_bootloader63
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->();