Here is the iRule:
when CLIENT_ACCEPTED {
set server 0
set retried 0
set default_pool [LB::server pool]
}
when HTTP_REQUEST {
set clientip ""
if { [HTTP::header exists "X-Forwarded-For"] } {
set clientip [lindex [ split [lindex [HTTP::header values X-Forwarded-For] 0] "," ] 0]
} else {
set clientip [IP::client_addr]
}
log local0. "persist lookup on REQUEST: $clientip"
if { [HTTP::cookie exists test1] } {
pool test_1
persist cookie insert test1 0
log local0. "FROM_ifcheck_cookie_exist_HDLtest1 HTTP request: [HTTP::request]"
}
elseif { [HTTP::cookie exists test2] } {
pool test_2
persist cookie insert test2 0
log local0. "FROM_ifcheck_cookie_exist_HDLtest2 HTTP request: [HTTP::request]"
}
elseif { ($retried == 0) } {
set request_headers [HTTP::request]
Set payload content legth to capture.
if {[HTTP::header exists "Content-Length"] && [HTTP::header "Content-Length"] <= 4000000}{
set content_length [HTTP::header "Content-Length"]
}
else {
set content_length 4000000
}
Capture HTTP payload from request, HTTP::collect triggers event HTTP_REQUEST_DATA
if { [info exists content_length] && $content_length > 0} {
HTTP::collect $content_length
}
pool $default_pool
persist none
}
elseif { ($retried == 1) } {
Check DGL external-ip-check for IP/X-Forwarded-For match and assign uie persistence
if {[class match $clientip equals "external-ip-check"]} {
switch -glob $server {
"1" {
pool test_1
persist uie $clientip 1800
log local0. "FROM_retried_check_SP_test1 HTTP request: [HTTP::request]"
}
"2" {
pool test_2
persist uie $clientip 1800
log local0. "FROM_retried_check_SP_test2 HTTP request: [HTTP::request]"
}
default {
log local0. "Configuration needed for HTTP_REQUEST. HTTP request: [HTTP::request]"
}
}
} else {
switch -glob $server {
"1" {
pool test_1
persist cookie insert test1 0
log local0. "FROM_retried_check_with_cookie_test1 HTTP request: [HTTP::request]"
}
"2" {
pool test_2
persist cookie insert test2 0
log local0. "FROM_retried_check_with_cookie_test2 HTTP request: [HTTP::request]"
}
default {
log local0. "Configuration needed for HTTP_REQUEST. HTTP request: [HTTP::request]"
}
}
}
}
}
when HTTP_REQUEST_DATA {
Set payload, depends on HTTP::collect done in HTTP_REQUEST event.
set payload [HTTP::payload]
Append HTTP payload to HTTP request header to form a complete HTTP post request (request + payload)
append request_headers [HTTP::payload [HTTP::payload length]]
}
when HTTP_RESPONSE {
if { ([HTTP::status] == 307) } {
log local0. "HTTP_RESPONSE from Dispatcher: [HTTP::header Location] for HTTP request: $request_headers"
set retried 1
switch -glob [string tolower [HTTP::header Location]] {
"*:first/*"
{
set server 1
HTTP::retry "$request_headers"
}
"*:second/*"
{
set server 2
HTTP::retry "$request_headers"
}
default {
set server 0
log local0. "Configuration needed for HTTP_RESPONSE. New location from Dispatcher: [HTTP::header Location] for HTTP request: $request_headers"
}
}
}
else {
log local0. "HTTP_RESPONSE from APP-server: [HTTP::response]"
}
}
Cirrus
