GetHandle and GetEnvironment

diff --git a/perl/ChangeLog b/perl/ChangeLog
index bed0d01..0cf6aab 100644 (file)
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,3 +1,6 @@
+       o add example remote.fpl
+       o provide access to the Request parameters
+
 Version 0.55 --        18 October 2000   <skimo@kotnet.org> Sven Verdoolaege
 
        o small documentation fix

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index abf9a4b..c6e61cb 100644 (file)
--- a/perl/FCGI.PL
+++ b/perl/FCGI.PL
@@ -12,7 +12,7 @@ unless ($] >= 5.005) {
 print OUT while <DATA>;
 close OUT;
 __END__
-/* $Id: FCGI.PL,v 1.16 2000/10/18 20:39:15 skimo Exp $ */
+/* $Id: FCGI.PL,v 1.17 2000/11/01 14:27:49 skimo Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -424,6 +424,32 @@ Flush(request)
     CODE:
     FCGI_Flush(request);
 
+HV *
+GetEnvironment(request)
+    FCGI    request;
+
+    PROTOTYPE: $
+
+    CODE:
+    RETVAL = request->hvEnv;
+
+    OUTPUT: 
+    RETVAL
+
+void
+GetHandles(request)
+    FCGI    request;
+
+    PROTOTYPE: $
+
+    PREINIT:
+    int            i;
+
+    PPCODE:
+    EXTEND(sp,3);
+    for (i = 0; i < 3; ++i)
+       PUSHs(sv_2mortal(newRV(request->gv[i])));
+
 void
 Detach(request)
 

diff --git a/perl/FCGI.pm b/perl/FCGI.pm
index 324563f..a22514f 100644 (file)
--- a/perl/FCGI.pm
+++ b/perl/FCGI.pm
@@ -1,4 +1,4 @@
-# $Id: FCGI.pm,v 1.12 2000/10/18 20:39:15 skimo Exp $
+# $Id: FCGI.pm,v 1.13 2000/11/01 14:27:49 skimo Exp $
 
 package FCGI;
 
@@ -13,7 +13,7 @@ require DynaLoader;
        
 );
 
-$VERSION = '0.55';
+$VERSION = '0.56';
 
 bootstrap FCGI;
 
@@ -231,6 +231,14 @@ Temporarily detaches filehandles on an accepted connection.
 
 Re-attaches filehandles on an accepted connection.
 
+=item $env = $req->GetEnvironment()
+
+Returns the environment parameter passed to FCGI::Request.
+
+=item ($in, $out, $err) = $req->GetHandles()
+
+Returns the file handle parameters passed to FCGI::Request.
+
 =back
 
 =head1 AUTHOR

diff --git a/perl/MANIFEST b/perl/MANIFEST
index 58a94f7..ad3852a 100644 (file)
--- a/perl/MANIFEST
+++ b/perl/MANIFEST
@@ -8,5 +8,6 @@ configure
 configure.in
 configure.readme
 echo.PL
+remote.PL
 threaded.PL
 typemap

diff --git a/perl/Makefile.PL b/perl/Makefile.PL
index fe8469d..34d350e 100644 (file)
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@@ -1,4 +1,4 @@
-# $Id: Makefile.PL,v 1.4 1999/07/28 23:09:56 skimo Exp $
+# $Id: Makefile.PL,v 1.5 2000/11/01 14:27:49 skimo Exp $
 
 use ExtUtils::MakeMaker;
 use IO::File;
@@ -73,6 +73,7 @@ WriteMakefile(
                            },
     'clean'            => { FILES => 'config.cache fcgi_config.h' },
     'PL_FILES' => { 'echo.PL' => 'echo.fpl', 
+                    'remote.PL' => 'remote.fpl',
                     'threaded.PL' => 'threaded.fpl',
                     'FCGI.PL' => 'FCGI.xs',
                   },