cprogs/cgi-fcgi-test

   1 #!./cgi-fcgi-interp -c10,-M1,perl
   2 # -*- perl -*-
   3
   4 use warnings;
   5 use strict;
   6
   7 BEGIN {
   8     open REALSTDERR, ">&2";
   9 }
  10
  11 $SIG{'TERM'} = sub {
  12     eval { print REALSTDERR "[$$ real-stderr] closing\n"; };
  13     exit 15;
  14 };
  15
  16 use FCGI;
  17
  18 my $count = 0;
  19 my $request = FCGI::Request();
  20
  21 warn "[$$ starting]";
  22 print STDERR "[$$ stderr starting]\n";
  23 print REALSTDERR "[$$ real-stderr starting]\n";
  24
  25 while ($request->Accept >= 0) {
  26     my $ua = $ENV{HTTP_USER_AGENT} // '<none>';
  27     print <<END;
  28 Content-Type; text/plain
  29
  30 success
  31 count=$count
  32 $ua
  33 END
  34     print STDERR "[$$ stderr] serviced $count ($ua).\n";
  35     print REALSTDERR "[$$ real-stderr] serviced $count ($ua).\n";
  36     $count++;
  37 }