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.
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 RecordVote {
# Record how this person voted
$tally{$in{pres}}++; # Increment the tally
$newvotes = ""; # Initialize the string
foreach $candidate (@candidates) {
$newvotes = "$newvotes$tally{$candidate},";
}
`echo "$newvotes" > $votefile`;
# Record that this person has voted
# We could use the Unix "echo" command:
# `echo "$in{lastname},$in{firstname}" >> $voted`;
# Instead we use only internal perl commands:
open(VOTED, ">>$voted") || die "Can't open $voted\n";
print VOTED "$in{lastname},$in{firstname}\n";
close(VOTED);
} # end RecordVote
#---------------------------------------------------------------
sub Thanks {
# Say thanks and give voting summary
print <Election 2000
$header
To: $in{firstname} $in{lastname}
Thank you for voting. (One more vote for "$in{pres}").
Here is the latest tally:
ok
# Print the latest vote tally.
foreach $candidate (@candidates) {
print "| $candidate | $tally{$candidate}";
}
print " |
";
} # end Thanks
#---------------------------------------------------------------
sub ClosePage {
# This closes the HTML page.
print <
end
} # end ClosePage
#---------------------------------------------------------------