#!/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 ass black babe Madison Luv 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"><h3>Sexy ass black babe Madison Luv drilled by huge black dick</h3>
             	Johnny and Madison were hired to do a fashion lingerie shoot for one of   the top advertising agencies in town. Madison had to do her gig first and then together with Johnny they had to pose with some fashion clothes   on. While Madison was posing Johnny was watching her. He saw her slim   firm body almost nude and his long and thick pennies started to get   hard. At some point Johnny's mind was concentrated only on her tight...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8438.jpg"><IMG src="thumbnails/IMG_8438.jpg" height="275" width="183" alt="IMG_8438"></A></TD>
            <TD align="center"><A href="images/IMG_8451.jpg"><IMG src="thumbnails/IMG_8451.jpg" height="275" width="183" alt="IMG_8451"></A></TD>
            <TD align="center"><A href="images/IMG_8480.jpg"><IMG src="thumbnails/IMG_8480.jpg" height="275" width="183" alt="IMG_8480"></A></TD>
            <TD align="center"><A href="images/IMG_8483.jpg"><IMG src="thumbnails/IMG_8483.jpg" height="275" width="183" alt="IMG_8483"></A></TD>
            <TD align="center"><A href="images/IMG_8498.jpg"><IMG src="thumbnails/IMG_8498.jpg" height="275" width="183" alt="IMG_8498"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8572.jpg"><IMG src="thumbnails/IMG_8572.jpg" height="275" width="183" alt="IMG_8572"></A></TD>
            <TD align="center"><A href="images/IMG_8586.jpg"><IMG src="thumbnails/IMG_8586.jpg" height="275" width="183" alt="IMG_8586"></A></TD>
            <TD align="center"><A href="images/IMG_8588.jpg"><IMG src="thumbnails/IMG_8588.jpg" height="275" width="183" alt="IMG_8588"></A></TD>
            <TD align="center"><A href="images/IMG_8597.jpg"><IMG src="thumbnails/IMG_8597.jpg" height="275" width="183" alt="IMG_8597"></A></TD>
            <TD align="center"><A href="images/IMG_8625.jpg"><IMG src="thumbnails/IMG_8625.jpg" height="275" width="183" alt="IMG_8625"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8637.jpg"><IMG src="thumbnails/IMG_8637.jpg" height="275" width="183" alt="IMG_8637"></A></TD>
            <TD align="center"><A href="images/IMG_8658.jpg"><IMG src="thumbnails/IMG_8658.jpg" height="275" width="183" alt="IMG_8658"></A></TD>
            <TD align="center"><A href="images/IMG_8674.jpg"><IMG src="thumbnails/IMG_8674.jpg" height="275" width="183" alt="IMG_8674"></A></TD>
            <TD align="center"><A href="images/IMG_8694.jpg"><IMG src="thumbnails/IMG_8694.jpg" height="275" width="183" alt="IMG_8694"></A></TD>
            <TD align="center"><A href="images/IMG_8709.jpg"><IMG src="thumbnails/IMG_8709.jpg" height="275" width="183" alt="IMG_8709"></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 Info 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
	}
}

