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: }