1 files changed, 0 insertions, 47 deletions
diff --git a/src/interfaces/perl5/ApachePg.pl b/src/interfaces/perl5/ApachePg.pl
deleted file mode 100644
index 670fbbecb62..00000000000
--- a/src/interfaces/perl5/ApachePg.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/local/bin/perl
-
-# demo script, has been tested with:
-#  - Postgres-6.1
-#  - apache_1.2
-#  - mod_perl-1.0
-#  - perl5.004
-
-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>",
-       "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;
-