PLP/FastCGI.pm

   1 package PLP::FastCGI;
   2
   3 use strict;
   4
   5 use PLP::CGI;
   6 use FCGI;
   7 use base 'PLP::CGI';
   8
   9 our $VERSION = '1.00';
  10
  11 sub import {
  12         my $self = shift;
  13         my $request = FCGI::Request();
  14         while ($request->Accept() >= 0) {
  15                 $PLP::use_cache = !defined $ENV{PLP_CACHE} || $ENV{PLP_CACHE}; # before it's clean()ed
  16                 delete $ENV{PATH_TRANSLATED};
  17                 $self->everything();
  18         }
  19 }
  20
  21 1;
  22