#!/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>Handjob Nun :: Blasphemy Blowjob :: Witch Sex :: Vampire Porn  :: Female Domination</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="589" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="585" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TGP/header/XXXHorror.jpg" alt="Horror Sex bondage video" width="585" height="100" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD align="center"><h3>Sex Nuns Kymberly and Shay in Bible Studies</h3>  
        Sexy big boob nuns Shay Lynn and Kymberly Jane met at the local church for bible   study. These young passionate nuns were very strong personalities devoted to the   church and trying to save the world. They were pure and sexy. While sitting   together at the alter and praying they were noticing their big boobs going up   and down with the rhythm with their breathing. Hot nun Kymberly was feeling   strange next to Shay Lynn. She really wanted to touch these big juicy boobs. Some kind of a   lesbian chemistry happened between the two nuns during the pray and they started   hugging and kissing their young virgin bodies. Check out this horror sex lesbian   movie, where two passionate lesbian nuns release all the energy they have into a   blasphemy porn act!</TD>
      </TR>
    <TR>
      <TD align="center"><a href="Kimberly-Shay_WildBibleStudy_trailer.wmv"><img src="PlayerKymberlyShay.jpg" alt="lesbian nun sex" width="529" height="483" border="0"></a><br>
        / <a href="Kimberly-Shay_WildBibleStudy_trailer.mov">MOV VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h3>The Wrath of Mother Superior</h3>
        In this wild sacrilegious porn movie, MILF misty plays a righteous mother   superior set on punishing the priest for his love of porn. The punishment   continues, when the Sacrilegious Mother Superior returns to find the father in   the same position still hard and struggling with himself. The nun comes back to   continue her denial, tormenting the poor priest with her nasty blasphemous ways.   The Milf rubs his hard cock with her feet and teases him with her virgin nun   pussy, denying satisfaction. Sitting on his stomach, the mother superior   masturbates with a cross...Watch the video to see if   the master finally allows him to cum!</TD>
    </TR>
    <TR>
      <TD align="center"><a href="SickNun_Part2_trailer.wmv"><img src="PlayerNunBlowjob.jpg" alt="nun gives priest a blowjob" width="529" height="483" border="0"></a><br>
        / <a href="SickNun_Part2_trailer.mov">MOV VIDEO</a> /</TD>
      </TR>
    <TR>
      <TD align="center"><hr></TD>
    </TR>
    <TR>
      <TD align="center"><h3>Evie Delatosso in Dirty Bible Teacher</h3>
        Newly accepted nun Evie Delatosso had to do all the dirty work in the remote   monastery. In this scene we have captured Evie cleaning her room and then   focusing on bible studies. Being in the monastery for a year already still has   not helped her to overwhelm her dirty past as a prostitute. She has bribed one   of the monks, by giving him a blowjob, to bring her alcohol, which was forbidden   on the premises of the monastery. After getting a little bit tipsy Evie tried to   focus on the bible, but horny dirty desires were surfacing in her weak mind. She   started touching her wet pussy and masturbating. Check out this horrorsex movie   to see how Evie inserts a huge cross in her pussy....</TD>
      </TR>
    <TR>
      <TD align="center"><a href="EvieDelatossa_DirtyBibleTeacher_trailer.wmv"><img src="PlayerNunEvie.jpg" alt="Evie Delatosso in dirty bible studies" width="529" height="483" border="0"></a><br>
        / <a href="EvieDelatossa_DirtyBibleTeacher_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 ENTER XXX HORROR</a></span></div>

<br>
<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<br>
  </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
	}
}

