#Volunteer.pl - Sign up sheet for Volunteers

use strict;
use DBI;
use CGI qw(:standard);

my ($dbh, $sth, $count, $query);
my @val= ();
my $data= ();
my @date=();


$dbh = DBI->connect ("DBI:mysql:host=localhost;database=<database name>",
"mnlight","<password>",
{PrintError=> 0, RaiseError=> 1});

$sth = $dbh->prepare ("select Player from Roster order by Player");
$sth->execute ();

while (my @player = $sth->fetchrow_array ())
{

print $query->header('MNLIGHTNING Login Form');
print $query->start_html(-title => 'Password');
print $query->start_multipart_form('POST','/cgi-bin/Password.pl'),
print $query->scrolling_list(
        -name =>'Player',
        -value =>\@player,
        -size =>'20');