
#!/usr/local/bin/perl

#
# Modules
#

 use DBI;
 use Proc::Daemon;

#
# Global vars
# 
 $procsfile = '/root/temp_proc_list';
 $limit = '20'; 
my $db = 'DBI:mysql:monitoring:74.200.74.237';
my $username = 'backupstatus';
my $pass = 'dAtIebAmAikata';
 $myname = `hostname`;
  chomp($myname);

#
# Do not edit below this line, unless specifically instructed, thank you.
#

sub monitor {
  open PROCSLIST, "> $procsfile" or die $!;
   $procslist=`ps -elf |awk {'print \$3'}|sort|uniq -c|sort -n`;
    chomp($proclist);
   print PROCSLIST "$procslist";
  close PROCSLIST;

  open PROCSLIST, "$procsfile" or die $!;
   while (<PROCSLIST>){
  my ($num,$usr) = split(" ",$_);
   chomp($num);
   chomp($usr);
       if ( $num > $limit) {
        if ( $usr =~ /root/ or $usr =~ /nobody/ or $usr =~ /mysql/ or $usr =~ /mailnull/){
         next;
     } else {
       print "$num $usr \n";
         $userlog = `ps -elf |grep $usr`; 
          chomp($userlog);
         $when = `date`;
          chomp($when);
        open USERLOG, ">> /home/$usr/etc/tmd_proc_log";
         print USERLOG "====== At $when we have detected $num processes by $usr ======\n";
         print USERLOG " \n";
         print USERLOG "$userlog" or die $!;
         print USERLOG " \n";
        close USERLOG;
        system("ukill $usr");
      my $dbh = DBI->connect( $db, $username, $pass );
      my $sql =qq(INSERT INTO `monitoring`.`process_killer`(`id`, `username`, `procs`, `srv`) VALUES (NULL, '$usr', '$num', "$myname"););
      my $sth = $dbh->prepare($sql);
       $sth->execute or die "SQL error: $DBI:errstr\n";
       $dbh->disconnect;
     }
    }
   }
  close PROCSLIST;
}

$0='tmd_process_logger';
 Proc::Daemon::Init;
 while(1){
   monitor;
    sleep(1);
 }