CGI::Application::FastCGI - for using CGI::Application under FastCGI

CGI-Application-FastCGI documentation Contained in the CGI-Application-FastCGI distribution.

Index

Code Index:

NAME

Top

CGI::Application::FastCGI - for using CGI::Application under FastCGI

SYNOPSIS

Top

  # In "WebApp.pm"...
  package WebApp;
  use base qw(CGI::Application::FastCGI);
  sub setup {
    ...
  }
  1;

  # In "webapp.fcgi"...
  use WebApp;
  my $webapp = WebApp->new;
  $webapp->run;

DESCRIPTION

Top

Inherit this module instead of CGI::Application if you want to run your cgi programs based on CGI::Application under FastCGI.

NOTES

Top

Note that cgiapp_init() will be called only once under lifecycle of FastCGI. setup() will also only be called once. (you should not be doing magical things in 'setup'.) So if you want to do something for every REQUESTS, you should write the logic in cgiapp_prerun().

SEE ALSO

Top

CGI::Application, FCGI

AUTHOR

Top

Naoya Ito <naoya@naoya.dyndns.org>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

CGI-Application-FastCGI documentation Contained in the CGI-Application-FastCGI distribution. 
package CGI::Application::FastCGI;
use strict;
use base qw (CGI::Application);
use FCGI;
use CGI;

our $VERSION = '0.02';

sub run {
    my $self = shift;
    my $request = FCGI::Request();
    $self->fastcgi($request);
    while ($request->Accept >= 0) {
        $self->reset_query;
        $self->SUPER::run;
    }
}

sub reset_query {
    my $self = shift;
    CGI::_reset_globals();
    $self->{__QUERY_OBJ} = $self->cgiapp_get_query;
}

sub fastcgi {
    my $self = shift;
    @_ ? $self->{__FASTCGI} = shift : $self->{__FASTCGI};
}

1;

__END__