More debugging information

This commit is contained in:
ian%hixie.ch 2003-03-14 02:16:09 +00:00
parent db5300432e
commit c3c220e21a

View File

@ -68,9 +68,11 @@ sub decodeHTTPArguments {
# parse the MIME body # parse the MIME body
local $/ = undef; local $/ = undef;
my $entity = $parser->parse_data('Content-Type: ' . $self->CONTENT_TYPE . "\n" . my $data = 'Content-Type: ' . $self->CONTENT_TYPE . "\n" .
'Content-Length: ' . $self->CONTENT_LENGTH . "\n" . 'Content-Length: ' . $self->CONTENT_LENGTH . "\n" .
"\n" . <STDIN>); "\n" . <STDIN>;
$self->dump(9, "Data was:\n==============================\n$data\n==============================");
my $entity = $parser->parse_data($data);
# handle the parts of the MIME body # handle the parts of the MIME body
# read up to 16KB, no more # read up to 16KB, no more