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.