#!/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>Max Mikita :: Sinn Sage :: Bree Olsen performing horror sex</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="../../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>Max Mikita as Horrorsex Vampire</h1>  
        Fetish Asian slut Max  Mikita has turned to nasty vampire freak. She was walking every night  around the monastery trying to catch and convert fresh priests to the  evil side. One night at full moon she spotted the faithful and fearless  father James walking in the small cemetery. Kinky small titted vamp Max  confronted the father trying to change his strong believes in god.  Father James did not give up easy. He pulled out the holy water and  tried to spray it over this Asian vampire. Max Mikita took the holy  water off his hands and poured it in her mouth and spit it over the  shocked father. Check out this sexy vampire bondage movie available  only at XXX Horror!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="MaxMakita_WhereEvilLives_trailer.wmv"><img src="MaxMikitaVamp.jpg" alt="Max Mikita horror sex vampire" width="790" height="514"></a><br>
/ <a href="MaxMakita_WhereEvilLives_trailer.mp4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h1>Bree Olsen in Vampire Confessions</h1>
        Check out this Xxx Horror Interview with hot vampire babe Bree Olson. The Interview was taken right after a horror-sex shoot, where former fetish nun Bree dominates an innocent priest. This is another exclusive horror-sex movie featuring big boob porn star Bree Olsen reading the bible and masturbating right after humiliating father Angelino! The nasty vampire sex scene coming up next on XxxHorror.com! Join   the <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://adultfantasypark.com/forum/index.php">message board</a> and let me know   what you think!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="BreeOlson_EvilMistress_Trailer.wmv"><img src="BreeOlsenHorrorNun.jpg" alt="Bree Olsen horror sex vampire nun" width="790" height="514"></a><br>
        / <a href="BreeOlson_EvilMistress_Trailer.mp4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD 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. Aroused by his   helplessness, she proceeded to shout blasphemy and makes the monk to denounce   his faith. The poor father had to watch in agony as the vampire whore screamed in pleasure shoving his cross in her wet pussy and fucking pages of the holy book...</TD>
      </TR>
    <TR>
      <TD align="center"><a href="SinnSageEvilVampire_Trailer.wmv"><img src="SinSageVamp.jpg" alt="Sinn Sage evil mistress dominating a priest" width="790" height="514"></a><br>
        / <a href="SinnSageEvilVampire_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
	}
}

