Skip to content

Commit 9e74edd

Browse files
Edmund MerglEdmund Mergl
Edmund Mergl
authored and
Edmund Mergl
committed
*** empty log message ***
1 parent b02086b commit 9e74edd

File tree

10 files changed

+131
-817
lines changed

10 files changed

+131
-817
lines changed

‎src/interfaces/perl5/ApachePg.pl

Lines changed: 0 additions & 47 deletions
This file was deleted.

‎src/interfaces/perl5/Changes

Lines changed: 44 additions & 35 deletions
Original file line numberDiff line numberDiff line change
@@ -1,20 +1,40 @@
11
Revision history for Perl extension Pg.
22

3-
1.0 Mar 24, 1995
4-
- creation
3+
1.6.2 Sep 20 1997
4+
- adapted to PostgresqL-6.2:
5+
o added support for new method cmdTuples
6+
o cmdStatus returns now for DELETE the status
7+
followed by the number of affected rows,
8+
- test.pl.newstyle renamed to eg/example.newstyle
9+
- test.pl.oldstyle renamed to eg/example.oldstyle
10+
- example script ApachePg.pl now uses
11+
$result->print with HTML option
12+
- Makefile looks for $ENV{POSTGRES_HOME} instead of
13+
$ENV{POSTGRESHOME}
514

6-
1.1 Jun 6, 1995
7-
- Bug fix in PQgetline.
15+
1.6.1 Jun 02 1997
16+
- renamed to pgsql_perl5
17+
- adapted to PostgreSQL-6.1
18+
- test only functions, which are also
19+
tested in pgsql regression tests
820

9-
1.1.1 Aug 5, 95
10-
- adapted to postgres95-beta0.03
11-
- Note: the libpq interface has changed completely !
21+
1.5.4 Feb 12, 1997
22+
- changed test.pl for large objects:
23+
test only lo_import and lo_export
1224

13-
1.2.0 Oct 15, 1995
14-
- adapted to Postgres95-1.0
15-
- README updated
16-
- doQuery() in Pg.pm now returns 0 upon success
17-
- testlibpq.pl: added test for PQgetline()
25+
1.5.3 Jan 2, 1997
26+
- adapted to PostgreSQL-6.0
27+
- new functions PQconnectdb, PQuser
28+
- changed name of method 'new' to 'setdb'
29+
30+
1.4.2 Nov 21, 1996
31+
- added a more Perl-like syntax
32+
33+
1.3.2 Nov 11, 1996
34+
- adapted to Postgres95-1.09
35+
- test.pl adapted to postgres95-1.0.9:
36+
PQputline expects now '\.' as last input
37+
and PQgetline outputs '\.' as last line.
1838

1939
1.3.1 Oct 22, 1996
2040
- adapted to Postgres95-1.08
@@ -30,29 +50,18 @@ Revision history for Perl extension Pg.
3050
- PQnotifies() works now
3151
- enhanced doQuery()
3252

33-
1.3.2 Nov 11, 1996
34-
- adapted to Postgres95-1.09
35-
- test.pl adapted to postgres95-1.0.9:
36-
PQputline expects now '\.' as last input
37-
and PQgetline outputs '\.' as last line.
38-
39-
40-
1.4.2 Nov 21, 1996
41-
- added a more Perl-like syntax
42-
43-
44-
1.5.3 Jan 2, 1997
45-
- adapted to PostgreSQL-6.0
46-
- new functions PQconnectdb, PQuser
47-
- changed name of method 'new' to 'setdb'
53+
1.2.0 Oct 15, 1995
54+
- adapted to Postgres95-1.0
55+
- README updated
56+
- doQuery() in Pg.pm now returns 0 upon success
57+
- testlibpq.pl: added test for PQgetline()
4858

59+
1.1.1 Aug 5, 95
60+
- adapted to postgres95-beta0.03
61+
- Note: the libpq interface has changed completely !
4962

50-
1.5.4 Feb 12, 1997
51-
- changed test.pl for large objects:
52-
test only lo_import and lo_export
63+
1.1 Jun 6, 1995
64+
- Bug fix in PQgetline.
5365

54-
1.6.1 Jun 02 1997
55-
- renamed to pgsql_perl5
56-
- adapted to PostgreSQL-6.1
57-
- test only functions, which are also
58-
tested in pgsql regression tests
66+
1.0 Mar 24, 1995
67+
- creation

‎src/interfaces/perl5/MANIFEST

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,11 @@
1-
ApachePg.pl
21
Changes
32
MANIFEST
43
Makefile.PL
54
Pg.pm
65
Pg.xs
76
README
7+
eg/ApachePg.pl
8+
eg/example.newstyle
9+
eg/example.oldstyle
810
test.pl
9-
test.pl.newstyle
10-
test.pl.oldstyle
1111
typemap

‎src/interfaces/perl5/Makefile.PL

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: Makefile.PL,v 1.2 1997/06/02 19:41:59 mergl Exp $
3+
# $Id: Makefile.PL,v 1.3 1997/09/17 20:46:20 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#
@@ -12,27 +12,27 @@ print "\nConfiguring Pg\n";
1212
print "Remember to actually read the README file !\n";
1313
die "\nYou didn't read the README file !\n" unless ($] >= 5.003);
1414

