tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

2008-07-06 Sancho Lerena <slerena@gmail.com> 

* pandora_network: Added a patch from godzone-nz, to implement
        in TCP remote checks a multi-request meth



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@936 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
slerena 2008-07-06 23:30:02 +00:00
parent 59d36d38d7
commit 7ffb1f76a5
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pandora_server/ChangeLog
View File

@ -1,3 +1,8 @@
2008-07-06 Sancho Lerena <slerena@gmail.com>
* pandora_network: Added a patch from godzone-nz, to implement
in TCP remote checks a multi-request meth (also in 1.3.1 version).
2008-07-02 Sancho Lerena <slerena@gmail.com>
* pandora_wmi: Finished first functional version. Uses wmic from

13
pandora_server/bin/pandora_network
View File

@ -372,6 +372,14 @@ sub pandora_query_tcp (%$$$$$$$) {
Blocking=>0 ); # Non blocking !!, very important !
if (defined($handle)){
# Multi request patch, submitted by Glen Eustace (new zealand)
my @tcp_send = split( /\|/, $tcp_send );
my @tcp_rcv = split( /\|/, $tcp_rcv );
next_pair:
$tcp_send = shift( @tcp_send );
$tcp_rcv = shift( @tcp_rcv );
if ($tcp_send ne ""){ # its Expected to sending data ?
# Send data
$handle->autoflush(1);
@ -393,7 +401,10 @@ sub pandora_query_tcp (%$$$$$$$) {
}
if ($id_tipo_modulo == 9){ # only for TCP Proc
if ($temp2 =~ /$tcp_rcv/i){ # String match !
$$module_data = 1;
if ( @tcp_send ) { # still more pairs
goto next_pair;
}
$$module_data = 1;
$$module_result = 0;
$counter = $pa_config->{'tcp_checks'};
} else {