#!/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>Andi Anderson and Kymberly Jane in Vampire Lesbian Sex</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body topmargin="0" text="#FFFFFF" bgcolor="#000000" link="#FF0000" vlink="#CC0000" alink="#FFFF00">

<table width="704" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CC0000">
  <tr>
    <td width="700" align="center" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/HorrorSexHeadar3.jpg" alt="Horror Sex bondage video" width="700" height="300" 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"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong>Andi Anderson and Kymberly Jane in Vampire Lesbian Sex</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">Mistress Ania Productions presents: Please Don't Bite The dark maiden  Kymberly has a tendency to drain her staff of blood. Poor defenceless  slave girl Andi Anderson was given to her as a gift from the Satan  himself. It was again a restless night for the Mistress Kym when she  called her servant girl in for a massage. Frustrated and angry the  vampire slut attacked her victim and after a kinky fight, slave girl  Andi was bit. Converted to the dark side, the young vampire began  enjoying the pleasure her mistress was offering. She eagerly took a  cross into her pussy, enjoying the burn that the religious object  offered. They mutually fucked the object, bit each other and licked  their tight wet pussies before having an enormous orgasm almost  destroying the vampires bed...<strong>read the whole story on XxxHorror.com</strong>!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0448.jpg"><IMG src="thumbnails/DSC_0448.jpg" height="340" width="226" alt="DSC_0448"></A></TD>
      <TD align="center"><A href="images/DSC_0466.jpg"><IMG src="thumbnails/DSC_0466.jpg" height="340" width="226" alt="DSC_0466"></A></TD>
      <TD align="center"><A href="images/DSC_0511.jpg"><IMG src="thumbnails/DSC_0511.jpg" height="340" width="226" alt="DSC_0511"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0529.jpg"><IMG src="thumbnails/DSC_0529.jpg" height="340" width="226" alt="DSC_0529"></A></TD>
      <TD align="center"><A href="images/DSC_0558.jpg"><IMG src="thumbnails/DSC_0558.jpg" height="340" width="226" alt="DSC_0558"></A></TD>
      <TD align="center"><A href="images/DSC_0567.jpg"><IMG src="thumbnails/DSC_0567.jpg" height="340" width="226" alt="DSC_0567"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0572.jpg"><IMG src="thumbnails/DSC_0572.jpg" height="340" width="226" alt="DSC_0572"></A></TD>
      <TD align="center"><A href="images/DSC_0630.jpg"><IMG src="thumbnails/DSC_0630.jpg" height="340" width="226" alt="DSC_0630"></A></TD>
      <TD align="center"><A href="images/DSC_0639.jpg"><IMG src="thumbnails/DSC_0639.jpg" height="340" width="226" alt="DSC_0639"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0668.jpg"><IMG src="thumbnails/DSC_0668.jpg" height="340" width="226" alt="DSC_0668"></A></TD>
      <TD align="center"><A href="images/DSC_0677.jpg"><IMG src="thumbnails/DSC_0677.jpg" height="340" width="226" alt="DSC_0677"></A></TD>
      <TD align="center"><A href="images/DSC_0679.jpg"><IMG src="thumbnails/DSC_0679.jpg" height="340" width="226" alt="DSC_0679"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0695.jpg"><IMG src="thumbnails/DSC_0695.jpg" height="340" width="226" alt="DSC_0695"></A></TD>
      <TD align="center"><A href="images/DSC_0736.jpg"><IMG src="thumbnails/DSC_0736.jpg" height="340" width="226" alt="DSC_0736"></A></TD>
      <TD align="center"><A href="images/DSC_0763.jpg"><IMG src="thumbnails/DSC_0763.jpg" height="340" width="226" alt="DSC_0763"></A></TD>
    </TR>
  </TABLE></td>
  </tr>
  <tr>
    <td><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/HorrorSexFooter3.jpg" alt="horny nuns in horror sex blasphemy acts" width="700" height="300" border="0"></a></td>
  </tr>
</table>
<br>
<br>

<div align="center">
<font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">xxxHorror&#8482;<br>
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement</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
	}
}

