#!/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>Black Pearl Mia Peach drilled 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>Black Pearl Mia Peach drilled by J Depth</h1>
              	In this classic hardcore video we find hot black babe Mia Peach seduced   by the big dick of J Depth. Mia was visiting from Florida pretending she   was coming to see her old school friend. The real reason for the visit   though, was the rumor that Johnny's pennies grew very thick and long.   She wanted to check it out herself. The sexual desires for long and   thick cock always provide fine hardcore porno for the viewer...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_2789.jpg"><IMG src="thumbnails/IMG_2789.jpg" height="270" width="180" alt="IMG_2789"></A></TD>
            <TD align="center"><A href="images/IMG_2821.jpg"><IMG src="thumbnails/IMG_2821.jpg" height="270" width="180" alt="IMG_2821"></A></TD>
            <TD align="center"><A href="images/IMG_2865.jpg"><IMG src="thumbnails/IMG_2865.jpg" height="270" width="180" alt="IMG_2865"></A></TD>
            <TD align="center"><A href="images/IMG_2893.jpg"><IMG src="thumbnails/IMG_2893.jpg" height="270" width="180" alt="IMG_2893"></A></TD>
            <TD align="center"><A href="images/IMG_2953.jpg"><IMG src="thumbnails/IMG_2953.jpg" height="270" width="180" alt="IMG_2953"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_2974.jpg"><IMG src="thumbnails/IMG_2974.jpg" height="270" width="180" alt="IMG_2974"></A></TD>
            <TD align="center"><A href="images/IMG_2975.jpg"><IMG src="thumbnails/IMG_2975.jpg" height="270" width="180" alt="IMG_2975"></A></TD>
            <TD align="center"><A href="images/IMG_2998.jpg"><IMG src="thumbnails/IMG_2998.jpg" height="270" width="180" alt="IMG_2998"></A></TD>
            <TD align="center"><A href="images/IMG_3002.jpg"><IMG src="thumbnails/IMG_3002.jpg" height="270" width="180" alt="IMG_3002"></A></TD>
            <TD align="center"><A href="images/IMG_3032.jpg"><IMG src="thumbnails/IMG_3032.jpg" height="270" width="180" alt="IMG_3032"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3034.jpg"><IMG src="thumbnails/IMG_3034.jpg" height="270" width="180" alt="IMG_3034"></A></TD>
            <TD align="center"><A href="images/IMG_3039.jpg"><IMG src="thumbnails/IMG_3039.jpg" height="270" width="180" alt="IMG_3039"></A></TD>
            <TD align="center"><A href="images/IMG_3043.jpg"><IMG src="thumbnails/IMG_3043.jpg" height="270" width="180" alt="IMG_3043"></A></TD>
            <TD align="center"><A href="images/IMG_3076.jpg"><IMG src="thumbnails/IMG_3076.jpg" height="270" width="180" alt="IMG_3076"></A></TD>
            <TD align="center"><A href="images/IMG_3086.jpg"><IMG src="thumbnails/IMG_3086.jpg" height="270" width="180" alt="IMG_3086"></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
	}
}

