--- loncom/interface/lontest.pm 2003/03/01 15:13:58 1.10 +++ loncom/interface/lontest.pm 2005/02/17 08:50:20 1.14 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.10 2003/03/01 15:13:58 www Exp $ +# $Id: lontest.pm,v 1.14 2005/02/17 08:50:20 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,16 +48,17 @@ sub section sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $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(''.$bodytag); + $r->print($html.''.$bodytag); my $envkey; - $r->print("

Debugging

\n"); + $r->print("

Debugging

\n"); $r->print(""); my $i=0; @@ -74,7 +75,7 @@ sub section if ($prevSection ne $sec) # new section, print header { $r->print(''); - $r->print("

$sec

"); + $r->print("

$sec

"); $r->print(''); $prevSection = $sec; } @@ -102,7 +103,7 @@ sub section if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { $r->print('

Big Hash

'); foreach (sort keys %hash) { - $r->print("\n
".$_.': '.$hash{$_}); + $r->print("\n
".$_.': '.$hash{$_}); } untie %hash; } else { @@ -113,7 +114,7 @@ sub section &GDBM_READER(),0640)) { $r->print('

Parm Hash

'); foreach (sort keys %parmhash) { - $r->print("\n
".$_.': '.$parmhash{$_}); + $r->print("\n
".$_.': '.$parmhash{$_}); } untie %parmhash; } else { @@ -122,17 +123,29 @@ sub section if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { $r->print('

Symb Hash

'); foreach (sort keys %symbhash) { - $r->print("\n
".$_.': '.$symbhash{$_}); + $r->print("\n
".$_.': '.$symbhash{$_}); } untie %symbhash; } else { $r->print('

Could not tie symbhash

'); } + if (-e $fn.'.state') { + $r->print('

State

'); + my @conditions=(); + { + my $fh=Apache::File->new($fn.'.state'); + @conditions=<$fh>; + } + foreach (@conditions) { + $r->print(''.$_.'
'); + } + } } # ------------------------------------------------------------------- End Debug - $r->print(''); + $r->print(''); + return OK; }