--- loncom/cgi/ping.pl	2002/05/11 21:31:41	1.2
+++ loncom/cgi/ping.pl	2003/02/25 20:50:31	1.4
@@ -12,6 +12,8 @@ use LONCAPA::Configuration;
 use IO::File;
 use IO::Socket;
 
+my %perlvar;
+
 # -------------------------------------------------- Non-critical communication
 sub reply {
     my ($cmd,$server)=@_;
@@ -28,9 +30,9 @@ sub reply {
 }
 
 
-# ------------------------------------------- Read access.conf and loncapa.conf
-my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf');
-my %perlvar=%{$perlvarref};
+# --------------------- Read loncapa.conf (and by default loncapa_apache.conf).
+my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
+%perlvar=%{$perlvarref};
 undef $perlvarref; # remove since sensitive and not needed
 delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
 delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed