loncom/cgi/clusterstatus.pl - diff

Return to clusterstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.3, 2002/05/11 21:29:42	version 1.4, 2002/09/09 14:18:56
Line 54 sub connected {	Line 54 sub connected {

print "Content-type: text/html\n\n".	print "Content-type: text/html\n\n".
"<html><body bgcolor=#FFFFFF>\n";	"<html><body bgcolor=#FFFFFF>\n";
# ------------------------------------------- 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};	my %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