# Ray Espinoza
# compareDirs.pl
# 2/12/02
# This script will compare two directories, with the first being the template
# directory.
###############################################################################

#!D:/perl/bin
use strict;
use File::stat;

####################################################################################
# Declaring my variables.
####################################################################################

my (%hashDir1, $hashDir1, %hashDir2, $hashDir2, $key, $goodDir, $path, $host1, $host2, $checkDir, $currentFile, $currentFileCD, $values, $values1, $currentFile1, $currentFile2, $currentFileX, $size, $stat, );
my %hashDir1 =();
my %hashDir2 =();

####################################################################################
# Asking for hostnames to process and opening directories.
####################################################################################

print "What host would you like to use as template: ?\n";
chomp($host1 = <STDIN>);

print "Whats the path you want to use? \n";
chomp($path = <STDIN>);
$goodDir = "//" . $host1 . $path;
print "Template directory is : $goodDir" . "\n";
opendir(GD, $goodDir) or die "Can't open $goodDir : $!";

print "what host would you like to examine? \n";
chomp($host2 = <STDIN>);
$checkDir = "//" . $host2 . $path;
opendir(CD, $checkDir) or die "Can't open $checkDir : $!";

print "The log file results.txt will appear in the working directory.\n";
open(OUT, ">>results.txt");

####################################################################################
# Reading the contents of the first directory, stating each file and creating a hash.
# Uncomment out the print lines to print the files and or values.
####################################################################################

while($currentFile = readdir(GD)) {
	
	$currentFile1 = "//" . $host1 . $path . $currentFile;
	#print $currentFile1 . "\n";
	$values = stat($currentFile1) or warn "can't stat the file :$!\n";
	#print $values->size . "\n";
	#print $values->mtime. "\n";
	$hashDir1{$currentFile} = {	size =>$values->size,
								mtime =>$values->mtime,
								};
	
	}
	
####################################################################################
# Uncomment out if you want to print host1's files and sizes.
####################################################################################

#print "$host1 's Directory has these files with these sizes:\n";
#foreach $key(keys(%hashDir1)){
	
	#print "$key,$hashDir1{$key}{'size'}\n";
	#}

####################################################################################
# Reading the contents of the second directory, stating each file and creating a hash.
# Uncomment out the print lines to print the files and or values.
####################################################################################

while($currentFileCD = readdir(CD)) {
	$currentFile2 = "//" . $host2 . $path . $currentFileCD;
	#print $currentFile2 . "\n";
	$values1 = stat($currentFile2) or warn "can't stat the file: $!\n";
	$hashDir2{$currentFileCD} = {	size =>$values1->size,
								mtime =>$values1->mtime,
								};
	
}

####################################################################################
# Does the file exist in host2's directory. if so next statement if not, enter loop.
####################################################################################

foreach $key(keys(%hashDir1)){
	if(!exists ($hashDir2{$key})){
		print "$key doesn't exist on $host2.\n";
		print OUT "$key doesn't exist on $host2.\n";
		next;
		}
		
####################################################################################
# Do the files sizes match?
####################################################################################
	
	elsif(!$hashDir1{$key}{'size'} == $hashDir2{$key}{'size'}){
		print "$key 's sizes don't match on $host2.\n";
		print OUT "$key 's sizes don't match on $host2.\n";
		next;
		}

####################################################################################
# Do the mod times match?
####################################################################################
	
	elsif(!$hashDir1{$key}{'mtime'} == $hashDir2{$key}{'mtime'}){
		print "$key 's modtimes are different on $host2.\n";
		print OUT "$key 's modtimes are different on $host2.\n";
		}


}