#!/usr/bin/perl -w #Volunteer.pl - Sign up sheet for Volunteers use strict; use DBI; use CGI qw(:standard); use CGI::Pretty; use CGI::Cookie; my $query = CGI::Pretty->new; #my $query = CGI::new; my ($dbh, $sth); my @val= (); my $user = $query->remote_user(); $dbh = DBI->connect ("DBI:mysql:host=localhost;database=", "mnlight","", {PrintError=> 0, RaiseError=> 1}); $sth = $dbh->prepare ("SELECT * FROM Volunteer where Volunteer = 'TBD'"); $sth->execute (); print header(), start_html ("Volunteer SignUp Form"); print ""; print "

"; print "

"; print ""; print ""; print ""; print ""; print "
MN LIGHTNING 90 SignUp Sheet

To sign up for a time simply select the botton indicating if you are the players Mothe r or Father.
Then click the TBD link in the Volunteer column and your name will appear on the verification form.
"; print $query->start_form('POST','./Signup.pl'); print $query->radio_group( -name =>'Parent', -value =>["Father", "Mother"], -default=>["NO DEFAULT"], -linebreak=>'true', -columnheader=>'Parent'); print $query->end_form(); while (my @val = $sth->fetchrow_array ()) { print ""; print ""; print ""; # Signup2.pl still needs work... print "$val[0]"; print ""; print "$val[1]"; print ""; print "$val[2]"; print ""; print "$val[3]"; print ""; }