if ($ENV{CONTENT_LENGTH}) {
my $content;
read STDIN, $content, $ENV{CONTENT_LENGTH};
- open my $fh, '>:raw', '/tmp/blubb.bin' or die;
- print $fh $content;
- close $fh;
if ($ENV{'CONTENT_TYPE'} && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/) {
# multipart formdata can bring it's own encoding, so give it both
# and let ti decide on it's own
_store_value($target, $_, $temp_form{$_}) for keys %temp_form;
}
- map { $target->{$_} = $temp_target->{$_} } keys %{ $temp_target };
-
$::lxdebug->leave_sub;
return $target;