cgi/persons.cgi

   1 #!/usr/bin/perl -Tw
   2 # $Id: persons.cgi,v 1.3 1999-04-22 04:27:47 ivan Exp $
   3 # Copyright (c) 1999 Ivan Kohler.  All rights reserved.
   4 # This program is free software; you can redistribute it and/or modify it under
   5 # the same terms as perl itself
   6
   7 use strict;
   8 use vars qw ( $data_source $user $password $table @fields
   9               $cgi $dbh
  10             );
  11 use subs qw( print_form );
  12 use CGI;
  13 use CGI::Carp qw(fatalsToBrowser);
  14 use DBI;
  15
  16 $data_source = "DBI:mysql:technostate";
  17 $user = "agent";
  18 $password = "t3chno";
  19
  20 $table = "PERSONS";
  21 @fields = qw( PERSON_ID NAME EMAIL AFFILIATION );
  22
  23 $cgi = new CGI;
  24
  25 $dbh = DBI->connect( $data_source, $user, $password )
  26   or die "Cannot connect: ". $DBI::errstr;
  27
  28 unless ( $cgi->param('magic') ) { #first time through
  29
  30   my $sth = $dbh->do( "SELECT * FROM PERSONS" ) or die $dbh->errstr;
  31
  32   print $cgi->header,
  33         $cgi->start_html('Person listing'),
  34         $cgi->h1('Person listing'),
  35   ;
  36
  37   unless ( $sth eq '0E0' ) {
  38
  39     print $cgi->start_table,
  40           $cgi->tr(
  41             map {
  42               $cgi->th($_)
  43             } @{$sth->{NAME}}
  44           ),
  45           map {
  46             $cgi->tr(
  47               map {
  48                 $cgi->td( $_ )
  49               } @{ $_ }
  50             )
  51           } @{ $sth->fetchall_arrayref },
  52           $cgi->end_table,
  53     ;
  54   }
  55
  56   $cgi->param('magic', 'new_form');
  57   print '<P><A HREF="', $cgi->self_url, '">Add new person</A>';
  58   print $cgi->end_html;
  59
  60   exit;
  61
  62 } elsif ( $cgi->param('magic') eq 'new_form' ) {
  63   $cgi->param('PERSON_ID', 0);
  64   $cgi->param('magic', 'process_form');
  65   &print_form( $cgi, "Add person" );
  66   exit;
  67 } elsif ( $cgi->param('magic') eq 'process_form' ) {
  68   foreach $field ( @fields ) {
  69     if $cgi->param( $field )
  70
  71   my $statement = 'INSERT INTO PERSONS ( ',
  72                   join(', ', @fields ),
  73                   ' ) VALUES ( ',
  74                   join( ', ', map { $cgi->param($_) } @fields ),
  75                   ' )'
  76   ;
  77   my $sth = $dbh->prepare($statement)
  78     or die $dbh->errstr;
  79   my $rv = $sth->execute;
  80   die $sth->errstr unless $rv;
  81
  82   print $cgi->header,
  83         "person added?"
  84   ;
  85 }
  86
  87 sub print_form {
  88   my $cgi = shift;
  89   my $action = shift;
  90   print $cgi->header,
  91         $cgi->start_html($action),
  92         $cgi->h1($action),
  93         $cgi->start_form,
  94         $cgi->hidden( -name => 'PERSON_ID' ),
  95         "Name: ", $cgi->textfield( -name => 'NAME' ), "<BR>",
  96         "Email: ", $cgi->textfield( -name => 'EMAIL' ), "<BR>",
  97         "Affiliation: ", $cgi->textfield( -name => 'AFFILIATION' ), "<BR>",
  98         $cgi->hidden( -name => 'magic'),
  99         $cgi->submit('Submit'),
 100         $cgi->end_form,
 101         $cgi->end_html;
 102   ;
 103 }