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;
  22
  23 while ($request->Accept >= 0) {
  24     print <<END;
  25 Content-Type; text/plain
  26
  27 success
  28 count=$count
  29 END
  30     print STDERR "[stderr] serviced $count.\n";
  31     print REALSTDERR "[real-stderr] serviced $count.\n";
  32     $count++;
  33 }