#Volunteer.pl - Sign up sheet for Volunteers

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

my $query = new CGI;
#my $query = CGI::new;
my ($dbh, $sth, $query);
my @player = ();

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

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

while (my @row = $sth->fetchrow_array ())
{
    push @player, $row[0];

    print $query=>header();

    print $query->start_html(-title=>'Password');.

    print $query->start_form('POST','/cgi-bin/Password.pl'),

    print $query->scrolling_list(
                              -name =>'Player',
                              -value =>[@player],
                              -size =>'20');

}
print "<p>";
print $query->password_field(-name => 'Password',
                             -size => 8,
                             -override => 1,);
print end_form,