loncom/cgi/ping.pl - diff

Return to ping.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.2, 2002/05/11 21:31:41	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 28 sub reply {	Line 30 sub reply {
}	}


# ------------------------------------------- Read access.conf and loncapa.conf	# --------------------- Read loncapa.conf (and by default loncapa_apache.conf).
my $perlvarref=LONCAPA::Configuration::read_conf('access.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