For more information regarding the security incident at F5, the actions we are taking to address it, and our ongoing efforts to protect our customers, click here.

Forum Discussion

R_Marc's avatar
R_Marc
Icon for Nimbostratus rankNimbostratus
Jun 10, 2014

Need to access server IP in CLIENT_DATA

I need to make a modification to the TCP::payload with the target IP of the back-end server. I'm able to make the modifications (when there's one known target server) but I need to do this with a clu...
application delivery
devops
iRules
R_Marc's avatar
R_Marc
Icon for Nimbostratus rankNimbostratus
Jun 10, 2014

After reading the comments (thanks again) got it working:

when CLIENT_DATA {
  log local0. "-"
  if { [TCP::payload] contains "(CONNECT_DATA=" } {
        set ip_match [regexp -all -inline -indices [IP::local_addr] [TCP::payload]]
        foreach instance $ip_match {
           set service_start [lindex $instance 0]
           set original_tcp_length [TCP::payload length]
           TCP::payload replace $service_start 14 [LB::server addr]
           TCP::payload replace 0 2 [binary format S1 [TCP::payload length]]
        }
  }
  TCP::release
  TCP::collect
}
when LB_SELECTED {
  TCP::collect
}