#!/usr/bin/perl -w
use strict;
use warnings;


my $file;

#my $yesterday=`date -d '2 day ago' +%Y%m%d`;
my $yesterday=`date -d 'yesterday' +%Y%m%d`;
my $yesterday1=`date -d 'yesterday' +%m/%d/%Y`;
chomp($yesterday);
print"date $yesterday\n";

#opendir(DIR,".");
opendir(DIR,"/gsmsan04/cob_scripts/output_logs");
my @files=grep(/$yesterday/,readdir(DIR));
closedir(DIR);

# Create OUTFILE
open(OUTFILE,">/tmp/$yesterday");
print OUTFILE "SERVER \t USERNAME \t TICKET# \t DATE&TIME \t\t NOTES\n";
print OUTFILE "---------------------------------------------------------------- \n";


foreach $file (@files)
{
  my @FIELDS=split('_',$file);
  my $SIZE=scalar @FIELDS;
  my $SANCWS=$FIELDS[2];
  my $USER=$FIELDS[$SIZE-3];
  my $TICKET=$FIELDS[$SIZE-2];
  my $TEMPDATE=$FIELDS[$SIZE-1];
  my @DATE=split('\.',$TEMPDATE);
  my @TEMPDGNAME=@FIELDS[3..$#FIELDS-3]; 
  my $DGNAME=join('_',@TEMPDGNAME);
  my $NOTES="SRDF Resume for DG $DGNAME";
  print "$file \n";
  #print "$SANCWS $USER $TICKET $DATE[0] \"$NOTES\" \n"
  print OUTFILE "$SANCWS \t $USER \t $TICKET \t $DATE[0] \t\t \"$NOTES\" \n";
}

close(OUTFILE);

 
#my $to = 'anuraj.pahuja@citi.com';
my $to = 'dl.wts.in.whg.ti.lr@imcnam.ssmb.com dl.cti.global.log.review@imcnam.ssmb.com cti.cis.hia.l2.ops2@imcnam.ssmb.com';
my $from = 'anuraj.pahuja@citi.com';
my $subject = "SAN EOD Report (SAN-EMC Symmetrix/SAN-HITACHI/SAN-CLARIION/SAN-IBM XIV)  $yesterday1";
my $message = `cat /tmp/$yesterday`;
 
open(MAIL, "|/usr/sbin/sendmail -t");
 
# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
# Email Body
print MAIL $message;

close(MAIL);
print "Email Sent Successfully\n";