mirror of
https://github.com/pandorafms/pandorafms.git
synced 2025-07-28 08:14:38 +02:00
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:
parent
f744aa788d
commit
485207a9d7
@ -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>
|
2008-07-02 Sancho Lerena <slerena@gmail.com>
|
||||||
|
|
||||||
* pandora_wmi: Finished first functional version. Uses wmic from
|
* pandora_wmi: Finished first functional version. Uses wmic from
|
||||||
|
@ -372,6 +372,14 @@ sub pandora_query_tcp (%$$$$$$$) {
|
|||||||
Blocking=>0 ); # Non blocking !!, very important !
|
Blocking=>0 ); # Non blocking !!, very important !
|
||||||
|
|
||||||
if (defined($handle)){
|
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 ?
|
if ($tcp_send ne ""){ # its Expected to sending data ?
|
||||||
# Send data
|
# Send data
|
||||||
$handle->autoflush(1);
|
$handle->autoflush(1);
|
||||||
@ -393,6 +401,9 @@ sub pandora_query_tcp (%$$$$$$$) {
|
|||||||
}
|
}
|
||||||
if ($id_tipo_modulo == 9){ # only for TCP Proc
|
if ($id_tipo_modulo == 9){ # only for TCP Proc
|
||||||
if ($temp2 =~ /$tcp_rcv/i){ # String match !
|
if ($temp2 =~ /$tcp_rcv/i){ # String match !
|
||||||
|
if ( @tcp_send ) { # still more pairs
|
||||||
|
goto next_pair;
|
||||||
|
}
|
||||||
$$module_data = 1;
|
$$module_data = 1;
|
||||||
$$module_result = 0;
|
$$module_result = 0;
|
||||||
$counter = $pa_config->{'tcp_checks'};
|
$counter = $pa_config->{'tcp_checks'};
|
||||||
|
Loading…
x
Reference in New Issue
Block a user