version 1.4, 2002/06/13 17:54:04
|
version 1.5, 2002/06/26 14:01:50
|
Line 31 package Apache::lontest;
|
Line 31 package Apache::lontest;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
|
use GDBM_File; |
|
|
# section takes one env var name as input, and returns |
# section takes one env var name as input, and returns |
# what section the given env var is in, which is the part |
# what section the given env var is in, which is the part |
Line 86 sub section
|
Line 87 sub section
|
} |
} |
|
|
$r->print('</table></font><h1>Total Number of Elements: '.$i.'</h1>'); |
$r->print('</table></font><h1>Total Number of Elements: '.$i.'</h1>'); |
|
|
|
# ------------------------------------------------ If in a course, print hashes |
|
if ($ENV{'request.course.id'}) { |
|
|
|
my %parmhash; |
|
my %hash; |
|
|
|
my $fn=$ENV{'request.course.fn'}; |
|
|
|
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) && |
|
(tie(%parmhash,'GDBM_File', |
|
$ENV{'request.course.fn'}.'_parms.db', |
|
&GDBM_READER,0640))) { |
|
$r->print('<h2>Big Hash</h2>'); |
|
foreach (sort keys %hash) { |
|
$r->print("\n<br>".$_.': '.$hash{$_}); |
|
} |
|
$r->print('<h2>Parm Hash</h2>'); |
|
foreach (sort keys %parmhash) { |
|
$r->print("\n<br>".$_.': '.$parmhash{$_}); |
|
} |
|
untie %hash; |
|
untie %parmhash; |
|
} |
|
|
|
|
|
} |
|
|
# ------------------------------------------------------------------- End Debug |
# ------------------------------------------------------------------- End Debug |
$r->print('</body></html>'); |
$r->print('</body></html>'); |