Multiple redirects on one VIP

 
 when HTTP_REQUEST { 
  
     Log a debug line for every request 
    log local0. "[IP::client_addr]:[TCP::client_port]: New request to [HTTP::host][HTTP::uri]" 
  
     Check if there are any digits in the host header value before a colon, 
       saving the digits in the $digits variable 
    if {[regexp {[^0-9:]+([0-9]+)[^0-9]*} [HTTP::host] -> digits]}{ 
  
        There was at least one digit in the host header value 
       log local0. "[IP::client_addr]:[TCP::client_port]: Matched: $digits, redirecting." 
  
       HTTP::redirect "http://[HTTP::host]/web/app/do.pl?login=auto&region=$digits" 
  
    } else { 
  
        There were no digits in the host header value (before a colon).  Take some default action? 
       log local0. "[IP::client_addr]:[TCP::client_port]: No match" 
    } 
 } 
 

 
 when HTTP_REQUEST { 
  
     Log a debug line for every request 
    log local0. "[IP::client_addr]:[TCP::client_port]: New request to [HTTP::host][HTTP::uri]" 
  
     Redirect based on the host header value 
    switch [HTTP::host] { 
       "*1*" { 
          HTTP::redirect "http://[HTTP::host]/web/app/do.pl?login=auto&region=1" 
          log local0. "[IP::client_addr]:[TCP::client_port]: 1" 
       } 
       "*2*" { 
          HTTP::redirect "http://[HTTP::host]/web/app/do.pl?login=auto&region=2" 
          log local0. "[IP::client_addr]:[TCP::client_port]: 2" 
       } 
       "*3*" { 
          HTTP::redirect "http://[HTTP::host]/web/app/do.pl?login=auto&region=3" 
          log local0. "[IP::client_addr]:[TCP::client_port]: 3" 
       } 
       default { 
           This case will be hit if the request didn't have a digit in the  
             host header value or didn't have a host header at all.  
          HTTP::redirect "http://hardcodedhost.example.com/web/app/do.pl?login=auto&region=default" 
          log local0. "[IP::client_addr]:[TCP::client_port]: No match, take some default action?" 
       } 
    } 
 }