From 1e17ba9014e80fc58acfa88b20e8fd2744d994d5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 29 Mar 2016 19:45:59 +0100
Subject: [PATCH 1/1] cgi-fcgi-interp: wip test program

---
 cprogs/cgi-fcgi-test | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 cprogs/cgi-fcgi-test

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++;
+}
-- 
2.30.2