Perl | #!/usr/bin/perl #processes - Anonymous - m49804832

#!/usr/bin/perl

#processes to monitor
%procs = (
    "urbanterror","start_server_ut",
    "bloodfrontier","bfserver_linux",
    "assaultcube","start_server_acube",
    "teeworlds","teeworlds_srv",
    "smokinguns","start_server_sg",
    "worldofpadman","start_server_wop"
    );
$status = "lxgc.shackhost.net status:";

#Check monitored processes
foreach $game (sort keys %procs)
{
    $counter++;
    $proc_list = `ps ax`; #Not getting this each loop will cause $proc_list to get mangled by the regex
    if ($proc_list =~ m/.*$procs{$game}.*/g)
    {
        $status = $status . " $game(ON)";
        #print "$game is running($procs{$game})\n";
    }
    else
    {
        $status = $status . " $game(OFF)";
        #print "$game is not running($procs{$game})\n";
    }
}
print "$status";