Testing 50 servers

 
 when HTTP_REQUEST { 
  
    set time_out 3600 
  
     Check query string for node parameter.  Expect a two digit number indicating the pool member 
    switch [URI::query [HTTP::uri] "node"] { 
       01 { set selected_node 192.168.49.97 } 
       02 { set selected_node 192.168.49.98 } 
       03 { set selected_node 192.168.49.99 } 
       default { 
           No node parameter in query string, so check if there  
             is an existing session table entry for this client IP 
          set selected_node [session lookup source_addr [IP::client_addr]] 
       } 
    } 
  
     Check if there was a matched node 
    if {$selected_node eq ""} { 
  
        No match, so use the default pool 
       pool [LB::server pool] 
  
    } else { 
  
        Found a match, so use that 
       pool [LB::server pool] member $selected_node 
  
        Add a session table entry based on the client IP, selected node address and the record timeout 
       session add source_addr [IP::client_addr] $selected_node $time_out 
    } 
 } 
 

 
 when CLIENT_ACCEPTED { 
 set debug 1 
 set servername "localhost"  
 } 
  
 when HTTP_REQUEST { 
 set uri [string tolower [HTTP::uri] ] 
 if { $uri contains "server=" } { 
 set servername [findstr $uri "server=" 7 "&"] 
 if {$servername != "localhost"} { 
 HTTP::collect 
 NAME::lookup $servername 
 } else { 
 } 
 } 
 } 
  
 when NAME_RESOLVED { 
 set serverip [NAME::response] 
 if {$debug ==1 } { 
 log local0. "$servername IP address is $serverip"} 
 if {$servername != "localhost" } { 
 if { [catch {node $serverip [TCP::local_port] } ] } { 
 persist source_addr 60 
 log local0. "ERROR: attempting to assign to node $servername: $serverip" 
 } 
 } 
 HTTP::release 
 }