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
|
#!/usr/bin/perl -w
#
# Copyright (c) International Business Machines Corp., 2000
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
# the GNU General Public License for more details.
#
# 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
#
#
# FILE(s) : maimparts
# DESCRIPTION : Takes the disk device name (ex: hda) and number of iterations
# to run thru and then rips the drive into a defined number of
# partitions ($parts). This sets up the device for partbeat
# and backbeat which are called after setup occurs.
#
# WARNING!!! : The device you specify on the command line (hda/sda/etc) will be
# blown away...smoking any important data, programs, OS, etc.
# Don't specify a device name that you don't want to wipe out.
# YOU HAVE BEEN WARNED!
#
# AUTHOR : Jeff Martin (martinjn@us.ibm.com)
# HISTORY :
#
# target is device to split into partions
$target=$ARGV[0];
$iterations=$ARGV[1];
# part is the number of partitions to split the drive into (max is 4)
$parts=3;
# fsid is the partition id or type (83 is linux native)
$fstype=$ARGV[2];
$fsid=0x83;
if (!$ARGV[0]) {
print "Usage: maimparts [target device ie: hda or sda] [iterations]\n";
exit;
}
# run sfdisk to display device geometry and rip out info
# (specifically cylinders)
$Geom = `/sbin/sfdisk -g /dev/$target`;
chomp $Geom;
($Junk,$Temp1) = split(/\: /,$Geom,2);
($Cyl,$Heads,$Sec) = split(/\, /,$Temp1,3);
($Cyl,$Junk) = split(/ /,$Cyl,2);
($Heads,$Junk) = split(/ /,$Heads,2);
($Sec,$Junk) = split(/ /,$Sec,2);
# determine partition size to create (force int so we don't
# try to use 1/2 a cylinder!)
$psize = int($Cyl/$parts);
# create a config file in /tmp for sfdisk creation run
open(CONFIG,">/tmp/part.cfg") ||
die "Couldn't create /tmp/part.cfg\n";
for($i=1;$i<=$parts;$i++) {
printf(CONFIG ",%d,%x\n",$psize,$fsid); # write the lines in cfg
}
close(CONFIG);
# create the partitions!
`sfdisk --force /dev/$target < /tmp/part.cfg`;
#run partbeat on the partitions
for ($k=1;$k<=$parts;$k++) {
$part[$k] = sprintf("%s%d",$target,$k);
$tmp = `./partbeat /dev/$target$k $iterations $fstype`;
print $tmp;
}
$tmp = `./backbeat /dev/$part[1] /dev/$part[2] /dev/$part[3]`;
print $tmp;
|
