loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2002/08/08 13:07:17	version 1.50, 2002/08/13 15:01:02
Line 90 my @Omit = ();	Line 90 my @Omit = ();
sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
$fnum=0;	$fnum=0;
Line 130 sub handler {	Line 131 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();
}	}