|
version 1.4, 2002/09/09 14:18:56
|
version 1.6, 2003/02/03 18:03:52
|
|
Line 6 $|=1;
|
Line 6 $|=1;
|
| # (Running loncron |
# (Running loncron |
| # 09/06/01 Gerd Kortemeyer) |
# 09/06/01 Gerd Kortemeyer) |
| # 02/18/02,02/19/02 Gerd Kortemeyer) |
# 02/18/02,02/19/02 Gerd Kortemeyer) |
| # 5/11/2002 Scott Harrison |
|
| |
|
| use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
| use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
|
Line 18 use Net::Ping;
|
Line 17 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(); |
![[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