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

$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 6');

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

@animal = (Seadragon, Monkey, Hagfish, Bear, Rabbit, Panda, Armadillo, Marmot, Lizard, Narwhal, Bat, Alpaca, Platypus, Crab, Doggie);
@vegetable = (Broccoli, Cauliflower, Artichoke, Beans, Spaghetti, Avocado, Alfalfa, Turnips, Beets, Shallots, Garlic, Cucumber, Eggplant, Okra, Asparagus);
@bodypart = (-face, -eye, -cheeks, -arm, -leg, -hand, -chest, -knee, -toe, -ankle, -foot, -neck, -chin, -nose, -ears);
@verb = (-eater, -licker, -harasser, -twister, -defenestrater, -wiggler, -melter, -grower, -dancer, -smeller, -jumper, -stomper, -spinner, -puncher, -tripper);


if ($pass == 1)
{
	@condition = &randomize(0,1);
	@numbers1 = &randomize(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14);
	@numbers2 = &randomize(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14);

	$v04 = length($v01) - 1;
	$v05 = length($v02) - 1;
	$v06 = length($v03) - 1;

	if ($condition[0] == 0)
	{
		$name1 = $animal[$v04] . $bodypart[$numbers1[0]];
		$name2 = $vegetable[$v06] . $verb[$numbers2[0]];
	}
	
	if ($condition[0] == 1)
	{
		$name1 = $vegetable[$v04] . $bodypart[$numbers1[0]];
		$name2 = $animal[$v06] . $verb[$numbers2[0]];
	}
	
	print "Eeks! You've become the infamous $name1 $name2 !!!<BR>";
	print "Children and small animals flee from you in horror :(<BR><BR>";
	print "<img src=http://heplerlabs.com/homework_6_1.jpg alt='The Horror!'><BR><BR>";

	print "<a href=\"http://heplerlabs.com\">Return to Hepler Labs</a>\n";
}

if ($pass == 0)
{
print "<CENTER><FONT SIZE=40>Mutant Gangster Name Generator!</FONT></CENTER><BR><BR>";

print "<CENTER><img src=http://heplerlabs.com/homework_6_0.png alt='Manbearpig'></CENTER><BR><BR>";

print "Have you ever thought to yourself, 'Hey! I wonder what my gangster name would be in a post-apocalyptic world ravaged by weird, unsightly mutations?'<BR><BR>";
print "Well I sure have!<BR><BR>";
print "Enter your name below to find out what mutation-based moniker you’d be stuck with for the rest of your days!<BR><BR>";

print "<FORM ACTION='/cgi-bin/P593/homework_6.pl' METHOD=post>";

	print "First Name <INPUT TYPE=textbox NAME=v01 MAXLENGTH=15 SIZE=15> ";
	print "Middle Name <INPUT TYPE=textbox NAME=v02 MAXLENGTH=15 SIZE=15> ";
	print "Last Name <INPUT TYPE=textbox NAME=v03 MAXLENGTH=15 SIZE=15> ";

	print "<INPUT TYPE=submit VALUE='Mutate me!'>";
	print "<INPUT TYPE=hidden NAME=pass VALUE=1>";

	print "</FORM>";
}

print $query->end_html;

#Randomizes the elements of an array and returns the new array
sub randomize
{
	srand;

	my(@new) = ();
	
	while (@_)
	{
		push(@new, splice(@_, rand @_,1));
	}
	
	return @new;
}