#!/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=index.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>Horror Sex Lesbian Nun Eve seducing virgin Ami Emerson</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css">
<!--
body {
	margin: 0px;
	padding: 0px;
}
-->
</style>
</head>

<body bgcolor="#000000" text="#FFFFFF" link="#FF0000" vlink="#CC0000" alink="#FFFF00">

<table width="704" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="700" align="center" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Headar2.jpg" alt="Horror Sex bondage video" width="699" height="273" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="695" border=0  align="center" cellpadding=1 cellspacing=1>
    <TR>
      <TD width="675" colspan="3" align="center">
      <h1>Ami and Eve in The Seven Deadly Sins</h1>
      <strong><font face="Verdana, Arial, Helvetica, sans-serif">The Orthodox Church does not take kindly to talk of blasphemy. As punishment for   their whispers during mass, 2 nuns were locked in their chambers to spend a   night of prayer asking forgiveness for their sins. Eve, being more curious of   the two, was reading a passage from the bible that spoke of the 7 deadly sins.   Speaking of the sin of lust eve began to look at white pure Ami in a different   light. Overcome by evil spirit, she wanted Ami to sin with her and began forcing   herself on the <a href="http://tracker.zombaio.com/?$afid.7876929">virgin nun</a>, forcing her to speak blasphemy and rip up the Holy   Bible. Both nuns become consumed with evil as they use religious objects to   please each other even shoving the cross of Christ deep inside their   pussies.</font></strong></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/ConventLust_0009.jpg"><IMG src="thumbnails/ConventLust_0009.jpg" height="340" width="225" alt="ConventLust_0009"></A></TD>
      <TD align="center"><A href="images/ConventLust_0022.jpg"><IMG src="thumbnails/ConventLust_0022.jpg" height="340" width="225" alt="ConventLust_0022"></A></TD>
      <TD align="center"><A href="images/ConventLust_0033.jpg"><IMG src="thumbnails/ConventLust_0033.jpg" height="340" width="225" alt="ConventLust_0033"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/ConventLust_0046.jpg"><IMG src="thumbnails/ConventLust_0046.jpg" height="340" width="225" alt="ConventLust_0046"></A></TD>
      <TD align="center"><A href="images/ConventLust_0059.jpg"><IMG src="thumbnails/ConventLust_0059.jpg" height="340" width="225" alt="ConventLust_0059"></A></TD>
      <TD align="center"><A href="images/ConventLust_0078.jpg"><IMG src="thumbnails/ConventLust_0078.jpg" height="340" width="225" alt="ConventLust_0078"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/ConventLust_0106.jpg"><IMG src="thumbnails/ConventLust_0106.jpg" height="340" width="225" alt="ConventLust_0106"></A></TD>
      <TD align="center"><A href="images/ConventLust_0107.jpg"><IMG src="thumbnails/ConventLust_0107.jpg" height="340" width="225" alt="ConventLust_0107"></A></TD>
      <TD align="center"><A href="images/ConventLust_0136.jpg"><IMG src="thumbnails/ConventLust_0136.jpg" height="340" width="225" alt="ConventLust_0136"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/ConventLust_0167.jpg"><IMG src="thumbnails/ConventLust_0167.jpg" height="340" width="225" alt="ConventLust_0167"></A></TD>
      <TD align="center"><A href="images/ConventLust_0187.jpg"><IMG src="thumbnails/ConventLust_0187.jpg" height="340" width="225" alt="ConventLust_0187"></A></TD>
      <TD align="center"><A href="images/ConventLust_0215.jpg"><IMG src="thumbnails/ConventLust_0215.jpg" height="340" width="225" alt="ConventLust_0215"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/ConventLust_0256.jpg"><IMG src="thumbnails/ConventLust_0256.jpg" height="340" width="225" alt="ConventLust_0256"></A></TD>
      <TD align="center"><A href="images/ConventLust_0278.jpg"><IMG src="thumbnails/ConventLust_0278.jpg" height="340" width="225" alt="ConventLust_0278"></A></TD>
      <TD align="center"><A href="images/ConventLust_0320.jpg"><IMG src="thumbnails/ConventLust_0320.jpg" height="340" width="225" alt="ConventLust_0320"></A></TD>
    </TR>
    

    

  </TABLE></td>
  </tr>
  <tr>
    <td align="center" valign="top"><img src="../../TemplateM/t2/Footer2.jpg" alt="Horror Sex BDSM  movies" width="699" height="300" border="0"></td>
  </tr>
</table><br>
<div align="center"><font size="6" face="Verdana, Arial, Helvetica, sans-serif"><b><a href="http://tracker.zombaio.com/?$afid.7876929">CLICK HERE TO ENTER XXX HORROR</a></b></font></div>
<br>
<div align="center">
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">xxxHorror&#8482;<br>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18 U.S.C. 2257
    Record-Keeping Requirements Compliance Statement</strong></font> at:<br>
    http://xxxspacegirls.us/18-statement/18-statement.html </font></strong></font></p>
</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
	}
}

