--- loncom/cgi/clusterstatus.pl	2002/09/09 14:18:56	1.4
+++ loncom/cgi/clusterstatus.pl	2003/02/03 18:03:52	1.6
@@ -6,7 +6,6 @@ $|=1;
 # (Running loncron
 # 09/06/01 Gerd Kortemeyer)
 # 02/18/02,02/19/02 Gerd Kortemeyer)
-# 5/11/2002 Scott Harrison
 
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
@@ -18,6 +17,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();