version 1.16, 2005/04/07 06:56:23
|
version 1.23, 2014/12/15 00:59:40
|
Line 27
|
Line 27
|
# |
# |
# |
# |
|
|
|
|
package Apache::lontest; |
package Apache::lontest; |
|
|
use strict; |
use strict; |
Line 35 use GDBM_File;
|
Line 36 use GDBM_File;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
|
|
# section takes one env var name as input, and returns |
|
# what section the given env var is in, which is the part |
|
# of the env var before the first period. |
|
# Returns the section, or blank string for 'no section', |
|
# which is normal for the standard env vars like REQUEST_URI. |
|
sub section |
sub section |
{ |
{ |
my ($name) = @_; |
my ($name) = @_; |
Line 84 sub handler {
|
Line 80 sub handler {
|
$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(); |
$r->print(&Apache::loncommon::start_page("List Environment",undef, |
my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); |
{'function' => 'admin'})); |
$r->print($html.'<head></head>'.$bodytag); |
|
|
|
$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'>"); |
|
$r->print("<hr /><h2>ENV</h2><hr />\n"); |
my %differences=%ENV; |
|
foreach my $key (sort(keys(%env))) { |
|
if ($env{$key} eq $differences{$key}) { |
|
delete($differences{$key}); |
|
} |
|
} |
|
&print_hash($r,\%differences); |
|
&print_hash($r,\%env); |
|
&print_hash($r,\%ENV); |
&print_hash($r,\%ENV); |
|
$r->print("<hr /><h2>env</h2><hr />\n"); |
|
&print_hash($r,\%env); |
# ------------------------------------------------ If in a course, print hashes |
# ------------------------------------------------ If in a course, print hashes |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
|
|
Line 111 sub handler {
|
Line 100 sub handler {
|
|
|
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 my $key (sort(keys(%hash))) { |
$r->print("\n<br />".$_.': '.$hash{$_}); |
$r->print("\n<br />".$key.': '.$hash{$key}); |
} |
} |
untie %hash; |
untie %hash; |
} else { |
} else { |
Line 122 sub handler {
|
Line 111 sub handler {
|
$env{'request.course.fn'}.'_parms.db', |
$env{'request.course.fn'}.'_parms.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$r->print('<h2>Parm Hash</h2>'); |
$r->print('<h2>Parm Hash</h2>'); |
foreach (sort keys %parmhash) { |
foreach my $param (sort(keys(%parmhash))) { |
$r->print("\n<br />".$_.': '.$parmhash{$_}); |
$r->print("\n<br />".$param.': '.$parmhash{$param}); |
} |
} |
untie %parmhash; |
untie %parmhash; |
} else { |
} else { |
Line 131 sub handler {
|
Line 120 sub handler {
|
} |
} |
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 my $symb (sort(keys(%symbhash))) { |
$r->print("\n<br />".$_.': '.$symbhash{$_}); |
$r->print("\n<br />".$symb.': '.$symbhash{$symb}); |
} |
} |
untie %symbhash; |
untie %symbhash; |
} else { |
} else { |
Line 145 sub handler {
|
Line 134 sub handler {
|
my $fh=Apache::File->new($fn.'.state'); |
my $fh=Apache::File->new($fn.'.state'); |
@conditions=<$fh>; |
@conditions=<$fh>; |
} |
} |
foreach (@conditions) { |
foreach my $cond (@conditions) { |
$r->print('<tt>'.$_.'</tt><br />'); |
$r->print('<tt>'.$cond.'</tt><br />'); |
} |
} |
} |
} |
} |
} |
|
|
# ------------------------------------------------------------------- End Debug |
# ------------------------------------------------------------------- End Debug |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
Line 160 sub handler {
|
Line 149 sub handler {
|
1; |
1; |
__END__ |
__END__ |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::lontest; |
|
|
|
=head1 SYNOPSIS |
|
|
|
Used for debugging and testing the LONCAPA |
|
system. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
handler() |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over |
|
|
|
=item section() : |
|
|
|
section takes one env var name as input, and returns |
|
what section the given env var is in, which is the part |
|
of the env var before the first period. |
|
Returns the section, or blank string for 'no section', |
|
which is normal for the standard env vars like REQUEST_URI. |
|
|
|
=item print_hash() |
|
|
|
=back |
|
|
|
=cut |
|
|
|
|
|
|