From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 29 Mar 2016 18:45:59 +0000 (+0100)
Subject: cgi-fcgi-interp: wip test program
X-Git-Tag: archive/debian/5.0.0~49
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=commitdiff_plain;h=1e17ba9014e80fc58acfa88b20e8fd2744d994d5;hp=d9de283c3ea89033583b5cc28874dc1926c3c9c9

cgi-fcgi-interp: wip test program
---

diff --git a/cprogs/cgi-fcgi-test b/cprogs/cgi-fcgi-test
new file mode 100755
index 0000000..5abfe9a
--- /dev/null
+++ b/cprogs/cgi-fcgi-test
@@ -0,0 +1,20 @@
+#!./cgi-fcgi-interp -c10,-M1,perl
+# -*- perl -*-
+
+use warnings;
+use strict;
+
+use FCGI;
+
+my $count = 0;
+my $request = FCGI::Request();
+
+while ($request->Accept >= 0) {
+    print <<END;
+Content-Type; text/plain
+
+success
+count=$count
+END
+    $count++;
+}