#!/usr/bin/perl # # Original script written by Joel Hahn, 1997; modified 1998, 2001, 2002 #use CGI::Carp qw(fatalsToBrowser); # Get the input #read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); $buffer=$ENV{'QUERY_STRING'}; $file=$buffer; # Check which product line was chosen 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 "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 "alq") { $prodline="Al-Qadim"; } 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"; } ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat("$file.dat"); ($sec,$min,$hour,$modmday,$modmon,$modyear,$wday,$yday,$isdst) = localtime($mtime); $modmon=$modmon+1; if (length($modyear)==3) { $modyear=substr($modyear,1,2) } # Open the relevant data file, dump all 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 output to the screen print "Content-Type: text/html\n\n"; print "$prodline Ratings\n"; print "\n"; print "

$prodline Ratings$part

\n"; print "Most recent vote cast: $modmon/$modmday/$modyear\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; # Manipulate the data, crunch the numbers, output the results for ($i=0;$i<=$SIZE-1;$i++) { $_=$LINES[$i]; ($prodcode, $prodname, $votes, $rate, $ratenums)= split(/\|/, $_, 5); if ($rate==0) { $avg=0; } else { $rawavg=$rate/$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 "\n"; } # Finish up the results page print "

Rating / Votes	Product Name
$color$avg / $votes	$prodname \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 "

Rate these products\n"; print "

\n"; # Set up links to other sections, for those with multiple parts if ($file eq "firsted1") { print "View $prodline ratings, part 2
\n"; print "View $prodline ratings, part 3
\n"; } elsif ($file eq "firsted2") { print "View $prodline ratings, part 1
\n"; print "View $prodline ratings, part 3
\n"; } elsif ($file eq "firsted3") { print "View $prodline ratings, part 1
\n"; print "View $prodline ratings, part 2
\n"; } elsif ($file eq "seced1") { print "View $prodline ratings, part 2
\n"; } elsif ($file eq "seced2") { print "View $prodline ratings, part 1
\n"; } #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") { print "View $prodline ratings, part 2
\n"; print "View $prodline ratings, part 3
\n"; } elsif ($file eq "forg2") { print "View $prodline ratings, part 1
\n"; print "View $prodline ratings, part 3
\n"; } elsif ($file eq "forg3") { print "View $prodline ratings, part 1
\n"; print "View $prodline ratings, part 2
\n"; } #elsif ($file eq "alq") { $prodline="Al-Qadim"; } #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") { print "View $prodline ratings, part 2
\n"; print "View $prodline ratings, part 3
\n"; print "View $prodline ratings, part 4
\n"; } elsif ($file eq "dnd2") { print "View $prodline ratings, part 1
\n"; print "View $prodline ratings, part 3
\n"; print "View $prodline ratings, part 4
\n"; } elsif ($file eq "dnd3") { print "View $prodline ratings, part 1
\n"; print "View $prodline ratings, part 2
\n"; print "View $prodline ratings, part 4
\n"; } elsif ($file eq "dnd4") { print "View $prodline ratings, part 2
\n"; print "View $prodline ratings, part 3
\n"; print "View $prodline ratings, part 4
\n"; } else { # $file="firsted1"; # $prodline="First edition"; # $part=", part 1"; } print "

\n"; print "Return to the Ratings display page.
\n"; print "Go Rate the products.
\n"; print "E-mail the survey maintainer.\n"; print "";