I'm looking for a simply perl script to send mail, when ping down

cccc · 01-11-2004, 01:19 PM

hi

I'm looking for a simply perl script, when ping down,
then sends mail to administrator.

kind regards
cccc

david_ross · 01-11-2004, 02:00 PM

How about:

Code:

#!/usr/bin/perl

$mail="administrator\@somehost.com";
$host="ip.of.some.host";

$out=`ping -c3 $host | grep -c "bytes from"`;

if($out < 2){
open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "to:$mail\n";
print MAIL "from:$mail\n";
print MAIL "subject:Cannot ping remote host\n\n";
print MAIL localtime(time());
close(MAIL);
}

exit;

It will attmpt to ping 3 times if less than 2 replies are received then it sends the admin an e-mail.

cccc · 01-12-2004, 04:36 AM

thanks david_ross

works great !

kind regards
cccc