--- loncom/cgi/clusterstatus.pl	2002/09/09 14:18:56	1.4
+++ loncom/cgi/clusterstatus.pl	2002/11/18 15:11:41	1.5
@@ -18,6 +18,8 @@ use Net::Ping;
 
 sub online {
     my $host=shift;
+    return 1;
+# ping is broken
     my $p=Net::Ping->new("tcp",10);
     my $online=$p->ping("$host");
     $p->close();