#!/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>Lexi Love :: Evie Delatosso :: Claire Dames :: Horror Sex Nun :: Vampire Porn</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../horror-vamp1/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="../../TGP/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 align="center"><h1>Lexi Love in Satan’s Sex Mistress</h1>  
        Pornstar babe Lexi Love has sold her soul to the devil. She was sent by Satan to   the remote monastery in Eastern Europe to start a new Satanic Cult. She started   collecting the souls of the local nuns and priests by offering them her nude   sexy body and seducing them to perform wild horror sex acts!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="LexiLove_SatanicMistress_trailer.wmv"><img src="LexiLoveSatanicMistress.jpg" alt="lexi Love in satanic Mistress" width="790" height="554" border="0"></a><br>
/ <a href="LexiLove_SatanicMistress_trailer.mp4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h1>Evie Delatosso in Lost Salvation</h1>
        Evie Dellatosso, Latino catholic nun, was praying in her convent cell calling   out to the lord to forgive her for her past sins. Reading from the bible, she   discovers a passage about whores and has the sudden uncontrollable desire to   have the lord inside of her, fucking her. She began to feel an evil spirit come   over her filling her with unholy desires. Unable to control herself she speaks   blasphemy and violates herself with the holies of objects while begging Jesus to   save her sole…Watch how wet the nun becomes thrusting the cross deeper and   deeper into her wet craving pussy on xxxhorror.com!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="EvieDelatosso_LostSalvation_trailer.wmv"><img src="EvieDelatossoLostSalvation.jpg" alt="Evie Delatosso horrorsex nun" width="790" height="554" border="0"></a><br>
        / <a href="EvieDelatosso_LostSalvation_trailer.mp4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h2>Claire Dames in the Turning of the Innocent</h2>
        Nasty hardcore porn star slut Claire Dames is big boob horror-sex vampire. She   was waken at midnight by innocent Father James, who was walking in the cemetery.   There was an old coffin laying in one of the rooms. Father James opened it and   unleashed the old evil hiding inside. Vampire Queen Claire Dames jumped on the   innocent father and made him her 101 minion. Check out this <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://adultfantasypark.com/index.php">BDSM vampire sex   movie</a> featuring big titted pornstar Claire Dames turning Father James into evil   vampire freak!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="ClaireDamesInnocentTurning_trailer.wmv"><img src="ClaireDamesInnocentTurning.jpg" alt="Claire Dames horror sex vampire" width="790" height="554" border="0"></a><br>
        / <a href="ClaireDamesInnocentTurning_trailer.mp4">MP4 VIDEO</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
	}
}

