#!/usr/bin/perl
#
# What ANIMAL are You?
#
# This script asks the user 40 multiple choice questions, then determines
# which animal the user will be.
# 
#
#  VERSION NOTES
#
# 3/20/2004 
#
#
#

&parse_form;   # change web form into variables we can use
&variables;   # assigns variable names to questions
$LogFile = "/var/www/vhosts/jokesandhumor.com/httpdocs/tests/animalsuccess.txt";
$mailprog = '/usr/sbin/sendmail';





   if ($FORM{'step'} eq "") {
print "Content-type: text/html\n\n";
 	&print_header;
print qq~ 	

Error


~;
&print_footer;
}  #end step 1


   elsif ($FORM{'step'} eq "1") {
print "Content-type: text/html\n\n";

 	&print_header;
 	
print qq~ 
$heading

<table border="0" cellspacing="3">
<tr><td valign="top">
<p><center><b><font face="Verdana" size="+1">Step 1 of 4</font></b></center>
<hr>
<p>
<font face="Verdana">What <b><font color="green">Animal</font></b> Are You?  We will now find out!  Simply answer 30 multiple choice questions (it takes most people under 3 minutes) and then you will find out what animal you are! 
<p>
First, if we could have your <b>first name</b> so we know what to refer you as:<br>
<FORM METHOD=POST ACTION="http://www.jokesandhumor.com/dbase/animal.cgi">
<input type="hidden" name="step" value="2">
<b>Name:</b> <input type="text" name="hisname" size="30">
<p>
<b>Your Gender:</b> <input type="radio" name="gender" value="2">Male <input type="radio" name="gender" value="1"> Female<p>

<input type=hidden value="nozip" name="location">
<center>
<input type=submit value="Continue..."></form><p>
</center>
<center><IMG SRC="/tests/animal/grizzly1.jpg" ALT="Maybe a bear?"></center><br>
</td>
<td valign="top">

<!-- FASTCLICK.COM 300x250 MEDIUM RECTANGLE CODE for jokesandhumor.com -->
<script language="javascript" src="http://media.fastclick.net/w/get.media?sid=4024&m=6&tp=8&d=j&t=n"></script>
<noscript><a href="http://media.fastclick.net/w/click.here?sid=4024&m=6&c=1" target="_blank">
<img src="http://media.fastclick.net/w/get.media?sid=4024&m=6&tp=8&d=s&c=1"
width=300 height=250 border=1></a></noscript>
<!-- FASTCLICK.COM 300x250 MEDIUM RECTANGLE CODE for jokesandhumor.com -->
<p>
<IMG SRC="/tests/animal/dog1.gif" ALT="Woof Woof">
</td></tr></table>

$bottom


~;
#&print_footer;
}  #end step 1






 elsif ($FORM{'step'} eq "2") {
  	
print "Content-type: text/html\n\n";
 	&print_header;
print qq~

$heading

<table border="0" cellspacing="3">
<tr><td valign="top">
<p><center><b><font face="Verdana" size="+1">Step 2 of 4</font></b></center>
<hr>
<p>
<FORM METHOD=POST ACTION="http://www.jokesandhumor.com/dbase/animal.cgi">
<input type="hidden" name="hisname" value="$hisname">
<input type="hidden" name="gender" value="$gender">
<input type="hidden" name="step" value="3">

<font face="Verdana">
Okay, <b><font color="Green">$hisname</font></b>, we will now ask you some questions to determine which animal you would really be!  There will be 30 very quick questions, remember this test will not be accurate unless you answer the questions with 100% <b>honestly!</b> Have fun!
<p>
<font size="-1">
1.  How much do you eat a day?<br>
   <input type="radio" name="q1" value="1">1 or 2 meals, I'm on a diet<br>
   <input type="radio" name="q1" value="2">Usually 3<br>
   <input type="radio" name="q1" value="3">At least 3, including a lot of snacks
<p>
2.  Do you ever watch wrestling on TV?<br>
   <input type="radio" name="q2" value="1">never<br>
   <input type="radio" name="q2" value="2">Rarely or Sometimes<br>
   <input type="radio" name="q2" value="3">Often
<p>
3.  Which of the following would you rather do:<br>
   <input type="radio" name="q3" value="1">Golf<br>
   <input type="radio" name="q3" value="2">Go Bowling<br>
   <input type="radio" name="q3" value="3">Swim
<p>
4.  Have you ever been to Europe?<br>
   <input type="radio" name="q4" value="1">Not yet<br>
   <input type="radio" name="q4" value="3">Yes, vacation there<br>
   <input type="radio" name="q4" value="2">I live(d) there
<p>
5.  Would you consider yourself a "risk-taker"?<br>
   <input type="radio" name="q5" value="3">Yes, definitely<br>
   <input type="radio" name="q5" value="2">I can be, once in a while<br>
   <input type="radio" name="q5" value="1">No, I'm rarely ever a risk-taker
<p>
6.  Are you good at taking pictures?<br>
   <input type="radio" name="q6" value="3">Yes, mine turn out well<br>
   <input type="radio" name="q6" value="2">No, usually blurry or bad<br>
   <input type="radio" name="q6" value="1">No, I don't even have a camera
<p>
7.  The longest you've ever gone without taking a bath or shower?<br>
   <input type="radio" name="q7" value="1">1 day<br>
   <input type="radio" name="q7" value="2">2-3 days<br>
   <input type="radio" name="q7" value="3">I've gone more than a week before
<p>
8.  How many times have you seen the movie, "Tommy Boy"?<br>
   <input type="radio" name="q8" value="1">More than a few times! Good movie!<br>
   <input type="radio" name="q8" value="3">Once or twice<br>
   <input type="radio" name="q8" value="2">Actually, I haven't ever seen it!
<p>
9.  Which of these 3 Disney movies do you like best?<br>
   <input type="radio" name="q9" value="2">The Lion King<br>
   <input type="radio" name="q9" value="1">Beauty and the Beast<br>
   <input type="radio" name="q9" value="3">Aladdin
<p>
10.  If you had to eat one of these, it would be:<br>
   <input type="radio" name="q10" value="2">Sweet and Sour Chicken<br>
   <input type="radio" name="q10" value="1">Sausage and Pepperoni Pizza<br>
   <input type="radio" name="q10" value="3">Tacos and Tortilla Chips
<p>
</font>

<center>
<input type=submit value="Continue..."></form><p>
</center>
<center><IMG SRC="/tests/animal/elephant1.gif" ALT="Maybe an elephant?"></center><br>
</td>
<td valign="top">

<!-- FASTCLICK.COM 160x600 and 120x600 SKYSCRAPER CODE for jokesandhumor.com -->
<script language="javascript" src="http://media.fastclick.net/w/get.media?sid=4024&m=3&tp=7&d=j&t=n"></script>
<noscript><a href="http://media.fastclick.net/w/click.here?sid=4024&m=3&c=1" target="_blank">
<img src="http://media.fastclick.net/w/get.media?sid=4024&m=3&tp=7&d=s&c=1"
width=160 height=600 border=1></a></noscript>
<!-- FASTCLICK.COM 160x600 and 120x600 SKYSCRAPER CODE for jokesandhumor.com -->
<p>
<center>
<IMG SRC="/tests/animal/birdworm1.gif" ALT="Bird">
</center>
</td></tr></table>

$bottom
~; 	
  
 
 
} # end step 2

 elsif ($FORM{'step'} eq "3") {
  	
print "Content-type: text/html\n\n";
 	&print_header;
print qq~

$heading

<table border="0" cellspacing="3">
<tr><td valign="top">
<p><center><b><font face="Verdana" size="+1">Step 3 of 4</font></b></center>
<hr>
<p>
<FORM METHOD=POST ACTION="http://www.jokesandhumor.com/dbase/animal.cgi">
<input type="hidden" name="hisname" value="$hisname">
<input type="hidden" name="gender" value="$gender">
<input type="hidden" name="age" value="$age">
<input type="hidden" name="step" value="4">
<input type="hidden" name="q1" value="$q1">
<input type="hidden" name="q2" value="$q2">
<input type="hidden" name="q3" value="$q3">
<input type="hidden" name="q4" value="$q4">
<input type="hidden" name="q5" value="$q5">
<input type="hidden" name="q6" value="$q6">
<input type="hidden" name="q7" value="$q7">
<input type="hidden" name="q8" value="$q8">
<input type="hidden" name="q9" value="$q9">
<input type="hidden" name="q10" value="$q10">

<font face="Verdana">
<b><font color="green">$hisname</font></b>, you are <b>almost done!</b>  Our computers are hard at work determining which animal you really are.  Please continue!
<p>
<font size="-1">
11.  Have you ever caught fireflies?<br>
   <input type="radio" name="q11" value="2">Yes when I was a kid<br>
   <input type="radio" name="q11" value="3">Yes once in a while when they're out<br>
   <input type="radio" name="q11" value="1">No, or what's a firefly?
<p>
12.  Do you know what country the city Venice is in?<br>
   <input type="radio" name="q12" value="2">France<br>
   <input type="radio" name="q12" value="3">Italy<br>
   <input type="radio" name="q12" value="1">Austria
<p>
13.  What do you think about Britney Spears<br>
   <input type="radio" name="q13" value="3">She is lame<br>
   <input type="radio" name="q13" value="1">She is talented<br>
   <input type="radio" name="q13" value="2">She is pretty
<p>
14.  How good are you at fishing?<br>
   <input type="radio" name="q14" value="1">I've never caught a fish<br>
   <input type="radio" name="q14" value="2">I'm not very good, but have caught fish before<br>
   <input type="radio" name="q14" value="3">I am pretty good at fishing
<p>
15.  Would you consider yourself shy or quiet?<br>
   <input type="radio" name="q15" value="1">Yes, definitely<br>
   <input type="radio" name="q15" value="2">I can be, once in a while<br>
   <input type="radio" name="q15" value="3">No, I'm definitely not
<p>
16.  Are you a good cook?<br>
   <input type="radio" name="q16" value="3">Yes, my food turns out well<br>
   <input type="radio" name="q16" value="2">Sometimes yes, othertimes yuck<br>
   <input type="radio" name="q16" value="1">No way... Let someone else cook!
<p>
17.  Have you ever gone skinny dipping?<br>
   <input type="radio" name="q17" value="3">Yes!<br>
   <input type="radio" name="q17" value="2">Haven't done it yet<br>
   <input type="radio" name="q17" value="1">What is skinny dipping?
<p>
18.  In the last 3 months, how many times have you slipped and fallen on your butt?<br>
   <input type="radio" name="q18" value="1">More than a few times...<br>
   <input type="radio" name="q18" value="3">Once or twice<br>
   <input type="radio" name="q18" value="2">Haven't fell recently
<p>
19.  Are you a fast runner?<br>
   <input type="radio" name="q19" value="3">Yes, a track star<br>
   <input type="radio" name="q19" value="2">I can keep up<br>
   <input type="radio" name="q19" value="1">No, not very fast
<p>
20.  Have you ever camped overnight in the woods?<br>
   <input type="radio" name="q20" value="3">Sure, I love camping<br>
   <input type="radio" name="q20" value="2">Yes once or twice<br>
   <input type="radio" name="q20" value="1">No camping for me
<p>
</font>

<center>
<input type=submit value="Continue on... almost done!"></form><p>
</center>
<center><IMG SRC="/tests/animal/catfreak1.gif" ALT="Maybe a cat?"></center><br>
</td>
<td valign="top">
<!-- FASTCLICK.COM 300x250 MEDIUM RECTANGLE CODE for jokesandhumor.com -->
<script language="javascript" src="http://media.fastclick.net/w/get.media?sid=4024&m=6&tp=8&d=j&t=n"></script>
<noscript><a href="http://media.fastclick.net/w/click.here?sid=4024&m=6&c=1" target="_blank">
<img src="http://media.fastclick.net/w/get.media?sid=4024&m=6&tp=8&d=s&c=1"
width=300 height=250 border=1></a></noscript>
<!-- FASTCLICK.COM 300x250 MEDIUM RECTANGLE CODE for jokesandhumor.com -->


<p>
<center>
<IMG SRC="/tests/animal/frog1.gif" ALT="Frog">
</center>
</td></tr></table>

$bottom

~; 	
  # &print_footer;


 
  	} # end step 3

 elsif ($FORM{'step'} eq "4") {
  	
print "Content-type: text/html\n\n";  
 	&print_header;
print qq~

$heading

<table border="0" cellspacing="3">
<tr><td valign="top">
<p><center><b><font face="Verdana" size="+1">Step 4 of 4</font></b></center>
<hr>
<p>
<FORM METHOD=POST ACTION="http://www.jokesandhumor.com/dbase/animal.cgi">
<input type="hidden" name="hisname" value="$hisname">
<input type="hidden" name="gender" value="$gender">
<input type="hidden" name="age" value="$age">
<input type="hidden" name="step" value="5">
<input type="hidden" name="q1" value="$q1">
<input type="hidden" name="q2" value="$q2">
<input type="hidden" name="q3" value="$q3">
<input type="hidden" name="q4" value="$q4">
<input type="hidden" name="q5" value="$q5">
<input type="hidden" name="q6" value="$q6">
<input type="hidden" name="q7" value="$q7">
<input type="hidden" name="q8" value="$q8">
<input type="hidden" name="q9" value="$q9">
<input type="hidden" name="q10" value="$q10">
<input type="hidden" name="q11" value="$q11">
<input type="hidden" name="q12" value="$q12">
<input type="hidden" name="q13" value="$q13">
<input type="hidden" name="q14" value="$q14">
<input type="hidden" name="q15" value="$q15">
<input type="hidden" name="q16" value="$q16">
<input type="hidden" name="q17" value="$q17">
<input type="hidden" name="q18" value="$q18">
<input type="hidden" name="q19" value="$q19">
<input type="hidden" name="q20" value="$q20">

<font face="Verdana">
<b><font color="green">$hisname</font></b>, here are the <b>FINAL QUESTIONS!</b> After answering these you will then know which animal you really are!
<p>
<font size="-1">
21.  Would you eat and swallow a worm on a dare for $100?<br>
   <input type="radio" name="q21" value="3">Yes, even if not for $100<br>
   <input type="radio" name="q21" value="2">Yes, but only for the money<br>
   <input type="radio" name="q21" value="1">No, it would take a lot more than that!
<p>
22.  Which candy bar would you eat first?<br>
   <input type="radio" name="q22" value="1">Snickers<br>
   <input type="radio" name="q22" value="2">Hersheys<br>
   <input type="radio" name="q22" value="3">Baby Ruth
<p>
23.  Have you ever been skydiving?<br>
   <input type="radio" name="q23" value="3">Yes!<br>
   <input type="radio" name="q23" value="2">No, but would like to<br>
   <input type="radio" name="q23" value="1">No, too scary
<p>
24.  Which one word would your friends use to describe you?<br>
   <input type="radio" name="q24" value="1">Dependable<br>
   <input type="radio" name="q24" value="2">Funny<br>
   <input type="radio" name="q24" value="3">Crazy
<p>
25.  Do you enjoy gambling?<br>
   <input type="radio" name="q25" value="3">Yes, bring me to Vegas<br>
   <input type="radio" name="q25" value="2">It's okay in moderation<br>
   <input type="radio" name="q25" value="1">No, Don't like it or Not old enough
<p>
26.  Do you chew gum?<br>
   <input type="radio" name="q26" value="1">Yes, almost always gum in my mouth<br>
   <input type="radio" name="q26" value="3">Sometimes, maybe after a meal<br>
   <input type="radio" name="q26" value="2">Not much of a gum chewer
<p>
27.  What do you think of rap music?<br>
   <input type="radio" name="q27" value="1">It's pretty cool!<br>
   <input type="radio" name="q27" value="2">Some of it is okay<br>
   <input type="radio" name="q27" value="3">You can't have "crap" without rap
<p>
28.  Which movie would you watch right now if you had to?<br>
   <input type="radio" name="q28" value="3">Top Gun<br>
   <input type="radio" name="q28" value="2">Forrest Gump<br>
   <input type="radio" name="q28" value="1">Finding Nemo
<p>
29.  Are you afraid of scary bugs and spiders?<br>
   <input type="radio" name="q29" value="1">Yes, keep them away<br>
   <input type="radio" name="q29" value="2">I can handle them<br>
   <input type="radio" name="q29" value="3">No, I gladly pick them up
<p>
30.  Which sport is the most fun to watch?<br>
   <input type="radio" name="q30" value="3">Football<br>
   <input type="radio" name="q30" value="2">Baseball<br>
   <input type="radio" name="q30" value="1">Gymnastics
<p>
</font>

<center>
<input type=submit value="Continue on to get your results!"></form><p>
</center>
<center><IMG SRC="/tests/animal/ostrich1.gif" ALT="Maybe an ostrich?"></center><br>
</td>
<td valign="top">


<!-- FASTCLICK.COM 160x600 and 120x600 SKYSCRAPER CODE for jokesandhumor.com -->
<script language="javascript" src="http://media.fastclick.net/w/get.media?sid=4024&m=3&tp=7&d=j&t=n"></script>
<noscript><a href="http://media.fastclick.net/w/click.here?sid=4024&m=3&c=1" target="_blank">
<img src="http://media.fastclick.net/w/get.media?sid=4024&m=3&tp=7&d=s&c=1"
width=160 height=600 border=1></a></noscript>
<!-- FASTCLICK.COM 160x600 and 120x600 SKYSCRAPER CODE for jokesandhumor.com -->
<p>
<center>
<IMG SRC="/tests/animal/duck1.gif" ALT="Duck">
</center>
</td></tr></table>

$bottom
~; 	
 #  &print_footer;


 
} # end step 4


 elsif ($FORM{'step'} eq "5") {
  	
print "Content-type: text/html\n\n";  
 	&print_header;
print qq~
$heading

<table border="0" cellspacing="3">
<tr><td valign="top">
<p><center><b><font face="Verdana" size="+1">Last Step</font></b></center>
<hr>
<p>
<FORM METHOD=POST ACTION="http://www.jokesandhumor.com/dbase/animal.cgi">
<input type="hidden" name="hisname" value="$hisname">
<input type="hidden" name="gender" value="$gender">
<input type="hidden" name="age" value="$age">
<input type="hidden" name="step" value="6">
<input type="hidden" name="q1" value="$q1">
<input type="hidden" name="q2" value="$q2">
<input type="hidden" name="q3" value="$q3">
<input type="hidden" name="q4" value="$q4">
<input type="hidden" name="q5" value="$q5">
<input type="hidden" name="q6" value="$q6">
<input type="hidden" name="q7" value="$q7">
<input type="hidden" name="q8" value="$q8">
<input type="hidden" name="q9" value="$q9">
<input type="hidden" name="q10" value="$q10">
<input type="hidden" name="q11" value="$q11">
<input type="hidden" name="q12" value="$q12">
<input type="hidden" name="q13" value="$q13">
<input type="hidden" name="q14" value="$q14">
<input type="hidden" name="q15" value="$q15">
<input type="hidden" name="q16" value="$q16">
<input type="hidden" name="q17" value="$q17">
<input type="hidden" name="q18" value="$q18">
<input type="hidden" name="q19" value="$q19">
<input type="hidden" name="q20" value="$q20">
<input type="hidden" name="q21" value="$q21">
<input type="hidden" name="q22" value="$q22">
<input type="hidden" name="q23" value="$q23">
<input type="hidden" name="q24" value="$q24">
<input type="hidden" name="q25" value="$q25">
<input type="hidden" name="q26" value="$q26">
<input type="hidden" name="q27" value="$q27">
<input type="hidden" name="q28" value="$q28">
<input type="hidden" name="q29" value="$q29">

<font face="Verdana">
<b><font color="green">$hisname</font></b>, we have your results.  Before we share them with you, you may want to consider joining one of our free fun lists (totally optional):
<p>

<input type=hidden name="subject" value="Subscribe Me">
<input type=hidden name="redirect" value="http://www.jokesandhumor.com/thanksmail.html">
<center>
Email: <input type="text" name="email" size="30" value="$email"><br>
<table border="0" cellspacing="4">
<tr><td><input type="checkbox" name="recipient" value="join-jokesandhumor\@list.netatlantic.com" checked ><font size="2"> Daily Adult Jokes</font></td><td><input type="checkbox" name="recipient5" value="jokesandhumorclean-subscribe\@topica.com"><font size="2"> Clean Jokes</font></td><td><input type="checkbox" name="recipient6" value="wordofthedayjh-subscribe\@topica.com"><font size="2"> Word of the Day</font></td></tr>
<tr><td colspan="2"><input type="checkbox" name="recipient4" value="riddlesjh-subscribe\@topica.com"><font size="2"> Weekly Riddles</font></td><td><input type="checkbox" name="recipient2" value="jokesandhumorweekly-subscribe\@topica.com"><font size="2"> Weekly Jokes</font></td></tr>
</table>


<center>
<p>
<input type=submit value="Let's SEE the RESULTS!"></form><p>
</center>
<center><IMG SRC="/tests/animal/cheetah1.gif" ALT="Maybe an ostrich?"></center><br>
</td>
<td valign="top">


<!-- FASTCLICK.COM 300x250 MEDIUM RECTANGLE CODE for jokesandhumor.com -->
<script language="javascript" src="http://media.fastclick.net/w/get.media?sid=4024&m=6&tp=8&d=j&t=n"></script>
<noscript><a href="http://media.fastclick.net/w/click.here?sid=4024&m=6&c=1" target="_blank">
<img src="http://media.fastclick.net/w/get.media?sid=4024&m=6&tp=8&d=s&c=1"
width=300 height=250 border=1></a></noscript>
<!-- FASTCLICK.COM 300x250 MEDIUM RECTANGLE CODE for jokesandhumor.com -->
<p>
<center>
<IMG SRC="/tests/animal/rat1.gif" ALT="Rat1">
</center>
</td></tr></table>

$bottom
~; 	
 #  &print_footer;


 
} # end step 5

 elsif ($FORM{'step'} eq "6") {
  	
 &emailforlists;
 
$totalq = $q1 + $q2 + $q3 + $q4 + $q5 + $q6 + $q7 + $q8 + $q9 + $q10 + $q11 + $q12 + $q13 + $q14 + $q15 + $q16 + $q17 + $q18 + $q19 + $q20 + $q21 + $q22 + $q23 + $q24 + $q25 + $q26 + $q27 + $q28 + $q29 + $q30;
$newtotal = $totalq + 2;
 
if ($newtotal >= 0) 
{	
$youranimal = "Rabbit"; $animaltext = "The shy rabbit always tries to avoid danger, but can be quick.  You are very studious and smart, you may not overpower your foes but you can outwit and outsmart them."; $animalfile = "res-rabbit.jpg";
}
if ($newtotal >= 34) 
{
$youranimal = "Humming Bird"; $animaltext = "You are a <b>humming bird</b>!  You are very small, the smallest bird of them all, but you are also very quick.  You can spot red from miles away and you are generally very well liked."; $animalfile = "res-hummingbird.jpg";
}
if ($newtotal >= 40) 
{
$youranimal = "Frog"; $animaltext = "You are a <b>Frog</b>!  You are very small, love the water, and like to be kissed!  Some may think you do not have outer beauty, only inner beauty.  However, the frog is one of the cutest creatures.  People are always trying to catch you because you are quite important.  You are also the star of a video game called Frogger..."; $animalfile = "res-frog.jpg";
}
if ($newtotal >= 46) 
{
$youranimal = "Butterfly"; $animaltext = "You are a <b>Butterfly</b>!  You are a rare one indeed!  People view butterflies as beautiful and it is usually frowned upon to hurt one.  You are caring and carefree.  Almost everyone likes a butterfly!"; $animalfile = "res-butterfly.jpg";
}
if ($newtotal >= 52) 
{
$youranimal = "Caterpillar"; $animaltext = "You are a <b>Catterpillar</b>!  Many people are often envious and jealous of a caterpillar.  Caterpillars may not be quick, but they are quite wise and often think about things before they do them.!"; $animalfile = "res-caterpillar.jpg";
}
if ($newtotal >= 57) 
{
$youranimal = "Unicorn"; $animaltext = "You are a <b>Unicorn</b>! Some people think unicorns are a myth...  You are one of the most rare animals.  Less than 2 percent of people that take this test are the unicorn.  Unicorns are good an almost everything they do, and are very well liked!"; $animalfile = "res-unicorn.jpg";
}
if ($newtotal >= 62) 
{
$youranimal = "Bumble Bee"; $animaltext = "You are a <b>Bumble Bee</b>! A beautiful insect that is good at working with teams and produces something many want: honey!  A bumble bee commands great respect, and will respond to a bad situation with a quick sting!  Bumble bees are serious and very wise."; $animalfile = "res-bee.jpg";
}
if ($newtotal >= 68) 
{
$youranimal = "Whitetail Deer"; $animaltext = "You are a <b>Whitetail Deer</b>! Whitetail deer are beautiful and plentiful.  They are usually quiet and do not bother people.  They are playful yet cautious.  Many respect the deer.  Deer are usually underestimated..."; $animalfile = "res-deer.jpg";
}
if ($newtotal >= 74) 
{
$youranimal = "Tiger"; $animaltext = "You are a <b>Tiger</b>! Watch out!  Tigers are not to be messed with.  A Tiger will usually seek out what they want instead of waiting for things to just happen.  Tigers command great respect.  Tigers are also very alert and can be very friendly if approached correctly..."; $animalfile = "res-tiger.jpg";
}
if ($newtotal >= 79) 
{
$youranimal = "Dolphin"; $animaltext = "You are a <b>Dolphin</b>! The dolphin is the smartest animal and this is reflected in you.   Dolphins also have excellent communications skills and are usually regarded very highly by their friends.  Dolphins are playful and fun, and usually learn quickly from any mistakes made..."; $animalfile = "res-dolphin.jpg";
}
if ($newtotal >= 85) 
{
$youranimal = "Grizzly Bear"; $animaltext = "You are a <b>Grizzly Bear</b>! The Grizzly is a very feared animal, but also very respectable.  The Grizzly Bear knows how to please, but also how to have fun.  Grizzly Bears can be lazy, and like to sleep in.  When it is crunch time though, the Grizzly Bear always comes through!"; $animalfile = "res-grizzlybear.jpg";
}

  	
print "Content-type: text/html\n\n";  
 	&print_header;
print qq~
$heading

<!-- FASTCLICK.COM GLOBAL INTERSTITIAL CODE for jokesandhumor.com -->
<script language="javascript"><!--
var min=15; // frequency cap in minutes, set to 15 or more
var sid=4024;
document.writeln('<scr'+'ipt language="javascript" src="http://code.fastclick.net/is.js"></scr'+'ipt>');
// -->
</script>
<!-- FASTCLICK.COM GLOBAL INTERSTITIAL CODE for jokesandhumor.com -->

<table border="0" cellspacing="3">
<tr><td valign="top">
<p><center><b><font face="Verdana" size="+1">Results for <font color="Green">$hisname</font></font></b></center>
<hr>


<center>
<font size="4" face="Arial">Your Animal is:</font> <font size="3" face="Arial" color="red"><b>$youranimal</b></font><p>
<table border="0" width="90%">
<tr><td valign="top">
<font face="Verdana" size="+1">$animaltext</font><br>
</td><td valign="top">
<IMG SRC="/tests/animal/$animalfile" ALT="You are a $youranimal">
</td></tr></table>
</center>
<p>
<font size="+1">
<center>
Thanks for taking the test!  Would you like to <b><A HREF="http://tafmaster.com/taf/6654/248558/?type=fullpage" target="_blank">SEND THIS PAGE TO A FRIEND</A>?<p>
Also feel free to check out some more <b>Fun Pages:</b><p>
   <A HREF="http://www.funpageexchange.com/out.php?u=433&pid=2691&s=n">Britney Spears NEW Boyfriend</A><br>
   <A HREF="http://www.funpageexchange.com/out.php?u=433&pid=2647&s=n">GHETTO Voters</A><br>
   <A HREF="http://www.funpageexchange.com/out.php?u=433&pid=2783&s=n">Tom Cruise BREAKUP</A><br>
   <A HREF="http://www.funpageexchange.com/out.php?u=433&pid=2692&s=n">McDonalds Fat and Grease</A><br>
   <A HREF="http://www.funpageexchange.com/out.php?u=433&pid=2591&s=n">Paris Hilton GAME</A><br>
   <A HREF="http://www.funpageexchange.com/out.php?u=433&pid=2688&s=n">Job that SUCKS</A><br>
   

</td>
<td valign="top">


<!-- FASTCLICK.COM 160x600 and 120x600 SKYSCRAPER CODE for jokesandhumor.com -->
<script language="javascript" src="http://media.fastclick.net/w/get.media?sid=4024&m=3&tp=7&d=j&t=n"></script>
<noscript><a href="http://media.fastclick.net/w/click.here?sid=4024&m=3&c=1" target="_blank">
<img src="http://media.fastclick.net/w/get.media?sid=4024&m=3&tp=7&d=s&c=1"
width=160 height=600 border=1></a></noscript>
<!-- FASTCLICK.COM 160x600 and 120x600 SKYSCRAPER CODE for jokesandhumor.com -->
<p>
<center>

</center>
</td></tr></table>


</td></tr></table>

<!-- end main table -->
</td></tr></table>
<br>
<a name="taf">
<font size="+2"><b>SEND this to a <font color="red">FRIEND</font>!</b></font>
<script src="http://tafmaster.com/taf/6654/248558/"></script>
<noscript>
<a href="http://tafmaster.com/taf/6654/248558/?type=fullpage" target=""><img src="http://tafmaster.com/images/linking/tafmasterbutton_120x90_stat.gif" border="0"></a>
</noscript>
</center>
<center>
<small>
<p> &copy;  &nbsp; 1998-2004 <A HREF="http://www.jokesandhumor.com">JokesAndHumor.com</A>. All rights reserved.<BR>
<IMG SRC="/jokes/email.gif" "ALT="Email"> &nbsp; Contact Us: <A HREF="/contact.html">Here</A><br>
View our online <A HREF="/privacy.html" target="_blank">privacy statement.</A>
</small>
</center>


</body>
</html>


~; 	
 
#
#  LOGS and COUNTERS
#
# 
&get_date;

open (COUNT,">>$LogFile");
print COUNT "$date2|$hisname|$email|$gender|$youranimal|$newtotal|$q1|$q2|$q3|$q4|$q5|$q6|$q7|$q8|$q9|$q10|$q11|$q12|$q13|$q14|$q15|$q16|$q17|$q18|$q19|$q20|$q21|$q22|$q23|$q24|$q25|$q26|$q27|$q28|$q29|$q30\n";
close (COUNT);
 
#
#
#  START COUNTER STUFF
#

$data_dir = "/var/www/vhosts/jokesandhumor.com/httpdocs/tests/";

$auto_create = "1";
$lock_sec = "3";


# Print Content Type Header For Browser
#### print "Content-type: text/html\n\n";

# Get the page location from the DOCUMENT_URI environment variable.
#$count_page = "$ENV{'DOCUMENT_URI'}";
$count_page = "ANIMAL.txt";


# Any characters that are not letters or numbers are turned into an underscore
# $count_page =~ s/[^\w]/_/g;
$lock_file = "$count_page\.lock";

# Check to see if file is locked by program already in use.
&check_lock($lock_sec);

# If the file exists, get the date and count out of it.  Otherwise, if 
# auto_create is allowed, create a new account.  If neither of these are 
# true, return an error.

if (-e "$data_dir$count_page") {
   open(COUNT,"$data_dir$count_page");
   $line = <COUNT>;
   chop($line) if $line =~ /\n$/;
   close(COUNT);
   ($date,$count) = split(/\|\|/,$line);
}
elsif ($auto_create == 1) {
   &create; 
}
else {
   &error('page_not_found');
}

# Increment Count.
$count++;
$print_count = $count;

# Get Count Length for use in padding.
$count_length = length($count);


# Print the Count, Link and Date depending on what user has specified 
# they wish to print.

#if ($show_date == 1) {
 #  if ($show_link =~ /http:\/\//) {
  #
  #}
   #else {
   #   print "$print_count hits since $date";
   #}
#}
#else {
 #  if ($show_link =~ /http:\/\//) {
  #    print "<a href=\"$show_link\">$print_count</a>";
   #}
   #else {
    #  print "$print_count";
   #}
#}

# Open the count file and write the new count that has been incremented.
open(COUNT,">$data_dir$count_page") || &error('could_not_increment');
print COUNT "$date\|\|$count";
close(COUNT);

# Remove Lock File for next time script is run on that HTML page.
&clean_up;



sub create {
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   @months = ("January","February","March","April","May","June","July",
	      "August","September","October","November","December");
   $year += 1900;
   $date = "$months[$mon] $mday, $year";
   $count = "0";
   open(COUNT,">$data_dir$count_page") || &error('count_not_created');
   print COUNT "$date\|\|$count";
   close(COUNT);
}

sub error {
   $error = shift(@_);

   if ($error eq 'page_not_found') {
      print "[TextCounter Fatal Error: This Page Not Found\; Auto-Create Option Disabled]";
   }
   elsif ($error eq 'bad_uri') {
      print "[TextCounter Fatal Error: This Page Not In Valid URI]";
   }
   elsif ($error eq 'count_not_created') {
      print "[TextCounter Fatal Error: Could Not Write to File $datadir$count_page]";
   }
   elsif ($error eq 'could_not_increment') {
      print "[TextCounter Fatal Error: Could Not Increment Counter]";
   }
   exit;
}

sub check_lock {
   $time = $_[0];

   for ($i = 1;$i <= $time; $i++) {
      if (-e "$data_dir$lock_file") {
         sleep 1;
      }
      else {
         open(LOCK,">$data_dir$lock_file");
         print LOCK "0";
         close(LOCK);
         last;
      }
   }
}

sub clean_up {
   unlink("$data_dir$lock_file");
}

#
#    END COUNTER STUFF
#

 
  	} # end step 6, the results step


