
#!/usr/bin/perl
 use MIME::Lite;
 
 $now = localtime;
  ($day, $month, $date, $time) = split(" ", $now);
    $checkdate = "$month $date";
     chomp($checkdate);
 $whoami = `hostname`;
   chomp($hostname);
 if ( -e "/root/tmd_watcher_report.txt" ) {
   system("rm -rf /root/tmd_watcher_report.txt");
 }

  print "TMD watcher is checking for $checkdate @ /var/log/messages at $whoami\n";
   system("cat /var/log/messages |grep \"$checkdate\" > /root/tmd_watcher_stats"); 

 open STATS, "<", "/root/tmd_watcher_stats" or die $!;
  open LOG, ">>", "/root/tmd_watcher_report.txt" or die $!;
  @stats_content=(<STATS>);
    chomp(@stats_content);
  foreach $line(@stats_content) {
    chomp($line);
   if (
          $line =~ /.mp3/ 
       or $line =~ /.avi/ 
       or $Line =~ /.mpg/
       or $line =~ /.mp4/
       or $line =~ /.iso/
       or $line =~ /.mpeg/
       or $line =~ /.pl/
      ) { 
     @contents = split(" ",$line);
       my $user = $contents[5];
   
 print LOG "[WARNING] $user uploaded a file using any of the prohibited extensions.\n";  
 } else {
  next;
 }
}
 
 my $msg = MIME::Lite->new(
    From    => 'Content Auditer <tmdwatcher@tmdhosting.com>',
    To      => 'support@tmdhosting.com',
    Subject => "[Check] /var/log/messages audit for $checkdate on $whoami",
    Type    => 'multipart/mixed',
);

 $msg->attach(
    Type     => 'TEXT',
    Data     => " ",
 );


  $msg->attach(
    Type     => 'text/plain',
    Path     => '/root/tmd_watcher_report.txt',
    Filename => 'tmd_watcher_report.txt',
  );

$msg->send;