#!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');

$pass= $query->param('pass');

if($pass < 1)
{
	$pass=0;
}

($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";

print $query->header;
print $query->start_html(-title=>'Homework 4');

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


if($pass == 1)
{

#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 "<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 "<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;
}


if($pass == 0)
{
print
"<CENTER><FONT SIZE=40>Which Rolcat are you?<BR></FONT>

Take this short quiz to find out which Rolcat (Soviet-era lolcat) you are!<BR><BR>

<img src=http://heplerlabs.com/homework_3_image_1.jpg alt='Rolcat Intro'><BR>

Drat, thwarted so close to freedom’s sweet caress...<BR>
I dreamed for but a taste of the decadent west, and now my eulogy is sung by guard dogs and alarm bells.<BR><BR><BR></CENTER>

<FORM ACTION='/cgi-bin/P593/homework_3.pl' METHOD=post>

	1. Which term describes you best?<BR><BR>

	<INPUT TYPE=radio NAME=v01 VALUE=1>Tricksy.<BR>
	<INPUT TYPE=radio NAME=v01 VALUE=2>Disenchanted.<BR>
	<INPUT TYPE=radio NAME=v01 VALUE=3>Crazed.<BR>
	<INPUT TYPE=radio NAME=v01 VALUE=4>Anxious.<BR>
	<INPUT TYPE=radio NAME=v01 VALUE=5>Glorious.<BR>
	<INPUT TYPE=radio NAME=v01 VALUE=6>Hot.<BR>
	
	<BR><BR><BR>

	2. What is your dream job?<BR><BR>

	<INPUT TYPE=radio NAME=v02 VALUE=6>A job? Don’t joke like that.<BR>
	<INPUT TYPE=radio NAME=v02 VALUE=1>Mass destruction.<BR>
	<INPUT TYPE=radio NAME=v02 VALUE=2>Work is meaningless. I shall toil until I die.<BR>
	<INPUT TYPE=radio NAME=v02 VALUE=3>Ninja assassin. Maybe pirate.<BR>
	<INPUT TYPE=radio NAME=v02 VALUE=4>Insurance salesman.<BR>
	<INPUT TYPE=radio NAME=v02 VALUE=5>Gold medal ice skater.<BR>
	
	<BR><BR><BR>

	3. How do you feel about technology?<BR><BR>

	<INPUT TYPE=radio NAME=v03 VALUE=5>Children no longer appreciate traditional pleasures. My purpose in life is to rectify this injustice.<BR>
	<INPUT TYPE=radio NAME=v03 VALUE=6>I know not of technology, but may in my new future.<BR>
	<INPUT TYPE=radio NAME=v03 VALUE=1>Technology allows me to fortify the Republic.<BR>
	<INPUT TYPE=radio NAME=v03 VALUE=2>It is a trivial plaything for those lost in worldly distractions.<BR>
	<INPUT TYPE=radio NAME=v03 VALUE=3>Anything that allows me to eradicate the capitalists more efficiently is well-valued.<BR>
	<INPUT TYPE=radio NAME=v03 VALUE=4>Don it now! Prepare!<BR>
	
	<BR><BR><BR>

	4. What is your attitude toward the capitalists?<BR><BR>

	<INPUT TYPE=radio NAME=v04 VALUE=4>Capitalists?! Where?? Prepare yourselves, brothers!<BR>
	<INPUT TYPE=radio NAME=v04 VALUE=5>Though my wages would be higher with the capitalists, my existence would be meaningless.<BR>
	<INPUT TYPE=radio NAME=v04 VALUE=6>I shall be with them soon.<BR>
	<INPUT TYPE=radio NAME=v04 VALUE=1>I strive to eradicate them as efficiently as possible.<BR>
	<INPUT TYPE=radio NAME=v04 VALUE=2>They are as any other creature, clinging to their meaningless existence till the end.<BR>
	<INPUT TYPE=radio NAME=v04 VALUE=3>The ones I have vanquished warm my thoughts at night.<BR>

	
	<BR><BR><BR>

	5. What keeps you awake at night?<BR><BR>

	<INPUT TYPE=radio NAME=v05 VALUE=3>The fact that capitalists still roam the lands.<BR>
	<INPUT TYPE=radio NAME=v05 VALUE=4>Fear. Panic. Horrible nightmare visions.<BR>
	<INPUT TYPE=radio NAME=v05 VALUE=5>Practice – perfection is not only desirable, but mandatory.<BR>
	<INPUT TYPE=radio NAME=v05 VALUE=6>The thought of a life of solitude and poverty.<BR>
	<INPUT TYPE=radio NAME=v05 VALUE=1>Some inevitable but justified side-effect of my profession.<BR>
	<INPUT TYPE=radio NAME=v05 VALUE=2>The deep despair that accompanies a realization of how meaningless this life is.<BR>
	
	<BR><BR><BR>

	6. The republic is in trouble! What do you do?<BR><BR>

	<INPUT TYPE=radio NAME=v06 VALUE=2>Though unfortunate, this does not move me. As you grow, so too will your indifference with this world.<BR>
	<INPUT TYPE=radio NAME=v06 VALUE=3>Take the capitalist swine down with us.<BR>
	<INPUT TYPE=radio NAME=v06 VALUE=4>Sound the alarm bells. The Republic shall not fail for want of foresight.<BR>
	<INPUT TYPE=radio NAME=v06 VALUE=5>DANCE! DANCE FOR THE MASSES.<BR>
	<INPUT TYPE=radio NAME=v06 VALUE=6>Flee the Republic! My destiny and I lie elsewhere...<BR>
	<INPUT TYPE=radio NAME=v06 VALUE=1>I have prepared the defenses. Enemies that breach the Republic’s border shall not last long.<BR>
	
	<BR><BR><BR>

	7. The Republic has found you guilty and sentenced you to death. What was your crime?<BR><BR>

	<INPUT TYPE=radio NAME=v07 VALUE=1>Accidentally setting off a chain of events that led to the deaths of 1 million countrymen.<BR>
	<INPUT TYPE=radio NAME=v07 VALUE=2>Lack of industry and patriotism.<BR>
	<INPUT TYPE=radio NAME=v07 VALUE=3>Too few capitalist kills.<BR>
	<INPUT TYPE=radio NAME=v07 VALUE=4>Stockpiling goods for an emergency.<BR>
	<INPUT TYPE=radio NAME=v07 VALUE=5>Receiving a score of 9.9.<BR>
	<INPUT TYPE=radio NAME=v07 VALUE=6>Attempting to flee the motherland.<BR>
	
	<BR><BR><BR>

	<INPUT TYPE=hidden NAME=pass VALUE=1>

	<INPUT TYPE=submit VALUE='Submit answers'>

</FORM>"
}

print $query->end_html;