when HTTP_REQUEST {
set lent [HTTP::header Content-Length]
log local0.info "Content-length $lent"
HTTP::collect $lent
log local0.info "Collected"
}
when HTTP_REQUEST_DATA {
log local0.info "Request data..."
Get ELB domain from data group already configured
set val [class match -value "Cloud_ELB_Domain" contains PAM_Config]
set cloudUrl "https://$val"
set val1 [class match -value "Notification_Server" contains PAM_Config]
set replaceUrl "http://$val1"
log local0.info "To replace $cloudUrl with $replaceUrl"
if { [HTTP::payload] contains $static::cloudUrl} {
log local0.info "Payload matches"
set newPLoad [string map [list $static::cloudUrl $replaceUrl] [HTTP::payload]]
HTTP::payload replace 0 [string length $newPLoad ] $newPLoad
log local0.info "Payload modified"
}
HTTP::release
}