HELP! hanging iRule

I haven't tested any of this, but I would mention a couple things. You are using tcp::client_port where I think that is going to be the source port. You would want to use tcp::local_port which is the destination port.

Also, you're doing when HTTP_Request when you should probably be using when CLIENT_ACCEPTED. This happens higher in the stack, so it should be more efficient.

Something like this:

 
 when CLIENT_ACCEPTED { 
 if { [TCP::local_port] equals 531 } { 
 pool win2003 
 } elseif { [TCP::local_port] equals 25 } { 
 pool win2003 
 } else { 
 pool win2003 
 }} 
 

Try this (not tested!)

 
 class server_ports { 
   "8001 10.128.32.1" 
   "8099 10.128.32.2" 
   "8003 10.128.32.3" 
   "8004 10.128.32.4" 
   "8005 10.128.32.5" 
   "8006 10.128.32.6" 
   "8007 10.128.32.7" 
   "8008 10.128.32.8" 
 } 
  
 when CLIENT_ACCEPTED { 
   if { [TCP::local_port] eq "80" } { 
     persist uie [IP::client_addr] 1800 
     HTTP::fallback http://support.blackwellpublishing.com 
     pool wwwDEFAULT 
   } elseif { 
       set match [lindex [findclass [TCP::local_port] $::server_ports] 1] 
       pool node-$match 
   } 
 } 
 

Another thing worth noting is that the "not" operator is of higher precendence that it used to be in 4.x (basically 4.x did a better job of figuring out what you wanted to do, but because we are using Tcl now, we don't have that same flexibility with the precedence of the operators). So, make sure you add parenthesis around the expression that is the target of the not operator, as in:

  
 elseif { not ( [TCP::client_port] == "80" ) or not ( [TCP::client_port] == "8001" ) or 
        not ( [TCP::client_port] == "8099" ) or not ( [TCP::client_port] == "8003" ) or 
        not ( [TCP::client_port] == "8004" ) or not ( [TCP::client_port] == "8005" ) or 
        not ( [TCP::client_port] == "8006" ) or not ( [TCP::client_port] == "8007" ) or 
        not ( [TCP::client_port] == "8008" ) } {   
  

I would also suggest using a class to help minimize the number of these tests as in:

  
  class server_ports {  
     80,  
     8001,  
     8099,  
     8003,  
     8004,  
     8005,  
     8006,  
     8007,  
     8008  
  }  
  

and then modify your last elseif to be:

  
     elseif { not [matchclass [TCP::local_port] equals $::server_ports] } {  
  

You can also use citizen_elah's example above which relies even more on the class (you may want to add a test of $match to make sure a match was found before do the "pool node-$match" though).

Hope this all helps.

Thanks you for all your help, I'm getting there and had eveything working.

I'm now trying to impliment citizen_elah's suggestion of replacing all of the:

 
 elseif { [TCP::client_port] == "8099" } { 
    pool node-10.128.32.2 
 } 
 

with:

 
 } elseif { 
    set match [lindex [findclass [TCP::local_port] $::server_ports] 1] 
    pool node-$match 
 } 
 

Which I couldn't get to work so had a stab at it from scratch like this:

 
 elseif { [lindex [matchclass [TCP::local_port] eq $::Individual_Servers] 1]} { 
    set match [lindex  $::Individual_Servers 1] 
    node $match 
 }   
 

I'm having a few problems though and as I keep getting the following error:

01070151:3: Rule [www.vetsite.net] error: line 21: [undefined procedure: elseif] [elseif { [lindex [matchclass [TCP::local_port] eq $::Individual_Servers] 1]} {

set match [lindex $::Individual_Servers 1]

node $match

} ]

I'm now very confused, can anyone point out where I'm going wrong?

For reference my complete rule now looks like this:

 
 when CLIENT_ACCEPTED { 
    TCP::collect 5 
 } 
 when CLIENT_DATA { 
    if { [matchclass [TCP::payload] starts_with $::http_methods] } { 
       SSL::disable 
    } 
 } 
 when HTTP_REQUEST { 
    if { [TCP::local_port] eq "80"  } { 
       persist source_addr 1800 
       HTTP::fallback http://support.blackwellpublishing.com 
       pool wwwDEFAULT  
    } 
    elseif { [lindex [matchclass [TCP::local_port] eq $::Individual_Servers] 1]} { 
       set match [lindex  $::Individual_Servers 1] 
       node $match 
    } 
    elseif { not [matchclass [TCP::local_port] eq $::Server_Ports] } { 
       HTTP::redirect "http://www.vetsite.net" 
    } 
    else { 
       discard 
    } 
 } 
  
 class http_methods { 
    "GET" 
    "POST" 
    "HEAD" 
    "PUT" 
 } 
  
 class ServerPorts { 
    "80" 
    "8099" 
    "8003" 
    "8004" 
    "8005" 
    "8006" 
    "8007" 
    "8008" 
 } 
  
 class Individual_Servers { 
    "8001 10.128.32.1" 
    "8099 10.128.32.2" 
    "8003 10.128.32.3" 
    "8004 10.128.32.4" 
    "8005 10.128.32.5" 
    "8006 10.128.32.6" 
    "8007 10.128.32.7" 
    "8008 10.128.32.8" 
 }