0.48 release

access to socket function

diff --git a/perl/ChangeLog b/perl/ChangeLog
index 604a487..a9e2a8b 100644 (file)
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,3 +1,9 @@
+Version 0.47 -- 27 August 1999  <skimo@kotnet.org> Sven Verdoolaege
+
+       o perl 5.005_60 compatibility
+       o locking on platforms that need it
+       o support for remote connections
+
 Version 0.47 -- 31 July 1999  <skimo@kotnet.org> Sven Verdoolaege
 
        o move PRINTF into correct package

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index a26f28c..62d7c6d 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.11 1999/08/10 11:06:37 skimo Exp $ */
+/* $Id: FCGI.PL,v 1.12 1999/08/27 13:28:47 skimo Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -339,6 +339,24 @@ RequestX(in, out, err, env, socket, flags)
     OUTPUT:
     RETVAL
 
+int
+OpenSocket(path, backlog)
+    char* path;
+    int backlog;
+
+    PROTOTYPE: $$
+    CODE:
+    RETVAL = FCGX_OpenSocket(path, backlog);
+    OUTPUT:
+    RETVAL
+
+void
+CloseSocket(socket)
+    int socket;
+
+    PROTOTYPE: $
+    CODE:
+    close(socket);
 
 int
 Accept(request)