install/5.005/DBD-Pg-1.22-fixvercmp/eg/ApacheDBI.pl

   1 #!/usr/local/bin/perl
   2
   3 # $Id: ApacheDBI.pl,v 1.1 2004-04-29 09:21:28 ivan Exp $
   4
   5 # don't forget to create in postgres the user who is running
   6 # the httpd, eg 'createuser nobody' !
   7 #
   8 # demo script, tested with:
   9 #  - PostgreSQL-7.1.1
  10 #  - apache_1.3.12
  11 #  - mod_perl-1.23
  12 #  - perl5.6.0
  13 #  - DBI-1.14
  14
  15 use CGI;
  16 use DBI;
  17 use strict;
  18
  19 my $query = new CGI;
  20
  21 print  $query->header,
  22        $query->start_html(-title=>'A Simple Example'),
  23        $query->startform,
  24        "<CENTER><H3>Testing Module DBI</H3></CENTER>",
  25        "<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>",
  26        "<TR><TD>Enter the data source: </TD>",
  27            "<TD>", $query->textfield(-name=>'data_source', -size=>40, -default=>'dbi:Pg:dbname=template1'), "</TD>",
  28        "</TR>",
  29        "<TR><TD>Enter the user name: </TD>",
  30            "<TD>", $query->textfield(-name=>'username'), "</TD>",
  31        "</TR>",
  32        "<TR><TD>Enter the password: </TD>",
  33            "<TD>", $query->textfield(-name=>'auth'), "</TD>",
  34        "</TR>",
  35        "<TR><TD>Enter the select command: </TD>",
  36            "<TD>", $query->textfield(-name=>'cmd', -size=>40), "</TD>",
  37        "</TR>",
  38        "</TABLE></CENTER><P>",
  39        "<CENTER>", $query->submit(-value=>'Submit'), "</CENTER>",
  40        $query->endform;
  41
  42 if ($query->param) {
  43
  44     my $data_source = $query->param('data_source');
  45     my $username    = $query->param('username');
  46     my $auth        = $query->param('auth');
  47     my $cmd         = $query->param('cmd');
  48     my $dbh         = DBI->connect($data_source, $username, $auth);
  49     if ($dbh) {
  50         my $sth = $dbh->prepare($cmd);
  51         my $ret = $sth->execute;
  52         if ($ret) {
  53             my($i, $ary_ref);
  54             print "<P><CENTER><TABLE CELLPADDING=4 CELLSPACING=2 BORDER=1>\n";
  55             while ($ary_ref = $sth->fetchrow_arrayref) {
  56                 print "<TR><TD>", join("</TD><TD>", @$ary_ref), "</TD></TR>\n";
  57             }
  58             print "</TABLE></CENTER><P>\n";
  59             $sth->finish;
  60         } else {
  61             print "<CENTER><H2>", $DBI::errstr, "</H2></CENTER>\n";
  62         }
  63         $dbh->disconnect;
  64     } else {
  65         print "<CENTER><H2>", $DBI::errstr, "</H2></CENTER>\n";
  66     }
  67 }
  68
  69 print $query->end_html;
  70