Forum Discussion
Peter1
Jun 20, 2014Nimbostratus
when CLIENT_ACCEPTED
{
LB::context_id "all_clients"
TCP::collect
}
when CLIENT_DATA {
if { [TCP::payload length] >= 4 }
{
binary scan [TCP::payload] H* iso_msg
set msg_len [expr 0x[string range $iso_msg 0 3]]
set msg_len [expr {$msg_len + 2}]
if { [TCP::payload length] >= $msg_len }
{
TCP::release $msg_len
TCP::notify request
}
}
TCP::collect
}
when SERVER_CONNECTED
{
TCP::collect
}
when SERVER_DATA
{
TCP::release
TCP::notify response
TCP::collect
}