version 1.20, 2003/06/13 23:33:38
|
version 1.21, 2003/06/14 00:15:01
|
Line 151 END
|
Line 151 END
|
# ------------------------------ which file do we open? Easy if explictly given |
# ------------------------------ which file do we open? Easy if explictly given |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
$diropendb = |
$diropendb = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db"; |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db"; |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
$diropendb = |
$diropendb = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db"; |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupsec') { |
elsif ($ENV{'form.catalogmode'} eq 'groupsec') { |
$diropendb = |
$diropendb = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_groupsec.db"; |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_groupsec.db"; |
} |
} |
# --------------------- not explicitly given, choose the one most recently used |
# --------------------- not explicitly given, choose the one most recently used |
else { # choose last accessed |
else { # choose last accessed |
Line 167 END
|
Line 167 END
|
my @dbst; |
my @dbst; |
|
|
$dbfn[0] = |
$dbfn[0] = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db"; |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db"; |
$dbst[0]=-1; |
$dbst[0]=-1; |
if (-e $dbfn[0]) { |
if (-e $dbfn[0]) { |
$dbst[0]=(stat($dbfn[0]))[9]; |
$dbst[0]=(stat($dbfn[0]))[9]; |
} |
} |
$dbfn[1] = |
$dbfn[1] = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db"; |
$dbst[1]=-1; |
$dbst[1]=-1; |
if (-e $dbfn[1]) { |
if (-e $dbfn[1]) { |
$dbst[1]=(stat($dbfn[1]))[9]; |
$dbst[1]=(stat($dbfn[1]))[9]; |
} |
} |
$dbfn[2] = |
$dbfn[2] = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_groupsec.db"; |
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_groupsec.db"; |
$dbst[2]=-1; |
$dbst[2]=-1; |
if (-e $dbfn[2]) { |
if (-e $dbfn[2]) { |
$dbst[2]=(stat($dbfn[2]))[9]; |
$dbst[2]=(stat($dbfn[2]))[9]; |