HTTP::payload Content Limitation

  
  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 {  
     First, check to see if there's a Content-Length header  
    if {[info exists [HTTP::header Content-Length]] } {  
       If there is, we'll collect that much data  
      set clen [HTTP::header "Content-Length"]  
    } else {  
       Otherwise we collect the max  
      set clen 4294967295  
    }  
    
    if { $clen > 0 } {  
      HTTP::collect $clen  
    }  
  }  
    
  when HTTP_RESPONSE_DATA {  
     Here you define what you want to find in the payload  
    set find "Bad_Data"   
    
     And here's what you'll be replacing it with  
    set replace "==ReWritten_Data_GOOD=="  
    
    set payload [HTTP::payload]  
    
     Run the regsub to make all the replacements (add -nocase for case insensitivity)  
    if {[regsub -all $find $payload $replace new_response] > 0} {  
      HTTP::payload replace 0 [HTTP::payload length] $new_response  
      set payload [HTTP::payload] 
    }  
  }