version 1.59, 2004/05/11 20:03:05
|
version 1.61, 2004/05/20 14:15:29
|
Line 381 sub make_new_child {
|
Line 381 sub make_new_child {
|
$queryid .= $run; |
$queryid .= $run; |
print $client "$queryid\n"; |
print $client "$queryid\n"; |
# |
# |
&logthis("QUERY: $query - $arg1 - $arg2 - $arg3"); |
# &logthis("QUERY: $query - $arg1 - $arg2 - $arg3"); |
sleep 1; |
sleep 1; |
# |
# |
my $result=''; |
my $result=''; |
Line 413 sub make_new_child {
|
Line 413 sub make_new_child {
|
# result does not need to be escaped because it has already been |
# result does not need to be escaped because it has already been |
# escaped. |
# escaped. |
#$result=&escape($result); |
#$result=&escape($result); |
# reply with result, append \n unless already there |
|
$result.="\n" unless ($result=~/\n$/); |
|
&reply("queryreply:$queryid:$result",$conserver); |
&reply("queryreply:$queryid:$result",$conserver); |
} |
} |
# tidy up gracefully and finish |
# tidy up gracefully and finish |