Revision a11973c7
Von Sven Schöling vor fast 13 Jahren hinzugefügt
SL/Request.pm | ||
---|---|---|
199 | 199 |
if ($ENV{CONTENT_LENGTH}) { |
200 | 200 |
my $content; |
201 | 201 |
read STDIN, $content, $ENV{CONTENT_LENGTH}; |
202 |
open my $fh, '>:raw', '/tmp/blubb.bin' or die; |
|
203 |
print $fh $content; |
|
204 |
close $fh; |
|
205 | 202 |
if ($ENV{'CONTENT_TYPE'} && $ENV{'CONTENT_TYPE'} =~ /multipart\/form-data/) { |
206 | 203 |
# multipart formdata can bring it's own encoding, so give it both |
207 | 204 |
# and let ti decide on it's own |
Auch abrufbar als: Unified diff
Debugcode.