NAME¶

HTTP::Body - HTTP Body Parser

SYNOPSIS¶

    use HTTP::Body;
    
    sub handler : method {
        my ( $class, $r ) = @_;
        my $content_type   = $r->headers_in->get('Content-Type');
        my $content_length = $r->headers_in->get('Content-Length');
        
        my $body   = HTTP::Body->new( $content_type, $content_length );
        my $length = $content_length;
        while ( $length ) {
            $r->read( my $buffer, ( $length < 8192 ) ? $length : 8192 );
            $length -= length($buffer);
            
            $body->add($buffer);
        }
        
        my $uploads     = $body->upload;     # hashref
        my $params      = $body->param;      # hashref
        my $param_order = $body->param_order # arrayref
        my $body        = $body->body;       # IO::Handle
    }

DESCRIPTION¶

HTTP::Body parses chunks of HTTP POST data and supports application/octet-stream, application/json, application/x-www-form-urlencoded, and multipart/form-data.

Chunked bodies are supported by not passing a length value to new().

It is currently used by Catalyst, Dancer, Maypole, Web::Simple and Jedi.

NOTES¶

When parsing multipart bodies, temporary files are created to store any uploaded files. You must delete these temporary files yourself after processing them, or set $body->cleanup(1) to automatically delete them at DESTROY-time.

With version 1.23, we have changed the basic behavior of how temporary files are prepared for uploads. The extension of the file is no longer transferred to the temporary file, the extension will always be ".upload". We have also introduced variables that make it possible to set the behavior as required.

$HTTP::Body::MultiPart::file_temp_suffix

This is the extension that is given to all multipart files. The default setting here is ".upload". If you want the old behavior from before version 1.23, simply undefine the value here.

$HTTP::Body::MultiPart::basename_regexp

This is the regexp used to determine out the file extension. This is of course no longer necessary, unless you undefine "HTTP::Body::MultiPart::file_temp_suffix".

$HTTP::Body::MultiPart::file_temp_template

This gets passed through to the File::Temp TEMPLATE parameter. There is no special default in our module.

%HTTP::Body::MultiPart::file_temp_parameters

In this hash you can add up custom settings for the File::Temp invokation. Those override every other setting.

METHODS¶

new

Constructor. Takes content type and content length as parameters, returns a HTTP::Body object.

add

Add string to internal buffer. Will call spin unless done. returns length before adding self.

body

accessor for the body.

chunked

Returns 1 if the request is chunked.

cleanup

Set to 1 to enable automatic deletion of temporary files at DESTROY-time.

content_length

Returns the content-length for the body data if known. Returns -1 if the request is chunked.

content_type

Returns the content-type of the body data.

init

return self.

length

Returns the total length of data we expect to read if known. In the case of a chunked request, returns the amount of data read so far.

trailing_headers

If a chunked request body had trailing headers, trailing_headers will return an HTTP::Headers object populated with those headers.

spin

Abstract method to spin the io handle.

state

Returns the current state of the parser.

param

Get/set body parameters.

upload

Get/set file uploads.

part_data

Just like 'param' but gives you a hash of the full data associated with the part in a multipart type POST/PUT. Example:

    {
      data => "test",
      done => 1,
      headers => {
        "Content-Disposition" => "form-data; name=\"arg2\"",
        "Content-Type" => "text/plain"
      },
      name => "arg2",
      size => 4
    }
    

tmpdir

Specify a different path for temporary files. Defaults to the system temporary path.

param_order

Returns the array ref of the param keys in the order how they appeared on the body

SUPPORT¶

Since its original creation this module has been taken over by the Catalyst development team. If you need general support using this module:

IRC:

    Join #catalyst on irc.perl.org.

Mailing Lists:

    http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst

If you want to contribute patches, these will be your primary contact points:

IRC:

    Join #catalyst-dev on irc.perl.org.

Mailing Lists:

    http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst-dev

AUTHOR¶

Christian Hansen, "chansen@cpan.org"

Sebastian Riedel, "sri@cpan.org"

Andy Grundman, "andy@hybridized.org"

CONTRIBUTORS¶

Simon Elliott "cpan@papercreatures.com"

Kent Fredric "kentnl@cpan.org"

Christian Walde "walde.christian@gmail.com"

Torsten Raudssus "torsten@raudssus.de"

LICENSE¶

This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.