*** empty log message ***

src/interfaces/perl5/ApachePg.pl

@@ -2,11 +2,11 @@
 
 # demo script, has been tested with:
 #  - Postgres-6.1
-#  - apache_1.2b8
-#  - mod_perl-0.97
-#  - perl5.003_93
+#  - apache_1.2
+#  - mod_perl-1.0
+#  - perl5.004
 
-use CGI::Apache;
+use CGI;
 use Pg;
 use strict;
 

src/interfaces/perl5/Changes

@@ -51,7 +51,7 @@ Revision history for Perl extension Pg.
         - changed test.pl for large objects:
           test only lo_import and lo_export
 
-1.6.0  Apr 29, 1997
+1.6.1  Jun 02 1997
 	- renamed to pgsql_perl5
 	- adapted to PostgreSQL-6.1
 	- test only functions, which are also

src/interfaces/perl5/Makefile.PL

 #-------------------------------------------------------
 #
-# $Id: Makefile.PL,v 1.1.1.1 1997/04/29 19:37:09 mergl Exp $
+# $Id: Makefile.PL,v 1.2 1997/06/02 19:41:59 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #

src/interfaces/perl5/Pg.pm

 #-------------------------------------------------------
 #
-# $Id: Pg.pm,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: Pg.pm,v 1.2 1997/06/02 19:42:01 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -83,7 +83,7 @@ require 5.003;
 	PGRES_InvalidOid
 );
 
-$VERSION = '1.6.0';
+$VERSION = '1.6.1';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()

src/interfaces/perl5/Pg.xs

 /*-------------------------------------------------------
  *
- * $Id: Pg.xs,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+ * $Id: Pg.xs,v 1.2 1997/06/02 19:42:03 mergl Exp $
  *
  * Copyright (c) 1997  Edmund Mergl
  *
@@ -424,6 +424,18 @@ PQclear(res)
 	PGresult *	res
 
 
+void
+PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet)
+	PGresult *	res
+	FILE *	fp
+	int	fillAlign
+	char *	fieldSep
+	int	printHeader
+	int	quiet
+	CODE:
+		PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet);
+
+
 void
 PQprintTuples(res, fout, printAttName, terseOutput, width)
 	PGresult *	res
@@ -904,6 +916,18 @@ PQgetisnull(res, tup_num, field_num)
 	int	field_num
 
 
+void
+PQdisplayTuples(res, fp, fillAlign, fieldSep, printHeader, quiet)
+	PGresult *	res
+	FILE *	fp
+	int	fillAlign
+	char *	fieldSep
+	int	printHeader
+	int	quiet
+	CODE:
+		PQdisplayTuples(res, fp, fillAlign, (const char *)fieldSep, printHeader, quiet);
+
+
 void
 PQprintTuples(res, fout, printAttName, terseOutput, width)
 	PG_result	res

src/interfaces/perl5/README

 #-------------------------------------------------------
 #
-# $Id: README,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: README,v 1.2 1997/06/02 19:42:05 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -25,13 +25,17 @@ programmers.
 
 
 
-COPYRIGHT INFO
---------------
+COPYRIGHT:
+----------
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of either:
+
+        a) the GNU General Public License as published by the Free
+           Software Foundation; or
+
+        b) the "Artistic License", as specified in the Perl README file.
 
-This Postgres-Perl interface is copyright 1996, 1997 Edmund Mergl. You are 
-free to use it for any purpose, commercial or noncommercial, provided 
-that if you redistribute the source code, this statement of copyright 
-remains attached.
 
 
 IF YOU HAVE PROBLEMS:
@@ -98,8 +102,15 @@ If you have compile errors like "XS_VERSION_BOOTCHECK undeclared", make a
 If this file is not present, you need to recompile and reinstall perl.
 
 
+DOCUMENTATION:
+--------------
+
+Detailed documentation can be found in Pg.pm. Use 'perldoc Pg' after 
+installation to read the documentation. 
+
+
 ---------------------------------------------------------------------------
 
-   Edmund Mergl <E.Mergl@bawue.de>                       April 29, 1997
+   Edmund Mergl <E.Mergl@bawue.de>                       June 02, 1997
 
 ---------------------------------------------------------------------------

src/interfaces/perl5/test.pl

 #-------------------------------------------------------
 #
-# $Id: test.pl,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: test.pl,v 1.2 1997/06/02 19:42:07 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -65,6 +65,7 @@ $| = 1;
 #	getisnull
 #	print
 #	notifies
+#	displayTuples
 #	printTuples
 #	lo_import
 #	lo_export

src/interfaces/perl5/test.pl.newstyle

 #-------------------------------------------------------
 #
-# $Id: test.pl.newstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: test.pl.newstyle,v 1.2 1997/06/02 19:42:11 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -68,6 +68,7 @@ $| = 1;
 #	tty
 #	getlength
 #	getisnull
+#	displayTuples
 #	printTuples
 #	lo_open
 #	lo_close

src/interfaces/perl5/test.pl.oldstyle

 #-------------------------------------------------------
 #
-# $Id: test.pl.oldstyle,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: test.pl.oldstyle,v 1.2 1997/06/02 19:42:13 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #
@@ -68,6 +68,7 @@ $| = 1;
 #	PQtty()
 #	PQgetlength()
 #	PQgetisnull()
+#	PQdisplayTuples()
 #	PQprintTuples()
 #	PQlo_open()
 #	PQlo_close()

src/interfaces/perl5/typemap

 #-------------------------------------------------------
 #
-# $Id: typemap,v 1.1.1.1 1997/04/29 19:37:10 mergl Exp $
+# $Id: typemap,v 1.2 1997/06/02 19:42:14 mergl Exp $
 #
 # Copyright (c) 1997  Edmund Mergl
 #