#/bin/perl -w
$pid = fork;
exit if $pid;
die "Couldn't fork: $!" unless defined($pid);
 
use Mail::Sender;
use Net::Ping;
use strict;
 
our ($p, $host, $location, $sender, @date);
our $my_addr = "your.IP.address.here";
our $sig = 1;  #Never fully implemented this.
our %host_hash = (

"server1" => "/vmware/S1",
"server2" => "/vmware/S2",
"server3" => "/vmware/S3"

);
 
do {
@date = localtime;
print "$date[2]:$date[1]:$date[0]\n";
sleep (300);
 
Ping();
 
} while ($sig lt 1000000);
 
 
 
#####   Define subroutines here:   #####
 
sub Ping {
        $p = Net::Ping->new();
        while ( ($host, $location) = each %host_hash ) {
            if ($p->ping($host)){
                print "$host is reachable!\n";
            }
 
            else {
                Died();
                Restart(); #<- Remark this line out.
            }
        }
        $p->close();
}
 
 
sub Died {
               print "Arghhh! $host died!\n";
               $sender = new Mail::Sender {
                       smtp => 'mail.host.org',
                       from => 'account@machine.host.org',
                       on_errors => undef,
               }
                       or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";
               $sender->Open({
                       to => '1234@my.cell.phone.com',
                       subject => "$host"
               })
                       or die "Can't open the message: $sender->{'error_msg'}\n";
               $sender->SendLineEnc("$host is not responding.  I will attempt to restart it.  You will be paged again if it does not restart.");
               $sender->Close()
                       or die "Failed to send the message: $sender->{'error_msg'}\n";
               sleep(5);
}
 
 
sub Restart {
 
system "$location/$host stop";
sleep (45);
system "$location/$host start";
sleep (180);
 
}