#!/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>Sexy Latina MILF Gabby drilled by huge black dick</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"><h2>Sexy Latina MILF Gabby drilled by huge black dick</h2>
              In this kinky interracial sex film Latina MILF Gabby mistakenly thought   that the guy that was helping her bring her groceries to the car is the   store Bellman. Little did she know that the fine black man was just   trying to hit on her. Finally, after Jonny loaded her groceries in the   car, he was able to explain that he simply liked Gabby and wanted to   help her. At first the hot MILF was thinking to kick him out, but she...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_1026.jpg"><IMG src="thumbnails/IMG_1026.jpg" height="270" width="180" alt="IMG_1026"></A></TD>
            <TD align="center"><A href="images/IMG_1128.jpg"><IMG src="thumbnails/IMG_1128.jpg" height="270" width="180" alt="IMG_1128"></A></TD>
            <TD align="center"><A href="images/IMG_1156.jpg"><IMG src="thumbnails/IMG_1156.jpg" height="270" width="180" alt="IMG_1156"></A></TD>
            <TD align="center"><A href="images/IMG_1165.jpg"><IMG src="thumbnails/IMG_1165.jpg" height="270" width="180" alt="IMG_1165"></A></TD>
            <TD align="center"><A href="images/IMG_1188.jpg"><IMG src="thumbnails/IMG_1188.jpg" height="270" width="180" alt="IMG_1188"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_1192.jpg"><IMG src="thumbnails/IMG_1192.jpg" height="270" width="180" alt="IMG_1192"></A></TD>
            <TD align="center"><A href="images/IMG_1201.jpg"><IMG src="thumbnails/IMG_1201.jpg" height="270" width="180" alt="IMG_1201"></A></TD>
            <TD align="center"><A href="images/IMG_1203.jpg"><IMG src="thumbnails/IMG_1203.jpg" height="270" width="180" alt="IMG_1203"></A></TD>
            <TD align="center"><A href="images/IMG_1255.jpg"><IMG src="thumbnails/IMG_1255.jpg" height="270" width="180" alt="IMG_1255"></A></TD>
            <TD align="center"><A href="images/IMG_1274.jpg"><IMG src="thumbnails/IMG_1274.jpg" height="270" width="180" alt="IMG_1274"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_1285.jpg"><IMG src="thumbnails/IMG_1285.jpg" height="270" width="180" alt="IMG_1285"></A></TD>
            <TD align="center"><A href="images/IMG_1289.jpg"><IMG src="thumbnails/IMG_1289.jpg" height="270" width="180" alt="IMG_1289"></A></TD>
            <TD align="center"><A href="images/IMG_1298.jpg"><IMG src="thumbnails/IMG_1298.jpg" height="270" width="180" alt="IMG_1298"></A></TD>
            <TD align="center"><A href="images/IMG_1304.jpg"><IMG src="thumbnails/IMG_1304.jpg" height="270" width="180" alt="IMG_1304"></A></TD>
            <TD align="center"><A href="images/IMG_1306.jpg"><IMG src="thumbnails/IMG_1306.jpg" height="270" width="180" alt="IMG_1306"></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">2257 URL 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
	}
}

