#!/usr/bin/perl


 $t1="206.100.65.128";
 $t2="";
 $warn = '/Admin/Scripts/warn';
 $DNSnetrus = "206.251.192.1"; 
 $WAN1netrus ="207.100.65.25";
 $WAN2netrus ="207.100.65.26";
 $DLCInetrus ="932";
 $ROUTnetrus ="mia";
 $PING = "ping ";
 $today = `date '+%y%m%d%H%M'`;
 $Tampatime = localtime (time);
 $sendmail = '/bin/mailx';
 $pager = '8132562585@alphapage.airtouch.com';
 $me = 'ray@icix.net';
 $message = '';
 
sub sendmail{

print ($today," ",$message);
print LOG ($today," ",$message);


open Mail, "|$sendmail -t "|| die "can't open Mail";
print Mail <<EOHM;
From: $me
To: $pager
CC:$me 
EOHM
############## body message ###########

print Mail "Robot\n";
print Mail "$Tampatime\n";
print Mail  $message;
close Mail;
}

open (LOG, ">>/Admin/Scripts/warn.log")|| die "Can't Open Log $!";

 
 open (PIN, "ping $DNSnetrus|")||die "Can't ping $DNSnetrus $!";
      while (<PIN>){
            $save = "ok" if $_ =~ "alive";
            $result = $_;
            }
            
chop ($today);            

if ($save eq "ok")
    {$message = $message."level 1 OK\n";
     #print $message
    }
    else
       {$message = $result;
        &sendmail
       }
  

   
$message = '';
   $COMMAND ="'".$PING." ".$WAN2netrus."'" ; 
   open (TEST, "/home/rcastill/html/cgi-bin/rcmd.pl $ROUTnetrus $COMMAND |")||
                                    die "Can't ping $WAN2netrus $!";

   while (<TEST>){
           
          $success = $_  if $_ =~ "rate";
          }
          if ($success =~ "Success"){
             ($w1, $w2, $w3, $w4, $w5)=split / +/,$success,11;
              $message = $message."second level $w4 %\n";
              #print $message;
              if ($w4 eq "0"){
                  $message = $success;
                  &sendmail
                  }
              }