version 1.5, 2001/12/11 03:37:11
|
version 1.8, 2002/05/09 20:57:26
|
Line 28
|
Line 28
|
# |
# |
# YEAR=2001 |
# YEAR=2001 |
# 8/7,8/8,10/14,10/15,12/10 Scott Harrison |
# 8/7,8/8,10/14,10/15,12/10 Scott Harrison |
|
# YEAR=2002 |
|
# 1/17 Scott Harrison |
# |
# |
### |
### |
|
|
Line 53 sub handler {
|
Line 55 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
# output start of web page |
# finish_import looks different for graphical or "simple" RAT |
|
my $finishimport=''; |
|
if ($ENV{'form.mode'} eq 'simple') { |
|
$finishimport=(<<ENDSMP); |
|
function finish_import() { |
|
alert("Finishing a simple import"); |
|
} |
|
ENDSMP |
|
} else { |
|
$finishimport=(<<ENDADV); |
|
function finish_import() { |
|
var linkflag=false; |
|
for (var num=0; num<document.forms.groupsort.fnum.value; num++) { |
|
insertRowInLastRow(); |
|
placeResourceInLastRow( |
|
eval("document.forms.groupsort.title"+num+".value"), |
|
eval("document.forms.groupsort.filelink"+num+".value"), |
|
linkflag |
|
); |
|
linkflag=true; |
|
} |
|
opener.editmode=0; |
|
opener.notclear=0; |
|
opener.linkmode=0; |
|
opener.draw(); |
|
self.close(); |
|
} |
|
ENDADV |
|
} |
|
|
|
# output start of web page |
|
|
$r->print(<<END); |
$r->print(<<END); |
<html> |
<html> |
<head> |
<head> |
Line 73 function placeResourceInLastRow (title,u
|
Line 106 function placeResourceInLastRow (title,u
|
} |
} |
opener.linkmode=opener.mostrecent; |
opener.linkmode=opener.mostrecent; |
} |
} |
function finish_import() { |
$finishimport |
var linkflag=false; |
|
for (var num=0; num<document.forms.groupsort.fnum.value; num++) { |
|
insertRowInLastRow(); |
|
placeResourceInLastRow( |
|
eval("document.forms.groupsort.title"+num+".value"), |
|
eval("document.forms.groupsort.filelink"+num+".value"), |
|
linkflag |
|
); |
|
linkflag=true; |
|
} |
|
opener.editmode=0; |
|
opener.notclear=0; |
|
opener.linkmode=0; |
|
opener.infoclear(); |
|
opener.draw(); |
|
self.close(); |
|
} |
|
function selectchange(val) { |
function selectchange(val) { |
var newval=0+eval("document.forms.groupsort.alt"+val+".selectedIndex"); |
var newval=0+eval("document.forms.groupsort.alt"+val+".selectedIndex"); |
orderchange(val,newval); |
orderchange(val,newval); |
Line 134 END
|
Line 150 END
|
$diropendb = |
$diropendb = |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
} |
} |
|
else { # choose last accessed |
|
my $dsearch; my $dindex; |
|
my $dsearcht; my $dindext; |
|
$dsearch = |
|
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db"; |
|
if (-e $dsearch) { |
|
$dsearcht=(stat($dsearch))[9]; |
|
} |
|
$dindex = |
|
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; |
|
if (-e $dindex) { |
|
$dindext=(stat($dindex))[9]; |
|
} |
|
if (!$dsearcht and !$dindext) { |
|
$diropendb=''; |
|
} |
|
elsif ($dsearcht>$dindext) { |
|
$diropendb=$dsearch; |
|
} |
|
else { |
|
$diropendb=$dindex; |
|
} |
|
} |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
my $acts = $ENV{'form.acts'}; |
my $acts = $ENV{'form.acts'}; |
my @Acts = split(/b/,$acts); |
my @Acts = split(/b/,$acts); |