| #!/usr/bin/perl -w |
| # |
| # Copyright (c) 2000-2001 Silicon Graphics, Inc. All Rights Reserved. |
| # |
| # fill2fs_check: |
| # Read a manifest generated by fill2fs from the command |
| # line or stdin, checksum every file listed |
| # |
| # $Id: fill2fs_check,v 1.1 2001/04/26 23:46:25 ajag Exp ajag $ |
| # |
| |
| use File::Basename; |
| |
| $status = 0; |
| |
| file: while (<>) { |
| chomp; |
| if ( ! -e $_) { |
| print "$0: $_ not found\n"; |
| $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"; |
| $status = 1; next file; |
| } |
| } |
| |
| exit($status); |