[LON-CAPA-cvs] cvs: loncom /cgi clusterstatus.pl

[www]

www		Mon Nov 18 10:11:41 2002 EDT

  Modified files:              
    /loncom/cgi	clusterstatus.pl 
  Log:
  Avoid bug #429. Subroutine "online" short-circuit until we have figured out
  Net::Ping.
  
  
Index: loncom/cgi/clusterstatus.pl
diff -u loncom/cgi/clusterstatus.pl:1.4 loncom/cgi/clusterstatus.pl:1.5
--- loncom/cgi/clusterstatus.pl:1.4	Mon Sep  9 10:18:56 2002
+++ loncom/cgi/clusterstatus.pl	Mon Nov 18 10:11:41 2002
@@ -18,6 +18,8 @@
 
 sub online {
     my $host=shift;
+    return 1;
+# ping is broken
     my $p=Net::Ping->new("tcp",10);
     my $online=$p->ping("$host");
     $p->close();