#!/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>Sister Angelica's Sermon</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>Sister Angelica's Sermon</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">In this kinky satanic sermon, sister Angelica preaches about   sacrilegious masturbation. The fetish nun is dressed in sexy latex,   inserting religious artifacts in her pussy and ass. Angelica Raven reads   from the satanic bible and masturbates in front of the audience behind   the camera. The nun answers different questions while inserting a big   statue in her pussy. The show was broadcast live on September 23th 2010   and recorded in HD for the members that could not attend. The HD video   file size is more than 2GB so it may take a while, depending on your   internet connection. Stay tuned for the BTS. This is another exclusive   horror sex production by Mistress Ania. Enjoy!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0013.jpg"><IMG src="thumbnails/DSC_0013.jpg" height="340" width="226" alt="DSC_0013"></A></TD>
      <TD align="center"><A href="images/DSC_0057.jpg"><IMG src="thumbnails/DSC_0057.jpg" height="340" width="226" alt="DSC_0057"></A></TD>
      <TD align="center"><A href="images/DSC_0069.jpg"><IMG src="thumbnails/DSC_0069.jpg" height="340" width="226" alt="DSC_0069"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0108.jpg"><IMG src="thumbnails/DSC_0108.jpg" height="340" width="226" alt="DSC_0108"></A></TD>
      <TD align="center"><A href="images/DSC_0118.jpg"><IMG src="thumbnails/DSC_0118.jpg" height="340" width="226" alt="DSC_0118"></A></TD>
      <TD align="center"><A href="images/DSC_0132.jpg"><IMG src="thumbnails/DSC_0132.jpg" height="340" width="226" alt="DSC_0132"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0147.jpg"><IMG src="thumbnails/DSC_0147.jpg" height="340" width="226" alt="DSC_0147"></A></TD>
      <TD align="center"><A href="images/DSC_0177.jpg"><IMG src="thumbnails/DSC_0177.jpg" height="340" width="226" alt="DSC_0177"></A></TD>
      <TD align="center"><A href="images/DSC_0184.jpg"><IMG src="thumbnails/DSC_0184.jpg" height="340" width="226" alt="DSC_0184"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0198.jpg"><IMG src="thumbnails/DSC_0198.jpg" height="340" width="226" alt="DSC_0198"></A></TD>
      <TD align="center"><A href="images/DSC_0225.jpg"><IMG src="thumbnails/DSC_0225.jpg" height="340" width="226" alt="DSC_0225"></A></TD>
      <TD align="center"><A href="images/DSC_0229.jpg"><IMG src="thumbnails/DSC_0229.jpg" height="340" width="226" alt="DSC_0229"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0230.jpg"><IMG src="thumbnails/DSC_0230.jpg" height="340" width="226" alt="DSC_0230"></A></TD>
      <TD align="center"><A href="images/DSC_0231.jpg"><IMG src="thumbnails/DSC_0231.jpg" height="340" width="226" alt="DSC_0231"></A></TD>
      <TD align="center"><A href="images/DSC_0233.jpg"><IMG src="thumbnails/DSC_0233.jpg" height="340" width="226" alt="DSC_0233"></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>
2257 info at:</strong></font><br>
http://xxxhorror.com/2257.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
	}
}

