[BACK]Return to lontest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / lontest.pm
Revision 1.2: download - view: text, annotated - select for diffs
Sat Jan 6 17:15:22 2001 UTC (23 years, 5 months ago) by www
Branches: MAIN
CVS tags: stable_2001_fall, HEAD
Prints out number of elements

    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:      my $i=0;
   25:      foreach $envkey (sort keys %ENV) {
   26:  	$r->print("$envkey ---- $ENV{$envkey}<br>");
   27:         $i++;
   28:      }
   29: 
   30:      $r->print('<h1>Total Number of Elements: '.$i.'</h1>');
   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>