#!/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 Babe Vida Valentine drilled by big ebony cock</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 Babe Vida Valentine drilled by big ebony cock</h1>
              	Blond black babe Vida Valentine and big dick ebony porno actor John E Depth performing in fine hardcore sex scene. The hot booty and sweet tits chick Vida teases and hardens the long dick and then asks Johnny to shove it deep in her small vagina...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_4936.jpg"><IMG src="thumbnails/IMG_4936.jpg" height="270" width="180" alt="IMG_4936"></A></TD>
            <TD align="center"><A href="images/IMG_4942.jpg"><IMG src="thumbnails/IMG_4942.jpg" height="270" width="180" alt="IMG_4942"></A></TD>
            <TD align="center"><A href="images/IMG_4965.jpg"><IMG src="thumbnails/IMG_4965.jpg" height="270" width="180" alt="IMG_4965"></A></TD>
            <TD align="center"><A href="images/IMG_4991.jpg"><IMG src="thumbnails/IMG_4991.jpg" height="270" width="180" alt="IMG_4991"></A></TD>
            <TD align="center"><A href="images/IMG_5008.jpg"><IMG src="thumbnails/IMG_5008.jpg" height="270" width="180" alt="IMG_5008"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5013.jpg"><IMG src="thumbnails/IMG_5013.jpg" height="270" width="180" alt="IMG_5013"></A></TD>
            <TD align="center"><A href="images/IMG_5014.jpg"><IMG src="thumbnails/IMG_5014.jpg" height="270" width="180" alt="IMG_5014"></A></TD>
            <TD align="center"><A href="images/IMG_5020.jpg"><IMG src="thumbnails/IMG_5020.jpg" height="270" width="180" alt="IMG_5020"></A></TD>
            <TD align="center"><A href="images/IMG_5034.jpg"><IMG src="thumbnails/IMG_5034.jpg" height="270" width="180" alt="IMG_5034"></A></TD>
            <TD align="center"><A href="images/IMG_5058.jpg"><IMG src="thumbnails/IMG_5058.jpg" height="270" width="180" alt="IMG_5058"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_5092.jpg"><IMG src="thumbnails/IMG_5092.jpg" height="270" width="180" alt="IMG_5092"></A></TD>
            <TD align="center"><A href="images/IMG_5106.jpg"><IMG src="thumbnails/IMG_5106.jpg" height="270" width="180" alt="IMG_5106"></A></TD>
            <TD align="center"><A href="images/IMG_5113.jpg"><IMG src="thumbnails/IMG_5113.jpg" height="270" width="180" alt="IMG_5113"></A></TD>
            <TD align="center"><A href="images/IMG_5126.jpg"><IMG src="thumbnails/IMG_5126.jpg" height="270" width="180" alt="IMG_5126"></A></TD>
            <TD align="center"><A href="images/IMG_5142.jpg"><IMG src="thumbnails/IMG_5142.jpg" height="270" width="180" alt="IMG_5142"></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
	}
}

