
#!/usr/bin/perl
use Proc::Daemon;
use Mail::Sendmail;

$SendmailPath = '/usr/sbin/sendmail';
sub sendmail {
        my ($to, $from, $subj, $msg) = @_;
        open (MAIL, "|$SendmailPath -t -n")|| die "Error! Can't use sendmail\n";
        print MAIL "To: $to\n";
        print MAIL "From: $from\n";
        print MAIL "Subject: $subj\n";
        print MAIL "Reply-To: $from\n\n";
        print MAIL "$msg\n";
        close (MAIL);
}

sub vikai {
     sendmail('sysadmin-abuse@tmdhosting.com', 'watcher@tmdhosting.com', "Process of user $login killed", $p->cmndline);
}


$cpulimit = "65.00";
$memlimit = "65.00";

sub bii {
 use Proc::ProcessTable;
 $t = new Proc::ProcessTable;
 foreach $p (@{$t->table}) {
    ($login,$pass,$uid,$gid) = getpwuid($p->uid);
    if ($login eq "root" or $login eq "nobody" or $login eq "mysql" or $login eq "named" or $login eq "naous" or $login eq "prase" or $login eq "midatlan"){ next; }
    if ($p->pctcpu >= $cpulimit or $p->pctmem >= $memlimit) {	
    $p->kill(9);
    vikai;
    } else {
   next;
   }
  }
}
Proc::Daemon::Init;
$0="tmdwatcher";
while(1){
 bii;
 sleep(2);
}