#!/usr/bin/perl # # Original script written by Joel Hahn, 2001. use CGI::Carp qw(fatalsToBrowser); # Get the input $buffer=$ENV{'QUERY_STRING'}; ($file, $prod) = split(/&/, $buffer); # Check for which product line was selected if ($file eq "firsted1") { $prodline="First Edition"; } elsif ($file eq "firsted2") { $prodline="First Edition"; # $part=", part 2"; } elsif ($file eq "firsted3") { $prodline="First Edition"; # $part=", part 3"; } elsif ($file eq "seced1") { $prodline="Second Edition"; # $part=", part 1"; } elsif ($file eq "seced2") { $prodline="Second Edition"; # $part=", part 2"; } elsif ($file eq "thirded") { $prodline="Third Edition"; } elsif ($file eq "alq") { $prodline="Al-Qadim"; } elsif ($file eq "birth") { $prodline="Birthright"; } elsif ($file eq "dsun") { $prodline="Dark Sun"; } elsif ($file eq "dlance") { $prodline="Dragonlance"; } elsif ($file eq "eberron") { $prodline="Eberron"; } elsif ($file eq "forg1") { $prodline="Forgotten Realms"; # $part=", part 1"; } elsif ($file eq "forg2") { $prodline="Forgotten Realms"; # $part=", part 2"; } elsif ($file eq "forg3") { $prodline="Forgotten Realms"; # $part=", part 3"; } elsif ($file eq "kara") { $prodline="Kara-Tur"; } elsif ($file eq "grey") { $prodline="Greyhawk"; } elsif ($file eq "lankh") { $prodline="Lankhmar"; } elsif ($file eq "myst") { $prodline="Mystara"; } elsif ($file eq "plane") { $prodline="Planescape"; } elsif ($file eq "rloft") { $prodline="Ravenloft"; } elsif ($file eq "sjam") { $prodline="Spelljammer"; } elsif ($file eq "dnd1") { $prodline="Dungeons & Dragons"; # $part=", part 1"; } elsif ($file eq "dnd2") { $prodline="Dungeons & Dragons"; # $part=", part 2"; } elsif ($file eq "dnd3") { $prodline="Dungeons & Dragons"; # $part=", part 3"; } elsif ($file eq "dnd4") { $prodline="Dungeons & Dragons"; # $part=", part 4"; } else { $file="firsted1"; $prodline="First edition"; # $part=", part 1"; } # Open the relevant datafile, dump all of the data into the @LINES array open(FILEDAT,"$file.dat") || die "Can't Open $file.dat: $!\n"; @LINES=; close(FILEDAT); $SIZE=@LINES; # Start printing the form page print "Content-Type: text/html\n\n"; print "Rate $prodline Products\n"; print "

Rate $prodline Products

\n"; print "

\n"; print "Note: 0 is awful, 10 is excellent. If you do not wish to vote\n"; print "for a product, either leave the buttons blank or vote\n"; print "'N/A'\n"; #print "

\n"; print "

\n"; #print "\n"; print "\n"; # Get the product name, set up the radio buttons, using the product code for # an identifier #print "

|$prod|

\n"; for ($i=0;$i<=$SIZE-1;$i++) { $_=$LINES[$i]; ($prodcode, $prodname, $votes, $rawtotal, $ratenums)= split(/\|/, $_); # print "|$prodcode|
\n"; if ($prodcode eq $prod) { if ($rawtotal==0) { $avg=0; } else { $rawavg=$rawtotal/$votes; $exp=2; $avg= sprintf("\%.${exp}f", $rawavg); } $color =""; if ($avg > 1) { $color = ""; } if ($avg > 2) { $color = ""; } if ($avg > 3) { $color = ""; } if ($avg > 4) { $color = ""; } if ($avg > 5) { $color = ""; } if ($avg > 6) { $color = ""; } if ($avg > 7) { $color = ""; } if ($avg > 8) { $color = ""; } if ($avg > 9) { $color = ""; } if ($avg >=10) { $color = ""; } print "

$prodname
\n"; print "

Rating / Votes
\n"; print "$color$avg / $votes

\n"; $_=$ratenums; ($r0, $r1, $r2, $r3, $r4, $r5, $r6, $r7, $r8, $r9, $r10)= split(/\,/, $_, 11); print "0:$r0 \;\n"; print "1:$r1 \;\n"; print "2:$r2 \;\n"; print "3:$r3 \;\n"; print "4:$r4 \;\n"; print "5:$r5 \;\n"; print "6:$r6 \;\n"; print "7:$r7 \;\n"; print "8:$r8 \;\n"; print "9:$r9 \;\n"; print "10:$r10 \n"; print "

\n"; print "N/A\n"; print "0\n"; print "1\n"; print "2\n"; print "3\n"; print "4\n"; print "5\n"; print "6\n"; print "7\n"; print "8\n"; print "9\n"; print "10\n"; } # for ($j=0;$j<=10;$j++) { # print "$j\n"; # } print "

\n"; } # Finish printing the form page print "

\n"; print "\n"; print "

\n"; print "

\n"; print "Return to the $prodline selection page.
\n"; print "Return to the product line selection page.
\n"; print "E-mail the survey maintainer.\n"; print "";