Forum Discussion
Jason_Hook_4092
Nimbostratus
Dec 03, 2009I think I have it...
data group is back to original space delimited
when HTTP_REQUEST {
Set the default target pool
set defaultTarget "TTSHE-SysD"
if {[HTTP::header exists "BETAFirm"]} {
Set $firm to the value of the header
set firm [HTTP::header "BETAFirm"]
log local0.info "Set Firm to $firm"
Set $target to the pool name from the lookup table
set pair [class search -name SysPools starts_with $firm]
log local0.info "Returned '$pair' pair from search"
set target [getfield $pair " " 2]
log local0.info "Set Target to '$target' from table"
check for a mismatch resulting in a blank pool name and set to default if blank
if { $target eq "" }{
log local0.info "Setting Target to default $defaultTarget"
set target $::defaultTarget
}
Forward request to the set pool
log local0.info "Forwarding request to pool $target"
pool $target
} else {
No Header found...send to default pool
log local0.info "No Header...Forwarding to default pool $defaultTarget"
pool $defaultTarget
}
}
This works as expected.
Thank you for your assistance.