LB::reselect based on HTTP response code

 
  
 when CLIENT_ACCEPTED { 
 set retries 0 
 } 
  
 when HTTP_REQUEST { 
 set client_ip [IP::client_addr] 
 set http_method [HTTP::method] 
 set http_host [HTTP::host] 
 set http_uri [HTTP::uri] 
 set http_request [HTTP::request] 
  
 } 
  
 when HTTP_RESPONSE { 
 set http_status [HTTP::status] 
 if { [matchclass $http_status equals $::ebus_dg_http_error_code] } { 
 incr retries 
 log local0. "$http_status error caught: retry $retries out of 10, Client IP - $client_ip , $http_method $http_host$http_uri" 
 if { $retries < 10 } { 
 HTTP::retry $http_request 
 } 
 }  
 } 
  
 when LB_FAILED { 
  set current_server [LB::server name] 
  log local0. "$current_server seems to be having a problem..." 
  log local0. "HTTP request is $http_request" 
 } 
  
 when LB_SELECTED { 
   if { $retries >= 1 } { 
 set current_pool [LB::server pool] 
 LB::mode rr 
     LB::reselect pool $current_pool 
 log local0. "Reselected: LB_server is [LB::server name]" 
   }  
 }