Code injection

when RULE_INIT { 
 set txt_texttoinsert "


 " 
 } 
 
 when HTTP_REQUEST { 
  Don't allow data to be chunked 
 if { [HTTP::version] eq "1.1" } { 
 if { [HTTP::header is_keepalive] } { 
 HTTP::header replace "Connection" "Keep-Alive" 
 } 
 HTTP::version "1.0" 
 } 
 } 
when HTTP_RESPONSE { 

            if { [HTTP::header Content-Type] starts_with "text/html" } { 

                        if { [HTTP::header exists "Content-Length"] } { 

                                    set content_length [HTTP::header "Content-Length"] 

                        } else { 

                                    set content_length 1000000 

                         }                       

                       if { $content_length > 0 } { 

                                    HTTP::collect $content_length 

                        } 

            } 
}

when HTTP_RESPONSE_DATA {
   set resp [HTTP::payload]  
   (( search resp for body or /body and get the offset ))
   (( set first_part substr $resp 1  ))
   (( set rest $insert_text[substr $resp