#!/usr/bin/perl push(@INC,"/www/cgi-bin"); require 5.003; require "cgi-lib.pl"; #-------------------------- What This Does ---------------------------- # Reject if something is missing. Still doesn't record the vote or name # of the voter. #---------------------------- Configure ---------------------------- $vote="http://www.math.upenn.edu/~kazdan/210/vote/vote2.html"; #Election Form #---------------------------- Auxiliary Stuff ---------------------------- # Next is a useful "Return to the Form" button. $header = '
Return to Voting Forms Page
'; #---------------------------- Main Program ---------------------------- &ReadParse; print &PrintHeader; # If something is missing, print an error message and return to form. # The only trick here is how to switch to a new URL after giving # 3 seconds to read the error message. The Election 2000 error $header  
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 } else { # Say Thanks. print <<"ok"; Election 2000 $header  

To:   $in{firstname} $in{lastname}

Thank you for voting. (One more vote for "$in{"pres"}"). ok } # This closes the HTML page. print <<"end";

end