version 1.20, 2001/03/27 12:49:18
|
version 1.22, 2001/03/27 18:34:03
|
Line 212 sub make_new_child {
|
Line 212 sub make_new_child {
|
my $userinput = <$client>; |
my $userinput = <$client>; |
chomp($userinput); |
chomp($userinput); |
|
|
my ($conserver,$querytmp,$customtmp)=split(/&/,$userinput); |
my ($conserver,$querytmp, |
|
$customtmp,$customshowtmp)=split(/&/,$userinput); |
my $query=unescape($querytmp); |
my $query=unescape($querytmp); |
my $custom=unescape($customtmp); |
my $custom=unescape($customtmp); |
|
my $customshow=unescape($customshowtmp); |
|
|
#send query id which is pid_unixdatetime_runningcounter |
#send query id which is pid_unixdatetime_runningcounter |
$queryid = $thisserver; |
$queryid = $thisserver; |
Line 253 sub make_new_child {
|
Line 255 sub make_new_child {
|
@metalist=(); pop @metalist; |
@metalist=(); pop @metalist; |
&find("$perlvar{'lonDocRoot'}/res"); |
&find("$perlvar{'lonDocRoot'}/res"); |
} |
} |
# &logthis("FILELIST:" . join(":::",@metalist)); |
&logthis("FILELIST:" . join(":::",@metalist)); |
# if file is indicated in sql database and |
# if file is indicated in sql database and |
# not part of sql-relevant query, do not pattern match. |
# not part of sql-relevant query, do not pattern match. |
# if file is not in sql database, output error. |
# if file is not in sql database, output error. |