loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2002/06/26 14:01:50	version 1.8, 2002/08/21 17:18:08
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("List Environment","admin");
	$r->print('<html>'.$bodytag);

my $envkey;	my $envkey;

$->print("<hr><h1>Debugging</h1><hr>\n");	$->print("<hr><h1>Debugging</h1><hr>\n");
Line 96 sub section	Line 98 sub section

my $fn=$ENV{'request.course.fn'};	my $fn=$ENV{'request.course.fn'};

if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) &&	if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&
(tie(%parmhash,'GDBM_File',	(tie(%parmhash,'GDBM_File',
$ENV{'request.course.fn'}.'_parms.db',	$ENV{'request.course.fn'}.'_parms.db',
&GDBM_READER,0640))) {	&GDBM_READER(),0640))) {
$r->print('<h2>Big Hash</h2>');	$r->print('<h2>Big Hash</h2>');
foreach (sort keys %hash) {	foreach (sort keys %hash) {
$r->print("\n<br>".$_.': '.$hash{$_});	$r->print("\n<br>".$_.': '.$hash{$_});