version 1.29, 2001/12/13 13:42:15
|
version 1.31, 2002/01/06 01:29:52
|
Line 62 package Apache::lonindexer;
|
Line 62 package Apache::lonindexer;
|
# ------------------------------------------------- modules used by this module |
# ------------------------------------------------- modules used by this module |
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::loncommon(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File; |
use Apache::File; |
use GDBM_File; |
use GDBM_File; |
Line 77 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; |