Return to verify.pl CVS log | Up to [LON-CAPA] / loncom / build |
file for lpml postevaluation
1: #!/usr/bin/perl 2: 3: use strict; 4: 5: my $mode=shift @ARGV; 6: 7: if ($mode eq 'fileglob') { 8: my $sourceroot=shift @ARGV; 9: my $targetroot=shift @ARGV; 10: my $glob=shift @ARGV; 11: my $sourcedir=shift @ARGV; 12: my $filenames=shift @ARGV; 13: my $targetdir=shift @ARGV; 14: my $chmod=shift @ARGV; 15: my $chown=shift @ARGV; 16: print "sourceroot: $sourceroot\n"; 17: print "targetroot: $targetroot\n"; 18: print "glob: $glob\n"; 19: print "filenames: $filenames\n"; 20: print "sourcedir: $sourcedir\n"; 21: print "targetdir: $targetdir\n"; 22: print "chmod: $chmod\n"; 23: print "chown: $chown\n"; 24: # does sourcedir&glob have extraneous files not given in filenames? 25: # does targetdir lack files in filenames 26: # are any of the files of incorrect permissions or ownership? 27: print "perl filecompare.pl -s SOURCE='$sourceroot' ". 28: "TARGET='/$targetroot' ". 29: "MODE=fileglob $sourcedir$glob $targetdir$glob\n"; 30: }