MBLB for HSM Messages

Hi Carlos,

I am not sure what could be the reason.

maybe you can try something like below to see if it helps.

(modify SERVER_CONNECTED and adding SERVER_DATA)

 

when SERVER_CONNECTED {
    after ...
    TCP::collect
}
when SERVER_DATA {
    TCP::release [TCP::payload length]
    TCP::notify response
    TCP::collect
}

perhaps, you may add log message to see if SERVER_DATA is actually invoked

I think you might also try a different version (10.0 or 11.x)

HTH 🙂

Nat

Hi Nat,

 

 

You rock ! I was configured a SERVER_DATA entry but haven´t put on it the TCP::release and TCP::notify response statements.

 

 

Now I can received data from both servers:

 

 

Conected!

 

Send: 0000BA1234F843005571922

 

Received: 0000BB0058647

 

Send: 0000BA1234F843005571922

 

Received: 0000BB0058647

 

Send: 0000BA1234F843005571922

 

Received: 0000BB0058647

 

 

and checking with TCPDUMP I can see the data flow to both servers in the server POOL.

 

 

Thanks a lot !!!

 

 

My best regards,

 

Carlos Covolo

no problem, glad to hear that it is working :)

 

 

Best regards,

 

Nat

Hi, Carlos.

 

Could you post your final iRule?

 

Thanks,

 

Hi Rodrigo,

Follows the final iRule:

rule MBLB-HSM {

when CLIENT_ACCEPTED {

set client_closed 0
TCP::collect
log local0. "Client Connected !"

}

 periodically checks if the client connection closed, if so, also closes associated server connection.
when CLIENT_CLOSED {

set client_closed 1

}

Triggered when a connection has been established with the target node
when SERVER_CONNECTED {

after 1000 -periodic if {$client_closed} {TCP::close}
TCP::collect

}

when CLIENT_DATA {   
  binary scan [TCP::payload] cc head rlen

  log local0. "Header = $head -- Length = $rlen"
  if {($head == 0)} {

if {[TCP::payload length] < [expr {2 + $rlen}]} {
            TCP::collect expr {2 + $rlen - [TCP::payload length]}
            return
            }
  }

  TCP::release [expr {$rlen + 2}]
  TCP::notify request
  TCP::collect  
}

when SERVER_DATA {

   TCP::release [TCP::payload length]
   TCP::notify response
   TCP::collect

   log local0. "Received server respose !"

}
}

I´ve also created a health monitor for HSM:

monitor HSM_PING {
   defaults from external
   interval 10
   timeout 31
   args "5"
   run "/usr/bin/monitors/hsm.pl"
}


 /usr/bin/monitors/hsm.pl

!/usr/bin/perl

use strict;
use IO::Socket;

my $IP = $ARGV[0];
$IP =~ s/::ffff://g;

my $PORT = $ARGV[1];

my $TIMEOUT = $ARGV[2];

my $HSMPING="\x{00}\x{08}0000NO00";

my $res=hsm_probe ($HSMPING);

if ($res =~ m/0000NP00/) {

    print "UP" . "\n";
    exit 0;
}

exit 255;

sub hsm_probe {

    my $line = $_[0];
    my $data;
    chomp ($line);
    my $HSM_port        = $PORT;
    my $HSM_host        = $IP;

    eval {

    local $SIG{ALRM} = sub { die 'Timed Out'; };
    alarm $TIMEOUT;
        my $sock = IO::Socket::INET->new(
            PeerAddr => $HSM_host,
            PeerPort => $HSM_port,
            Proto    => 'tcp',
        )
            || die "Couldn't connect to $HSM_host:$HSM_port: $!";

        $sock->autoflush(1);
        print $sock $line;
        $sock->recv($data, 26);
        close $sock;
    alarm 0;
        return $data;
        1;
    } or do { alarm 0; return "ERROR"; }

}

My best regards, Carlos Covolo

@CCVLo, you rock!

 

Thank you very much! I appreciate it!