#!/usr/local/bin/perl
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
# Load the FORM variables
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}
print "Content-type: text/html\n\n";
if(-e "poll.dat")
{
open(POLL, "poll.dat");
}
while(<POLL>)
{
push(@poll, $_);
}
close(POLL);
@lines = ("1");
foreach $each_line (@lines)
{
$this_line = "line" . $each_line;
$$this_line = $poll[$each_line-1];
chop($$this_line);
}
if($line1 eq " ")
{
$line1 = "0\t0\t0";
}
@line1_answers = split(/\t/, $line1);
if($FORM{'QUESTION'} eq "yes")
{
$line1_answers[0]++;
}
elsif($FORM{'QUESTION'} eq "no")
{
$line1_answers[1]++;
}
elsif($FORM{'QUESTION'} eq "maybe")
{
$line1_answers[2]++;
}
open(POLL, ">poll.dat");
print POLL "$line1_answers[0]\t$line1_answers[1]\t$line1_answers[2]\n";
close(POLL);
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>POLL RESULTS</TITLE>\n";
print "</HEAD>\n";
print "<BODY BGCOLOR=FFFFCC>\n";
print "<CENTER><H2>Poll Results</H2></CENTER>\n";
print "<h3>Would You Go To The North Poll?</h3><BR>\n";
print "<TABLE BORDER=1 cellpadding=5 cellspacing=1>";
print "<TR>";
print "<TD><b>Answer</b></TD><TD><b>Number</b></TD><TD><b>Percentage</b></TD><TD><b>Visual</b></TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "Yes: ";
print "</TD>";
print "<TD>";
print $line1_answers[0];
print "</TD>";
print "<TD>";
print $line1_answers[0] / ($line1_answers[0] + $line1_answers[1] + $line1_answers[2])*100;
print "%";
print "</TD>";
print "<TD>";
print "<IMG SRC=/pollred.gif height=7 width=";
print $line1_answers[0] / ($line1_answers[0] + $line1_answers[1] + $line1_answers[2])*100;
print " ALT=Yes answers>";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "No: ";
print "</TD>";
print "<TD>";
print $line1_answers[1];
print "</TD>";
print "<TD>";
print $line1_answers[1] / ($line1_answers[0] + $line1_answers[1] + $line1_answers[2])*100;
print "%";
print "</TD>";
print "<TD>";
print "<IMG SRC=/pollblue.gif height=7 width=";
print $line1_answers[1] / ($line1_answers[0] + $line1_answers[1] + $line1_answers[2])*100;
print " ALT=No answers>";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD>";
print "Maybe: ";
print "</TD>";
print "<TD>";
print $line1_answers[2];
print "</TD>";
print "<TD>";
print $line1_answers[2] / ($line1_answers[0] + $line1_answers[1] + $line1_answers[2])*100;
print "%";
print "</TD>";
print "<TD>";
print "<IMG SRC=/pollgreen.gif height=7 width=";
print $line1_answers[2] / ($line1_answers[0] + $line1_answers[1] + $line1_answers[2])*100;
print " ALT=Maybe answers>";
print "</TD>";
print "</TR>";
print "<TR>";
print "<TD colspan=4>";
print "Total Number of Answers: ";
print $line1_answers[0] + $line1_answers[1] + $line1_answers[2];
print "</TD>";
print "</TR>";
print "</TABLE>";
print "<P>This poll script copyright 1999, Joe Burns, Ph.D.";
print "</BODY>\n";
print "</HTML>\n";