git.shiar.nl
/
perl
/
plp
/
.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
e16fbcbb940cca4cefea975dcd2fa0f0260e3e77
[perl/plp/.git]
/
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