summaryrefslogtreecommitdiffstats
path: root/rescue/restore_ms_boot
diff options
context:
space:
mode:
Diffstat (limited to 'rescue/restore_ms_boot')
-rwxr-xr-xrescue/restore_ms_boot73
1 files changed, 0 insertions, 73 deletions
diff --git a/rescue/restore_ms_boot b/rescue/restore_ms_boot
deleted file mode 100755
index b31fd112e..000000000
--- a/rescue/restore_ms_boot
+++ /dev/null
@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-#
-# Guillaume Cottenceau, Pixel
-#
-# Copyright 2002-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;
-use fs::proc_partitions;
-
-
-my @choices = map {
- my $type = typeFromMagic(devices::make($_->{dev}));
- if_($type && member($type, bootloader::main_method_choices()) , [ $_->{dev}, $type ]);
-} fs::proc_partitions::read_raw();
-
-my $choice;
-
-if (!@choices) {
- print "No known Linux bootloader has been found, nothing to do.\n";
-} elsif (@choices == 1) {
- print "I've found a Linux bootloader only on <$choices[0][0]>.\n\n";
- $choice = $choices[0];
-} else {
- print "I've found the following Linux bootloaders:\n",
- (map_index { "\t" . $::i . ": <$_->[1]> \ton <$_->[0]>\n" } @choices),
- "\n",
- "Which disk/partition do you want to overwrite with the Windows bootloader?\n",
- "\t<enter the number or press 'n' and Enter to cancel> ";
- if (<STDIN> =~ /^(\d+)$/i && $1 >= 1) {
- $choice = $choices[$1 - 1];
- }
-}
-
-if ($choice) {
- print "I'm going to overwrite bootloader on <$choice->[0]> with
-Windows bootloader.
-
-Ok? <press Enter to continue, 'n' and Enter to cancel> ";
- <STDIN> =~ /^n/i and exit 0;
-
- system('dd', 'if=/usr/lib/extipl/aldebaran.bin', "of=/dev/$choice->[0]") == 0
- or print "\tFailed!\n";
-}
-
-#-------------------------------------------------
-#- $Log$
-#- Revision 1.5 2005/06/13 04:33:50 prigaux
-#- move functions using /proc/partitions out of fsedit to fs::proc_partitions
-#-
-#- Revision 1.4 2005/05/19 08:59:54 prigaux
-#- rewrite using DrakX modules
-#-
-#- Revision 1.3 2005/04/19 12:49:39 prigaux
-#- update copyright
-#-
-#- Revision 1.2 2004/07/20 02:42:12 prigaux
-#- MandrakeSoft -> Mandrakesoft
-#-
-#- Revision 1.1 2002/02/27 13:31:30 gc
-#- add "restore Windows Boot Loader" to rescue
-#-
-#-