#!/opt/perl/bin/perl 

use lib '/export/home/gagilent/bmetzger/s/p/hc/';
use HC qw(:ALL);   

use diagnostics;
use English;
use Carp;
use Cwd;
use Net::Ping;
use File::Basename;
use File::Path;
use File::Glob;
use File::Copy;

###############3###
# define location of, and open files
##################  

   my ($TmpDir,$sitelist,$global_problems,$global_details,$global_summary,$ArchiveDir) = InitVars();

   ($sys_day,$sys_mon,$sys_year) = (localtime)[3,4,5];
   $sys_mon += 1;  #jan is 0
   $sys_year += 1900;
   my $today = sprintf "%02d.%02d.%d",$sys_mon,$sys_day,$sys_year;  # zero fill date

   $ENV{'PATH'} = '/usr/bin:/usr/local/bin:/usr/sbin/:/usr/ucb:/etc/:/opt/platform7/lbin/:.'; 
 &CreateDirs();

############
# run modules
############

#   @ARGV = (<$ENV{'PWD'}/*check_*>) unless @ARGV; 
   @ARGV = (<*check_*>) unless @ARGV; 
   foreach my $file (@ARGV) {
      my($junk, $name_of_check) = split('\s+', `grep ModuleName $file`);
      print " $file: $name_of_check\n";
      qx[ $file ]; 
 }
 &mail_and_xfer(); 

#foreach (sort keys %ENV) {
#  print "$_  =  $ENV{$_}\n";
# }


###################
sub CreateDirs {
# create and cleanup

     if ( -e $TmpDir) {
         my @filelist = <$TmpDir/*>;
         foreach my $file (@filelist) {
            if ( -e $file) {unlink $file} ;
         }
     }
     mkpath("$TmpDir");
     mkpath("$ArchiveDir");

} # CreateDirs

####################
sub mail_and_xfer {
# email global_problems
# ftp xxx

    open PROBLEMS, "<$global_problems" or croak "Can't open file $global_problems for read: $!\n";

   open(MAIL, "| /usr/bin/mailx -s 'Surveillance HC problems from $today' bill_metzger\@agilent.com  ") || die "mailx failed: $!\n";
   while (<PROBLEMS>) {
      print MAIL ;
   }
   print MAIL " ";
   close(MAIL);
   close(PROBLEMS);

   open DETAILS, "<$global_details" or croak "Can't open file $global_details for read: $!\n";
   open(MAIL, "| /usr/bin/mailx -s 'Surveillance HC details from $today' bill_metzger\@agilent.com  ") || die "mailx failed: $!\n";
   while (<DETAILS>) {
      print MAIL ;
   }
   print MAIL " ";
   close(MAIL);
   close(DETAILS);

   open SUMMARY, "<$global_summary" or croak "Can't open file $global_summary for read: $!\n";
   open(MAIL, "| /usr/bin/mailx -s 'Surveillance HC summary from $today' bill_metzger\@agilent.com  ") || die "mailx failed: $!\n";
   while (<SUMMARY>) {
      print MAIL ;
   }
   print MAIL " ";
   close(MAIL);
   close(SUMMARY);

} #mail_and_xfer

