Guest User

Untitled

a guest
Jun 6th, 2018
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.71 KB | None | 0 0
  1. when HTTP_REQUEST {
  2.  
  3.     set path [string tolower [HTTP::path]]
  4.     set host [string tolower [HTTP::host]]
  5.  
  6.     switch -glob $path {
  7.  
  8.         "/" {
  9.  
  10.             HTTP::uri "/lsa/"
  11.             switch -glob $host {
  12.  
  13.                 "*editdev.lsa.umich.edu*" {
  14.                     pool lsa-cmsdevdlv_pool
  15.                     return
  16.                 }
  17.  
  18.                 "*editqa.lsa.umich.edu*" {
  19.                     pool lsa-cmsqadlv_pool
  20.                     return
  21.                 }
  22.  
  23.                 "*edit.lsa.umich.edu*" -
  24.                 "*editprod.lsa.umich.edu*" {
  25.                     pool lsa-cmsproddlv_pool
  26.                     return
  27.                 }
  28.  
  29.             }
  30.  
  31.         }
  32.  
  33.      }
  34.  
  35. }
Add Comment
Please, Sign In to add comment