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
|
#!/usr/bin/perl -w
#
#
# Copyright (c) 2000-2001 Silicon Graphics, Inc. All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of version 2 of the GNU General Public License as
# published by the Free Software Foundation.
#
# This program is distributed in the hope that it would be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# Further, this software is distributed without any warranty that it is
# free of the rightful claim of any third person regarding infringement
# or the like. Any license provided herein, whether implied or
# otherwise, applies only to this software file. Patent licenses, if
# any, provided herein do not apply to combinations of this program with
# other software, or any other product whatsoever.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write the Free Software Foundation, Inc., 59
# Temple Place - Suite 330, Boston MA 02111-1307, USA.
#
# Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pkwy,
# Mountain View, CA 94043, or:
#
# http://www.sgi.com
#
# For further information regarding this notice, see:
#
# http://oss.sgi.com/projects/GenInfo/SGIGPLNoticeExplan/
#
#
use strict;
use File::Basename;
# returns numbers with a normal distribution
sub normal {
my($mean) = $_[0];
my($stddev) = $_[1];
my $x = -6.0;
for (my $i = 0; $i < 12; $i++) {
$x += rand;
}
$x = $mean + $stddev * $x;
return $x;
}
# location of fill2
my $fill2="./src/fill2";
# for each file attach a random number of attributes
# each filled with a random amount of data
# attribute name is the checksum of the data stored within
# the attribute
my $status = 0; # return status
my $file;
while (<>) {
chomp($file = $_);
die("Error: $0: $file not found\n") if ( ! -e $file);
if ($0 =~ /fill2attr$/) {
# attach attributes to this file
my $num = abs(int(normal(3, 1)));
my $seed = 1;
my $verbose = 1;
my $tmp = "/tmp/fill2attr$$";
for (my $i = 0; $i < $num; $i++) {
my $size = abs(int(normal(256, 200)));
my $cmd = "$fill2 -d nbytes=$size,linelength=72,seed=$seed -b 4k $tmp";
$cmd .= " > /dev/null 2>&1" if (! $verbose);
if (system($cmd) != 0) {
die("Error $0: can't create $tmp\n");
}
chomp($_ = `sum -r $tmp`);
my ($sum) = split(/\s+/);
system("cat $tmp | attr -s $sum $file > /dev/null");
system("rm $tmp");
}
}
elsif ($0 =~ /fill2attr_check/) {
# get the attributes for this file
my $cmd = "attr -q -l $file |";
open LIST, $cmd;
my @labels = <LIST>;
close LIST or die("Error listing attributes: $!");
chomp(@labels);
# check attribute contents
foreach my $label (@labels) {
my $sum;
($sum) = split(/\s+/, `attr -q -g $label $file | sum -r`);
if ($sum ne $label) {
warn("Attribute \"$label\" does not match " .
"attribute contents for file $file\n");
$status = 1;
}
}
}
}
exit($status);
|
