version 1.30, 2001/12/13 13:59:22
|
version 1.31, 2002/01/06 01:29:52
|
Line 78 my $extrafield; # default extra table ce
|
Line 78 my $extrafield; # default extra table ce
|
my $fnum; # file counter |
my $fnum; # file counter |
my $dnum; # directory counter |
my $dnum; # directory counter |
|
|
# ---------------------------------------------------------------------- BEGIN |
|
sub BEGIN { |
|
} |
|
|
|
# ----------------------------- Handling routine called via Apache and mod_perl |
# ----------------------------- Handling routine called via Apache and mod_perl |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |