To vote, you must include your First and Last names as well
as your Vote.
In a few seconds your Election Ballot will be returned.
error
} # end missing
#---------------------------------------------------------------
sub AlreadyVoted {
# Did they already vote? We check.
# Open the file listing those who already voted; die & warn if can't open.
open(VOTED, "$voted") || die "Can't open $voted\n";
# Look through the list line by line to locate this voter.
$alreadyvoted = "no";
while () {# This reads VOTED one line at a time until the end.
if ($_ eq "$in{lastname},$in{firstname}\n") { # if this person is found
print "Our lists show you have already voted. Only one vote per
person is allowed.\n";
$alreadyvoted = "yes";
last # Stop searching if the person is found.
close(VOTED);
}
}
} # end AlreadyVoted
#---------------------------------------------------------------
sub RecordWhoVoted {
`echo "$in{lastname},$in{firstname}" >> $voted`;
} # end RecordWhoVoted
#---------------------------------------------------------------
sub Thanks {
print <Election 2000
$header
To: $in{firstname} $in{lastname}
Thank you for voting. (One more vote for "$in{pres}").
ok
} # end Thanks
#---------------------------------------------------------------
sub ClosePage {
# This closes the HTML page.
print <
end
} # end ClosePage
#---------------------------------------------------------------