#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

$v01= $query->param('v01');
$v02= $query->param('v02');
$v03= $query->param('v03');
$v04= $query->param('v04');
$v05= $query->param('v05');
$v06= $query->param('v06');
$v07= $query->param('v07');


($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = 1900 + $year;
$mon= $mon+1;
$hour = $hour - 1;
$date1= "$mon/$mday/$year";
$date2= "$hour:$min:$sec";

#Analyze data.

#Computes counts for number of times participant selected each response class (there are 6 total classes).

@class = (0, 0, 0, 0, 0, 0);

@variables = ($v01, $v02, $v03, $v04, $v05, $v06, $v07);

foreach $variable (@variables)
{
	if($variable == 1)
		{$class[0] = $class[0] + 1;}
	if($variable == 2)
		{$class[1] = $class[1] + 1;}
	if($variable == 3)
		{$class[2] = $class[2] + 1;}
	if($variable == 4)
		{$class[3] = $class[3] + 1;}
	if($variable == 5)
		{$class[4] = $class[4] + 1;}
	if($variable == 6)
		{$class[5] = $class[5] + 1;}
}

#Assigns summed class variables to individual variables outside of the array. This is necessary for comparison purposes after @class is sorted.

$class1 = $class[0];
$class2 = $class[1];
$class3 = $class[2];
$class4 = $class[3];
$class5 = $class[4];
$class6 = $class[5];

#Sorts class array and stores the largest value in $result

@class_sorted = sort{$a <=> $b} @class;
$result = $class_sorted[5];

#Checks if the largest class value is equal to each class. It does this sequentially, so that the first class that matches the value is selected.
#Therefore, if a participant repsonds equally for classes 1 and 2, the participant will be assigned to class 1

if($result == $class1)
{
	$result_header = "Chemical Kitten!";
	$result_text = "Kapitan, there was an accident in the research facility! It’s imperative we reach the acid baths...";
	$result_image = "<img src='http://heplerlabs.com/rolcat_01.jpg' alt='Chemical Kitten'>";
	$final_class = "1";
}
elsif($result == $class2)
{
	$result_header = "Old n' Salty Kitten";	
	$result_text = "Yes child, enjoy your naive appreciation of life’s novelty. Soon you will grow and so will your disdain for this banal existence you once considered beautiful.";
	$result_image = "<img src='http://heplerlabs.com/rolcat_02.jpg' alt='Old n Salty Kitten'>";
	$final_class = "2";
}
elsif($result == $class3)
{
	$result_header = "Kaboom Kitten!";
	$result_text = "You will now join me in oblivion.";
	$result_image = "<img src='http://heplerlabs.com/rolcat_03.jpg' alt='Kaboom Kitten'>";
	$final_class = "3";
}
elsif($result == $class4)
{
	$result_header = "Alarm Kitten!";
	$result_text = "Alarm!! Don your masks or you will dance the sarin jig this night!!!";
	$result_image = "<img src='http://heplerlabs.com/rolcat_04.jpg' alt='Alarm Kitten'>";
	$final_class = "4";
}
elsif($result == $class5)
{
	$result_header = "Bear Kitten!";
	$result_text = "I have bested my brethren this day!!!<BR>It is I who will inflict happiness and joy upon countless children in the Moscow Circus!";
	$result_image = "<img src='http://heplerlabs.com/rolcat_05.jpg' alt='Bear Kitten'>";
	$final_class = "5";
}
elsif($result == $class6)
{
	$result_header = "Mail Order Kitten!";
	$result_text = "You are to make a fine wife for uncouth American businessman!";
	$result_image = "<img src='http://heplerlabs.com/rolcat_06.jpg' alt='Mail Order Kitten'>";
	$final_class = "6";
}

#Print data to file

open(INFO, ">>$ENV{'DOCUMENT_ROOT_OLD'}/www/heplerlabs.com/P593/homework_3.txt");
	print INFO "$date1,$date2,$v01,$v02,$v03,$v04,$v05,$v06,$v07,$final_class,endline\n";
close(INFO);

open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/heplerlabs.com/P593/homework_3.txt");
	@data = <INFO>;
close(INFO);

#Provides feedback to participant

print $query->header;
print $query->start_html(-title=>'Rolcat results!');

print "<CENTER><FONT size=40><B>You are $result_header</B></FONT><BR><BR>$result_image<BR>$result_text<BR><BR><BR>";

print "See how your results compare to others who have taken the quiz!<BR><BR></CENTER>";

#Calculates count and percentage for each class based on all previous participants

$total_count = 0;
$class1_count = 0;
$class2_count = 0;
$class3_count = 0;
$class4_count = 0;
$class5_count = 0;
$class6_count = 0;

foreach $row (@data)
	{
		#($adate1,$adate2,$av01,$av02,$av03,$av04,$av05,$av06,$av07,$afinal_class,$aendline)

		@participant = split(/,/,$row);

		$total_count = $total_count + 1;

		if ($participant[9] == 1) 
		{
			$class1_count = $class1_count + 1;
		}
		elsif ($participant[9] == 2) 
		{
			$class2_count = $class2_count + 1;
		}
		elsif ($participant[9] == 3) 
		{
			$class3_count = $class3_count + 1;
		}
		elsif ($participant[9] == 4) 
		{
			$class4_count = $class4_count + 1;
		}
		elsif ($participant[9] == 5) 
		{
			$class5_count = $class5_count + 1;
		}
		elsif ($participant[9] == 6) 
		{
			$class6_count = $class6_count + 1;
		}
	}

$class1_percent = sprintf("%.0f",(100*$class1_count/$total_count));
$class2_percent = sprintf("%.0f",(100*$class2_count/$total_count));
$class3_percent = sprintf("%.0f",(100*$class3_count/$total_count));
$class4_percent = sprintf("%.0f",(100*$class4_count/$total_count));
$class5_percent = sprintf("%.0f",(100*$class5_count/$total_count));
$class6_percent = sprintf("%.0f",(100*$class6_count/$total_count));

#Outputs a table of the count and percent information calculated above

print "<style type='text/css'>
	body
	{
		margin: 20;
		padding: 0;
		font-size: 12;
		font-family: verdana;
		background-color: #FAFAFA;
		color: 'black';
	}

	td
	{
		padding: 2px 4px 2px 4px;
		font-size: 10;
		font-family: verdana;
	}

	tr.lightrow
	{
		background: #DEDEDE;
	}

	tr.darkrow
	{
		background: #C2C2C2;
	}

</style>";

print "<CENTER><TABLE>";
print "<TR class=darkrow><TD><Center>Rolcat</TD><TD><Center>Number of Brethren</TD><TD><Center>Percent of the Motherland's population</TD></TR>";
print "<TR class=lightrow><TD>Chemical Kitten</TD><TD><Center>$class1_count</TD><TD><Center>$class1_percent %</TD></TR>";
print "<TR class=darkrow><TD>Old n' Salty Kitten</TD><TD><Center>$class2_count</TD><TD><Center>$class2_percent %</TD></TR>";
print "<TR class=lightrow><TD>Kaboom Kitten</TD><TD><Center>$class3_count</TD><TD><Center>$class3_percent %</TD></TR>";
print "<TR class=darkrow><TD>Alarm Kitten</TD><TD><Center>$class4_count</TD><TD><Center>$class4_percent %</TD></TR>";
print "<TR class=lightrow><TD>Bear Kitten</TD><TD><Center>$class5_count</TD><TD><Center>$class5_percent %</TD></TR>";
print "<TR class=darkrow><TD>Mail Order Kitten</TD><TD><Center>$class6_count</TD><TD><Center>$class6_percent %</TD></TR>";
print "</CENTER></TABLE><BR><BR><BR>";
print "<body><a href=\"http://heplerlabs.com/homework_3_results.htm\">See all the possible results!</a><BR><BR>";
print "<body><a href=\"http://heplerlabs.com\">Return to Hepler Labs</a>\n";

print $query->end_html;