![[BACK]](/icons/back.gif){kind=icon}
Return to clusterstatus.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / cgi|
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(); |