#!/usr/bin/perl # # Original script written by Joel Hahn, 1997; modified 1998, 1999. # Get the input $buffer=$ENV{'QUERY_STRING'}; $file=$buffer; # Check for which product line was selected if ($file eq "jg") { $part=", part 1"; } elsif ($file eq "jg2") { $part=", part 2"; } else { $file="jg"; $part=", part 1"; } # Open the 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 Judges Guild Products$part\n"; print "\n"; print "

Rate Judges Guild Products$part

\n"; print "

\n"; print "Below is a list of the known products Judges Guild published that were\n"; print "compatible with TSR's AD&D game. Please rate the products you are\n"; print "familiar with from 0 (awful) to 10 (superb). If you do not wish to\n"; print "vote for a particular product, either leave those buttons blank or\n"; print "vote 'N/A'\n"; print "

Notes: This is not an official Judges Guild survey.\n"; print "AD&D is a trademark of TSR. The maintainer of this page is not\n"; print "affiliated with TSR nor the current owner of the Judges Guild\n"; print "in any way.
\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 "If you're not interested in voting at this time, you can:
\n"; print "Return to the main ratings page.
\n"; print "View part 1 of the ratings.
\n"; print "View part 2 of the ratings.\n"; print "";