mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2025-02-23 19:39:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Edmund Mergl 1997-09-25 21:15:04 +00:00
parent 4a98c5763e
commit c5d49902fb
10 changed files with 67 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/interfaces/perl5/Changes
View File

@ -1,7 +1,10 @@
Revision history for Perl extension Pg.
1.6.3 Sep 25 1997
- README update
1.6.2 Sep 20 1997
- adapted to PostgresqL-6.2:
- adapted to PostgreSQL-6.2:
o added support for new method cmdTuples
o cmdStatus returns now for DELETE the status
followed by the number of affected rows,

31
src/interfaces/perl5/Makefile.PL
View File

@ -1,20 +1,22 @@
#-------------------------------------------------------
#
# $Id: Makefile.PL,v 1.3 1997/09/17 20:46:20 mergl Exp $
# $Id: Makefile.PL,v 1.4 1997/09/25 21:14:41 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
#-------------------------------------------------------
use ExtUtils::MakeMaker;
use Config;
use strict;
print "\nConfiguring Pg\n";
print "Remember to actually read the README file !\n";
die "\nYou didn't read the README file !\n" unless ($] >= 5.003);
die "\nYou didn't read the README file !\n" unless ($] >= 5.002);
if (! $ENV{POSTGRES_HOME}) {
warn "\$POSTGRES_HOME not defined. Searching for PostgreSQL...\n";
foreach(qw(/usr/pgsql /usr/local/pgsql /usr/pgsql-6.1 /usr/local/pgsql-6.1)) {
foreach(qw(/usr/local/pgsql /usr/pgsql /home/pgsql /opt/pgsql /usr/local/postgres /usr/postgres /home/postgres /opt/postgres)) {
if (-d "$_/lib") {
$ENV{POSTGRES_HOME} = $_;
last;
@ -22,17 +24,22 @@ if (! $ENV{POSTGRES_HOME}) {
}
}
if ($ENV{POSTGRES_HOME}) {
print "\nFound PostgreSQL in $ENV{POSTGRES_HOME}\n";
if (-d "$ENV{POSTGRES_HOME}/lib") {
print "Found PostgreSQL in $ENV{POSTGRES_HOME}\n";
} else {
die "Unable to determine \$POSTGRES_HOME !\n";
die "Unable to determine PostgreSQL\n";
}
WriteMakefile(
'NAME' => 'Pg',
'VERSION_FROM' => 'Pg.pm',
'LIBS' => ["-L$ENV{POSTGRES_HOME}/lib -lpq"],
'INC' => "-I$ENV{POSTGRES_HOME}/include",
my %opts = (
NAME => 'Pg',
VERSION_FROM => 'Pg.pm',
INC => "-I$ENV{POSTGRES_HOME}/include",
LIBS => ["-L$ENV{POSTGRES_HOME}/lib -lpq"],
);
# EOF
WriteMakefile(%opts);
exit(0);
# end of Makefile.PL

4
src/interfaces/perl5/Pg.pm
View File

@ -1,6 +1,6 @@
#-------------------------------------------------------
#
# $Id: Pg.pm,v 1.3 1997/09/17 20:46:21 mergl Exp $
# $Id: Pg.pm,v 1.4 1997/09/25 21:14:43 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
@ -84,7 +84,7 @@ require 5.002;
PGRES_InvalidOid
);
$Pg::VERSION = '1.6.2';
$Pg::VERSION = '1.6.3';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()

2
src/interfaces/perl5/Pg.xs
View File

@ -1,6 +1,6 @@
/*-------------------------------------------------------
*
* $Id: Pg.xs,v 1.3 1997/09/17 20:46:21 mergl Exp $
* $Id: Pg.xs,v 1.4 1997/09/25 21:14:44 mergl Exp $
*
* Copyright (c) 1997 Edmund Mergl
*

19
src/interfaces/perl5/README
View File

@ -1,6 +1,6 @@
#-------------------------------------------------------
#
# $Id: README,v 1.3 1997/09/17 20:46:26 mergl Exp $
# $Id: README,v 1.4 1997/09/25 21:14:46 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
@ -9,7 +9,7 @@
DESCRIPTION:
------------
This is version 1.6.2 of pgsql_perl5 (previously called pg95perl5).
This is version 1.6.3 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
@ -85,14 +85,17 @@ Run 'make test'.
Note, that the user running this script must have been created with the access
rights to create databases *AND* users ! Do not run this script as root !
If you are using the shared library libpq.so, make sure, your dynamic loader
is able to find libpq.so. With Linux the command /sbin/ldconfig -v should tell
you, where it finds libpq.so. If not, you need to add an appropriate entry to
/etc/ld.so.conf or to the environment variable LD_LIBRARY_PATH.
If you are using the shared library libpq.so check if your dynamic loader
finds libpq.so. With Linux the command /sbin/ldconfig -v should tell you,
where it finds libpq.so. If ldconfig does not find libpq.so, either add an
appropriate entry to /etc/ld.so.conf and re-run ldconfig or add the path to
the environment variable LD_LIBRARY_PATH.
A typical error message resulting from not finding libpq.so is:
Can't load './blib/arch/auto/Pg/Pg.so' for module Pg: File not found at
Some linux distributions have an incomplete perl installation.
If you have compile errors like "XS_VERSION_BOOTCHECK undeclared", make a
'find /usr/lib/perl5 -name XSUB.h -print'
'find .../lib/perl5 -name XSUB.h -print'
If this file is not present, you need to recompile and reinstall perl.
@ -105,6 +108,6 @@ installation to read the documentation.
---------------------------------------------------------------------------
Edmund Mergl <E.Mergl@bawue.de> September 20, 1997
Edmund Mergl <E.Mergl@bawue.de> September 25, 1997
---------------------------------------------------------------------------

12
src/interfaces/perl5/eg/ApachePg.pl
View File

@ -4,7 +4,7 @@
# - PostgreSQL-6.2
# - apache_1.2.4
# - mod_perl-1.00
# - perl5.004_01
# - perl5.004_03
use CGI;
use Pg;
@ -30,7 +30,15 @@ if ($query->param) {
$conn = Pg::connectdb("dbname = $dbname");
$cmd = $query->param('cmd');
$result = $conn->exec($cmd);
$result->print(STDOUT, 0, 0, 0, 1, 0, 0, '', '', '');
print "<TABLE>";
for ($i = 0; $i < $result->ntuples; $i++) {
print "<TR>";
for ($j = 0; $j < $result->nfields; $j++) {
print "<TD>", $result->getvalue($i, $j), "</TD>";
}
print "</TR>";
}
print "</TABLE>";
}
print $query->end_html;

15
src/interfaces/perl5/eg/example.newstyle
View File

@ -1,8 +1,8 @@
#!/usr/local/bin/perl
#!/usr/local/bin/perl -w
#-------------------------------------------------------
#
# $Id: example.newstyle,v 1.1 1997/09/17 20:48:14 mergl Exp $
# $Id: example.newstyle,v 1.2 1997/09/25 21:15:02 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
@ -88,7 +88,7 @@ $SIG{PIPE} = sub { print "broken pipe\n" };
######################### create and connect to test database
# 2-4
$conn = Pg::connectdb("dbname = $dbmain");
$conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
# might fail if $dbname doesn't exist => don't check resultStatus
@ -97,7 +97,7 @@ $result = $conn->exec("DROP DATABASE $dbname");
$result = $conn->exec("CREATE DATABASE $dbname");
cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
$conn = Pg::connectdb("dbname = $dbname");
$conn = Pg::connectdb("dbname=$dbname");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
######################### debug, PQtrace
@ -141,7 +141,8 @@ for ($i = 1; $i <= 5; $i++) {
$result = $conn->exec("COPY person TO STDOUT");
cmp_eq(PGRES_COPY_OUT, $result->resultStatus);
$i = 1;
$i = 1;
$ret = 0;
while (-1 != $ret) {
$ret = $conn->getline($string, 256);
last if $string eq "\\.";
@ -217,7 +218,7 @@ if (! defined($pid = fork)) {
# i'm the child
sleep 2;
bless $conn;
$conn = Pg::connectdb("dbname = $dbname");
$conn = Pg::connectdb("dbname=$dbname");
$result = $conn->exec("NOTIFY person");
exit;
}
@ -277,7 +278,7 @@ if ($DEBUG) {
######################### disconnect and drop test database
# 60-61
$conn = Pg::connectdb("dbname = $dbmain");
$conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
$result = $conn->exec("DROP DATABASE $dbname");

7
src/interfaces/perl5/eg/example.oldstyle
View File

@ -1,8 +1,8 @@
#!/usr/local/bin/perl
#!/usr/local/bin/perl -w
#-------------------------------------------------------
#
# $Id: example.oldstyle,v 1.1 1997/09/17 20:48:15 mergl Exp $
# $Id: example.oldstyle,v 1.2 1997/09/25 21:15:04 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
@ -148,7 +148,8 @@ $result = PQexec($conn, "COPY person TO STDOUT");
cmp_eq(PGRES_COPY_OUT, PQresultStatus($result));
PQclear($result);
$i = 1;
$i = 1;
$ret = 0;
while (-1 != $ret) {
$ret = PQgetline($conn, $string, 256);
last if $string eq "\\.";

13
src/interfaces/perl5/test.pl
View File

@ -1,8 +1,8 @@
#!/usr/local/bin/perl
#!/usr/local/bin/perl -w
#-------------------------------------------------------
#
# $Id: test.pl,v 1.4 1997/09/17 20:53:35 mergl Exp $
# $Id: test.pl,v 1.5 1997/09/25 21:14:47 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
@ -88,7 +88,7 @@ $SIG{PIPE} = sub { print "broken pipe\n" };
######################### create and connect to test database
# 2-4
$conn = Pg::connectdb("dbname = $dbmain");
$conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
# might fail if $dbname doesn't exist => don't check resultStatus
@ -97,7 +97,7 @@ $result = $conn->exec("DROP DATABASE $dbname");
$result = $conn->exec("CREATE DATABASE $dbname");
cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
$conn = Pg::connectdb("dbname = $dbname");
$conn = Pg::connectdb("dbname=$dbname");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
######################### debug, PQtrace
@ -141,7 +141,8 @@ for ($i = 1; $i <= 5; $i++) {
$result = $conn->exec("COPY person TO STDOUT");
cmp_eq(PGRES_COPY_OUT, $result->resultStatus);
$i = 1;
$i = 1;
$ret = 0;
while (-1 != $ret) {
$ret = $conn->getline($string, 256);
last if $string eq "\\.";
@ -218,7 +219,7 @@ if ($DEBUG) {
######################### disconnect and drop test database
# 49-50
$conn = Pg::connectdb("dbname = $dbmain");
$conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
$result = $conn->exec("DROP DATABASE $dbname");

2
src/interfaces/perl5/typemap
View File

@ -1,6 +1,6 @@
#-------------------------------------------------------
#
# $Id: typemap,v 1.3 1997/09/17 20:46:29 mergl Exp $
# $Id: typemap,v 1.4 1997/09/25 21:14:49 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#