version 1.20, 2001/03/27 12:49:18
|
version 1.23, 2001/03/27 18:38:59
|
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 247 sub make_new_child {
|
Line 249 sub make_new_child {
|
if ($custom) { |
if ($custom) { |
&logthis("am going to do custom query for $custom"); |
&logthis("am going to do custom query for $custom"); |
if (@files) { |
if (@files) { |
@metalist=map {$perlvar{'lonDocRoot'}.$_.'meta'} @files; |
@metalist=map {$perlvar{'lonDocRoot'}.$_.'.meta'} @files; |
} |
} |
else { |
else { |
@metalist=(); pop @metalist; |
@metalist=(); pop @metalist; |