#!/usr/bin/perl
use IO::Socket;

$SIG{ALRM} = \&fail;
alarm 10;

$remote  = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"192.168.1.1", PeerPort=>"5432");
$remote2 = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"192.168.1.2", PeerPort=>"5432");
unless($remote) { &fail; }
close($remote);

unless($remote2) { &fail; }
close($remote2);

open(FP,">/httpd/htdocs/status2.db");
print FP "OK";
close(FP);

open(FP,">/httpd/htdocs/status.db");
print FP "OK";
close(FP);

sub fail
{
  if(!$remote)
  {
        open(FP,">/httpd/htdocs/status.db");
        print FP "FAIL";
        close(FP);
        $msg = "OLD Database Failed!";
        `echo "$msg" | mail development@did-it.com`;
  }

  if(!$remote2)
  {
        open(FP,">/httpd/htdocs/status2.db");
        print FP "FAIL";
        close(FP);
        $msg = "NEW Database Failes!";
        `echo "$msg" | mail development@did-it.com`;
  }

  exit(0);
}