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
109
110
111
112
113
114
115
116
117
|
package transfugdrake;
# From pixel and gc
sub arch() {
my $t = `uname -m`;
chomp $t;
$t;
}
# From pixel and gc
sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = <F>; wantarray ? @l : join '', @l }
# From pixel and gc
sub typeFromMagic {
my $f = shift;
my $tmp;
my @partitions_signatures = (
# [ 0x8e, 0, "HM\1\0" ],
# [ 0x83, 0x438, "\x53\xEF" ],
#[ 0x183, 0x10034, "ReIsErFs" ],
#[ 0x183, 0x10034, "ReIsEr2Fs" ],
#[ 0x283, 0, 'XFSB', 0x200, 'XAGF', 0x400, 'XAGI' ],
#[ 0x383, 0x8000, 'JFS1' ],
#[ 0x82, 4086, "SWAP-SPACE" ],
#[ 0x82, 4086, "SWAPSPACE2" ],
[ 0x7, 0x1FE, "\x55\xAA", 0x3, "NTFS" ],
[ 0xc, 0x1FE, "\x55\xAA", 0x52, "FAT32" ],
arch() !~ /^sparc/ ? ( [ 0x6, 0x1FE, "\x55\xAA", 0x36, "FAT" ],) : (),
);
local *F;
sysopen F, $f, 0 or return;
M: foreach (@partitions_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);
if($tmp ne $signature) { next M; }
}
return $name;
}
return -1;
}
sub get_windows_partition {
my $in = $_[0];
my %type2name = (
0x1 => 'DOS 12-bit FAT',
0x4 => 'DOS 16-bit FAT (up to 32M)',
0x5 => 'DOS 3.3+ Extended Partition',
0x6 => 'DOS FAT16',
0x7 => 'NTFS (or HPFS)',
0xb => 'Win98 FAT32',
0xc => 'Win98 FAT32, LBA-mapped',
0xe => 'Win95: DOS 16-bit FAT, LBA-mapped',
0xf => 'Win95: Extended partition, LBA-mapped',
0x82 => 'Linux Swap',
0x83 => 'Ext2',
0x183 => 'ReiserFS',
0x283 => 'XFS',
0x383 => 'JFS',
0x85 => 'Linux extended partition',
0x87 => 'NTFS volume set',
0x8e => 'Linux LVM',
-1 => 'unknown'
);
my (undef, undef, @parts) = cat_('/proc/partitions');
my @fat_parts;
my $i = 0;
P: foreach (@parts) {
my (undef, undef, $blocks, $dev) = split or next;
my %skip_conditions = (
"Skipping <$dev> because too little blocks ($blocks)" => ($blocks <= 1),
"Skipping <$dev> because doesn't end with a number (e.g. seems to not be a partition)" => ($dev !~ /\d$/),
);
$skip_conditions{$_} and ($verbose and print(STDERR $_, "\n")), next P foreach keys %skip_conditions;
my $type = typeFromMagic("/dev/$dev");
if($type2name{$type} =~ /NTFS/ || $type2name{$type} =~ /FAT32/ || $type2name{$type} =~ /FAT/) {
printf "$dev: type <0x%0x> (%s)\n", $type, $type2name{$type};
$fat_parts[$i] = "$dev ($type2name{$type})";
$i++;
}
}
my $win_part = $in->ask_from_list_(_("Select your windows partition"),
_("Please specify your windows partition from the following list"),
[ @fat_parts ],
$fat_parts[0])
or quit_global($in, 0);
if($fat_parts[1] eq "") { $in->ask_warn(_("Your Windows Partition"), _("$fat_parts[0] is your Windows partition")); }
return $win_part;
}
sub get_windows_version {
}
sub get_windows_config {
my %config;
my $in = $_[0];
$config->{'partitions'} = get_windows_partition($in);
print $config->{'partitions'} . '\n';
}
sub get_linux_config {
}
1;
|