cgi/persons.cgi

   1 #!/usr/bin/perl -Tw
   2 # $Id: persons.cgi,v 1.5 1999-04-22 04:34:46 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 HOMEPAGE );
  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
  69   my $field;
  70   foreach $field ( @fields ) {
  71     if ( $cgi->param( $field ) ) {
  72       $cgi->param( $field ) =~ /^(.*)$/;
  73       $cgi->param( $field, $1);
  74     }
  75   }
  76   my $statement = 'INSERT INTO PERSONS ( '.
  77                   join(', ', @fields ).
  78                   ' ) VALUES ( '.
  79                   join( ', ', map { $cgi->param($_) } @fields ).
  80                   ' )'
  81   ;
  82   my $sth = $dbh->prepare($statement)
  83     or die $dbh->errstr;
  84   my $rv = $sth->execute;
  85   die $sth->errstr unless $rv;
  86
  87   print $cgi->header,
  88         "person added?"
  89   ;
  90 }
  91
  92 sub print_form {
  93   my $cgi = shift;
  94   my $action = shift;
  95   print $cgi->header,
  96         $cgi->start_html($action),
  97         $cgi->h1($action),
  98         $cgi->start_form,
  99         $cgi->hidden( -name => 'PERSON_ID' ),
 100         "Name: ", $cgi->textfield( -name => 'NAME' ), "<BR>",
 101         "Email: ", $cgi->textfield( -name => 'EMAIL' ), "<BR>",
 102         "Affiliation: ", $cgi->textfield( -name => 'AFFILIATION' ), "<BR>",
 103         "Homepage: ", $cgi->textfield( -name => 'HOMEPAGE' ), "<BR>",
 104         $cgi->hidden( -name => 'magic'),
 105         $cgi->submit('Submit'),
 106         $cgi->end_form,
 107         $cgi->end_html;
 108   ;
 109 }