#!/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>Blond MILF Barbi Sinclair drilled hard by J Depth</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>Blond MILF Barbi Sinclair drilled by J Depth</h1>
              In this kinky interracial hardcore video we find J Depth (MILFs favorite) drilling   horny cheating wife Barbi Sinclair. Johnny acts as a big dick plumber   trying to fix Barbi's sink. Fortunately the shower went on and wet both   of them. Johnny tried to help the MILF by taking her wet shirt off.   Barbi grabbed Johnny's pennies and started stroking it while taking her   clothes off. After she saw the huge anaconda the MILF dipped it...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_1404.jpg"><IMG src="thumbnails/IMG_1404.jpg" height="270" width="180" alt="IMG_1404"></A></TD>
            <TD align="center"><A href="images/IMG_1408.jpg"><IMG src="thumbnails/IMG_1408.jpg" height="270" width="180" alt="IMG_1408"></A></TD>
            <TD align="center"><A href="images/IMG_1418.jpg"><IMG src="thumbnails/IMG_1418.jpg" height="270" width="180" alt="IMG_1418"></A></TD>
            <TD align="center"><A href="images/IMG_1428.jpg"><IMG src="thumbnails/IMG_1428.jpg" height="270" width="180" alt="IMG_1428"></A></TD>
            <TD align="center"><A href="images/IMG_1446.jpg"><IMG src="thumbnails/IMG_1446.jpg" height="270" width="180" alt="IMG_1446"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_1449.jpg"><IMG src="thumbnails/IMG_1449.jpg" height="270" width="180" alt="IMG_1449"></A></TD>
            <TD align="center"><A href="images/IMG_1497.jpg"><IMG src="thumbnails/IMG_1497.jpg" height="270" width="180" alt="IMG_1497"></A></TD>
            <TD align="center"><A href="images/IMG_1508.jpg"><IMG src="thumbnails/IMG_1508.jpg" height="270" width="180" alt="IMG_1508"></A></TD>
            <TD align="center"><A href="images/IMG_1509.jpg"><IMG src="thumbnails/IMG_1509.jpg" height="270" width="180" alt="IMG_1509"></A></TD>
            <TD align="center"><A href="images/IMG_1619.jpg"><IMG src="thumbnails/IMG_1619.jpg" height="270" width="180" alt="IMG_1619"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_1624.jpg"><IMG src="thumbnails/IMG_1624.jpg" height="270" width="180" alt="IMG_1624"></A></TD>
            <TD align="center"><A href="images/IMG_1627.jpg"><IMG src="thumbnails/IMG_1627.jpg" height="270" width="180" alt="IMG_1627"></A></TD>
            <TD align="center"><A href="images/IMG_1640.jpg"><IMG src="thumbnails/IMG_1640.jpg" height="270" width="180" alt="IMG_1640"></A></TD>
            <TD align="center"><A href="images/IMG_1649.jpg"><IMG src="thumbnails/IMG_1649.jpg" height="270" width="180" alt="IMG_1649"></A></TD>
            <TD align="center"><A href="images/IMG_1655.jpg"><IMG src="thumbnails/IMG_1655.jpg" height="270" width="180" alt="IMG_1655"></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
	}
}

