--- loncom/interface/lontest.pm 2005/04/07 08:15:41 1.17 +++ loncom/interface/lontest.pm 2014/12/15 00:59:40 1.23 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.17 2005/04/07 08:15:41 albertel Exp $ +# $Id: lontest.pm,v 1.23 2014/12/15 00:59:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,6 +27,7 @@ # # + package Apache::lontest; use strict; @@ -35,11 +36,6 @@ use GDBM_File; use Apache::loncommon; 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 { my ($name) = @_; @@ -84,9 +80,8 @@ sub handler { $r->send_http_header; return OK if $r->header_only; - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); - $r->print($html.''.$bodytag); + $r->print(&Apache::loncommon::start_page("List Environment",undef, + {'function' => 'admin'})); $r->print("

Debugging

\n"); $r->print(""); @@ -105,8 +100,8 @@ sub handler { if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { $r->print('

Big Hash

'); - foreach (sort keys %hash) { - $r->print("\n
".$_.': '.$hash{$_}); + foreach my $key (sort(keys(%hash))) { + $r->print("\n
".$key.': '.$hash{$key}); } untie %hash; } else { @@ -116,8 +111,8 @@ sub handler { $env{'request.course.fn'}.'_parms.db', &GDBM_READER(),0640)) { $r->print('

Parm Hash

'); - foreach (sort keys %parmhash) { - $r->print("\n
".$_.': '.$parmhash{$_}); + foreach my $param (sort(keys(%parmhash))) { + $r->print("\n
".$param.': '.$parmhash{$param}); } untie %parmhash; } else { @@ -125,8 +120,8 @@ sub handler { } if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { $r->print('

Symb Hash

'); - foreach (sort keys %symbhash) { - $r->print("\n
".$_.': '.$symbhash{$_}); + foreach my $symb (sort(keys(%symbhash))) { + $r->print("\n
".$symb.': '.$symbhash{$symb}); } untie %symbhash; } else { @@ -139,14 +134,14 @@ sub handler { my $fh=Apache::File->new($fn.'.state'); @conditions=<$fh>; } - foreach (@conditions) { - $r->print(''.$_.'
'); + foreach my $cond (@conditions) { + $r->print(''.$cond.'
'); } } } # ------------------------------------------------------------------- End Debug - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; } @@ -154,6 +149,41 @@ sub handler { 1; __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