# sierrathedog04, jonathansamuel@yahoo.com, August 2001  
# place this script in the target directory and 
# pass it the name of the source directory from the 
# command line.  
# This utility requires that the diff command works on the user's syst
+em.

use strict;

my $sourceDir = shift || die "Please pass the name of a source directo
+ry enclosed in quotes.  \n";
chomp $sourceDir;
$sourceDir =~ s/\/\$/\$/;
unless (-d $sourceDir) {
    die "$sourceDir is not a valid source directory. Please pass the n
+ame of a valid source directory enclosed in quotes.  \n";
}

opendir THISDIR, ".";
my @allFiles = readdir THISDIR;
closedir THISDIR;

foreach (@allFiles) {
    if (-e "$sourceDir/$_") {    
        print "$_ in target differs from that in source directory $sou
+rceDir\n" if `diff $_ $sourceDir/$_`;
    } else {
        print "$_ found in target but not in source directory $sourceD
+ir\n";
    }
}
print "\nFinished checking target\n";


opendir SOURCEDIR, $sourceDir;
my @allSourceFiles = readdir SOURCEDIR;
foreach (@allSourceFiles) {
    unless (-e "./$_") {
        print "$_ found in source directory $sourceDir but not in targ
+et\n";
    }
}
[download]