database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-09 18:21:05 +03:00
Code

*** 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. Revision history for Perl extension Pg.
1.6.3 Sep 25 1997
- README update
1.6.2 Sep 20 1997 1.6.2 Sep 20 1997
- adapted to PostgresqL-6.2: - adapted to PostgreSQL-6.2:
o added support for new method cmdTuples o added support for new method cmdTuples
o cmdStatus returns now for DELETE the status o cmdStatus returns now for DELETE the status
followed by the number of affected rows, 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 # Copyright (c) 1997 Edmund Mergl
# #
#------------------------------------------------------- #-------------------------------------------------------
use ExtUtils::MakeMaker; use ExtUtils::MakeMaker;
use Config;
use strict;
print "\nConfiguring Pg\n"; print "\nConfiguring Pg\n";
print "Remember to actually read the README file !\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}) { if (! $ENV{POSTGRES_HOME}) {
warn "\$POSTGRES_HOME not defined. Searching for PostgreSQL...\n"; 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") { if (-d "$_/lib") {
$ENV{POSTGRES_HOME} = $_; $ENV{POSTGRES_HOME} = $_;
last; last;
@ -22,17 +24,22 @@ if (! $ENV{POSTGRES_HOME}) {
} }
} }
if ($ENV{POSTGRES_HOME}) { if (-d "$ENV{POSTGRES_HOME}/lib") {
print "\nFound PostgreSQL in $ENV{POSTGRES_HOME}\n"; print "Found PostgreSQL in $ENV{POSTGRES_HOME}\n";
} else { } else {
die "Unable to determine \$POSTGRES_HOME !\n"; die "Unable to determine PostgreSQL\n";
} }
WriteMakefile( my %opts = (
'NAME' => 'Pg', NAME => 'Pg',
'VERSION_FROM' => 'Pg.pm', VERSION_FROM => 'Pg.pm',
'LIBS' => ["-L$ENV{POSTGRES_HOME}/lib -lpq"], INC => "-I$ENV{POSTGRES_HOME}/include",
'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 # Copyright (c) 1997 Edmund Mergl
# #
@ -84,7 +84,7 @@ require 5.002;
PGRES_InvalidOid PGRES_InvalidOid
); );
$Pg::VERSION = '1.6.2'; $Pg::VERSION = '1.6.3';
sub AUTOLOAD { sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant() # 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 * 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 # Copyright (c) 1997 Edmund Mergl
# #
@ -9,7 +9,7 @@
DESCRIPTION: 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 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 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 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 ! 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 If you are using the shared library libpq.so check if your dynamic loader
is able to find libpq.so. With Linux the command /sbin/ldconfig -v should tell finds libpq.so. With Linux the command /sbin/ldconfig -v should tell you,
you, where it finds libpq.so. If not, you need to add an appropriate entry to where it finds libpq.so. If ldconfig does not find libpq.so, either add an
/etc/ld.so.conf or to the environment variable LD_LIBRARY_PATH. 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. Some linux distributions have an incomplete perl installation.
If you have compile errors like "XS_VERSION_BOOTCHECK undeclared", make a 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. 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 # - PostgreSQL-6.2
# - apache_1.2.4 # - apache_1.2.4
# - mod_perl-1.00 # - mod_perl-1.00
# - perl5.004_01 # - perl5.004_03
use CGI; use CGI;
use Pg; use Pg;
@ -30,7 +30,15 @@ if ($query->param) {
$conn = Pg::connectdb("dbname = $dbname"); $conn = Pg::connectdb("dbname = $dbname");
$cmd = $query->param('cmd'); $cmd = $query->param('cmd');
$result = $conn->exec($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; 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 # Copyright (c) 1997 Edmund Mergl
# #
@ -88,7 +88,7 @@ $SIG{PIPE} = sub { print "broken pipe\n" };
######################### create and connect to test database ######################### create and connect to test database
# 2-4 # 2-4
$conn = Pg::connectdb("dbname = $dbmain"); $conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status); cmp_eq(PGRES_CONNECTION_OK, $conn->status);
# might fail if $dbname doesn't exist => don't check resultStatus # 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"); $result = $conn->exec("CREATE DATABASE $dbname");
cmp_eq(PGRES_COMMAND_OK, $result->resultStatus); cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
$conn = Pg::connectdb("dbname = $dbname"); $conn = Pg::connectdb("dbname=$dbname");
cmp_eq(PGRES_CONNECTION_OK, $conn->status); cmp_eq(PGRES_CONNECTION_OK, $conn->status);
######################### debug, PQtrace ######################### debug, PQtrace
@ -141,7 +141,8 @@ for ($i = 1; $i <= 5; $i++) {
$result = $conn->exec("COPY person TO STDOUT"); $result = $conn->exec("COPY person TO STDOUT");
cmp_eq(PGRES_COPY_OUT, $result->resultStatus); cmp_eq(PGRES_COPY_OUT, $result->resultStatus);
$i = 1; $i = 1;
$ret = 0;
while (-1 != $ret) { while (-1 != $ret) {
$ret = $conn->getline($string, 256); $ret = $conn->getline($string, 256);
last if $string eq "\\."; last if $string eq "\\.";
@ -217,7 +218,7 @@ if (! defined($pid = fork)) {
# i'm the child # i'm the child
sleep 2; sleep 2;
bless $conn; bless $conn;
$conn = Pg::connectdb("dbname = $dbname"); $conn = Pg::connectdb("dbname=$dbname");
$result = $conn->exec("NOTIFY person"); $result = $conn->exec("NOTIFY person");
exit; exit;
} }
@ -277,7 +278,7 @@ if ($DEBUG) {
######################### disconnect and drop test database ######################### disconnect and drop test database
# 60-61 # 60-61
$conn = Pg::connectdb("dbname = $dbmain"); $conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status); cmp_eq(PGRES_CONNECTION_OK, $conn->status);
$result = $conn->exec("DROP DATABASE $dbname"); $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 # Copyright (c) 1997 Edmund Mergl
# #
@ -148,7 +148,8 @@ $result = PQexec($conn, "COPY person TO STDOUT");
cmp_eq(PGRES_COPY_OUT, PQresultStatus($result)); cmp_eq(PGRES_COPY_OUT, PQresultStatus($result));
PQclear($result); PQclear($result);
$i = 1; $i = 1;
$ret = 0;
while (-1 != $ret) { while (-1 != $ret) {
$ret = PQgetline($conn, $string, 256); $ret = PQgetline($conn, $string, 256);
last if $string eq "\\."; 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 # Copyright (c) 1997 Edmund Mergl
# #
@ -88,7 +88,7 @@ $SIG{PIPE} = sub { print "broken pipe\n" };
######################### create and connect to test database ######################### create and connect to test database
# 2-4 # 2-4
$conn = Pg::connectdb("dbname = $dbmain"); $conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status); cmp_eq(PGRES_CONNECTION_OK, $conn->status);
# might fail if $dbname doesn't exist => don't check resultStatus # 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"); $result = $conn->exec("CREATE DATABASE $dbname");
cmp_eq(PGRES_COMMAND_OK, $result->resultStatus); cmp_eq(PGRES_COMMAND_OK, $result->resultStatus);
$conn = Pg::connectdb("dbname = $dbname"); $conn = Pg::connectdb("dbname=$dbname");
cmp_eq(PGRES_CONNECTION_OK, $conn->status); cmp_eq(PGRES_CONNECTION_OK, $conn->status);
######################### debug, PQtrace ######################### debug, PQtrace
@ -141,7 +141,8 @@ for ($i = 1; $i <= 5; $i++) {
$result = $conn->exec("COPY person TO STDOUT"); $result = $conn->exec("COPY person TO STDOUT");
cmp_eq(PGRES_COPY_OUT, $result->resultStatus); cmp_eq(PGRES_COPY_OUT, $result->resultStatus);
$i = 1; $i = 1;
$ret = 0;
while (-1 != $ret) { while (-1 != $ret) {
$ret = $conn->getline($string, 256); $ret = $conn->getline($string, 256);
last if $string eq "\\."; last if $string eq "\\.";
@ -218,7 +219,7 @@ if ($DEBUG) {
######################### disconnect and drop test database ######################### disconnect and drop test database
# 49-50 # 49-50
$conn = Pg::connectdb("dbname = $dbmain"); $conn = Pg::connectdb("dbname=$dbmain");
cmp_eq(PGRES_CONNECTION_OK, $conn->status); cmp_eq(PGRES_CONNECTION_OK, $conn->status);
$result = $conn->exec("DROP DATABASE $dbname"); $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 # Copyright (c) 1997 Edmund Mergl
# #