Return to verify.pl CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/verify.pl, revision 1.1

1.1     ! harris41    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: }