#!/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>Vanessa Naughty performing anal satanic rituals</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=2 cellspacing=2>
    <TR>
      <TD width="675" colspan="3" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><strong>Vanessa Naughty performing anal satanic rituals</strong></font><br>
        <font face="Verdana, Arial, Helvetica, sans-serif">In the second part of the Satanic Sex lair episodes we find out heroine Vanessa   Naughty masturbating with the cross while reading the Satanic Book. Her friend   father Gabriel finally showed up, but it was too late. Juicy ass Vanessa was   controlled by Satan now and she attacked father Gabriel right a way. Not knowing   what is going on Father Gabriel was easily overwhelmed by Vanessa. She made him   lick her dirty ass while slapping his penis. Vanessa wanted to convert Gabriel   to the satanic ways. The father tried to fight back, but she made him read the   Satanic Book and he was caught under the satanic spell too. Vanessa and Gabriel   performed wild satanic sex rituals. Check out this kinky female domination and   facesitting movie and let me know what you think. Produced by Mistress Ania.   Enjoy!</font></TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0187.jpg"><IMG src="thumbnails/DSC_0187.jpg" height="340" width="226" alt="DSC_0187"></A></TD>
      <TD align="center"><A href="images/DSC_0190.jpg"><IMG src="thumbnails/DSC_0190.jpg" height="340" width="226" alt="DSC_0190"></A></TD>
      <TD align="center"><A href="images/DSC_0199.jpg"><IMG src="thumbnails/DSC_0199.jpg" height="340" width="226" alt="DSC_0199"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0205.jpg"><IMG src="thumbnails/DSC_0205.jpg" height="340" width="226" alt="DSC_0205"></A></TD>
      <TD align="center"><A href="images/DSC_0216.jpg"><IMG src="thumbnails/DSC_0216.jpg" height="340" width="226" alt="DSC_0216"></A></TD>
      <TD align="center"><A href="images/DSC_0218.jpg"><IMG src="thumbnails/DSC_0218.jpg" height="340" width="226" alt="DSC_0218"></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_0233.jpg"><IMG src="thumbnails/DSC_0233.jpg" height="340" width="226" alt="DSC_0233"></A></TD>
      <TD align="center"><A href="images/DSC_0242.jpg"><IMG src="thumbnails/DSC_0242.jpg" height="340" width="226" alt="DSC_0242"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0248.jpg"><IMG src="thumbnails/DSC_0248.jpg" height="340" width="226" alt="DSC_0248"></A></TD>
      <TD align="center"><A href="images/DSC_0253.jpg"><IMG src="thumbnails/DSC_0253.jpg" height="340" width="226" alt="DSC_0253"></A></TD>
      <TD align="center"><A href="images/DSC_0260.jpg"><IMG src="thumbnails/DSC_0260.jpg" height="340" width="226" alt="DSC_0260"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/DSC_0263.jpg"><IMG src="thumbnails/DSC_0263.jpg" height="340" width="226" alt="DSC_0263"></A></TD>
      <TD align="center"><A href="images/DSC_0285.jpg"><IMG src="thumbnails/DSC_0285.jpg" height="340" width="226" alt="DSC_0285"></A></TD>
      <TD align="center"><A href="images/DSC_0286.jpg"><IMG src="thumbnails/DSC_0286.jpg" height="340" width="226" alt="DSC_0286"></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
	}
}

