diff options
Diffstat (limited to 'data/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl')
-rwxr-xr-x | data/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl b/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl new file mode 100755 index 000000000..82276bd64 --- /dev/null +++ b/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl @@ -0,0 +1,13 @@ +#!/usr/bin/env perl + +print "Content-Type: text/plain\r\n\r\n"; + +if ($ENV{"REQUEST_METHOD"} eq "POST") { + my $l = 0; + while(<>) { + $l += length($_); + } + print $l; +} else { + print "0"; +} |