#!/usr/bin/perl -T
######################
#ˇˇauthor:glisten
#  http://www.dsl-speed.org
######################
&get_form_data;
&emptyid unless $FORM{'sid'};
$afid=$FORM{'sid'};
&gencode;

sub emptyid{
$login_page="http://www.adultworldmedia.com";
# Replace to your affiliate program url
print "Content-Type: text/html\n\n";
   print <<"~EOT~";
<HTML>
<HEAD>
   <TITLE>Generator error</TITLE>
<META HTTP-EQUIV=Refresh CONTENT="2; URL=xdw.html">
</HEAD>
<BODY>Please input Your affiliate ID <a href=\"$login_page\">Try again.</a></BODY>
</HTML>

~EOT~
exit;
}

sub gencode{
print "Content-Type: text/html\n\n";
   print <<"~EOT~";


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Squirting Nun :: Church Sex :: Satan Whore :: Vampire Porn :: Exorcism :: Fetish Lesbian</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../horror-vamp1/horror.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="589" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="585" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TGP/header/xxxvampiresex.jpg" alt="Horror Sex bondage video" width="700" height="100" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD align="center"><h2><strong>Sindee Jennings in the Squirting Nun</strong></h2>  
        Sindee Jennings was a trouble maker from the start. The moment her  mother gave birth to her in the brothel, everybody knew that the child  would be trouble. To save her immortal soul her at age 1 her mother  took her to the convent to receive a good and decent upbringing and a  healthy fear of god. But as she grew, Sindee knew that she was not like  the other nuns. The others were dull, unenthusiastic, and lived their  lives completely by the book. Nun Sindee was curious and alive and she  wanted to not only hear about sin, but to experience it herself and  Father James was the perfect victim. Over her years there she had  developed an un-nunly liking to the innocent father and waited  impatiently to make her move. Finally on the night to her 18th birthday  she found Father James alone, reading...<strong>Read the whole story on XxxHorror.com</strong>!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="SindeeJennings_Baptism_trailer.wmv"><img src="nunSindeeJenningsSguirts.jpg" alt="horny BDSM nun squirting" width="529" height="483" border="0"></a><br>
        <a href="SindeeJennings_Baptism_trailer.mp4">MP4 VIDEO</a></TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h2>Anie Cruz and Nun Cherry in Evil Vampire Nun</h2>
        Hot Vampire bitch Annie Cruz is the new Queen of the Horror Castle. She  had to show to her slaves her evil power right after she was crowned.  Anie went to the nearest church and picked the newly converted nun  Cherry. She brought the innocent kinky nun Cherry to the Horror Castle  to test her faith…of course nun Cherry could not resist the seductive  power of the latex vampire queen and soon she started feeling lustful  sexual desires. Cherry grabbed the wooden cross hanging on her neck and  started masturbating in front of the vampire community. Check out this  nasty horrorsex movie exposing the conversion of nun Cherry to a  vampire lesbian slut. Stay tuned to the next episode of XXXHorror.com!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="AnnieCruz_EvilVamp_trailer.wmv"><img src="nunCherryAnnie.jpg" alt="Annie Cruz and nun Cherry in lesbian sex movie" width="529" height="483" border="0"></a><br>
        <a href="AnnieCruz_EvilVamp_trailer.mp4">MP4 VIDEO</a></TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h2>Estrella Flores Lost in the Evil Graveyard</h2>
        Andi Anderson a sinner awoke the night after her encounter with Aubrey Addams. Her  experience had left an impression on her black heart and she found  herself to be moved by the naive innocence of the girl that she had  just corrupted. A sudden chill ran up her spine as she thought of the  torturous fires of Hell. What if hell was real? What if her sins would  bring her to the darkest of demons? Satan. She has long devoted herself  to Satan without actually knowing the consequences of her actions and  on this night she was afraid. Andi quickly took out her long forgotten  robe and her habit and made her way to the church. She had no idea what  to expect or what she would do since she has been exiled ages ago. As  she reached the gate a surge of confidence overcame her and she made  her way in. Entering the church Andi found mother superior saying her  hail Marys as she had done for so many years, devout and faithful to  the Lord above. The mother was surprised to see Andy and although a bit  wary...<strong>read the whole story on xxxHorror.com!</strong></TD>
      </TR>
    <TR>
      <TD align="center"><a href="AndiAnderson_Salvation_trailer.wmv"><img src="AndiAndersonSexNun.jpg" alt="Andi Anderson in anal sex nun" width="529" height="483" border="0"></a><br>
        <a href="AndiAnderson_Salvation_trailer.mp4">MP4 VIDEO</a></TD>
      </TR>
    

  </TABLE></td>
  </tr>
</table>
<br>
<div align="center"><span class="XxxHorror"><a href="http://tracker.zombaio.com/?$afid.7876929">CLICK HERE TO ENTER XXX HORROR</a></span></div>

<br>
<br>


<div align="center">
  <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong>xxxHorror&#8482;<br>
    18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:</strong></font><br>
  http://xxxspacegirls.us/18-statement/18-statement.html
</div>
</body>
</html>



~EOT~
exit;
}

# Get form data
sub get_form_data {
	read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	if ($ENV{'QUERY_STRING'}) {
		$buffer = "$buffer\&$ENV{'QUERY_STRING'}"
	}
	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name,$value) = split(/=/,$pair);
		$value =~ tr/+/ /;
		$value =~ s/\t//g;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
		$FORM{$name} = $value
	}
}

