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

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

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:      
1.2     ! www        24:      my $i=0;
1.1       www        25:      foreach $envkey (sort keys %ENV) {
                     26:  	$r->print("$envkey ---- $ENV{$envkey}<br>");
1.2     ! www        27:         $i++;
1.1       www        28:      }
1.2     ! www        29: 
        !            30:      $r->print('<h1>Total Number of Elements: '.$i.'</h1>');
1.1       www        31:  
                     32: # ------------------------------------------------------------------- End Debug
                     33:      $r->print('</body></html>');        
                     34:  }
                     35: 
                     36: 1;
                     37: __END__
                     38: 
                     39: 
                     40: 
                     41: 
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>