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

[<a_...@us...>]

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

Modified Files:
	oi2.fcgi 
Log Message:
OIN-189: use CGI::Fast instead of FCGI

Index: oi2.fcgi
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/sample/website/cgi-bin/oi2.fcgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** oi2.fcgi	18 Feb 2005 03:29:40 -0000	1.1
--- oi2.fcgi	1 Feb 2006 20:22:10 -0000	1.2
***************
*** 4,8 ****
  
  use strict;
! use FCGI;
  use File::Spec::Functions qw( catfile );
  use Log::Log4perl;
--- 4,8 ----
  
  use strict;
! use CGI::Fast;
  use File::Spec::Functions qw( catfile );
  use Log::Log4perl;
***************
*** 24,32 ****
      $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();
--- 24,32 ----
      $ctx->assign_response_type( 'cgi' );
  
!     my $fcgi;
  
!     while ( $fcgi = CGI::Fast->new() ) {
          my $response = OpenInteract2::Response->new();
!         my $request  = OpenInteract2::Request->new( { cgi => $fcgi } );
  
          OpenInteract2::Auth->new()->login();