#!/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=xdw.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>Nun Kagney Lee Karter in her Sinful Lust</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/HorrorPorn.jpg" alt="Horror Sex bondage video" width="800" height="216" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD align="center"><h1>Nun Kagney Lee Karter in her Sinful Lust</h1>  
        After hearing of the evil lurking in the church that sister Kagney Linn Karter serves, the Cardinal decided to make the trip to rid the holy place of its evil spirits. The Cardinal finds Nun Kagney at the altar and begins to read a prayer to banish the evil within. Possessed by the devil, Kagney screams to the priest to stop, and commences touching herself in the most unholy ways. As the Cardinals prayers get louder, nun Kagney becomes more wild with desire masturbating and pushing the cross deeper and deeper into her pussy. Can the Cardinal save her soul...stay tuned on xxxhorror.com!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="KagneyLinnKarter_Sinful_trailer.wmv"><img src="KagneyLinnKarter_Sinful.jpg" alt="Kagney Linn Karter in her sinful lust" width="790" height="554" border="0"></a><br>
/ <a href="KagneyLinnKarter_Sinful_trailer.mp4" class="MP4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h1>Eve Mayfair in the Unholy Undead</h1>
        The graveyard of the remote monastery in the Carpathian Mountains holds a centuries old secret. There was black female vampire living in the near by caves. The nasty horror sex vampire Eve Mayfair arrived 1500 years ago with the Roman legions. She liked the quite remote place and settled here torturing the Carpathian population for centuries. This <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://adultfantasypark.com/index.php">unholy sex vampire</a> was visiting the monastery every night preying for weak priests and dirty nuns, collecting their souls for centuries. Stay tuned to Xxx Horror!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="EveMayfair_UnholyUndead_trailer.wmv"><img src="EveMayfair_UnholyDead_0006.jpg" alt="Eve Mayfair horror sex vampire babe" width="790" height="554" border="0"></a><br>
        / <a href="EveMayfair_UnholyUndead_trailer.mp4" class="MP4">MP4 VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h1>Aubrey Addams in The Prayer</h1>
        Consumed by holy dreams, the un-repentant nun Aubrey Adams prays to become the chosen virgin. In her prayer Aubrey calls out to have the spirit inside her, masturbating with the cross and pouring holy candles all over her naked teen tits. The un-holly Father James, takes advantage of the nun during her blasphemous sex acts by inserting the rosary into the nuns virgin pussy, and counseling her in her sin on XXXhorror.com!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="AubreyAddams_ThePrayer_trailer.wmv"><img src="AubreyAddams_ThePrayer_0066.jpg" alt="nun aubrey addams praying and masturbating" width="790" height="554" border="0"></a><br>
        / <a href="AubreyAddams_ThePrayer_trailer.mp4" class="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>


<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
	}
}

