#!/usr/bin/perl

$log_dir = "/var/log/messages";  # system log file
$d = "/bin/date";                # path to date program
$host = "192.168.1.15";          # host to check
$rp = "/bin/reseter";            # path to reseter
$rt = "1";                       # reset time (default 1s)



$t1 = `$d +"%b"`; chop($t1);
$t2 = `$d +"%e"`; chop($t2);
$t3 = `$d +"%X"`; chop($t3);


$stat = system("ping -c 1 $host >/dev/null");
$host = `hostname`; chop($host);

if($stat == 0) { exit(0); } # connection okay? if yes -> exit.

system("$rp $rt");
 
open(LOG, ">>$log_dir");
print LOG "$t1 $t2 $t3 $host RESETER: Connection to $host lost! Reseting.";
close(LOG);