version 1.10, 2003/03/01 15:13:58
|
version 1.14, 2005/02/17 08:50:20
|
Line 48 sub section
|
Line 48 sub section
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
|
my $html=&Apache::lonxml::xmlbegin(); |
my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); |
my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); |
$r->print('<html>'.$bodytag); |
$r->print($html.'<head></head>'.$bodytag); |
|
|
my $envkey; |
my $envkey; |
|
|
$r->print("<hr><h1>Debugging</h1><hr>\n"); |
$r->print("<hr /><h1>Debugging</h1><hr />\n"); |
$r->print("<font face='Courier'>"); |
$r->print("<font face='Courier'>"); |
|
|
my $i=0; |
my $i=0; |
Line 74 sub section
|
Line 75 sub section
|
if ($prevSection ne $sec) # new section, print header |
if ($prevSection ne $sec) # new section, print header |
{ |
{ |
$r->print('<tr><td colspan="2">'); |
$r->print('<tr><td colspan="2">'); |
$r->print("<br><br><h2 style='color: #008800'><u>$sec</u></h2>"); |
$r->print("<br /><br /><h2 style='color: #008800'><u>$sec</u></h2>"); |
$r->print('</td></tr>'); |
$r->print('</td></tr>'); |
$prevSection = $sec; |
$prevSection = $sec; |
} |
} |
Line 102 sub section
|
Line 103 sub section
|
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { |
if (tie(%hash,'GDBM_File',"$fn.db",&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{$_}); |
} |
} |
untie %hash; |
untie %hash; |
} else { |
} else { |
Line 113 sub section
|
Line 114 sub section
|
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$r->print('<h2>Parm Hash</h2>'); |
$r->print('<h2>Parm Hash</h2>'); |
foreach (sort keys %parmhash) { |
foreach (sort keys %parmhash) { |
$r->print("\n<br>".$_.': '.$parmhash{$_}); |
$r->print("\n<br />".$_.': '.$parmhash{$_}); |
} |
} |
untie %parmhash; |
untie %parmhash; |
} else { |
} else { |
Line 122 sub section
|
Line 123 sub section
|
if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { |
if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { |
$r->print('<h2>Symb Hash</h2>'); |
$r->print('<h2>Symb Hash</h2>'); |
foreach (sort keys %symbhash) { |
foreach (sort keys %symbhash) { |
$r->print("\n<br>".$_.': '.$symbhash{$_}); |
$r->print("\n<br />".$_.': '.$symbhash{$_}); |
} |
} |
untie %symbhash; |
untie %symbhash; |
} else { |
} else { |
$r->print('<h2>Could not tie symbhash</h2>'); |
$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>'); |
|
return OK; |
} |
} |
|
|
|
|