use subs 'strict';
use POSIX qw(strftime);

use Net::SMTP;

sub email;

my $WORKAREA  = "/home/myaccount/scripts/pflogsumm-1.1.3";
my $TRACKFILE = "$WORKAREA/trackfile";
my @now       = localtime;

#open log file

if ( !open LOGFP, ">>$WORKAREA/check_postfix_emails_sent.log" ) {
   email("Failed: Unable to open the log file");
}

my $str = "Started running now :", strftime( "%Y-%m-%d %H:%M:%S", localtime ),
  "\n";
print $str;
print LOGFP $str;

if ( !open FP,
   "/usr/bin/perl $WORKAREA/pflogsumm.pl -d today /var/log/mail.log|" )
{
   email("Failed: perl pflogsumm.pl /var/log/mail.log|");
   die;
}

$/ = undef;

my $content = <FP>;

if ( $content =~ m/Grand Totals\s+------------\s+messages\s+(\d+)\s+received/s )
{
   my $messagesSent = $1;    #today's messages received

   print "Total messages sent till now =$messagesSent\n";

   if ( $messagesSent > 300 && $messagesSent < 800 ) {
      email(
         "Too many emails sent",
"Till now $messagesSent emails have been sent! Please check it immediately 7y782p3"
      );
      die;
   }
   if ( $messagesSent > 1100 ) {
      email(
         "Too many emails sent",
"Till now $messagesSent emails have been sent! Please check it immediately 7y782p3"
      );
      email(
         "Postfix stopped",
"For safety postfix server has been stopped! .Till now $messagesSent emails have been sent! Please check it immediately 7y782p3"
      );
      system("/usr/sbin/service postfix stop");
      die;
   }

   if ( -f $TRACKFILE ) {

      #see if 7 days passed since changed time
      my $stats = stat($TRACKFILE)

        if ( time > $stats[9] + 7 * 24 * 60 * 60 ) {
         email( "All Success", "No problems found!" );
      }
   }
   else {

      #create the file
      open( TRACKFILE__, ">$TRACKFILE" );
      email( "All Success", "No problems found!" );    
   }
   print "No problems found\n";

}