--- loncom/cgi/clusterstatus.pl 2002/05/11 21:29:42 1.3 +++ 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(); @@ -54,8 +56,8 @@ sub connected { print "Content-type: text/html\n\n". "\n"; -# ------------------------------------------- Read access.conf and loncapa.conf -my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf'); +# -------------------- Read loncapa.conf (and by default, loncapa_apache.conf). +my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf'); my %perlvar=%{$perlvarref}; undef $perlvarref; # remove since sensitive and not needed delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed