#!/usr/bin/perl -w
#Volunteer.pl - Insert Volunteers into database

use strict;
use DBI;
use CGI;
my $query = CGI::new();
my ($dbh, $sth, $sql, $name, $date, $sub_parent, $col);
my @volunteer_date  = $query->param("Volunteer");
my $parent = $query->param("Parent");
#my $user = $query->REMOTE_USER();
my $user = $ENV{"REMOTE_USER"};
#my $user = "<Player Name>";
#my $name = undef;
#my $parent = "Father";
#my @volunteer_date = ("2002-01-18");

print $query->header(),
      $query->start_html (-title=>'Volunteer List Form',
                          -link=>'#FFFFFF',
                          -vlink=>'99FF99',
                          -alink=>'black',
                          -style=>{'-src'=>'/CSS/stylesheet.css'});