![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonindexer.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.48, 2002/08/08 13:07:17 | version 1.49, 2002/08/12 18:21:42 |
|---|---|
| Line 130 sub handler { | Line 130 sub handler { |
| my $diropendb = | my $diropendb = |
| "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; | "/home/httpd/perl/tmp/$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') { |
| &start_fresh_session(); | &start_fresh_session(); |
| } | } |