#!/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>Ashley and Mika Bondage Babes</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#000000" text="#FFFFFF" link="#FF0000" vlink="#CC0000" alink="#990000">

<h1 align="center">Ashley and Mika Bondage Babes</h1>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876970"><img src="../../header/fetish2.jpg" alt="fetish lingerie, lesbian girls, porn stars, hot lingerie, panties, leather, latex, centerfold babes" width="585" height="100" border="0"></a></div>
<TABLE width="585" border=0  align="center" cellpadding=0 cellspacing=5 bgcolor="#FFFFFF">

<TR>
  <TD colspan="5" align="center"><strong><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif">Do you remember <a href="http://tracker.zombaio.com/?$afid.7876967">spacegirl</a> Mika Tan? We haven&rsquo;t shot her since year 2000. She came to visit us the  other day&hellip;there was a shoot going on with Aashley Renee at the same  time. Mika could not resist it and joined Ashley in some rough bondage  action!</font></strong></TD>
  </TR>
<TR>
		<TD width="111" align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0030.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0030.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0030"></A></TD>
	<TD width="111" align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0054.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0054.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0054"></A></TD>
	<TD width="111" align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0068.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0068.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0068"></A></TD>
	<TD width="111" align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0094.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0094.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0094"></A></TD>
	<TD width="111" align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0131.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0131.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0131"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0149.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0149.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0149"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0154.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0154.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0154"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0156.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0156.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0156"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0159.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0159.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0159"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0164.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0164.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0164"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0184.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0184.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0184"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0185.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0185.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0185"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0215.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0215.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0215"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0219.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0219.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0219"></A></TD>
		<TD align="center"><A href="images/AshleyRenee-MikaTan_BondageBabes_0225.jpg"><IMG src="thumbnails/AshleyRenee-MikaTan_BondageBabes_0225.jpg" height="160" width="106" alt="AshleyRenee-MikaTan_BondageBabes_0225"></A></TD>
</TR>
</TABLE>
<br>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876929"><font face="Verdana, Arial, Helvetica, sans-serif" size="5"><strong>CLICK HERE TO BROWSE XXX HORROR</strong></font></a></div>
<br>


<div align="center">
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2"><br>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18
    U.S.C. 2257 Record-Keeping Requirements Compliance Statement</strong></font>
    </font></strong></font>at:<br>
  http://xxxspacegirls.us/18-statement/18-statement.html</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
	}
}

