#!/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>Sex Nun Cassandra Cruz Stripping and Masturbating</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body topmargin="0" text="#FFFFFF" bgcolor="#000000" link="#FF0000" vlink="#CC0000" alink="#FFFF00">

<table width="704" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CC0000">
  <tr>
    <td width="700" align="center" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/HorrorSexHeadar3.jpg" alt="Horror Sex bondage video" width="700" height="300" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="695" border=0  align="center" cellpadding=1 cellspacing=1>
    <TR>
      <TD width="675" colspan="3" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong>Sex Nun Cassandra Cruz Stripping and Masturbating</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">Hot Latina nun Cassandra Cruz arrived to a bible study class feeling  naughty and tense. As usual every Friday she would go to the main  citadel of the monastery to meet Mother Superior and discuss and study  the old testament. Cassandra started with glancing the chapter of the  old book they have discussed in the previous meeting, when Mother  Superior was called by episcope Gavril for important meeting. Left  alone Cassandra Cruz tried to concentrate reading, but something evil  was bordering her inside. She threw the holy book a way and started  stripping her nun uniform and touching her wet pussy. Little did  Cassandra know that she was possessed by evil spirit, which was trying  to put roots in this monastery for centuries. Fully losing control of  her body the naughty nun was watching her hands grabbing the big silver  cross and sticking it in her tight pink pussy. At the end she reached  an orgasm and squirted all over the...<strong>read the whole story on XxxHorror.com</strong>!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0025.jpg"><IMG src="thumbnails/DSC_0025.jpg" height="340" width="226" alt="DSC_0025"></A></TD>
      <TD align="center"><A href="images/DSC_0035.jpg"><IMG src="thumbnails/DSC_0035.jpg" height="340" width="226" alt="DSC_0035"></A></TD>
      <TD align="center"><A href="images/DSC_0075.jpg"><IMG src="thumbnails/DSC_0075.jpg" height="340" width="226" alt="DSC_0075"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0083.jpg"><IMG src="thumbnails/DSC_0083.jpg" height="340" width="226" alt="DSC_0083"></A></TD>
      <TD align="center"><A href="images/DSC_0099.jpg"><IMG src="thumbnails/DSC_0099.jpg" height="340" width="226" alt="DSC_0099"></A></TD>
      <TD align="center"><A href="images/DSC_0125.jpg"><IMG src="thumbnails/DSC_0125.jpg" height="340" width="226" alt="DSC_0125"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0149.jpg"><IMG src="thumbnails/DSC_0149.jpg" height="340" width="226" alt="DSC_0149"></A></TD>
      <TD align="center"><A href="images/DSC_0174.jpg"><IMG src="thumbnails/DSC_0174.jpg" height="340" width="226" alt="DSC_0174"></A></TD>
      <TD align="center"><A href="images/DSC_0183.jpg"><IMG src="thumbnails/DSC_0183.jpg" height="340" width="226" alt="DSC_0183"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0228.jpg"><IMG src="thumbnails/DSC_0228.jpg" height="340" width="226" alt="DSC_0228"></A></TD>
      <TD align="center"><A href="images/DSC_0254.jpg"><IMG src="thumbnails/DSC_0254.jpg" height="340" width="226" alt="DSC_0254"></A></TD>
      <TD align="center"><A href="images/DSC_0297.jpg"><IMG src="thumbnails/DSC_0297.jpg" height="340" width="226" alt="DSC_0297"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0314.jpg"><IMG src="thumbnails/DSC_0314.jpg" height="340" width="226" alt="DSC_0314"></A></TD>
      <TD align="center"><A href="images/DSC_0340.jpg"><IMG src="thumbnails/DSC_0340.jpg" height="340" width="226" alt="DSC_0340"></A></TD>
      <TD align="center"><A href="images/DSC_0365.jpg"><IMG src="thumbnails/DSC_0365.jpg" height="340" width="226" alt="DSC_0365"></A></TD>
    </TR>
  </TABLE></td>
  </tr>
  <tr>
    <td><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/HorrorSexFooter3.jpg" alt="horny nuns in horror sex blasphemy acts" width="700" height="300" border="0"></a></td>
  </tr>
</table>
<br>
<br>

<div align="center">
<font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">xxxHorror&#8482;<br>
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:</strong></font><br>
http://xxxspacegirls.us/18-statement/18-statement.html
</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
	}
}

