#!/usr/bin/perl -w # Get your money's worth from COMCAST internet. use strict; use Net::Ping; $| = 1; my $logfname = "COMCAST-2005-03-22.log"; # my $hostname = "www.google.com"; my $hostname = "www.gatech.edu"; my $datestr = ""; my $pingstr = ""; open(LOG, ">$logfname") || die("can't open $logfname: $!"); while (1) { $datestr = `date "+%F %T"`; chomp($datestr); # $pingstr = "ping -c 1 -w 1 www.google.com"; print "hi there\n"; my $p = Net::Ping->new(); if ( $p->ping($hostname) ) { warn $datestr." $hostname is alive.\n"; print LOG "1 ".$datestr." $hostname is alive.\n"; } else { warn $datestr." $hostname is not alive.\n"; print LOG "0 ".$datestr." $hostname is not alive.\n"; } $p->close(); sleep 900; # 15 minutes } close(LOG); return 1;