[Openinteract-commits] CVS: OpenInteract2/sample/website/cgi-bin oi2.fcgi,NONE,1.1 FILES,1.1,1.2

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/sample/website/cgi-bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1426

Modified Files:
	FILES 
Added Files:
	oi2.fcgi 
Log Message:
add FastCGI script


--- NEW FILE: oi2.fcgi ---
#!/usr/bin/perl

# $Id: oi2.fcgi,v 1.1 2005/02/18 03:29:40 lachoy Exp $

use strict;
use FCGI;
use File::Spec::Functions qw( catfile );
use Log::Log4perl;
use OpenInteract2::Auth;
use OpenInteract2::Controller;
use OpenInteract2::Context;
use OpenInteract2::Request;
use OpenInteract2::Response;

{
    my $website_dir = '[% website_dir %]';
    my $l4p_conf = File::Spec->catfile(
                       $website_dir, 'conf', 'log4perl.conf' );
    Log::Log4perl::init( $l4p_conf );
    my $ctx = OpenInteract2::Context->create({
        website_dir => $website_dir
    });
    $ctx->assign_request_type( 'cgi' );
    $ctx->assign_response_type( 'cgi' );

    my $fcgi_request = FCGI::Request();

    while ( $fcgi_request->Accept() >= 0 ) {
        my $response = OpenInteract2::Response->new();
        my $request  = OpenInteract2::Request->new();

        OpenInteract2::Auth->new()->login();

        my $controller = eval {
            OpenInteract2::Controller->new( $request, $response )
        };
        if ( $@ ) {
            $response->content( $@ );
        }
        else {
            $controller->execute;
        }
        $response->send;
        $ctx->cleanup_request;
    }
}

Index: FILES
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/sample/website/cgi-bin/FILES,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FILES	5 Jun 2003 04:38:48 -0000	1.1
--- FILES	18 Feb 2005 03:29:40 -0000	1.2
***************
*** 1 ****
--- 1,2 ----
  oi2.cgi       --> cgi-bin oi2.cgi
+ oi2_fcgi      --> cgi-bin oi2.fcgi
\ No newline at end of file