#!/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.shtml">
</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>Alexis Breeze in Lost Innocence</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="horror.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="700" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Headar.jpg" alt="Horror Sex bondage video" width="700" height="300" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="700" border=0  align="center" cellpadding=2 cellspacing=2>
    <TR>
      <TD colspan="3" align="center"><h1>Alexis Breeze in Lost Innocence </h1>
        For long time Hot Latina Nun Alexis Breeze has been an example for purity and   innocence. But things have changed! After meeting the dark vampire Evie   Delatosso, nun Alexis, started feeling strange <A href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0019&PA=$afid&HTML=http://www.cjwrightxxx.com/index.php">kinky lesbian desires</A>, usually at   midnight. One day she woke up in the cellar of the monastery obsessed with   fetish sexual desires. Check out this 3 episode saga featuring Alexis Breeze   turning into evil vampire nun! Stay tuned for Part 2!</TD>
      </TR>
    <TR>
      <TD width="226" align="center"><A href="images/AlexisBreeze_VampNunP1_0017.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0017.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0017"></A></TD>
      <TD width="226" align="center"><A href="images/AlexisBreeze_VampNunP1_0020.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0020.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0020"></A></TD>
      <TD width="228" align="center"><A href="images/AlexisBreeze_VampNunP1_0034.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0034.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0034"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0037.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0037.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0037"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0048.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0048.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0048"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0052.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0052.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0052"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0056.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0056.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0056"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0061.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0061.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0061"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0071.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0071.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0071"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0076.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0076.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0076"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0096.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0096.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0096"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0101.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0101.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0101"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0110.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0110.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0110"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0113.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0113.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0113"></A></TD>
      <TD align="center"><A href="images/AlexisBreeze_VampNunP1_0115.jpg"><IMG src="thumbnails/AlexisBreeze_VampNunP1_0115.jpg" height="320" width="212" alt="AlexisBreeze_VampNunP1_0115"></A></TD>
    </TR>
  </TABLE></td>
  </tr>
  <tr>
    <td valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Footer_b.jpg" alt="Horror Sex BDSM  movies" width="700" height="300" border="0"></a></td>
  </tr>
</table>
<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
	}
}

