Log TCP connection Information

 


when CLIENT_ACCEPTED {  
   set vip [IP::local_addr]:[TCP::local_port]
}

when SERVER_CONNECTED {  
   set client "[IP::client_addr]:[TCP::client_port]"
   set node "[IP::server_addr]:[TCP::server_port]"
}  

when CLIENT_CLOSED {  
   # log connection info
   log local0.info "Client $client -> VIP: $vip -> Node: $node"  
}

```tcl