#!/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 XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>XXX Fetish World Movies</title>
<style type="text/css">
<!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #FFFFFF;
}
body {
	background-color: #000000;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<style type="text/css">
<!--
.porn-back {
	background-image: url(../../template/images/back.jpg);
}
-->
</style>
</head>

<body text="#000000" link="#CC0000" vlink="#990000" alink="#990000">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="317"><a href="http://tracker.zombaio.com/?$afid.7876970"><img src="../../template/images/header.jpg" alt="fetish sluts Satine Phoenix and lesbian whore Attena fatale in BDSM movie with Tiger Lily " width="778" height="317" border="0" /></a></td>
  </tr>
  <tr>
    <td class="porn-back"><table width="778" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td><table width="778" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td align="center"><a href="../../../movies/EMILY_ANASTASIA_SMOKE/Movie_Emily_Anastasia_Smoke01.wmv"><img src="../../../movies/EMILY_ANASTASIA_SMOKE/movie_1.jpg" alt="Emily Marilyn and Anastasia Pierce fetish smoke latex movie1" width="240" height="240" border="0" /></a></td>
                <td align="center"><a href="../../../movies/EMILY_ANASTASIA_SMOKE/Movie_Emily_Anastasia_Smoke02.wmv"><img src="../../../movies/EMILY_ANASTASIA_SMOKE/movie_2.jpg" alt="Emily Marilyn and Anastasia Pierce fetish smoke latex movie 2" width="240" height="239" border="0" /></a></td>
                <td align="center"><a href="../../../movies/EMILY_ANASTASIA_SMOKE/Movie_Emily_Anastasia_Smoke03.wmv"><img src="../../../movies/EMILY_ANASTASIA_SMOKE/movie_3.jpg" alt="Emily Marilyn and Anastasia Pierce fetish smoke latex movie 3" width="240" height="240" border="0" /></a></td>
              </tr>
              <tr> 
                <td colspan="3" align="center"><table width="100%" border="0"  align="center" cellpadding="0" cellspacing="5">
                    <tr> 
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke1_0001.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke1_0001.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke1_0001" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke1_0026.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke1_0026.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke1_0026" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke1_0036.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke1_0036.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke1_0036" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke1_0067.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke1_0067.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke1_0067" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke1_0118.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke1_0118.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke1_0118" /></a></td>
                    </tr>
                    <tr> 
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke2_0001.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke2_0001.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke2_0001" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke2_0033.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke2_0033.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke2_0033" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke2_0068.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke2_0068.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke2_0068" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke2_0109.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke2_0109.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke2_0109" /></a></td>
                      <td align="center"><a href="images/Emily_Anastasia_RubberSmoke2_0120.jpg"><img src="thumbnails/Emily_Anastasia_RubberSmoke2_0120.jpg" height="160" width="104" border="2" alt="Emily_Anastasia_RubberSmoke2_0120" /></a></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
      </tr>
      <tr>
          <td align="center"><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Visit 
            <a href="http://tracker.zombaio.com/?$afid.7876967" class="back">XXX Space 
            Girls</a> today and see more <a href="http://tracker.zombaio.com/?$afid.7876969" class="back">ANASTASIA 
            PIERCE</a>!<br />
            100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 
            400,000 exclusive Fetish Movies, Horror Sex Images, Vampire Comics, 
            SCI-FI Porn Videos, Alien Manga and Bondage Pictures.</strong></font></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="315"><img src="../../template/images/footer.jpg" alt="BDSM movies and fetish porn stars" width="778" height="315" border="0" usemap="#Map" /></td>
  </tr>
</table>

<map name="Map" id="Map">
  <area shape="rect" coords="184,274,334,292" href="http://xxxspacegirls.us/18-statement/18-statement.html" alt="2257 porn statement" />
  <area shape="poly" coords="252,239,108,301,9,303,3,11,765,7,758,305,385,297" href="http://tracker.zombaio.com/?$afid.7876970" alt="Jana Cova dungeon, Tyla Wynn fucks fetish dildo, Emily Marilyn lingerie alley" />
</map>
</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
	}
}

