summaryrefslogtreecommitdiff
path: root/data/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl
diff options
context:
space:
mode:
Diffstat (limited to 'data/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl')
-rwxr-xr-xdata/lighttpd/lighttpd-1.4.53/tests/docroot/www/get-post-len.pl13
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";
+}