1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#!/usr/bin/perl
#
# Guillaume Cottenceau (gc@mandrakesoft.com)
#
# Copyright 2002 MandrakeSoft
#
# 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.
#
sub arch() {
my $t = `uname -m`;
chomp $t;
$t;
}
sub if_($@) {
my $b = shift;
$b or return ();
wantarray || @_ <= 1 or die("if_ called in scalar context with more than one argument " . join(":", caller()));
wantarray ? @_ : $_[0];
}
sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = <F>; wantarray ? @l : join '', @l }
sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 }
@known_boot_loaders = qw(lilo grub yaboot);
# keep this in sync with DrakX
@MBR_signatures = (
[ 'empty', 0, "\0\0\0\0" ],
[ 'grub', 0x6, "GRUB" ],
[ 'grub', 0, "\xEBG", 0x17d, "stage1 \0" ],
[ 'grub', 0, "\xEBH", 0x17e, "stage1 \0" ],
[ 'grub', 0, "\xEBH", 0x18a, "stage1 \0" ],
[ 'grub', 0, "\xEBH", 0x181, "GRUB \0" ],
[ 'lilo', 0x2, "LILO" ],
[ 'lilo', 0x6, "LILO" ],
if_(arch() =~ /ppc/,
map { [ 'yaboot', 0, "PM", 0x200 * $_ + 0x10, "bootstrap\0" ] } 0 .. 61
),
);
sub typeFromMagic {
my $f = shift;
local *F; sysopen F, $f, 0 or return;
my $tmp;
M: foreach (@MBR_signatures) {
my ($name, @l) = @$_;
while (@l) {
my ($offset, $signature) = splice(@l, 0, 2);
sysseek(F, $offset, 0) or next M;
sysread(F, $tmp, length $signature);
$tmp eq $signature or next M;
}
return $name;
}
return 0;
}
my (undef, undef, @parts) = cat_('/proc/partitions');
my @possibilities;
P: foreach (@parts) {
my (undef, undef, $blocks, $dev) = split or next;
next if $blocks <= 1;
my $type = typeFromMagic("/dev/$dev");
$type && member($type, @known_boot_loaders) and push @possibilities, [ $dev, $type ];
}
my $choice;
if (!@possibilities) {
print "No known Linux bootloader has been found, nothing to do.\n";
} elsif (@possibilities == 1) {
print "I've found a Linux bootloader only on </dev/$possibilities[0]->[0]>.\n\n";
$choice = $possibilities[0];
} else {
print "I've found the following Linux bootloaders:\n";
my $i;
print "\t", ++$i, ": <$_->[1]> \ton <$_->[0]>\n" foreach @possibilities;
print "\n";
print "Which disk/partition do you want to overwrite with the Windows bootloader?\n";
print "\t<enter the number or press 'n' and Enter to cancel> ";
<STDIN> !~ /^(\d+)$/i && $1 >= 1 and $choice = $possibilities[$1-1];
}
if ($choice) {
print "I'm going to overwrite bootloader on </dev/$choice->[0]> with
Windows bootloader.
Ok? <press Enter to continue, 'n' and Enter to cancel> ";
<STDIN> =~ /^n/i and exit 0;
system("/bin/dd if=/usr/lib/extipl/aldebaran.bin of=/dev/$choice->[0]\n") and print "\tFailed!\n";
}
#-------------------------------------------------
#- $Log$
#- Revision 1.1 2002/02/27 13:31:30 gc
#- add "restore Windows Boot Loader" to rescue
#-
#-
|
