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