#
#
#  VARIABLES, Etc
#

sub variables {

 if ($FORM{'hisname'}) {
      $hisname = "$FORM{'hisname'}";
      $hisname =~ s/"//g;
      $hisname =~ s/<//g;
      $hisname =~ s/>//g;
      $hisname =~ s/\&//g;
   }
   
    if ($FORM{'age'}) {
      $age = "$FORM{'age'}";
   }

  if ($FORM{'email'}) {
      $email = "$FORM{'email'}";
   }
   
       if ($FORM{'gender'}) {
      $gender = "$FORM{'gender'}";
   }
   
          if ($FORM{'celebgender'}) {
      $celebgender = "$FORM{'celebgender'}";
   }
   
          if ($FORM{'location'}) {
      $location = "$FORM{'location'}";
   }

     if ($FORM{'q1'}) {
      $q1= "$FORM{'q1'}";
   }
   
      if ($FORM{'q2'}) {
      $q2= "$FORM{'q2'}";
   }
   
       if ($FORM{'q3'}) {
      $q3= "$FORM{'q3'}";
   }
   
       if ($FORM{'q4'}) {
      $q4= "$FORM{'q4'}";
   }
   
       if ($FORM{'q5'}) {
      $q5= "$FORM{'q5'}";
   }
   
       if ($FORM{'q6'}) {
      $q6= "$FORM{'q6'}";
   }
   
       if ($FORM{'q7'}) {
      $q7= "$FORM{'q7'}";
   }
   
       if ($FORM{'q8'}) {
      $q8= "$FORM{'q8'}";
   }
   
       if ($FORM{'q9'}) {
      $q9= "$FORM{'q9'}";
   }
   
       if ($FORM{'q10'}) {
      $q10= "$FORM{'q10'}";
   }
   
       if ($FORM{'q11'}) {
      $q11= "$FORM{'q11'}";
   }
   
       if ($FORM{'q12'}) {
      $q12= "$FORM{'q12'}";
   }
   
       if ($FORM{'q13'}) {
      $q13= "$FORM{'q13'}";
   }
   
       if ($FORM{'q14'}) {
      $q14= "$FORM{'q14'}";
   }
       if ($FORM{'q15'}) {
      $q15= "$FORM{'q15'}";
   }
       if ($FORM{'q16'}) {
      $q16= "$FORM{'q16'}";
   }
       if ($FORM{'q17'}) {
      $q17= "$FORM{'q17'}";
   }
       if ($FORM{'q18'}) {
      $q18= "$FORM{'q18'}";
   }
       if ($FORM{'q19'}) {
      $q19= "$FORM{'q19'}";
   }
       if ($FORM{'q20'}) {
      $q20= "$FORM{'q20'}";
   }
   
          if ($FORM{'q30'}) {
      $q30= "$FORM{'q30'}";
   }
   
       if ($FORM{'q21'}) {
      $q21= "$FORM{'q21'}";
   }
   
       if ($FORM{'q22'}) {
      $q22= "$FORM{'q22'}";
   }
   
       if ($FORM{'q23'}) {
      $q23= "$FORM{'q23'}";
   }
   
       if ($FORM{'q24'}) {
      $q24= "$FORM{'q24'}";
   }
       if ($FORM{'q25'}) {
      $q25= "$FORM{'q25'}";
   }
       if ($FORM{'q26'}) {
      $q26= "$FORM{'q26'}";
   }
       if ($FORM{'q27'}) {
      $q27= "$FORM{'q27'}";
   }
       if ($FORM{'q28'}) {
      $q28= "$FORM{'q28'}";
   }
       if ($FORM{'q29'}) {
      $q29= "$FORM{'q29'}";
   }
 
      
        if ($FORM{'recipient'}) {
      $recipient= "$FORM{'recipient'}";
   }
   
         if ($FORM{'recipient2'}) {
      $recipient2= "$FORM{'recipient2'}";
   }
         if ($FORM{'recipient3'}) {
      $recipient3= "$FORM{'recipient3'}";
   }
         if ($FORM{'recipient4'}) {
      $recipient4= "$FORM{'recipient4'}";
   }
         if ($FORM{'recipient5'}) {
      $recipient5= "$FORM{'recipient5'}";
   }
         if ($FORM{'recipient6'}) {
      $recipient6= "$FORM{'recipient6'}";
   }
         if ($FORM{'recipient7'}) {
      $recipient7= "$FORM{'recipient7'}";
   }
           if ($FORM{'recipient8'}) {
      $recipient8= "$FORM{'recipient8'}";
   }
   
   
   
} # end sub variables  







