1 files changed, 55 insertions, 0 deletions
diff --git a/src/interfaces/perl5/examples/ApachePg.pl b/src/interfaces/perl5/examples/ApachePg.pl
new file mode 100644
index 00000000000..9bbfad7ad0d
--- /dev/null
+++ b/src/interfaces/perl5/examples/ApachePg.pl
@@ -0,0 +1,55 @@
+#!/usr/local/bin/perl
+
+# $Id: ApachePg.pl,v 1.1 2000/06/01 03:05:24 momjian Exp $
+
+# demo script, tested with:
+#  - PostgreSQL-6.4
+#  - apache_1.3.1
+#  - mod_perl-1.15
+#  - perl5.005_02
+
+use CGI;
+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>",
+       "<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'), "</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) {
+
+    my $conninfo = $query->param('conninfo');
+    my $conn = Pg::connectdb($conninfo);
+    if (PGRES_CONNECTION_OK == $conn->status) {
+        my $cmd = $query->param('cmd');
+        my $result = $conn->exec($cmd);
+        if (PGRES_TUPLES_OK == $result->resultStatus) {
+            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>";
+            }
+            print "</TABLE></CENTER><P>\n";
+        } else {
+            print "<CENTER><H2>", $conn->errorMessage, "</H2></CENTER>\n";
+        }
+    } else {
+        print "<CENTER><H2>", $conn->errorMessage, "</H2></CENTER>\n";
+    }
+}
+
+print $query->end_html;
+