#!/usr/bin/perl -wc
# vitals1u.cgi


use CGI ":standard";
use DBI;
use strict;
use CGI::Carp qw( fatalsToBrowser );


my $dbh = DBI->connect("DBI:mysql:interchange:", 'fang', '7864221a');

#  get the posted data
  
   my $id = param('id') || ' ';
   my $lnamek = param('lnamek') || ' ';
   my $fname = param('fname') || ' ';
   my $lname = param('lname') || ' ';
   my $address = param('address') || ' ';
   my $apt = param('apt') || ' ';
   my $city = param('city') || ' ';
   my $state = param('state') || ' ';
   my $zip = param('zip') || ' ';
   my $dob = param('dob') || ' ';
   my $men = param('men') || ' ';
   my $women = param('women') || ' ';
   my $boys = param('boys') || ' ';
   my $girls = param('girls') || ' ';


   my $sth = $dbh->prepare("UPDATE vitals1 SET id = ?, lnamek = ?, fname = ?, 
     lname = ?, address = ?, apt = ?, city = ?, state = ?, zip = ?, 
     dob = ?, men = ?, women = ?, boys = ?, girls = ?");
     $sth->bind_param(1, $id);
     $sth->bind_param(2, $lnamek);
     $sth->bind_param(3, $fname);
     $sth->bind_param(4, $lname);
     $sth->bind_param(5, $address);
     $sth->bind_param(6, $apt);
 $sth->bind_param(7, $city);
     $sth->bind_param(8, $state);
     $sth->bind_param(9, $zip);
     $sth->bind_param(10, $dob);
     $sth->bind_param(11, $men);
     $sth->bind_param(12, $women);
     $sth->bind_param(13, $boys,);
     $sth->bind_param(14, $girls);
          or die "Could not prepare SQL: " . $dbh->errstr();
    $sth->execute(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14);
      or die "Could not execute SQL: " . $dbh->errstr();


$sth->finish();
$dbh->disconnect();

##</code><code>##

interchange:/panix/apache/cgi-bin # perl vitals1u.cgi ?id=1234&lnamek=glitz&fname=Gladdy&lname=Glitz&address=456+N.+astrakahn&apt=77&city=Milwaukee&state=WI&zip=53488&dob=19330501&men=1&women=2&boys=&girls=&Submit=Submit
[1] 7966
[2] 7967
[3] 7968
[4] 7969
[5] 7970
[6] 7971
[7] 7972
[8] 7973
[9] 7974
[10] 7975
[11] 7976
[12] 7977
[13] 7978
[14] 7979
[2]   Done                    lnamek=glitz
[3]   Done                    fname=Gladdy
[4]   Done                    lname=Glitz
[5]   Done                    address=456+N.+astrakahn
[6]   Done                    apt=77
[7]   Done                    city=Milwaukee
[8]   Done                    state=WI
[9]   Done                    zip=53488
[10]   Done                    dob=19330501
[11]   Done                    men=1
[12]   Done                    women=2
[13]   Done                    boys=
[14]   Done                    girls=
interchange:/panix/apache/cgi-bin # Content-type: text/html

<h1>Software error:</h1>
<pre>syntax error at vitals1u.cgi line 48, near &quot;or&quot;
vitals1u.cgi had compilation errors.