[BACK]Return to lontest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / lontest.pm
Revision 1.1: download - view: text, annotated - select for diffs
Wed Jan 3 18:54:04 2001 UTC (23 years, 4 months ago) by www
Branches: MAIN
CVS tags: HEAD
Backdoor test handler


#
# Just Junk Just Junk Just Junk
# 

package Apache::lontest;

use strict;
use Apache::Constants qw(:common :http);

 sub handler {
     my $r = shift;
     $r->content_type('text/html');
     $r->send_http_header;
     return OK if $r->header_only;
    

     $r->print('<html><body>');

     my $envkey;
 
     $->print("<hr><h1>Debugging</h1><hr>\n");
     
     foreach $envkey (sort keys %ENV) {
 	$r->print("$envkey ---- $ENV{$envkey}<br>");
     }
 
# ------------------------------------------------------------------- End Debug


     $r->print('</body></html>');        
 }

1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>