#!/usr/bin/perl # # Original script written by Joel Hahn, 1997; modified 1998, 1999, 2000. #use CGI::Carp qw(fatalsToBrowser); # Get the input $buffer=$ENV{'QUERY_STRING'}; $file=$buffer; # Check for which product line was selected if ($file eq "firsted1") { $prodline="First Edition"; $part=", part 1"; } 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\n"; print "

Rate $prodline$part

\n"; print "

\n"; print "Note: 0 is awful, 10 is excellent. If you do not wish to vote\n"; print "for a particular product, either leave those 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 for ($i=0;$i<=$SIZE-1;$i++) { $_=$LINES[$i]; ($prodcode, $prodname, $rest)= split(/\|/, $_, 3); print "
$prodname
\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 rating index page.
\n"; print "View the ratings.\n"; print "";