version 1.6, 2002/08/12 18:21:42
|
version 1.9, 2002/12/09 22:41:50
|
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"); |
$r->print("<hr><h1>Debugging</h1><hr>\n"); |
$->print("<font face='Courier'>"); |
$r->print("<font face='Courier'>"); |
|
|
my $i=0; |
my $i=0; |
my $interval = 20; # change this to change how many keys/table |
my $interval = 20; # change this to change how many keys/table |
Line 78 sub section
|
Line 80 sub section
|
} |
} |
|
|
my $envVal = $ENV{$envkey}; |
my $envVal = $ENV{$envkey}; |
$envVal =~ s/(.{50})/\1\<wbr\>/g; |
$envVal =~ s/(.{50})/$1\<wbr\>/g; |
$envkey =~ s/(.{30})/\1\<wbr\>/g; |
$envkey =~ s/(.{30})/$1\<wbr\>/g; |
|
|
$r->print("<tr><td valign='top'><b>$envkey</b></td>"); |
$r->print("<tr><td valign='top'><b>$envkey</b></td>"); |
$r->print("<td valign='top'>$envVal</td></tr>\n"); |
$r->print("<td valign='top'>$envVal</td></tr>\n"); |