--- loncom/cgi/clusterstatus.pl 2002/05/11 21:29:42 1.3 +++ 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(); @@ -54,8 +55,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