[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, 6 months ago) by www
Branches: MAIN
CVS tags: HEAD
Backdoor test handler

    1: 
    2: #
    3: # Just Junk Just Junk Just Junk
    4: # 
    5: 
    6: package Apache::lontest;
    7: 
    8: use strict;
    9: use Apache::Constants qw(:common :http);
   10: 
   11:  sub handler {
   12:      my $r = shift;
   13:      $r->content_type('text/html');
   14:      $r->send_http_header;
   15:      return OK if $r->header_only;
   16:     
   17: 
   18:      $r->print('<html><body>');
   19: 
   20:      my $envkey;
   21:  
   22:      $->print("<hr><h1>Debugging</h1><hr>\n");
   23:      
   24:      foreach $envkey (sort keys %ENV) {
   25:  	$r->print("$envkey ---- $ENV{$envkey}<br>");
   26:      }
   27:  
   28: # ------------------------------------------------------------------- End Debug
   29: 
   30: 
   31:      $r->print('</body></html>');        
   32:  }
   33: 
   34: 1;
   35: __END__
   36: 
   37: 
   38: 
   39:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>