open-dsi
/
postgres
mirror of https://github.com/postgres/postgres
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

1.7.01.7.0

Browse Source
pull/50/head
Edmund Mergl 28 years ago
parent 30b9b529f3
commit 734328840c
3 changed files with 48 additions and 45 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 50
      src/interfaces/perl5/eg/ApachePg.pl
  2. 32
      src/interfaces/perl5/eg/example.newstyle
  3. 11
      src/interfaces/perl5/eg/example.oldstyle

50
src/interfaces/perl5/eg/ApachePg.pl
Unescape View File

@ -1,44 +1,48 @@
#!/usr/local/bin/perl
# demo script, tested with:
# - PostgreSQL-6.2
# - apache_1.2.4
# - mod_perl-1.00
# - perl5.004_03
# - PostgreSQL-6.3
# - apache_1.3
# - mod_perl-1.08
# - perl5.004_04
use CGI;
use Pg;
use strict;
$query = new CGI;
my $query = new CGI;
print $query->header,
$query->start_html(-title=>'A Simple Example'),
$query->startform,
"<CENTER><H3>Testing Module Pg</H3></CENTER>",
"Enter database name: ",
$query->textfield(-name=>'dbname'),
"<P>",
"Enter select command: ",
$query->textfield(-name=>'cmd', -size=>40),
"<P>",
$query->submit(-value=>'Submit'),
"<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>",
"<TR><TD>Enter conninfo string: </TD>",
"<TD>", $query->textfield(-name=>'conninfo', -size=>40, -default=>'dbname=template1 host=localhost'), "</TD>",
"</TR>",
"<TR><TD>Enter select command: </TD>",
"<TD>", $query->textfield(-name=>'cmd', -size=>40), "</TD>",
"</TR>",
"</TABLE></CENTER><P>",
"<CENTER>", $query->submit(-value=>'Submit'), "</CENTER>",
$query->endform;
if ($query->param) {
$dbname = $query->param('dbname');
$conn = Pg::connectdb("dbname = $dbname");
$cmd = $query->param('cmd');
$result = $conn->exec($cmd);
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>";
my $conninfo = $query->param('conninfo');
my $conn = Pg::connectdb($conninfo);
if ($conn->status == PGRES_CONNECTION_OK) {
my $cmd = $query->param('cmd');
my $result = $conn->exec($cmd);
print "<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>\n";
my @row;
while (@row = $result->fetchrow) {
print "<TR><TD>", join("</TD><TD>", @row), "</TD></TR>\n";
}
print "</TR>";
print "</TABLE></CENTER><P>\n";
} else {
print "<CENTER><H2>Connect to database failed</H2></CENTER>\n";
}
print "</TABLE>";
}
print $query->end_html;

32
src/interfaces/perl5/eg/example.newstyle
Unescape View File

