Return to verify.pl CVS log

Up to [LON-CAPA] / loncom / build

file for lpml postevaluation

#!/usr/bin/perl

use strict;

my $mode=shift @ARGV;

if ($mode eq 'fileglob') {
    my $sourceroot=shift @ARGV;
    my $targetroot=shift @ARGV;
    my $glob=shift @ARGV;
    my $sourcedir=shift @ARGV;
    my $filenames=shift @ARGV;
    my $targetdir=shift @ARGV;
    my $chmod=shift @ARGV;
    my $chown=shift @ARGV;
    print "sourceroot: $sourceroot\n";
    print "targetroot: $targetroot\n";
    print "glob: $glob\n";
    print "filenames: $filenames\n";
    print "sourcedir: $sourcedir\n";
    print "targetdir: $targetdir\n";
    print "chmod: $chmod\n";
    print "chown: $chown\n";
    # does sourcedir&glob have extraneous files not given in filenames?
    # does targetdir lack files in filenames
    # are any of the files of incorrect permissions or ownership?
    print "perl filecompare.pl -s SOURCE='$sourceroot' ".
          "TARGET='/$targetroot' ".
          "MODE=fileglob $sourcedir$glob $targetdir$glob\n";
}