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

Judges Guild Ratings

\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 "

\n"; print "View part 1 of the ratings.
\n"; print "View part 2 of the ratings.
\n"; print "Return to the main ratings page.
\n"; print "Go rate part 1 of the products.
\n"; print "Go rate part 2 of the products.\n"; print "";