#!/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>Kinky Tattoo Nun blowing a big cock priest</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>Kinky Tattoo Nun Sky in Father Forgive Me</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">Tired of being a Nun, and tired of being alone, naughty nun Sky was  caught touching her fresh tattoos in the mirror. As she stood there in  the darkness the father came in to give her, the communion bread that  she forgot to take during mass. Desperate to cover her sin, she begged  father Angelino to take pity on her soul and wash away her sins. Taking  his hard Virgin Cock into her mouth, she began deep-throating him as he  prayed for forgiveness. The dirty slut, originally emerging from the  whorehouse, let the blasphemous priest cum in her mouth after fucking  her tits and taking communion off her hard nipples!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0286.jpg"><IMG src="thumbnails/DSC_0286.jpg" height="340" width="226" alt="DSC_0286"></A></TD>
      <TD align="center"><A href="images/DSC_0322.jpg"><IMG src="thumbnails/DSC_0322.jpg" height="340" width="226" alt="DSC_0322"></A></TD>
      <TD align="center"><A href="images/DSC_0376.jpg"><IMG src="thumbnails/DSC_0376.jpg" height="340" width="226" alt="DSC_0376"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0382.jpg"><IMG src="thumbnails/DSC_0382.jpg" height="340" width="226" alt="DSC_0382"></A></TD>
      <TD align="center"><A href="images/DSC_0420.jpg"><IMG src="thumbnails/DSC_0420.jpg" height="340" width="226" alt="DSC_0420"></A></TD>
      <TD align="center"><A href="images/DSC_0426.jpg"><IMG src="thumbnails/DSC_0426.jpg" height="340" width="226" alt="DSC_0426"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0464.jpg"><IMG src="thumbnails/DSC_0464.jpg" height="340" width="226" alt="DSC_0464"></A></TD>
      <TD align="center"><A href="images/DSC_0480.jpg"><IMG src="thumbnails/DSC_0480.jpg" height="340" width="226" alt="DSC_0480"></A></TD>
      <TD align="center"><A href="images/DSC_0492.jpg"><IMG src="thumbnails/DSC_0492.jpg" height="340" width="226" alt="DSC_0492"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0496.jpg"><IMG src="thumbnails/DSC_0496.jpg" height="340" width="226" alt="DSC_0496"></A></TD>
      <TD align="center"><A href="images/DSC_0505.jpg"><IMG src="thumbnails/DSC_0505.jpg" height="340" width="226" alt="DSC_0505"></A></TD>
      <TD align="center"><A href="images/DSC_0513.jpg"><IMG src="thumbnails/DSC_0513.jpg" height="340" width="226" alt="DSC_0513"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0518.jpg"><IMG src="thumbnails/DSC_0518.jpg" height="340" width="226" alt="DSC_0518"></A></TD>
      <TD align="center"><A href="images/DSC_0521.jpg"><IMG src="thumbnails/DSC_0521.jpg" height="340" width="226" alt="DSC_0521"></A></TD>
      <TD align="center"><A href="images/DSC_0533.jpg"><IMG src="thumbnails/DSC_0533.jpg" height="340" width="226" alt="DSC_0533"></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 size="2"><strong>xxxHorror&#8482;<br>
 18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement</a><br>
 http://xxxspacegirls.us/18-statement/18-statement.html</strong></font>
</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
	}
}

