#!/usr/bin/perl
# Copyright 2000 - 2004 George Shaffer
# Anyone may use or modify this code for any purpose PROVIDED
# that as long as it is recognizably derived from this code,
# that this copyright notice, remains intact and unchanged.
# No warrantees of any kind are expressed or implied.

# Compare two checksum files.

my $drive = "h:";
check_one_dir() if (chdir("$drive\\alert\\bsd\\cksums"));
sleep 2;
check_one_dir() if (chdir("$drive\\alert\\anotherhost\\cksums"));
sleep 2;
check_one_dir() if (chdir("$drive\\alert\\host3\\cksums"));
sleep 2;
check_one_dir() if (chdir("$drive\\alert\\four\\cksums"));

sub check_one_dir {
   return "" if (-e "skip");
   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
   #print "year = $year\n";
   $year += 1900;
   $year = substr($year,2,2);
   my $yymmdd2 = (sprintf "%02.2d", $year) . (sprintf "%02.2d", $mon+1) .
      (sprintf "%02.2d", $mday);
   my $yymmdd1;
   if ($mday > 1) {
      $mday--;
      $yymmdd1 = (sprintf "%02.2d", $year) . (sprintf "%02.2d", $mon+1) .
         (sprintf "%02.2d", $mday);
   } else {
      if ($mon > 0) {
         # Does NOT account for leap years.
         my @lday = (31,28,31,30,31,30,31,31,30,31,30,31);
         $mon--;
         $mday = $lday[$mon];
         $yymmdd1 = (sprintf "%02.2d", $year) . (sprintf "%02.2d", $mon+1) .
            (sprintf "%02.2d", $mday);
      } else {
         $year--;
         $yymmdd1 = (sprintf "%02.2d",$year) . "1231";
      }
   }

   unless (-e "ck$yymmdd2.log") {
      print chr(7), chr(7), chr(7), chr(7), chr(7), chr(7), chr(7), chr(7),
         chr(7), chr(7), chr(7) unless (-e "ck$yymmdd2.log");
      return;
   }

   my $out = `diff ck$yymmdd1.log ck$yymmdd2.log`;
   #my $out = `diff $yymmdd1.log $yymmdd2.log`;
   my $len = length($out);
   if ($len > 2) {
      print "length = $len\n";
      print chr(7), chr(7), chr(7), chr(7), chr(7), chr(7);
      open (OUT, ">df$yymmdd2.txt");
      print OUT `pwd`."\n";
      print OUT $out;
      close OUT;
      system("start notepad df$yymmdd2.txt");
   } else {
      return "";
   }
}