From 79886610900e95efcbea3ee73f9f612c7788bbca Mon Sep 17 00:00:00 2001
From: Jan Kneschke <jan@kneschke.de>
Date: Wed, 31 Aug 2005 12:55:44 +0000
Subject: added tests for keep-alive and setenv and passed a ARRAY ref instead
 of a HASH ref

git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-merge-1.4.x@654 152afb58-edef-0310-8abb-c4023f1b3aa9
---
 tests/docroot/www/Makefile.am     |  2 +-
 tests/docroot/www/get-post-len.pl | 15 +++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 tests/docroot/www/get-post-len.pl

(limited to 'tests/docroot')

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";
+}
+
-- 
cgit v1.2.1