Forum Discussion
Brad_53264
Jul 17, 2012Nimbostratus
I've solved this problem using the code below
when HTTP_REQUEST {
set request_method [HTTP::method]
}
when HTTP_RESPONSE {
if { $request_method contains "GET" }{
HTTP::collect [HTTP::header Content-Length]
set clen [HTTP::header Content-Length]
}
}
when HTTP_RESPONSE_DATA {
if { $request_method contains "GET" }{
regsub -all "\n" [HTTP::payload] "\r" newdata
HTTP::payload replace 0 $clen $newdata
HTTP::release
}
}