wlnode function

when HTTP_REQUEST {
set reqpath [HTTP::path]
log local0. "HTTP Request path is $reqpath"
if { [HTTP::cookie exists "ltmcookie"] }{
log local0. "Cookie found"
HTTP::cookie decrypt "ltmcookie" "ltmcookiepassword"
log local0. "Cookie decrypted"
set vipid [lindex [HTTP::cookie ltmcookie] 0]
set poolid [lindex [HTTP::cookie ltmcookie] 1]
set serverid [lindex [HTTP::cookie ltmcookie] 2]
set portid [lindex [HTTP::cookie ltmcookie] 3]
use pool $poolid member $serverid $portid
log local0. "Sending request to pool $poolid, member $serverid, port $portid"
persist cookie
log local0. "Cookie persist instruction passed"}
else {
log local0. "Cookie NOT found"
use pool pool_my-http-pool
}
}
when HTTP_RESPONSE {
log local0. "HTTP Response path is $reqpath"
if { $reqpath eq "/"} {
HTTP::cookie insert path / name ltmcookie value [concat [virtual name] [LB::server]]
log local0. "Creating cookie"
HTTP::cookie encrypt "ltmcookie" "ltmcookiepassword"
log local0. "Encrypting cookie"
}
elseif { $reqpath eq "/SEUILibrary/controller/Customer:Enter"} {
HTTP::cookie insert path / name ltmcookie value [concat [virtual name] [LB::server]]
log local0. "Creating cookie"
HTTP::cookie encrypt "ltmcookie" "ltmcookiepassword"
log local0. "Encrypting cookie"
}
elseif { $reqpath eq "/SEUILibrary/controller/checkout.workflow:StartCheckout"} {
HTTP::cookie insert path / name ltmcookie value [concat [virtual name] [LB::server]]
log local0. "Creating cookie"
HTTP::cookie encrypt "ltmcookie" "ltmcookiepassword"
log local0. "Encrypting cookie"
}
}