# Read a manifest generated by fill2fs from the command
# line or stdin, checksum every file listed
#
-# $Id$
+# $Id: fill2fs_check,v 1.1 2001/04/26 23:46:25 ajag Exp ajag $
#
use File::Basename;
-while (<>) {
+$status = 0;
+
+file: while (<>) {
chomp;
if ( ! -e $_) {
print "$0: $_ not found\n";
- exit(1);
+ $status = 1; next file;
}
(undef, $expected) = split(/\./, basename $_);
chomp($sum = `sum -r $_`);
($actual) = split(/\s+/, $sum);
if ($actual != $expected) {
print "$0: checksum is wrong for \"$_\"\n";
- exit(1);
+ $status = 1; next file;
}
}
+
+exit($status);