#!/usr/bin/perl
push(@INC,"/www/cgi-bin");
require 5.003;
require "cgi-lib.pl";
#-------------------------- What This Does ----------------------------
# Nothing, actually. It just acknowledges the vote, but doesn't record
# the vote or the name of the voter.
#---------------------------- Configure ----------------------------
# Nothing to configure since this form doesn't do anything interesting.
#---------------------------- Main Program ----------------------------
# The subroutine &ReadParse" (from the external utility program
# cgi-lib.pl) gets the data that was just submitted and makes it
# available to you. For instance $in{lastname} has the last name of the
#voter while $in{pres} tells who got this person's vote.
&ReadParse;
# The subroutine "&PrintHeader" (also from cgi-lib.pl) is essential
# to print output to the voter's screen.
print &PrintHeader;
print <<"end";
vote 1
To: $in{firstname} $in{lastname}:
Thank you for voting. (One more vote for "$in{"pres"}").
end