use CGI::Apache;

use Pg;

use strict;

my$query = new CGI;

print$query->header,

$query->start_html(-title=>'A Simple Example'),

$query->startform,

"<CENTER><H3>Testing Module Pg</H3></CENTER>",

"Enter the database name:",

$query->textfield(-name=>'dbname'),

"<P>",

"Enter the select command:",

$query->textfield(-name=>'cmd', -size=>40),

"<P>",

$query->submit(-value=>'Submit'),

$query->endform;

if ($query->param) {

my$dbname =$query->param('dbname');

my$conn = Pg::connectdb("dbname =$dbname");

my$cmd =$query->param('cmd');

my$result =$conn->exec($cmd);

my$i,$j;

print"<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>\n";

for ($i=0;$i <$result->ntuples;$i++) {

print"<TR>\n";

for ($j=0;$j <$result->nfields;$j++) {

print"<TD ALIGN=CENTER>",$result->getvalue($i,$j),"\n";

}

}

print"</TABLE></CENTER><P>\n";

}

print$query->end_html;

Revision history for Perl extension Pg.

1.0 Mar 24, 1995

- creation

1.1 Jun 6, 1995

- Bug fix in PQgetline.

1.1.1 Aug 5, 95

- adapted to postgres95-beta0.03

- Note: the libpq interface has changed completely !

1.2.0 Oct 15, 1995

- adapted to Postgres95-1.0

- README updated

- doQuery() in Pg.pm now returns 0 upon success

- testlibpq.pl: added test for PQgetline()

1.3.1 Oct 22, 1996

- adapted to Postgres95-1.08

- large-object interface added, thanks to

Sven Verdoolaege (skimo@breughel.ufsia.ac.be)

- PQgetline() changed. This breaks old scripts !

- PQexec now returns in any case a valid pointer.

This fixes the annoying message:

'res is not of type PGresultPtr at ...'

- testsuite completely rewritten, contains

now examples for almost all functions

- resturn codes are now available as constants (PGRES_xxx)

- PQnotifies() works now

- enhanced doQuery()

1.3.2 Nov 11, 1996

- adapted to Postgres95-1.09

- test.pl adapted to postgres95-1.0.9:

PQputline expects now '\.' as last input

and PQgetline outputs '\.' as last line.

1.4.2 Nov 21, 1996

- added a more Perl-like syntax

1.5.3 Jan 2, 1997

- adapted to PostgreSQL-6.0

- new functions PQconnectdb, PQuser

- changed name of method 'new' to 'setdb'

1.5.4 Feb 12, 1997

- changed test.pl for large objects:

test only lo_import and lo_export

1.6.0 Apr 29, 1997

- renamed to pgsql_perl5

- adapted to PostgreSQL-6.1

- test only functions, which are also

tested in pgsql regression tests

ApachePg.pl

Changes

MANIFEST

Makefile.PL

Pg.pm

Pg.xs

README

test.pl

test.pl.newstyle

test.pl.oldstyle

typemap

use ExtUtils::MakeMaker;

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);

if (!$ENV{POSTGRESHOME}) {

warn"\$POSTGRESHOME not defined. Searching for Postgres...\n";

foreach(qw(/usr/pgsql /usr/local/pgsql /usr/pgsql-6.1 /usr/local/pgsql-6.1)) {

if (-d"$_/lib") {

$ENV{POSTGRESHOME} =$_;

last;

}

}

}

if ($ENV{POSTGRESHOME}) {

print"\nFound Postgres in$ENV{POSTGRESHOME}\n";

}else {

die"Unable to determine\$POSTGRESHOME !\n";

}

WriteMakefile(

'NAME'=>'Pg',

'VERSION_FROM'=>'Pg.pm',

'LIBS'=> ["-L$ENV{POSTGRESHOME}/lib -lpq"],

'INC'=>"-I$ENV{POSTGRESHOME}/include",

);