15-
if (! $ENV{POSTGRESHOME}) {
16-
warn "\$POSTGRESHOME not defined. Searching for Postgres...\n";
15+
if (! $ENV{POSTGRES_HOME}) {
16+
warn "\$POSTGRES_HOME not defined. Searching for PostgreSQL...\n";
1717
foreach(qw(/usr/pgsql /usr/local/pgsql /usr/pgsql-6.1 /usr/local/pgsql-6.1)) {
1818
if (-d "$_/lib") {
19-
$ENV{POSTGRESHOME} = $_;
19+
$ENV{POSTGRES_HOME} = $_;
2020
last;
2121
}
2222
}
2323
}
2424

25-
if ($ENV{POSTGRESHOME}) {
26-
print "\nFound Postgres in $ENV{POSTGRESHOME}\n";
25+
if ($ENV{POSTGRES_HOME}) {
26+
print "\nFound PostgreSQL in $ENV{POSTGRES_HOME}\n";
2727
} else {
28-
die "Unable to determine \$POSTGRESHOME !\n";
28+
die "Unable to determine \$POSTGRES_HOME !\n";
2929
}
3030

3131
WriteMakefile(
3232
'NAME' => 'Pg',
3333
'VERSION_FROM' => 'Pg.pm',
34-
'LIBS' => ["-L$ENV{POSTGRESHOME}/lib -lpq"],
35-
'INC' => "-I$ENV{POSTGRESHOME}/include",
34+
'LIBS' => ["-L$ENV{POSTGRES_HOME}/lib -lpq"],
35+
'INC' => "-I$ENV{POSTGRES_HOME}/include",
3636
);
3737

3838
# EOF

‎src/interfaces/perl5/Pg.pm

Lines changed: 21 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#-------------------------------------------------------
22
#
3-
# $Id: Pg.pm,v 1.2 1997/06/02 19:42:01 mergl Exp $
3+
# $Id: Pg.pm,v 1.3 1997/09/17 20:46:21 mergl Exp $
44
#
55
# Copyright (c) 1997 Edmund Mergl
66
#
@@ -15,7 +15,7 @@ use vars qw($VERSION @ISA @EXPORT $AUTOLOAD);
1515
require Exporter;
1616
require DynaLoader;
1717
require AutoLoader;
18-
require 5.003;
18+
require 5.002;
1919

2020
@ISA = qw(Exporter DynaLoader);
2121

@@ -50,6 +50,7 @@ require 5.003;
5050
PQfsize
5151
PQcmdStatus
5252
PQoidStatus
53+
PQcmdTuples
5354
PQgetvalue
5455
PQgetlength
5556
PQgetisnull
@@ -83,7 +84,7 @@ require 5.003;
8384
PGRES_InvalidOid
8485
);
8586

86-
$VERSION = '1.6.1';
87+
$Pg::VERSION = '1.6.2';
8788

8889
sub AUTOLOAD {
8990
# This AUTOLOAD is used to 'autoload' constants from the constant()
@@ -140,7 +141,7 @@ __END__
140141
141142
=head1 NAME
142143
143-
Pg - Perl extension for PostgreSQL
144+
Pg - Perl5 extension for PostgreSQL
144145
145146
146147
=head1 SYNOPSIS
@@ -194,7 +195,7 @@ to an object goes away.
194195
=head2 old style
195196
196197
All functions and constants are imported into the calling
197-
packages namespace. In order to to get a uniform naming,
198+
packages name-space. In order to to get a uniform naming,
198199
all functions start with 'PQ' (e.g. PQlo_open) and all
199200
constants start with 'PGRES_' (e.g. PGRES_CONNECTION_OK).
200201
@@ -245,7 +246,7 @@ fields of this structure.
245246
246247
Opens a new connection to the backend. You may use an empty string for
247248
any argument, in which case first the environment is checked and then
248-
hardcoded defaults are used. The connection identifier $conn ( a pointer
249+
hard-coded defaults are used. The connection identifier $conn ( a pointer
249250
to the PGconn structure ) must be used in subsequent commands for unique
250251
identification. Before using $conn you should call $conn->status to ensure,
251252
that the connection was properly made. Use the methods below to access
@@ -374,7 +375,7 @@ methods you can access almost all fields of this structure.
374375
375376
Use the functions below to access the contents of the PGresult structure.
376377
377-
$ntups = $result->ntuples
378+
$ntuples = $result->ntuples
378379
379380
Returns the number of tuples in the query result.
380381
@@ -430,13 +431,22 @@ command executed:
430431
431432
$cmdStatus = $result->cmdStatus
432433
433-
Returns the command status of the last query command.
434+
Returns the command status of the last query command.
435+
In case of DELETE it returns also the number of deleted tuples.
436+
In case of INSERT it returns also the OID of the inserted
437+
tuple followed by 1 (the number of affected tuples).
438+
434439
435440
$oid = $result->oidStatus
436441
437442
In case the last query was an INSERT command it returns the oid of the
438443
inserted tuple.
439444
445+
$oid = $result->cmdTuples
446+
447+
In case the last query was an INSERT or DELETE command it returns the
448+
number of affected tuples.
449+
440450
$result->printTuples($fout, $printAttName, $terseOutput, $width)
441451
442452
Kept for backward compatibility. Use print.
@@ -462,13 +472,13 @@ Frees all memory of the given result.
462472
463473
These functions provide file-oriented access to user data.
464474
The large object interface is modeled after the Unix file
465-
system interface with analogues of open, close, read, write,
475+
system interface with analogies of open, close, read, write,
466476
lseek, tell. In order to get a consistent naming, all function
467477
names have been prepended with 'PQ' (old style only).
468478
469479
$lobjId = $conn->lo_creat($mode)
470480
471-
Creates a new large object. $mode is a bitmask describing
481+
Creates a new large object. $mode is a bit-mask describing
472482
different attributes of the new object. Use the following constants:
473483
474484
- PGRES_INV_SMGRMASK
@@ -529,6 +539,6 @@ Returns -1 upon failure, 1 otherwise.
529539
530540
=head1 SEE ALSO
531541
532-
libpq(3), large_objects(3).
542+
L<libpq>, L<large_objects>
533543
534544
=cut

0 commit comments

Comments
 (0)