loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2002/08/12 18:21:42	version 1.7, 2002/08/20 21:29:34
Line 32 package Apache::lontest;	Line 32 package Apache::lontest;
use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use GDBM_File;	use GDBM_File;
	use Apache::loncommon;

# section takes one env var name as input, and returns	# section takes one env var name as input, and returns
# what section the given env var is in, which is the part	# what section the given env var is in, which is the part
Line 51 sub section	Line 52 sub section
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

$r->print('<html><body>');	my $bodytag=&Apache::loncommon::bodytag("admin","List Environment");
	$r->print('<html>'.$bodytag);

my $envkey;	my $envkey;

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