#!/usr/bin/perl -w # # Floyd's RESULTS SCRIPT # use CGI qw(:cgi-lib :standard); $query = new CGI; $id=param('id'); unless ($id) {print redirect "http://allaboutfrogs.org";} print header; open (DATA, "data/polls/$id.dat") || die "Couldn't open poll\n\n"; flock DATA, 2; @data=; flock DATA, 8; close(DATA); foreach (@data) { chomp; unless ($i) { ($question, $total_votes) = split ?\|?, $_; $i++; next; } (my $words, my $votes) = split ?\|?, $_; #$$words = $votes; $Votes[$x] = $votes; $Data[$x] = $words; $x++; } my $number_of_options = @Data; print qq~

Frog Poll Results

~; foreach (@Data) { $i++; if ($i % 2 ) { $bgcolor="CCFFCC"; } else { $bgcolor="FFFFCC"; } my $precent = ($Votes[$i - 2] / $total_votes); my $percent=sprintf("%.1f", 100*$precent); my $width = 3 * $percent; print qq~ ~; } print qq~

$question
$_		$percent\%
Total Votes: $total_votes

View Previous Surveys

Got any good ideas for a future poll? Mail me!

Back to FROGLAND. ~; exit;