#!/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>Big Boob black babe Carmen hayes drilled by huge 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>Big Boob black babe Carmen hayes drilled by huge dick</h2>
              Big boob black babe Carmen has posted an ad on well known website. She   was looking for thick and long dick to satisfy her sexual desires. Horny   babe Carmen was tired of small and tiny dicks probing her juicy ass and   pussy. She needed something thick. Big cock guy Johnny was looking for a   furniture on the same website, when he found Carmen's ad and decided to   give it a shot. He called her and they met at his house. Carmen did not   want be...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8186.jpg"><IMG src="thumbnails/IMG_8186.jpg" height="270" width="180" alt="IMG_8186"></A></TD>
            <TD align="center"><A href="images/IMG_8208.jpg"><IMG src="thumbnails/IMG_8208.jpg" height="270" width="180" alt="IMG_8208"></A></TD>
            <TD align="center"><A href="images/IMG_8244.jpg"><IMG src="thumbnails/IMG_8244.jpg" height="270" width="180" alt="IMG_8244"></A></TD>
            <TD align="center"><A href="images/IMG_8250.jpg"><IMG src="thumbnails/IMG_8250.jpg" height="270" width="180" alt="IMG_8250"></A></TD>
            <TD align="center"><A href="images/IMG_8271.jpg"><IMG src="thumbnails/IMG_8271.jpg" height="270" width="180" alt="IMG_8271"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8274.jpg"><IMG src="thumbnails/IMG_8274.jpg" height="270" width="180" alt="IMG_8274"></A></TD>
            <TD align="center"><A href="images/IMG_8363.jpg"><IMG src="thumbnails/IMG_8363.jpg" height="270" width="180" alt="IMG_8363"></A></TD>
            <TD align="center"><A href="images/IMG_8368.jpg"><IMG src="thumbnails/IMG_8368.jpg" height="270" width="180" alt="IMG_8368"></A></TD>
            <TD align="center"><A href="images/IMG_8426.jpg"><IMG src="thumbnails/IMG_8426.jpg" height="270" width="180" alt="IMG_8426"></A></TD>
            <TD align="center"><A href="images/IMG_8429.jpg"><IMG src="thumbnails/IMG_8429.jpg" height="270" width="180" alt="IMG_8429"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8435.jpg"><IMG src="thumbnails/IMG_8435.jpg" height="270" width="180" alt="IMG_8435"></A></TD>
            <TD align="center"><A href="images/IMG_8506.jpg"><IMG src="thumbnails/IMG_8506.jpg" height="270" width="180" alt="IMG_8506"></A></TD>
            <TD align="center"><A href="images/IMG_8511.jpg"><IMG src="thumbnails/IMG_8511.jpg" height="270" width="180" alt="IMG_8511"></A></TD>
            <TD align="center"><A href="images/IMG_8528.jpg"><IMG src="thumbnails/IMG_8528.jpg" height="270" width="180" alt="IMG_8528"></A></TD>
            <TD align="center"><A href="images/IMG_8531.jpg"><IMG src="thumbnails/IMG_8531.jpg" height="270" width="180" alt="IMG_8531"></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 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
	}
}

