#!/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>Nicki Hunter in the Demon Nun</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/xxxvampiresex.jpg" alt="Horror Sex bondage video" width="700" height="100" 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>Nicki Hunter in the Demon Nun</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">Niki Hunter was a corrupt nun. Her sacrilegious ways were heard by the dark   lord, Satan, and he made her his mistress of darkness. One night with dark   intentions she made her way into the church and waited for the priest to come.   The priest entering the chapel found the nun quietly praying and upon inquiry of   how she felt, found himself attacked by a demon. She announced that she had been   waiting for him but the priest had no chance to speak. The satanic nun began to   strip him and lust for his precious virginity. Trying desperately to escape the   priest attempted to...<strong>Read the whole story on XxxHorror.com</strong>!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0001.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0001.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0001"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0008.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0008.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0008"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0031.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0031.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0031"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0091.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0091.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0091"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0178.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0178.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0178"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0190.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0190.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0190"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0224.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0224.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0224"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0356.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0356.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0356"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0455.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0455.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0455"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0484.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0484.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0484"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0501.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0501.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0501"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0504.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0504.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0504"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0526.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0526.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0526"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0566.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0566.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0566"></A></TD>
      <TD align="center"><A href="images/NickiHunter_DemonNun_0573.jpg"><IMG src="thumbnails/NickiHunter_DemonNun_0573.jpg" height="340" width="225" alt="NickiHunter_DemonNun_0573"></A></TD>
    </TR>
  </TABLE></td>
  </tr>
</table>
<br>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="6"><strong><a href="http://tracker.zombaio.com/?$afid.7876929">CLICK HERE TO ENTER XXX HORROR</a></strong></font></div>
<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 at:<br>
 http://xxxspacegirls.us/18-statement/18-statement.html</font>
</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
	}
}

