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     print <<END;
  27 Content-Type; text/plain
  28
  29 success
  30 count=$count
  31 END
  32     print STDERR "[$$ stderr] serviced $count.\n";
  33     print REALSTDERR "[$$ real-stderr] serviced $count.\n";
  34     $count++;
  35 }