#!/usr/bin/perl -w
use strict;

use Net::Ping ;

my $config_file = "PingDetails.xml" ;   # ignore this this was config file ..not used 
my $host        = "122.122.122.122" ; # just random IP address which will always fail
my $TimeOut   = "25" ; # Time to wait after each successful ping in sec
my $FailOut     = "5" ; # time to wait after each unsuccessful ping in sec
my $LogFile     = "Pingreport.txt" ; # defined but not used

sub main {
    ## commented config file section as XML::Simple was giving some error
    #&ReadConfig("$config_file") ;
    &PingResults ; 
}

sub ReadConfig($)
{
    my $_file = $_[0] ;
    my $xml = XMLin($_file) ;
    
    $host    = $xml->{Host} ;
    $TimeOut = $xml->{TimeDuration} ;
    $FailOut = $xml->{FailTimeOut} ;
    $LogFile = $xml->{LogFile} ;
}

sub PingResults() 
{
    
    my $TO = "" ;
    print "******\n" ;
    print "Going To PING [$host] server after every [".($TimeOut+5)."] sec\n" ;
    print "if server fails to respond will ping server every [".( $FailOut+5)."] sec\n" ;
    print "put all logs in [$LogFile]\n" ;
    print "******\n" ;
    print "CNTL-C to Abort ...\n" ;
    
    print "Here ....\n" ;
    open (LOGFILE,">ping.log") or die "can not open file $LogFile : $!\n" ;
    print "Ping.log not found \n" if ( ! -e "ping.log" )  ;
    printf LOGFILE "%25s   %16s   %20s\n","TIME(yyyymmdd_hh:mi:ss)","HOST","STATUS" ;
    while () 
    {
        $TO = "" ;
	my $p = Net::Ping->new() ; 
        if ( $p->ping($host) ) 
        {
	   # This means host is reachable 
	   $TO = $TimeOut ;
	   print STDOUT "$host - reachable\n" ;
        } else 
        {
	   # This means host is not reachable
	   $TO = $FailOut ;
	   my $stat = "".timestamp()."        : $host  : Not reachable" ;
	   &WriteLog("$stat") ; 
	   print STDOUT "$stat\n" ;
        }
        sleep ($TO)
    }
    close LOGFILE ; 
}

sub timestamp()
{
   my ( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime ;
   $year += 1900 ;
   $mon += 1 ;
   my $timeStamp = sprintf "%04d%02d%02d_%02d:%02d:%02d",
                   $year, $mon, $mday, $hour, $min, $sec ;
   return $timeStamp ;
}

# this sub routine i though might be because of while loop its not printing in # file so created new sub routine
sub WriteLog($) 
{
    print "in write log\n" ;
    my $_msg = $_[0] ; 
    print LOGFILE "$_msg\n" ;
}
main () ;