loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.67, 2003/06/16 17:27:33	version 1.68, 2003/06/16 22:09:02
Line 126 sub handler {	Line 126 sub handler {
my $diropendb =	my $diropendb =
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db";
%hash = ();	%hash = ();
my %dbfile;	{
if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {	my %dbfile;
while(my($key,$value)=each(%dbfile)) {	if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
$hash{$key}=$value;	while(my($key,$value)=each(%dbfile)) {
}	$hash{$key}=$value;
untie(%dbfile);	}
	untie(%dbfile);
	}
	}
	{
if ($ENV{'form.launch'} eq '1') {	if ($ENV{'form.launch'} eq '1') {
&start_fresh_session();	&start_fresh_session();
}	}
Line 499 END	Line 502 END

# --------------------------------------------------- end the output and return	# --------------------------------------------------- end the output and return
$r->print('</body></html>'."\n");	$r->print('</body></html>'."\n");
} else {	# } else {
$r->print('<html><head></head><body>Unable to tie hash to db '.	# $r->print('<html><head></head><body>Unable to tie hash to db '.
'file</body></html>');	# 'file</body></html>');
return OK;	# return OK;
}	}
if(! $c->aborted()) {	if(! $c->aborted()) {
	my %dbfile;
if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_NEWDB(),0640)) {	if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_NEWDB(),0640)) {
while (my($key,$value) = each(%hash)) {	while (my($key,$value) = each(%hash)) {
$dbfile{$key}=$value;	$dbfile{$key}=$value;