#!/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>Sinn Sage as the Evil Vampire Mistress</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="804" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="800" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/XxxHorrorTheBest.jpg" alt="Horror Sex bondage video" width="800" height="360" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD colspan="5" align="center"><h1>Sinn Sage as the Evil Vampire Mistress</h1>
      As night falls on the haunted graveyard, Father James is doing his final rounds   before laying to rest... Sinn Sage, an undead vampire, is lurking searching for   fresh virgin meat... Starving for blood and flesh, Sinn throws herself at the   terrified monk. He prayed to the lord above only to have his prayers laughed at   as Sinn began to beat the monk and stomp on his limp body. Aroused by his   helplessness, she proceeded to shout blasphemy and force the monk to denounce   his faith. The poor father was forced to watch in agony as the <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://adultfantasypark.com/index.php">vampire whore</a>   screamed in pleasure shoving his cross in her wet pussy and fucking pages of the holy book...all   before taking his life in her nightly feeding...</TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0009.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0009.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0009"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0028.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0028.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0028"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0044.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0044.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0044"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0059.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0059.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0059"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0118.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0118.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0118"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0135.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0135.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0135"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0141.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0141.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0141"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0149.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0149.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0149"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0157.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0157.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0157"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0183.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0183.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0183"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0199.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0199.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0199"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0230.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0230.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0230"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0236.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0236.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0236"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0239.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0239.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0239"></A></TD>
      <TD align="center"><A href="images/SinnSage_EvilVampire_0266.jpg"><IMG src="thumbnails/SinnSage_EvilVampire_0266.jpg" height="226" width="150" alt="SinnSage_EvilVampire_0266"></A></TD>
    </TR>
    
  </TABLE></td>
  </tr>
</table>
<br>
<div align="center">
  <span class="XxxHorror"><a href="http://tracker.zombaio.com/?$afid.7876929">CLICK HERE TO BROWSE XXX HORROR</a></span>
</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
	}
}

