Return to clusterstatus.pl CVS log | Up to [LON-CAPA] / loncom / cgi |
version 1.4, 2002/09/09 14:18:56 | version 1.5, 2002/11/18 15:11:41 |
---|---|
Line 18 use Net::Ping; | Line 18 use Net::Ping; |
sub online { | sub online { |
my $host=shift; | my $host=shift; |
return 1; | |
# ping is broken | |
my $p=Net::Ping->new("tcp",10); | my $p=Net::Ping->new("tcp",10); |
my $online=$p->ping("$host"); | my $online=$p->ping("$host"); |
$p->close(); | $p->close(); |