Hash Load Balancing

 
 when HTTP_REQUEST 
 { 
    set search_server_list { {10.0.164.11 20001} 
                            {10.0.164.11 20002} 
                            {10.0.164.11 20003} 
   } 
   set active_server_list {} 
   
   foreach node_address $search_server_list 
   { 
       if { [LB::status pool search_hash_pool member [lindex $node_address 0] [lindex $node_address 1]] eq "up" } 
       { 
         lappend active_server_list $node_address 
       } 
   } 
   if {[catch {set server_number [expr {[findstr [HTTP::uri] "SRV=" 4 2]} % {[llength $active_server_list]}] }]} 
     { 
       pool search_hash_pool 
     } 
     else 
     { 
       set picked [ lindex $active_server_list $server_number ] 
       pool search_hash_pool member [lindex $picked 0] [lindex $picked 1] 
     } 
    
 }