sub parse_form {
   local($name,$value);

   # Get the input
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   # Split the name-value pairs
   @pairs = split(/&/, $buffer);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      # Un-Webify plus signs and %-encoding
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      # Remove any NULL characters, Server Side Includes
      $value =~ s/\0//g;
      $value =~ s/<!--(.|\n)*-->//g;

      if ($allow_html != 1) {
         $value =~ s/<([^>]|\n)*>//g;
      }
      else {
         unless ($name eq 'body') {
	    $value =~ s/<([^>]|\n)*>//g;
         }
      }

      $FORM{$name} = $value;
   }
}

sub print_header {

           open (HEAD, "</var/www/vhosts/jokesandhumor.com/httpdocs/tests/animal/animalheader.txt");
            $heading = "";            
            while (<HEAD>) {
                $heading .= $_;
      }
            close HEAD;
            
     open (SIDE, "</var/www/vhosts/jokesandhumor.com/httpdocs/leftside.txt");
            $sidebar = "";            
            while (<SIDE>) {
                $sidebar .= $_;
      }
            close SIDE;
            
                       open (BOTTOM, "</var/www/vhosts/jokesandhumor.com/httpdocs/tests/animal/animalbottom.txt");
            $bottom = "";            
            while (<BOTTOM>) {
                $bottom .= $_;
      }
            close BOTTOM;
            
    print qq~

~;	

# end of print header     
            	
	
} #end of sub print_header



