[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, 3 months ago) by www
Branches: MAIN
CVS tags: stable_2001_fall, HEAD
Prints out number of elements


#
# 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");
     
     my $i=0;
     foreach $envkey (sort keys %ENV) {
 	$r->print("$envkey ---- $ENV{$envkey}<br>");
        $i++;
     }

     $r->print('<h1>Total Number of Elements: '.$i.'</h1>');
 
# ------------------------------------------------------------------- End Debug
     $r->print('</body></html>');        
 }

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