pgsql_perl5-1.8.0

src/interfaces/perl5/Changes

 #-------------------------------------------------------
 #
-# $Id: Changes,v 1.7 1998/06/01 16:41:18 mergl Exp $
+# $Id: Changes,v 1.8 1998/09/27 19:12:20 mergl Exp $
 #
 # Copyright (c) 1997, 1998  Edmund Mergl
 #
@@ -8,6 +8,25 @@
 
 Revision history for Perl extension Pg.
 
+1.8.0   Sep 27 1998
+	- adapted to PostgreSQL-6.4:
+	  added support for 
+	  o PQsetdbLogin
+	  o PQpass
+	  o PQsocket
+	  o PQbackendPID
+	  o PQsendQuery
+	  o PQgetResult
+	  o PQisBusy
+	  o PQconsumeInput
+	  o PQrequestCancel
+	  o PQgetlineAsync
+	  o PQputnbytes
+	  o PQmakeEmptyPGresult
+	  o PQbinaryTuples
+	  o PQfmod
+	- fixed conndefaults()
+	- fixed lo_read
 
 1.7.4   May 28 1998
 	- applied patches from 

src/interfaces/perl5/Makefile.PL

 #-------------------------------------------------------
 #
-# $Id: Makefile.PL,v 1.8 1998/06/01 16:41:19 mergl Exp $
+# $Id: Makefile.PL,v 1.9 1998/09/27 19:12:21 mergl Exp $
 #
 # Copyright (c) 1997, 1998  Edmund Mergl
 #

src/interfaces/perl5/README

 #-------------------------------------------------------
 #
-# $Id: README,v 1.7 1998/06/01 16:41:19 mergl Exp $
+# $Id: README,v 1.8 1998/09/27 19:12:24 mergl Exp $
 #
 # Copyright (c) 1997, 1998  Edmund Mergl
 #
@@ -9,7 +9,7 @@
 DESCRIPTION:
 ------------
 
-This is version 1.7.4 of pgsql_perl5 (previously called pg95perl5).
+This is version 1.8.0 of pgsql_perl5 (previously called pg95perl5).
 
 Pgsql_perl5 is an interface between Larry Wall's language perl version 5 and 
 the database PostgreSQL (previously Postgres95). This has been done by using 
@@ -23,6 +23,9 @@ has the benefit, that existing Libpq applications can easily be ported to
 perl. The new style uses class packages and might be more familiar for C++-
 programmers. 
 
+NOTE: it is planned to drop the old C-style interface in the next major release 
+      of PostgreSQL. 
+
 
 
 COPYRIGHT:
@@ -36,7 +39,7 @@ License or the Artistic License, as specified in the Perl README file.
 IF YOU HAVE PROBLEMS:
 ---------------------
 
-Please send comments and bug-reports to <E.Mergl@bawue.de>
+Please send comments and bug-reports to <pgsql-interfaces@postgresql.org>
 
 Please include the output of perl -v,
                          and perl -V,
@@ -48,8 +51,8 @@ in your bug-report.
 REQUIREMENTS:
 -------------
 
-  - build, test and install Perl 5         (at least 5.002)
-  - build, test and install PostgreSQL     (at least 6.3)
+  - build, test and install Perl5          (at least 5.002)
+  - build, test and install PostgreSQL     (at least 6.4)
 
 
 PLATFORMS:
@@ -129,6 +132,6 @@ installation to read the documentation.
 
 ---------------------------------------------------------------------------
 
-   Edmund Mergl <E.Mergl@bawue.de>                            May 28, 1998
+   Edmund Mergl <E.Mergl@bawue.de>                       September 27, 1998
 
 ---------------------------------------------------------------------------

src/interfaces/perl5/eg/ApachePg.pl

 #!/usr/local/bin/perl
 
-#-------------------------------------------------------
-#
-# $Id: ApachePg.pl,v 1.4 1998/06/01 16:41:26 mergl Exp $
-#
-# Copyright (c) 1997, 1998  Edmund Mergl
-#
-#-------------------------------------------------------
+# $Id: ApachePg.pl,v 1.5 1998/09/27 19:12:33 mergl Exp $
 
 # demo script, tested with:
-#  - PostgreSQL-6.3
-#  - apache_1.3
-#  - mod_perl-1.08
-#  - perl5.004_04
+#  - PostgreSQL-6.4
+#  - apache_1.3.1
+#  - mod_perl-1.15
+#  - perl5.005_02
 
 use CGI;
 use Pg;
@@ -26,7 +20,7 @@ print  $query->header,
        "<CENTER><H3>Testing Module Pg</H3></CENTER>",
        "<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>",
        "<TR><TD>Enter conninfo string: </TD>",
-           "<TD>", $query->textfield(-name=>'conninfo', -size=>40, -default=>'dbname=template1 host=localhost'), "</TD>",
+           "<TD>", $query->textfield(-name=>'conninfo', -size=>40, -default=>'dbname=template1'), "</TD>",
        "</TR>",
        "<TR><TD>Enter select command: </TD>",
            "<TD>", $query->textfield(-name=>'cmd', -size=>40), "</TD>",
@@ -39,9 +33,10 @@ if ($query->param) {
 
     my $conninfo = $query->param('conninfo');
     my $conn = Pg::connectdb($conninfo);
-    if ($conn->status == PGRES_CONNECTION_OK) {
+    if (PGRES_CONNECTION_OK == $conn->status) {
         my $cmd = $query->param('cmd');
         my $result = $conn->exec($cmd);
+        if (PGRES_TUPLES_OK == $result->resultStatus) {
             print "<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>\n";
             my @row;
             while (@row = $result->fetchrow) {
@@ -49,7 +44,10 @@ if ($query->param) {
             }
             print "</TABLE></CENTER><P>\n";
         } else {
-        print "<CENTER><H2>Connect to database failed</H2></CENTER>\n";
+            print "<CENTER><H2>", $conn->errorMessage, "</H2></CENTER>\n";
+        }
+    } else {
+        print "<CENTER><H2>", $conn->errorMessage, "</H2></CENTER>\n";
     }
 }
 

src/interfaces/perl5/typemap

 #-------------------------------------------------------
 #
-# $Id: typemap,v 1.7 1998/06/01 16:41:20 mergl Exp $
+# $Id: typemap,v 1.8 1998/09/27 19:12:27 mergl Exp $
 #
 # Copyright (c) 1997, 1998  Edmund Mergl
 #
@@ -15,5 +15,4 @@ PG_results	T_PTROBJ
 ConnStatusType	T_IV
 ExecStatusType	T_IV
 Oid		T_IV
-int2		T_IV
-bool		T_IV
+pqbool		T_IV