sub multipart()

in t/security/CVE-2004-0959.t [14:37]

• 19 lines of code
• 2 McCabe index (conditional complexity)

sub multipart
{
    my $name = shift;
    my $filename = shift;
    my $ctype = shift;
    my $extra = shift;
    my $req = HTTP::Request->new(POST => $url);
    
    $req->header(Content_Type => 'multipart/form-data; boundary=XXXX');
    
    $req->content("--XXXX\n".
                  "Content-Disposition: form-data; name=\"MAX_FILE_SIZE\"\n\n".
                  "30000\n".
                  "--XXXX\n".
                  "Content-Disposition: form-data; name=\"".$name."\"; filename=\"".$filename."\"\n".
                  "Content-Type: ".$ctype."\n\n".
                  "fish\n");

    $req->add_content($extra) if $extra;

    $req->add_content("--XXXX--\n");

    Apache::TestRequest::user_agent->request($req);
}