1 files changed, 47 insertions, 0 deletions
diff --git a/src/interfaces/perl5/ApachePg.pl b/src/interfaces/perl5/ApachePg.pl
new file mode 100644
index 0000000000..53bd6b8916
--- /dev/null
+++ b/src/interfaces/perl5/ApachePg.pl
@@ -0,0 +1,47 @@
+#!/usr/local/bin/perl
+
+# demo script, has been tested with:
+#  - Postgres-6.1
+#  - apache_1.2b8
+#  - mod_perl-0.97
+#  - perl5.003_93
+
+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;
+