diff --git a/src/interfaces/perl5/ApachePg.pl b/src/interfaces/perl5/ApachePg.pl index 53bd6b8916..670fbbecb6 100644 --- a/src/interfaces/perl5/ApachePg.pl +++ b/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; diff --git a/src/interfaces/perl5/Changes b/src/interfaces/perl5/Changes index 60d6709bf1..cc8ff1a5f1 100644 --- a/src/interfaces/perl5/Changes +++ b/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 diff --git a/src/interfaces/perl5/Makefile.PL b/src/interfaces/perl5/Makefile.PL index afd3473496..7c4579df8e 100644 --- a/src/interfaces/perl5/Makefile.PL +++ b/src/interfaces/perl5/Makefile.PL @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $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 # diff --git a/src/interfaces/perl5/Pg.pm b/src/interfaces/perl5/Pg.pm index adff08d53e..ab7dcd789f 100644 --- a/src/interfaces/perl5/Pg.pm +++ b/src/interfaces/perl5/Pg.pm @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $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() diff --git a/src/interfaces/perl5/Pg.xs b/src/interfaces/perl5/Pg.xs index 8cffb5afd6..771c81db7a 100644 --- a/src/interfaces/perl5/Pg.xs +++ b/src/interfaces/perl5/Pg.xs @@ -1,6 +1,6 @@ /*------------------------------------------------------- * - * $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 diff --git a/src/interfaces/perl5/README b/src/interfaces/perl5/README index 869aeeff0e..25b79dbb45 100644 --- a/src/interfaces/perl5/README +++ b/src/interfaces/perl5/README @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $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 April 29, 1997 + +--------------------------------------------------------------------------- + + Edmund Mergl June 02, 1997 --------------------------------------------------------------------------- diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl index 3d5b513e9f..9588369db3 100644 --- a/src/interfaces/perl5/test.pl +++ b/src/interfaces/perl5/test.pl @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $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 diff --git a/src/interfaces/perl5/test.pl.newstyle b/src/interfaces/perl5/test.pl.newstyle index 5d6a1e3d3c..40c5ab355b 100644 --- a/src/interfaces/perl5/test.pl.newstyle +++ b/src/interfaces/perl5/test.pl.newstyle @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $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 diff --git a/src/interfaces/perl5/test.pl.oldstyle b/src/interfaces/perl5/test.pl.oldstyle index 408c2b66c6..ad19b15c2f 100644 --- a/src/interfaces/perl5/test.pl.oldstyle +++ b/src/interfaces/perl5/test.pl.oldstyle @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $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() diff --git a/src/interfaces/perl5/typemap b/src/interfaces/perl5/typemap index a57abcfabb..1083ed9ad6 100644 --- a/src/interfaces/perl5/typemap +++ b/src/interfaces/perl5/typemap @@ -1,6 +1,6 @@ #------------------------------------------------------- # -# $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 #