sub print_footer  {

print qq~
</td></tr></table>
<p> <p>
$bottom
~;

} #end of sub print_footer



sub emailforlists {

if ($recipient) {
    
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: join-jokesandhumor\@list.netatlantic.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

if ($recipient2) {
    
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: jokesandhumorweekly-subscribe\@topica.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

if ($recipient3) {
    
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: hotbabedaily-subscribe\@topica.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

if ($recipient4) {
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: riddlesjh-subscribe\@topica.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

if ($recipient5) {
    
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: jokesandhumorclean-subscribe\@topica.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

if ($recipient6) {
    
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: wordofthedayjh-subscribe\@topica.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

if ($recipient7) {
    
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: drinksjh-subscribe\@topica.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

if ($recipient8) {
    
    
    open(MAIL,"|$mailprog -t");

    print MAIL "To: freebiesjh-subscribe\@topica.com\n";
    print MAIL "From: $email ($hisname)\n";

    # Check for Message Subject
    print MAIL "Subject: SUBSCRIBE\n\n"; 

    print MAIL "Subscribe Me\n";
    print MAIL "($email) on $date\n";
    print MAIL "-" x 75 . "\n\n";

}  # end recipient

} # end subroutine


sub get_date {

    # Define arrays for the day of the week and month of the year.           #
    @days   = ('Sunday','Monday','Tuesday','Wednesday',
               'Thursday','Friday','Saturday');
    @months = ('January','February','March','April','May','June','July',
	         'August','September','October','November','December');

    # Get the current time and format the hour, minutes and seconds.  Add    #
    # 1900 to the year to get the full 4 digit year.                         #
    ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
    $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
    $year += 1900;
$mon2 = $mon + 1;
    # Format the date.                                                       #
    $date = "$days[$wday], $months[$mon] $mday, $year at $time";
    $date2 = "$mon2/$mday/$year";
}