Return to lonindexer.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.65, 2003/06/13 23:42:45 | version 1.66, 2003/06/14 00:15:01 |
---|---|
Line 124 sub handler { | Line 124 sub handler { |
$extrafield=''; | $extrafield=''; |
my $diropendb = | my $diropendb = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_$ENV{'user.domain'}_indexer.db"; | "/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db"; |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) { | if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) { |
if ($ENV{'form.launch'} eq '1') { | if ($ENV{'form.launch'} eq '1') { |