version 1.22, 2008/11/24 17:18:01
|
version 1.23, 2014/12/15 00:59:40
|
Line 100 sub handler {
|
Line 100 sub handler {
|
|
|
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { |
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { |
$r->print('<h2>Big Hash</h2>'); |
$r->print('<h2>Big Hash</h2>'); |
foreach (sort keys %hash) { |
foreach my $key (sort(keys(%hash))) { |
$r->print("\n<br />".$_.': '.$hash{$_}); |
$r->print("\n<br />".$key.': '.$hash{$key}); |
} |
} |
untie %hash; |
untie %hash; |
} else { |
} else { |
Line 111 sub handler {
|
Line 111 sub handler {
|
$env{'request.course.fn'}.'_parms.db', |
$env{'request.course.fn'}.'_parms.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$r->print('<h2>Parm Hash</h2>'); |
$r->print('<h2>Parm Hash</h2>'); |
foreach (sort keys %parmhash) { |
foreach my $param (sort(keys(%parmhash))) { |
$r->print("\n<br />".$_.': '.$parmhash{$_}); |
$r->print("\n<br />".$param.': '.$parmhash{$param}); |
} |
} |
untie %parmhash; |
untie %parmhash; |
} else { |
} else { |
Line 120 sub handler {
|
Line 120 sub handler {
|
} |
} |
if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { |
if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { |
$r->print('<h2>Symb Hash</h2>'); |
$r->print('<h2>Symb Hash</h2>'); |
foreach (sort keys %symbhash) { |
foreach my $symb (sort(keys(%symbhash))) { |
$r->print("\n<br />".$_.': '.$symbhash{$_}); |
$r->print("\n<br />".$symb.': '.$symbhash{$symb}); |
} |
} |
untie %symbhash; |
untie %symbhash; |
} else { |
} else { |
Line 134 sub handler {
|
Line 134 sub handler {
|
my $fh=Apache::File->new($fn.'.state'); |
my $fh=Apache::File->new($fn.'.state'); |
@conditions=<$fh>; |
@conditions=<$fh>; |
} |
} |
foreach (@conditions) { |
foreach my $cond (@conditions) { |
$r->print('<tt>'.$_.'</tt><br />'); |
$r->print('<tt>'.$cond.'</tt><br />'); |
} |
} |
} |
} |
} |
} |