#!/usr/bin/perl -w
#

#
#  Copyright (c) 2000 Silicon Graphics, Inc.  All Rights Reserved.
#  
#  This program is free software; you can redistribute it and/or modify it
#  under the terms of version 2 of the GNU General Public License as
#  published by the Free Software Foundation.
#  
#  This program is distributed in the hope that it would be useful, but
#  WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#  
#  Further, this software is distributed without any warranty that it is
#  free of the rightful claim of any third person regarding infringement
#  or the like.  Any license provided herein, whether implied or
#  otherwise, applies only to this software file.  Patent licenses, if
#  any, provided herein do not apply to combinations of this program with
#  other software, or any other product whatsoever.
#  
#  You should have received a copy of the GNU General Public License along
#  with this program; if not, write the Free Software Foundation, Inc., 59
#  Temple Place - Suite 330, Boston MA 02111-1307, USA.
#  
#  Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pkwy,
#  Mountain View, CA  94043, or:
#  
#  http://www.sgi.com 
#  
#  For further information regarding this notice, see: 
#  
#  http://oss.sgi.com/projects/GenInfo/SGIGPLNoticeExplan/
#
#
 
#
# fill2fs_check:
#   Read a manifest generated by fill2fs from the command
#   line or stdin, checksum every file listed
#
#   $Id$
#

use File::Basename;

while (<>) {
  chomp;
  if ( ! -e $_) {
    print "$0: $_ not found\n";
    exit(1);
  }
  (undef, $expected) = split(/\./, basename $_);
  chomp($sum = `sum $_`);
  ($actual) = split(/\s+/, $sum);
  if ($actual != $expected) {
    print "$0: checksum is wrong for \"$_\"\n";
    exit(1);
  }
}