mirror of
https://github.com/linux-apfs/apfstests.git
synced 2026-05-01 15:01:44 -07:00
Nathan Scott
32 lines
671 B
Perl
Executable File
32 lines
671 B
Perl
Executable File
#!/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);
|