perl5 interface moved to gborg

1 files changed, 0 insertions, 55 deletions

diff --git a/src/interfaces/perl5/examples/ApachePg.pl b/src/interfaces/perl5/examples/ApachePg.pl
deleted file mode 100644
index c357cfab6ac..00000000000
--- a/src/interfaces/perl5/examples/ApachePg.pl
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: ApachePg.pl,v 1.2 2001/09/04 11:41:04 petere 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;
-