fix problems with includes now that our previous linux/acl.h has gone away.
[xfstests-dev.git] / src / fill2attr
1 #!/usr/bin/perl -w
2 #
3
4 #
5 #  Copyright (c) 2000 Silicon Graphics, Inc.  All Rights Reserved.
6 #  
7 #  This program is free software; you can redistribute it and/or modify it
8 #  under the terms of version 2 of the GNU General Public License as
9 #  published by the Free Software Foundation.
10 #  
11 #  This program is distributed in the hope that it would be useful, but
12 #  WITHOUT ANY WARRANTY; without even the implied warranty of
13 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14 #  
15 #  Further, this software is distributed without any warranty that it is
16 #  free of the rightful claim of any third person regarding infringement
17 #  or the like.  Any license provided herein, whether implied or
18 #  otherwise, applies only to this software file.  Patent licenses, if
19 #  any, provided herein do not apply to combinations of this program with
20 #  other software, or any other product whatsoever.
21 #  
22 #  You should have received a copy of the GNU General Public License along
23 #  with this program; if not, write the Free Software Foundation, Inc., 59
24 #  Temple Place - Suite 330, Boston MA 02111-1307, USA.
25 #  
26 #  Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pkwy,
27 #  Mountain View, CA  94043, or:
28 #  
29 #  http://www.sgi.com 
30 #  
31 #  For further information regarding this notice, see: 
32 #  
33 #  http://oss.sgi.com/projects/GenInfo/SGIGPLNoticeExplan/
34 #
35 #
36
37 #
38 # fill2attr:
39 #
40 #   $Id$
41 #
42
43 use File::Basename;
44
45
46 # returns numbers with a normal distribution
47 sub normal {
48   my($mean) = $_[0];
49   my($stddev) = $_[1];
50   
51   $x = -6.0;
52   for (my $i = 0; $i < 12; $i++) {
53     $x += rand;
54   }
55   
56   $x = $mean + $stddev * $x;
57   return $x;
58 }
59
60
61 #
62 # determine script location and find fill2
63 #
64 chomp($cwd = `pwd`);
65 chomp($_ = `which fill2 2>&1 | head -1`);
66 if (-x $_) {
67   # look in the path
68   $fill2 = fill2;
69 }
70 else {
71   # in the same directory - get absolute path
72   chomp($dirname = dirname $0);
73   if ($dirname =~ m!^/.*!) {
74     $fill2 = $dirname . "/fill2";
75   }
76   else {
77     # relative
78     $fill2 = $cwd . "/" . $dirname . "/fill2";
79   }    
80   if (! -x $fill2) {
81     die("Error: $0: can't find fill2, tried \"$fill2\"\n");
82   }
83 }
84
85
86 # for each file attach a random number of attributes
87 # each filled with a random amount of data
88 # attribute name is the checksum of the data stored within
89 # the attribute
90
91 $status = 0;                    # return status
92
93 while (<>) {
94   
95   chomp($file = $_);
96   die("Error: $0: $file not found\n")
97     if ( ! -e $file);
98   
99   if ($0 =~ /fill2attr$/) {
100
101     # attach attributes to this file
102     my $num = abs(int(normal(3, 1)));
103     my $seed = 1;
104     my $verbose = 1;
105     my $tmp = "/tmp/fill2attr$$";
106     
107     for (my $i = 0; $i < $num; $i++) {
108       my $size = abs(int(normal(256, 200)));
109       my $cmd = "$fill2 -d nbytes=$size,linelength=72,seed=$seed -b 4k $tmp";
110       $cmd .= " > /dev/null 2>&1" if (! $verbose);
111       
112       if (system($cmd) != 0) {
113         die("Error $0: can't create $tmp\n");
114       }
115       
116       chomp($_ = `sum -r $tmp`);
117       ($sum) = split(/\s+/);
118       if (system("cat $tmp | attr -s $sum $file > /dev/null 2>&1") != 0) {
119         die("Error $0: could not attach attribute:\n" . `cat $tmp` . "\n");
120       }
121     }
122   }
123   elsif ($0 =~ /fill2attr_check/) {
124
125     # get the attributes for this file
126     $cmd = "attr -q -l $file |";
127     open LIST, $cmd;
128     @labels = <LIST>;
129     close LIST or die("Error listing attributes: $!");
130     chomp(@labels);
131
132     # check attribute contents
133     foreach my $label (@labels) {
134       ($sum) = split(/\s+/, `attr -q -g $label $file | sum -r`);
135       if ($sum ne $label) {
136         warn("Attribute \"$label\" does not match " .
137              "attribute contents for file $file\n");
138         $status = 1;
139       }
140     }
141   }
142 }
143
144 exit($status);