loncom/cgi/ping.pl - diff

Return to ping.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.3, 2002/09/09 14:18:56	version 1.4, 2003/02/25 20:50:31
Line 12 use LONCAPA::Configuration;	Line 12 use LONCAPA::Configuration;
use IO::File;	use IO::File;
use IO::Socket;	use IO::Socket;

	my %perlvar;

# -------------------------------------------------- Non-critical communication	# -------------------------------------------------- Non-critical communication
sub reply {	sub reply {
my ($cmd,$server)=@_;	my ($cmd,$server)=@_;
Line 30 sub reply {	Line 32 sub reply {

# --------------------- Read loncapa.conf (and by default loncapa_apache.conf).	# --------------------- Read loncapa.conf (and by default loncapa_apache.conf).
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');	my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
my %perlvar=%{$perlvarref};	%perlvar=%{$perlvarref};
undef $perlvarref; # remove since sensitive and not needed	undef $perlvarref; # remove since sensitive and not needed
delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed	delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed	delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed