version 1.5, 2002/06/26 14:01:50
|
version 1.11, 2003/04/01 20:12:02
|
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"); |
Line 92 sub section
|
Line 94 sub section
|
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
|
|
my %parmhash; |
my %parmhash; |
|
my %symbhash; |
my %hash; |
my %hash; |
|
|
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', |
$r->print('<h2>Big Hash</h2>'); |
$ENV{'request.course.fn'}.'_parms.db', |
foreach (sort keys %hash) { |
&GDBM_READER,0640))) { |
$r->print("\n<br>".$_.': '.$hash{$_}); |
$r->print('<h2>Big Hash</h2>'); |
} |
foreach (sort keys %hash) { |
untie %hash; |
$r->print("\n<br>".$_.': '.$hash{$_}); |
} else { |
|
$r->print('<h2>Count not tie big hash</h2>'); |
} |
} |
$r->print('<h2>Parm Hash</h2>'); |
if (tie(%parmhash,'GDBM_File', |
foreach (sort keys %parmhash) { |
$ENV{'request.course.fn'}.'_parms.db', |
$r->print("\n<br>".$_.': '.$parmhash{$_}); |
&GDBM_READER(),0640)) { |
} |
$r->print('<h2>Parm Hash</h2>'); |
untie %hash; |
foreach (sort keys %parmhash) { |
untie %parmhash; |
$r->print("\n<br>".$_.': '.$parmhash{$_}); |
} |
} |
|
untie %parmhash; |
|
} else { |
|
$r->print('<h2>Could not tie parmhash</h2>'); |
|
} |
|
if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { |
|
$r->print('<h2>Symb Hash</h2>'); |
|
foreach (sort keys %symbhash) { |
|
$r->print("\n<br>".$_.': '.$symbhash{$_}); |
|
} |
|
untie %symbhash; |
|
} else { |
|
$r->print('<h2>Could not tie symbhash</h2>'); |
|
} |
|
if (-e $fn.'.state') { |
|
$r->print('<h2>State</h2>'); |
|
my @conditions=(); |
|
{ |
|
my $fh=Apache::File->new($fn.'.state'); |
|
@conditions=<$fh>; |
|
} |
|
foreach (@conditions) { |
|
$r->print('<tt>'.$_.'</tt><br />'); |
|
} |
|
} |
} |
} |
|
|
|
|
# ------------------------------------------------------------------- End Debug |
# ------------------------------------------------------------------- End Debug |
$r->print('</body></html>'); |
$r->print('</body></html>'); |