Changing an ip address in an RMI connection

 
 when CLIENT_ACCEPTED { 
    if {[IP::addr [IP::client_addr] equals 10.10.10.152]} { 
       TCP::collect 30 
    } 
 } 
 when CLIENT_DATA { 
     
     Do a regsub search and replace 
     
    set bad_ip {15\.15\.15\.24} 
    set replace_ip {10\.10\.10\.141} 
    if { [regsub -all $bad_ip [TCP::payload] $replace_ip new_payload ] > 0} { 
       TCP::payload replace 0 [TCP::payload length] $new_payload 
       TCP::release 
    } 
 }