LTM as a proxy

  web proxy example 
  
  This is a simple, incomplete example web proxy iRule. 
  It only supports limited proxy functionality of converting the requested host  
     (from an absolute URI or the Host header) to an IP address and sending the request on.   
  It doesn't support CONNECT/HTTPS or most other RFC2616 requirements for a web proxy. 
  
 when HTTP_REQUEST { 
  
    log local0. "[IP::client_addr]:[TCP::client_port]: New HTTP [HTTP::method] request to [HTTP::host], [HTTP::uri]" 
  
     Check if the URI is absolute and http:// 
    if {[string tolower [HTTP::uri]] starts_with "http://"}{ 
  
        Parse the host value from the URI 
       set host [URI::host [HTTP::uri]] 
       log local0. "[IP::client_addr]:[TCP::client_port]: Parsed $host from URI [HTTP::uri]" 
  
    } else { 
       set host [HTTP::host] 
    } 
  
     Check if host header has a port 
    if {$host contains ":"}{ 
  
        Scan the host header to parse the host and port 
       if {[scan $host {%[^:]:%s} host port] == 2}{ 
  
          log local0. "[IP::client_addr]:[TCP::client_port]: Parsed \$host:\$port: $host:$port" 
  
       } else { 
           Host value was host: without a port. Use the requested port. 
          set port [TCP::local_port] 
       } 
    } else { 
  
        Host header didn't have a port. Use the requested port. 
       set port [TCP::local_port] 
    } 
     Check if the host header isn't an IP address (ie, it contains an alpha character) 
    if {[string match {*[a-zA-Z]*} $host]}{ 
  
       log local0. "[IP::client_addr]:[TCP::client_port]: Host value not an IP: $host" 
  
        Perform a DNS lookup of the hostname 
       NAME::lookup $host 
  
        Hold the request until name resolution completes 
       HTTP::collect 
  
    } elseif {[catch {IP::addr $host mask 255.255.255.255}]==0}{ 
  
       log local0. "[IP::client_addr]:[TCP::client_port]: Host is an IP: [HTTP::host]" 
  
        Request was to a valid IP address, so use that as the destination 
       node $host $port 
  
    } else { 
  
        Couldn't parse host header.  Could use the destination IP address as the destination? 
       HTTP::respond 400 content "Invalid Host header" 
       log local0. "[IP::client_addr]:[TCP::client_port]: Invalid host header: [HTTP::host]" 
    } 
 } 
 when NAME_RESOLVED { 
  
    set response [NAME::response] 
  
    log local0. "[IP::client_addr]:[TCP::client_port]: Resolution response: $response (elements: [llength $response])" 
  
     Check if there is a resolution answer and it's an IP address 
    switch [llength $response] { 
  
       0 { 
           No response, or response wasn't an IP address 
          log local0. "[IP::client_addr]:[TCP::client_port]: Non-existent/invalid response: $response" 
  HTTP::respond 500 content "Couldn't process request" 
       } 
       default { 
  
           Response was one or more list entries.  Use the first list element.  Check if it's an IP address. 
          if {[catch "IP::addr [lindex $response 0] mask 255.255.255.255"]==0}{ 
  
              Request was to a valid IP address, so use that as the destination 
             if {$port != "" and [string is integer $port]}{ 
                log local0. "[IP::client_addr]:[TCP::client_port]: Using destination with parsed port [lindex $response 0]:$port" 
                node [lindex $response 0] $port 
             } else { 
                log local0. "[IP::client_addr]:[TCP::client_port]: Using destination with default port $response:[TCP::local_port]" 
                node [lindex $response 0] $::default_port 
             } 
          } else { 
              No response, or response wasn't an IP address 
             log local0. "[IP::client_addr]:[TCP::client_port]: Non-existent/invalid response: $response" 
     HTTP::respond 500 content "Couldn't process request" 
          } 
       } 
    } 
     Release the request 
    HTTP::release 
 } 
 

when CLIENT_ACCEPTED {
    snat automap
    TCP::collect
}
when CLIENT_DATA {
    if { [TCP::payload] starts_with "CONNECT" } {
        set uri [getfield [TCP::payload] " " 2]
        set host [getfield $uri ":" 1]
        set port [getfield $uri ":" 2]
        if { [catch {IP::addr $host mask 255.255.255.255} ] } {
            set ips [RESOLV::lookup @1.2.3.4 -a $host]
            set host [lindex $ips 0]
        }
        log local0.alert "[IP::client_addr] CONNECT: node $host $port"
        log local0.alert "[IP::client_addr] PAYLOAD: [TCP::payload]"
        node $host $port
        HTTP::disable
        TCP::respond "HTTP/1.0 200 Connection Established\r\n\r\n"
        TCP::payload replace 0 [TCP::payload length] ""
    }
    TCP::release
}
when HTTP_REQUEST {
    set method [HTTP::method]
    set host  [URI::host  [HTTP::uri]]
    set port  [URI::port  [HTTP::uri]]
    regexp {http://[^/]+(/[^?]*)?.*} [HTTP::uri] match path
    set query [URI::query [HTTP::uri]]
    if { $port eq "" } { set port 80 }
    log local0.alert "$method [HTTP::uri] => $host"
    if { [catch {IP::addr $host mask 255.255.255.255} ] } {
        set ips [RESOLV::lookup @1.2.3.4 -a $host]
        set host [lindex $ips 0]
    }
    if { $host eq "" } { 
        log local0.alert "unknown host"
        reject
        HTTP::respond 200 content "unknown host [HTTP::host]"
        return
    }
    if { $query eq "" } {
        HTTP::uri "${path}"
    } else {
        HTTP::uri "${path}?${query}"
    }
    log local0.alert "node $host $port uri=[HTTP::uri]"
    node $host $port
}