X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=blobdiff_plain;f=cprogs%2Fcgi-fcgi-test;h=3d5f0ed2a7016d83517697092738e270f8c6cf81;hp=5abfe9a885087ac1c2ab9ceee4a31498606c56d2;hb=ce86dddf6ab90c5dc5d8afebf2df123333cf8aed;hpb=1e17ba9014e80fc58acfa88b20e8fd2744d994d5

diff --git a/cprogs/cgi-fcgi-test b/cprogs/cgi-fcgi-test
index 5abfe9a..3d5f0ed 100755
--- a/cprogs/cgi-fcgi-test
+++ b/cprogs/cgi-fcgi-test
@@ -4,17 +4,34 @@
 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 "[$$ starting]";
+print STDERR "[$$ stderr starting]\n";
+print REALSTDERR "[$$ real-stderr starting]\n";
+
 while ($request->Accept >= 0) {
+    my $ua = $ENV{HTTP_USER_AGENT} // '<none>';
     print <<END;
 Content-Type; text/plain
 
 success
 count=$count
+$ua
 END
+    print STDERR "[$$ stderr] serviced $count ($ua).\n";
+    print REALSTDERR "[$$ real-stderr] serviced $count ($ua).\n";
     $count++;
 }