version 1.10, 2003/03/01 15:13:58
|
version 1.12, 2004/11/01 23:03:33
|
Line 128 sub section
|
Line 128 sub section
|
} else { |
} else { |
$r->print('<h2>Could not tie symbhash</h2>'); |
$r->print('<h2>Could not tie symbhash</h2>'); |
} |
} |
|
if (-e $fn.'.state') { |
|
$r->print('<h2>State</h2>'); |
|
my @conditions=(); |
|
{ |
|
my $fh=Apache::File->new($fn.'.state'); |
|
@conditions=<$fh>; |
|
} |
|
foreach (@conditions) { |
|
$r->print('<tt>'.$_.'</tt><br />'); |
|
} |
|
} |
} |
} |
|
|
|
|
# ------------------------------------------------------------------- End Debug |
# ------------------------------------------------------------------- End Debug |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
|
return OK; |
} |
} |
|
|
|
|