Changing HTTP Header Host port

Here's a version that is working for us (changing the Request Host header and URI), but hoping there's an easier way to modify the URI?

 

 

when HTTP_REQUEST {

 

Check if host value has a colon

 

if {[HTTP::host] contains ":"}{

 

log local0. "URI: [HTTP::uri]"

 

 

set find ":55555"

 

set replace ""

 

set uri_old [HTTP::uri]

 

regsub -all $find $uri_old $replace new_uri

 

HTTP::uri $new_uri

 

 

log local0. "NEW URI: [HTTP::uri]"

 

Replace host header value with everything before the colon

 

set new_host [getfield [HTTP::host] ":" 1]

 

 

HTTP::header replace "Host" $new_host

 

log local0. "[IP::client_addr]:[TCP::client_port]: Replace original host [HTTP::host] with [getfield [HTTP::host] ":" 1]"

 

}

 

}

 

 

Also, as you suggest, it looks like we'll need to modify the HTTP_Response Location header + any other references to objects in the HTTP_Response payload. May need to look at this...

 

http://devcentral.f5.com/weblogs/Joe/archive/2005/07/27/1398.aspx

 

 

Cheers.