TCP Payload String Swap for Oracle HA

rule RAC-SID-replacement_switch {
when CLIENT_ACCEPTED {
  TCP::collect
}
when CLIENT_DATA {
  set payload [TCP::payload]
}
when LB_SELECTED {
  switch [LB::server addr] {
    10.10.10.1 { ;  IP addr of vfcudb01b
      regsub -all "acmesid_vip" $payload "acmesid1" payload
      TCP::payload replace 0 [TCP::payload length] $payload
    }
    10.10.10.2 { ;  IP addr of vfcudb02b
      regsub -all "acmesid_vip" $payload "acmesid2" payload
      TCP::payload replace 0 [TCP::payload length] $payload
    }
    10.10.10.3 { ;  IP addr of vfcudb03b
      regsub -all "acmesid_vip" $payload "acmesid3" payload
      TCP::payload replace 0 [TCP::payload length] $payload
    }
    10.10.10.4 { ;  IP addr of vfcudb04b
      regsub -all "acmesid_vip" $payload "acmesid4" payload
      TCP::payload replace 0 [TCP::payload length] $payload
    }
  }
  TCP::release
  TCP::collect
}
}

class mySIDs {
   type string
  10.10.10.1 acmesid1 vfcudb01b 
  10.10.10.2 acmesid2 vfcudb02b
  10.10.10.3 acmesid3 vfcudb03b
  10.10.10.4 acmesid4 vfcudb04b
}
rule RAC-SID-replacement_findclass {
when CLIENT_ACCEPTED {
  TCP::collect
}
when CLIENT_DATA {
  set payload [TCP::payload]
}
when LB_SELECTED {
  set mySID [getfield [findclass [LB::server addr] $::mySIDs] " " 2]
  if {$mySID != ""}{
    regsub -all "acmesid_vip" $payload "$mySID" payload
    TCP::payload replace 0 [TCP::payload length] $payload
  }
  TCP::release
  TCP::collect
}
}