#!/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>Annie Cruz as the Vampire Nun</TITLE>

<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#000000" text="#FFFFFF" link="#FF0000" vlink="#990000" alink="#FF6600">

<h1 align="center">Annie Cruz as the Vampire Nun</h1>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/XXXHorror.jpg" alt="fetish lingerie, lesbian girls, porn stars, hot lingerie, panties, leather, latex, centerfold babes" width="585" height="100" border="0"></a></div>
<TABLE width="585" border=0  align="center" cellpadding=0 cellspacing=5>

<TR>
  <TD colspan="5" align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>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&hellip;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 <A href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0007&PA=$afid&HTML=http://galacticgirls.com/index.php">lesbian slut</A>. Stay   tuned to the next episode of XXXHorror.com!</strong></font></TD>
  </TR>
<TR>
		<TD width="111" align="center"><A href="images/AnnieCruz_EvilVampireNun_0001.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0001.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0001"></A></TD>
	<TD width="111" align="center"><A href="images/AnnieCruz_EvilVampireNun_0010.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0010.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0010"></A></TD>
	<TD width="111" align="center"><A href="images/AnnieCruz_EvilVampireNun_0013.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0013.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0013"></A></TD>
	<TD width="111" align="center"><A href="images/AnnieCruz_EvilVampireNun_0026.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0026.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0026"></A></TD>
	<TD width="111" align="center"><A href="images/AnnieCruz_EvilVampireNun_0029.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0029.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0029"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0030.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0030.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0030"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0037.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0037.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0037"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0047.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0047.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0047"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0055.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0055.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0055"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0065.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0065.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0065"></A></TD>
</TR>


<TR>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0076.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0076.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0076"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0081.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0081.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0081"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0090.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0090.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0090"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0096.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0096.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0096"></A></TD>
		<TD align="center"><A href="images/AnnieCruz_EvilVampireNun_0100.jpg"><IMG src="thumbnails/AnnieCruz_EvilVampireNun_0100.jpg" height="160" width="106" alt="AnnieCruz_EvilVampireNun_0100"></A></TD>
</TR>
</TABLE>
<br>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876929"><font face="Verdana, Arial, Helvetica, sans-serif" size="6"><strong>CLICK HERE TO BROWSE XXX HORROR</strong></font></a></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 at:<br>
    http://xxxspacegirls.us/18-statement/18-statement.html</strong></font></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
	}
}