@ -2,7 +2,7 @@
#-------------------------------------------------------
#
# $Id: example.newstyle,v 1.2 1997/09/25 21:15:02 mergl Exp $
# $Id: example.newstyle,v 1.3 1998/02/20 21:26:06 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
@ -13,7 +13,7 @@
######################### We start with some black magic to print on failure.
BEGIN { $| = 1; print "1..61\n"; }
BEGIN { $| = 1; print "1..57\n"; }
END {print "not ok 1\n" unless $loaded;}
use Pg;
$loaded = 1;
@ -23,6 +23,7 @@ print "ok 1\n";
$dbmain = 'template1';
$dbname = 'pgperltest';
$dbhost = 'localhost';
$trace = '/tmp/pgtrace.out';
$cnt = 2;
$DEBUG = 0; # set this to 1 for traces
@ -88,7 +89,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 host=$dbhost");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
# might fail if $dbname doesn't exist => don't check resultStatus
@ -97,7 +98,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 host=$dbhost");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
######################### debug, PQtrace
@ -200,17 +201,14 @@ for ($k = 0; $k < $result->nfields; $k++) {
cmp_eq($k, $fnumber);
}
for ($k = 0; $k < $result->ntuples; $k++) {
$string = "";
for ($l = 0; $l < $result->nfields; $l++) {
$string .= $result->getvalue($k, $l) . " ";
}
$i = $k + 1;
cmp_eq("$i Edmund Mergl ", $string);
$string = "";
while (@row = $result->fetchrow) {
$string = join(" ", @row);
}
cmp_eq("5 Edmund Mergl", $string);
######################### PQnotifies
# 49-51
# 44-47
if (! defined($pid = fork)) {
die "can not fork: $!";
@ -218,7 +216,7 @@ if (! defined($pid = fork)) {
# i'm the child
sleep 2;
bless $conn;
$conn = Pg::connectdb("dbname=$dbname");
$conn = Pg::connectdb("dbname=$dbname host=$dbhost");
$result = $conn->exec("NOTIFY person");
exit;
}
@ -236,7 +234,7 @@ while (1) {
cmp_eq("person", $table);
######################### PQprint
# 52-53
# 48-49
$result = $conn->exec("SELECT name FROM person WHERE id = 2");
cmp_eq(PGRES_TUPLES_OK, $result->resultStatus);
@ -246,7 +244,7 @@ $result->print(PRINT, 0, 0, 0, 0, 1, 0, " ", "", "", "myName");
close(PRINT) || die "bad PRINT: $!";
######################### PQlo_import, PQlo_export, PQlo_unlink
# 54-59
# 50-55
$filename = 'ApachePg.pl';
$cwd = `pwd`;
@ -276,9 +274,9 @@ if ($DEBUG) {
}
######################### disconnect and drop test database
# 60-61
# 56-57
$conn = Pg::connectdb("dbname=$dbmain");
$conn = Pg::connectdb("dbname=$dbmain host=$dbhost");
cmp_eq(PGRES_CONNECTION_OK, $conn->status);
$result = $conn->exec("DROP DATABASE $dbname");

11
src/interfaces/perl5/eg/example.oldstyle
Unescape View File

@ -2,7 +2,7 @@
#-------------------------------------------------------
#
# $Id: example.oldstyle,v 1.2 1997/09/25 21:15:04 mergl Exp $
# $Id: example.oldstyle,v 1.3 1998/02/20 21:26:08 mergl Exp $
#
# Copyright (c) 1997 Edmund Mergl
#
@ -23,6 +23,7 @@ print "ok 1\n";
$dbmain = 'template1';
$dbname = 'pgperltest';
$dbhost = 'localhost';
$trace = '/tmp/pgtrace.out';
$cnt = 2;
$DEBUG = 0; # set this to 1 for traces
@ -88,7 +89,7 @@ $SIG{PIPE} = sub { print "broken pipe\n" };
######################### create and connect to test database
# 2-4
$conn = PQsetdb('', '', '', '', $dbmain);
$conn = PQsetdb($dbhost, '', '', '', $dbmain);
cmp_eq(PGRES_CONNECTION_OK, PQstatus($conn));
# might fail if $dbname doesn't exist => don't check resultStatus
@ -101,7 +102,7 @@ PQclear($result);
PQfinish($conn);
$conn = PQsetdb('', '', '', '', $dbname);
$conn = PQsetdb($dbhost, '', '', '', $dbname);
cmp_eq(PGRES_CONNECTION_OK, PQstatus($conn));
######################### debug, PQtrace
@ -230,7 +231,7 @@ if (! defined($pid = fork)) {
} elsif (! $pid) {
# i'm the child
sleep 2;
$conn = PQsetdb('', '', '', '', $dbname);
$conn = PQsetdb($dbhost, '', '', '', $dbname);
$result = PQexec($conn, "NOTIFY person");
PQclear($result);
PQfinish($conn);
@ -299,7 +300,7 @@ if ($DEBUG) {
PQfinish($conn);
$conn = PQsetdb('', '', '', '', $dbmain);
$conn = PQsetdb($dbhost, '', '', '', $dbmain);
cmp_eq(PGRES_CONNECTION_OK, PQstatus($conn));
$result = PQexec($conn, "DROP DATABASE $dbname");

Write Preview
Loading…
Cancel
Save