--- loncom/interface/lontest.pm 2001/12/19 17:17:46 1.3 +++ loncom/interface/lontest.pm 2002/06/13 17:54:04 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.3 2001/12/19 17:17:46 albertel Exp $ +# $Id: lontest.pm,v 1.4 2002/06/13 17:54:04 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,31 +32,66 @@ package Apache::lontest; use strict; use Apache::Constants qw(:common :http); +# 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) = @_; + return $1 if $name =~ m/\A([^.]*)\./; + return ''; +} + sub handler { my $r = shift; $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; - $r->print('
'); my $envkey; $->print("');
+ $r->print("$sec"); + $r->print(' | |
$envkey | "); + $r->print("$envVal |