#!/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.shtml">
</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>Emily Marilyn in THE Serial Killing Hooker Case</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="horror.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="804" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="800" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/XxxHorrorTheBest.jpg" alt="Horror Sex bondage video" width="800" height="360" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD colspan="5" align="center"><h2>Emily Marilyn in THE Serial Killing Hooker Case</h2>
      <A href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.glamourfilms.com/index.php">Blond Fetish Hooker Emily Marilyn</A> is declared a prime suspect and brought in to interrogation with blood on her   hands and body. Watch how far she will go to get off the hook, and decide for   yourself if her creamy white natural breasts and wet pussy are enough to call   her innocent. Say tuned to XXXHORROR.COM and decide Guilty or not?</TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0001.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0001.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0001"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0008.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0008.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0008"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0017.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0017.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0017"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0049.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0049.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0049"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0064.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0064.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0064"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0074.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0074.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0074"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0076.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0076.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0076"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0096.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0096.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0096"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0097.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0097.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0097"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0117.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0117.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0117"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0129.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0129.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0129"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0137.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0137.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0137"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0163.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0163.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0163"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0207.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0207.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0207"></A></TD>
      <TD align="center"><A href="images/EmilyMarilyn_SerialKillingHooker1_0225.jpg"><IMG src="thumbnails/EmilyMarilyn_SerialKillingHooker1_0225.jpg" height="226" width="150" alt="EmilyMarilyn_SerialKillingHooker1_0225"></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 BROWSE XXX HORROR</a></span>

  
</div>
<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 </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
	}
}

