#!/usr/bin/perl
# Michael Tartaglia
# Basic polling program: The question was "Should Dihydrogen Monoxide be banned?"
#    The majority said yes, and little did they know that "dihydrogen monoxide"
#    is "water."
# This program displays a case, and, if the user hadn't already voted, asks for
#    an opinion. The results are saved and displayed.



use CGI ":standard";
require template;

template::startHTML("Freelance Program","Poll");

open (POLL, "<poll.txt");	# OPEN POLL FILE
flock (POLL, 1);
my @results = <POLL>;
close(POLL);

@results = check(\@results);	# SEND RESULTS TO 'CHECK' FOR CLEANING

my $whoVisited = $results[3];		# SEE WHO HAD TAKEN POLL ALREADY
my $whoIsHere = $ENV{'REMOTE_ADDR'};	# SEE WHO IS TAKING POLL NOW


# DISPLAY TITLE
print "<font size=4><b>The Dihydrogen Monoxide Crisis</b></font><BR><BR>";


# PRESENT CASE TO USER IF USER HAS NOT VOTED
if ($ENV{'QUERY_STRING'} eq "" || $whoVisited =~ /$whoIsHere/) {
 print <<EndOfHTML;
	<P ALIGN="justify">
	Thank you for taking the time to take this important poll. The 
	big companies are at it again and once again the environment 
	suffers.
	</P><P ALIGN="justify">
	The chemical responsible for the environmental harm is known as
	<i>dihydrogen monoxide</i>. Dispite the information available
	about this chemical - namely that it is potentially lethal if
	inhaled - it is still being produced, and billions of gallons 
	of the liquid form of dihydrogen monoxide are dumped into
	various lakes, streams, rivers, and oceans around the world.
	The environmental danger is very real, though it goes widely
	unreported. Every year, the number of flora with dihydrogen
	monoxide-related root rot and the number of fauna which 
	unknowingly ingest the chemical increases. There is no knowing the 
	extent of the damage, simply because there is no way to track 
	every incident. However, insurance companies are beginning to 
	cover any property damage which may result from dihydrogen monoxide
	over-production.
	</P><P ALIGN="justify">
	Those in support of dihydrogen monoxide praise its usefullness.
	Farmers use large quantities of this chemical to prevent their
	crops from drying out quickly under the sun. Despite the fact
	that the chemical is responsible for putting young children in
	serious danger (especially in summer), no deaths have been 
	reported in connection with farmers' using dihydrogen monoxide
	and peoples' eating products treated with it.
	</P>
EndOfHTML
} elsif ($whoVisited !~ /$whoIsHere/) {		# IF USER SUBMITS RESPONSE OR ALREADY VOTED
 print "<CENTER><b>Thank you for voting!</b></CENTER><BR>";
 my ($toSave);
 my $answer = param("answer");

 print "<CENTER>";
 if ($answer eq "yes") {		# IF USER SELECTS "YES," SAVE RESULT AND PRINT MESSAGE
  $results[0]++;
  print "Those corporations will be happy to hear that<BR>",
	"you oppose the production of dihydrogen monoxide,<BR>",
	"better known as <i>water</i>.<br>";
 } elsif ($answer eq "no") {		# " " " NO, SAVE RESULT, ET CETERA
  $results[1]++;
  print "It is a good thing you do not oppose the production<BR>",
	"of dihydrogen monoxide, better known to you and me<BR>",
	"as <i>aqua</i>, or <i>water</i>.<br>";
 } elsif ($answer eq "maybe") {		# " " " NO, SAVE RESULT, ET CETERA
  $results[2]++;
  print "There is no harm in being unsure. The answer to the<BR>",
	"question, <i>Should dihydrogen monoxide, or \"water,\"<BR>",
	"be halted?</i> is a tough one to decide.<br>";
 }
 print "</CENTER><BR>";

 $results[3] = $whoIsHere . " " . $whoVisited;		# ADD CURRENT VOTER TO LIST
 $toSave = "$results[0]\n$results[1]\n$results[2]\n$results[3]\n";

 open (POLL, ">poll.txt");		# SAVE ALL INFORMATION TO TEXT FILE
 flock (POLL, 2);
 print POLL $toSave;
 close (POLL);
} 



if ($whoVisited =~ /$whoIsHere/) {	# ALERT USER WHO ALREADY TOOK POLL
 print "<CENTER><i>Sorry, you have already taken this poll.<br>",
       "Thank you again for your input.</i></CENTER><BR>";

} elsif ($ENV{'QUERY_STRING'} eq "") {	# PRESENT CHOICES
 print <<EndOfHTML;
	<CENTER>
	Do you think companies should cease<br>production of dihydrogen
	monoxide?
		<FORM ACTION="poll.cgi">
		<INPUT TYPE=radio NAME="answer" VALUE="yes">Yes<br>
		<INPUT TYPE=radio NAME="answer" VALUE="no">No<br>
		<INPUT TYPE=radio NAME="answer" VALUE="maybe">Not sure<br>
		<INPUT TYPE=submit>
		</FORM>
	</CENTER>
EndOfHTML
}


# IF POLL WAS ALREADY TAKEN, PRESENT RESULTS
if ($ENV{'QUERY_STRING'} ne "" || $whoVisited =~ /$whoIsHere/) {
 print "<br><CENTER>Here are the current results:<br><i>Should ",
       "dihydrogen monoxide<br>production be stopped?</i><br>";
 my $yes = $results[0];
 my $no = $results[1];
 my $maybe = $results[2];
 my $total = int($no + $yes + $maybe);

 print "Total respondants: $total.<br>";

 my $noP = int(($no/$total)*300);	# "NO PERCENTAGE" FOR GRAPH
 my $yesP = int(($yes/$total)*300);	# "YES PERCENTAGE" FOR GRAPH
 my $maybeP = int(($maybe/$total)*300);	# "MAYBE PERCENTAGE" FOR GRAPH

 # CONSTRUCT TABLE TO DISPLAY BAR GRAPH, WHERE EACH "BAR" IS A TABLE ITSELF
 my $table = "<table class=\"noBr\">"
	   . "<tr><th>Yes</th><td>"
	   . "<table class=\"noBr\"><tr><td width=\"$yesP\" "
	   . "bgColor=#800000><font ";
 $yesP /= 3; $yesP = int($yesP);
 $table .= "color=white>$yesP%</font></td></tr></table>"
	. "</td><td>$yes votes</td></tr><tr><th>No</th><td>"
	. "<table class=\"noBr\"><tr><td width=\"$noP\" "
	. "bgColor=#800000><font ";
 $noP /= 3; $noP = int($noP);
 $table .= "color=white>$noP%</font></td></tr></table>"
	. "</td><td>$no votes</td></tr><tr><th>Don\'t Know</th><td>"
	. "<table class=\"noBr\"><tr><td width=\"$maybeP\" "
	. "bgColor=#800000><font ";
 $maybeP /= 3; $maybeP = int($maybeP);
 $table .= "color=white>$maybeP%</font></td></tr></table>"
	. "</td><td>$maybe votes</td></tr></table>";
 print "$table</CENTER>";
}

template::endHTML();


# ENSURE THAT NUMBERS PASSED AS ARRAY ARGUMENT ARE VALID AND CLEAN
sub check
{
 my @array = @{$_[0]};
 foreach (0 .. 2) {
  $array[$_] = 0 if (!defined($array[$_]));
  $array[$_] =~ s/\n// if ($array[$_] =~ /\n/);
 }
 return @array;
}