version 1.1, 2001/01/03 18:54:04
|
version 1.2, 2001/01/06 17:15:22
|
Line 21 use Apache::Constants qw(:common :http);
|
Line 21 use Apache::Constants qw(:common :http);
|
|
|
$->print("<hr><h1>Debugging</h1><hr>\n"); |
$->print("<hr><h1>Debugging</h1><hr>\n"); |
|
|
|
my $i=0; |
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
$r->print("$envkey ---- $ENV{$envkey}<br>"); |
$r->print("$envkey ---- $ENV{$envkey}<br>"); |
|
$i++; |
} |
} |
|
|
|
$r->print('<h1>Total Number of Elements: '.$i.'</h1>'); |
|
|
# ------------------------------------------------------------------- End Debug |
# ------------------------------------------------------------------- End Debug |
|
|
|
|
$r->print('</body></html>'); |
$r->print('</body></html>'); |
} |
} |
|
|