loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.28, 2001/12/13 13:38:14	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 {
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
'/language.tab');
while(<$fh>) {
$_=~/(\w+)\s+([\w\s\-]+)/;
$language{$1}=$2;
}
}

# ----------------------------- 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;