diff options
Diffstat (limited to 'tests/docroot/www')
| -rw-r--r-- | tests/docroot/www/Makefile.am | 2 | ||||
| -rw-r--r-- | tests/docroot/www/get-post-len.pl | 15 |
2 files changed, 16 insertions, 1 deletions
diff --git a/tests/docroot/www/Makefile.am b/tests/docroot/www/Makefile.am index 017d3908..3336b1be 100644 --- a/tests/docroot/www/Makefile.am +++ b/tests/docroot/www/Makefile.am @@ -1,4 +1,4 @@ EXTRA_DIST=cgi.php cgi.pl dummydir index.html index.txt phpinfo.php \ phpself.php redirect.php cgi-pathinfo.pl phphost.php pathinfo.php \ - nph-status.pl prefix.fcgi get-header.pl ssi.shtml + nph-status.pl prefix.fcgi get-header.pl ssi.shtml get-post-len.pl SUBDIRS=go indexfile expire diff --git a/tests/docroot/www/get-post-len.pl b/tests/docroot/www/get-post-len.pl new file mode 100644 index 00000000..bac8bbf8 --- /dev/null +++ b/tests/docroot/www/get-post-len.pl @@ -0,0 +1,15 @@ +#!/usr/bin/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"; +} + |