loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.411, 2003/09/11 07:57:03	version 1.412, 2003/09/15 18:43:54
Line 246 sub critical {	Line 246 sub critical {
return $answer;	return $answer;
}	}

	#
# -------------- Remove all key from the env that start witha lowercase letter	# -------------- Remove all key from the env that start witha lowercase letter
# (Which is alweways a lon-capa value)	# (Which is always a lon-capa value)

sub cleanenv {	sub cleanenv {
	# unless (defined(&Apache::exists_config_define("MODPERL2"))) { return; }
	# unless (&Apache::exists_config_define("MODPERL2")) { return; }
foreach my $key (keys(%ENV)) {	foreach my $key (keys(%ENV)) {
if ($key =~ /^[a-z]/) {	if ($key =~ /^[a-z]/) {
delete($ENV{$key});	delete($ENV{$key});