chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2a99e89
)
cgi-fcgi-interp: Test program does more useful things
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 29 Mar 2016 20:20:20 +0000
(21:20 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 29 Mar 2016 20:20:20 +0000
(21:20 +0100)
cprogs/cgi-fcgi-test
patch
|
blob
|
history
diff --git
a/cprogs/cgi-fcgi-test
b/cprogs/cgi-fcgi-test
index 5abfe9a885087ac1c2ab9ceee4a31498606c56d2..48dfbdc965104399b17df503aeb7c4e05a56c63c 100755
(executable)
--- a/
cprogs/cgi-fcgi-test
+++ b/
cprogs/cgi-fcgi-test
@@
-4,11
+4,22
@@
use warnings;
use strict;
+BEGIN {
+ open REALSTDERR, ">&2";
+}
+
+$SIG{'TERM'} = sub {
+ eval { print REALSTDERR "[real-stderr] closing\n"; };
+ exit 15;
+};
+
use FCGI;
my $count = 0;
my $request = FCGI::Request();
+warn;
+
while ($request->Accept >= 0) {
print <<END;
Content-Type; text/plain
@@
-16,5
+27,7
@@
Content-Type; text/plain
success
count=$count
END
+ print STDERR "[stderr] serviced $count.\n";
+ print REALSTDERR "[real-stderr] serviced $count.\n";
$count++;
}