Anonymous

#!/usr/local/bin/perl
#use strict;
use IO::Socket;
use CGI qw/:standard/;



@processes = ("mysqld","sshd","lighttpd","ctorrent");

for ($t=0;$t<=$#processes;$t++) {

        print "Checking $processes[$t]  \n";

        $running = `ps -cax \| grep @processes[$t]`;

       if ($running =~ /@processes[$t]/) {
                $body="$body\n[OK] @processes[$t]";
        }
        else {
                $body="$body\n[DOWN] @processes[$t]";
        }

}
print "$body";