[BACK]Return to lontest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Annotation of loncom/interface/lontest.pm, revision 1.1

1.1     ! www         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>