fix problems with includes now that our previous linux/acl.h has gone away.
[xfstests-dev.git] / src / fill2fs_check
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 # fill2fs_check:
39 #   Read a manifest generated by fill2fs from the command
40 #   line or stdin, checksum every file listed
41 #
42 #   $Id: fill2fs_check,v 1.1 2001/04/26 23:46:25 ajag Exp ajag $
43 #
44
45 use File::Basename;
46
47 $status = 0;
48
49 file: while (<>) {
50   chomp;
51   if ( ! -e $_) {
52     print "$0: $_ not found\n";
53     $status = 1; next file;
54   }
55   (undef, $expected) = split(/\./, basename $_);
56   chomp($sum = `sum -r $_`);
57   ($actual) = split(/\s+/, $sum);
58   if ($actual != $expected) {
59     print "$0: checksum is wrong for \"$_\"\n";
60     $status = 1; next file;
61   }
62 }
63
64 exit($status);