version 1.43, 2001/03/27 12:49:18
|
version 1.46, 2001/04/02 14:43:17
|
Line 969 sub make_new_child {
|
Line 969 sub make_new_child {
|
} |
} |
# ------------------------------------------------------------------- querysend |
# ------------------------------------------------------------------- querysend |
} elsif ($userinput =~ /^querysend/) { |
} elsif ($userinput =~ /^querysend/) { |
my ($cmd,$query,$custom)=split(/:/,$userinput); |
my ($cmd,$query, |
|
$custom,$customshow)=split(/:/,$userinput); |
$query=~s/\n*$//g; |
$query=~s/\n*$//g; |
unless ($custom) { |
unless ($custom or $customshow) { |
print $client "". |
print $client "". |
sqlreply("$hostid{$clientip}\&$query")."\n"; |
sqlreply("$hostid{$clientip}\&$query")."\n"; |
} |
} |
else { |
else { |
print $client "". |
print $client "". |
sqlreply("$hostid{$clientip}\&$query". |
sqlreply("$hostid{$clientip}\&$query". |
"\&$custom")."\n"; |
"\&$custom"."\&$customshow")."\n"; |
} |
} |
# ------------------------------------------------------------------ queryreply |
# ------------------------------------------------------------------ queryreply |
} elsif ($userinput =~ /^queryreply/) { |
} elsif ($userinput =~ /^queryreply/) { |
Line 989 sub make_new_child {
|
Line 990 sub make_new_child {
|
$reply=~s/\&/\n/g; |
$reply=~s/\&/\n/g; |
print $store $reply; |
print $store $reply; |
close $store; |
close $store; |
|
my $store2=IO::File->new(">$execdir/tmp/$id.end"); |
|
print $store2 "done\n"; |
|
close $store2; |
print $client "ok\n"; |
print $client "ok\n"; |
} |
} |
else { |
else { |