#!/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~";


<html>
<head>
<title>Big Tit Blond MILF Katie Kox in The Deep Massage</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../fmb.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="1020" height="809" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">
<tr>
		<td>
			<a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0024&PA=$afid&HTML=http://www.fuckmeblack.com/index.php"><img src="../template/View_Clip_01.jpg" alt="free interracial movies" width="1020" height="243" border="0"></a></td>
  </tr>
	<tr>
		<td class="FLVbg" height="466"><table width="970" border="0" align="center" cellpadding="2" cellspacing="2">
          <TR>
            <TD colspan="5" align="center"><h1>Big Tit Blond MILF Katie Kox in The Deep Massage</h1>
              Frustrated wife Katie Kox was very disappointed by her husband, during   their vacation in Las Vegas. The blond MILF felt alone and abundant in   her hotel room. Big boob babe Katie decided to relax and get a nice   massage. She was nicely surprised when the masseur arrived - a nice   refreshing, black guy. The horny MILF decided that she need something   more than a massage. She seduced the innocent masseur and made him   massage her...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5163.jpg"><IMG src="thumbnails/IMG_5163.jpg" height="270" width="180" alt="IMG_5163"></A></TD>
            <TD align="center"><A href="images/IMG_5184.jpg"><IMG src="thumbnails/IMG_5184.jpg" height="270" width="180" alt="IMG_5184"></A></TD>
            <TD align="center"><A href="images/IMG_5197.jpg"><IMG src="thumbnails/IMG_5197.jpg" height="270" width="180" alt="IMG_5197"></A></TD>
            <TD align="center"><A href="images/IMG_5204.jpg"><IMG src="thumbnails/IMG_5204.jpg" height="270" width="180" alt="IMG_5204"></A></TD>
            <TD align="center"><A href="images/IMG_5226.jpg"><IMG src="thumbnails/IMG_5226.jpg" height="270" width="180" alt="IMG_5226"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5235.jpg"><IMG src="thumbnails/IMG_5235.jpg" height="270" width="180" alt="IMG_5235"></A></TD>
            <TD align="center"><A href="images/IMG_5245.jpg"><IMG src="thumbnails/IMG_5245.jpg" height="270" width="180" alt="IMG_5245"></A></TD>
            <TD align="center"><A href="images/IMG_5258.jpg"><IMG src="thumbnails/IMG_5258.jpg" height="270" width="180" alt="IMG_5258"></A></TD>
            <TD align="center"><A href="images/IMG_5268.jpg"><IMG src="thumbnails/IMG_5268.jpg" height="270" width="180" alt="IMG_5268"></A></TD>
            <TD align="center"><A href="images/IMG_5293.jpg"><IMG src="thumbnails/IMG_5293.jpg" height="270" width="180" alt="IMG_5293"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5303.jpg"><IMG src="thumbnails/IMG_5303.jpg" height="270" width="180" alt="IMG_5303"></A></TD>
            <TD align="center"><A href="images/IMG_5307.jpg"><IMG src="thumbnails/IMG_5307.jpg" height="270" width="180" alt="IMG_5307"></A></TD>
            <TD align="center"><A href="images/IMG_5318.jpg"><IMG src="thumbnails/IMG_5318.jpg" height="270" width="180" alt="IMG_5318"></A></TD>
            <TD align="center"><A href="images/IMG_5344.jpg"><IMG src="thumbnails/IMG_5344.jpg" height="270" width="180" alt="IMG_5344"></A></TD>
            <TD align="center"><A href="images/IMG_5352.jpg"><IMG src="thumbnails/IMG_5352.jpg" height="270" width="180" alt="IMG_5352"></A></TD>
          </TR>          
          <TR>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD colspan="5" align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0024&PA=$afid&HTML=http://www.fuckmeblack.com/index.php" class="EnterText"><span class="EnterText">CLICK HERE TO ENTER FUCK ME BLACK</span></a></TD>
          </TR>
          <TR>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD colspan="5" align="center">Copyright: FUCK ME BLACK . COM<br>
             2257 info at:<br>
             http://fuckmeblack.com/2257.html</TD>
          </TR>
          
          
      </table>		</td>
	</tr>
	<tr>
		<td>
			<img src="../template/View_Clip_03.jpg" width="1020" height="100" alt=""></td>
  </tr>
</table>

</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
	}
}

