#!/user/perl/
use CGI q~:standar~;
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI
print "Content-type: text/html\n\n";
my ($dbh, $sth, $filename, @votes, $average, $i);
$filename = $ENV{'QUERY_STRING'};
$dbh = DBI -> connect ('dbi:ODBC:', '', '') or die $DBI::errstr;
$sth = $dbh -> prepare (qq~select One, Two, Three, Four, Five from FanRatings where Title = ?~) or die $DBI::errstr;
$sth -> execute ($filename) or die $DBI::errstr;
@votes = $sth -> fetchrow_array;
$average = ((1 * $votes[0]) + (2 * $votes[1]) + (3 * $votes[2]) + (4 * $votes[3]) + (5 * $votes[4])) / 5;
$i = 1;
while ($i <= $average) {
	print qq~<img src="http://www.ffinfo.com/images/misc/starfull.gif" width="15" height="15" alt="Full Star" style="vertical-align: bottom" /> ~;
	$i++
}
if ($average =~ /\d\.\d/) {
	print qq~<img src="http://www.ffinfo.com/images/misc/starhalf.gif" width="15" height="15" alt="Half Full Star" style="vertical-align: bottom" />~;
}
while ($i <= 5) {
	print qq~<img src="http://www.ffinfo.com/images/misc/starempty.gif" width="15" height"15" alt="Empty Star" style="vertical-align: bottom" /> ~;
	$i++
}
$dbh -> disconnect();