ClamAV iRule

Updated iRule to get around the fact that ::port is global and to avoid possible stomping of the variable. Although I'm guessing that no one is all that interested in load balancing ClamAV considering how quickly this topic started sinking to the bottom.

when RULE_INIT {
    array set ::clamp { }
}
when SERVER_CONNECTED {
    log "server connected"
    TCP::collect 1
}
when SERVER_DATA {
    log "server data"
    set sdata [TCP::payload]
    if { $sdata contains "PORT" } {
        set ::clamp([IP::client_addr][TCP::client_port]) [regexp -inline {[0-9]+} [TCP::payload]]
        log "I have $::clamp([IP::client_addr][TCP::client_port])"
        listen {
            proto 6
            timeout 10
            bind [LINK::vlan_id] [peer {IP::local_addr}] $::clamp([IP::client_addr][TCP::client_port])
            server [LB::server addr] $::clamp([IP::client_addr][TCP::client_port])
            allow [IP::client_addr]
        }
    array unset ::clamp([IP::client_addr][TCP::client_port])
    }
    TCP::release
    TCP::collect 1
}