loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2001/01/03 18:54:04	version 1.2, 2001/01/06 17:15:22
Line 21 use Apache::Constants qw(:common :http);	Line 21 use Apache::Constants qw(:common :http);

$->print("<hr><h1>Debugging</h1><hr>\n");	$->print("<hr><h1>Debugging</h1><hr>\n");

	my $i=0;
foreach $envkey (sort keys %ENV) {	foreach $envkey (sort keys %ENV) {
$r->print("$envkey ---- $ENV{$envkey}<br>");	$r->print("$envkey ---- $ENV{$envkey}<br>");
	$i++;
}	}

	$r->print('<h1>Total Number of Elements: '.$i.'</h1>');

# ------------------------------------------------------------------- End Debug	# ------------------------------------------------------------------- End Debug


$r->print('</body></html>');	$r->print('</body></html>');
}	}