#!/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>Old and sexy Stunning Summer 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>Old and sexy Stunning Summer drilled by huge black dick</h3>
           	  One warm summer evening, old and sexy housekeeper Stunning Summer caught   John E depth talking to her niece on the phone. The kinky housekeeper   was using her niece's help on the weekends to clean the big house. On   one occasion Johnny was able to talk to the niece and they have exchanged   phone numbers. So Stunning Summer caught Johnny talking to her niece and   masturbating. Figuring out what might happen Stunning decided to...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9343.jpg"><IMG src="thumbnails/IMG_9343.jpg" height="275" width="183" alt="IMG_9343"></A></TD>
            <TD align="center"><A href="images/IMG_9381.jpg"><IMG src="thumbnails/IMG_9381.jpg" height="275" width="183" alt="IMG_9381"></A></TD>
            <TD align="center"><A href="images/IMG_9409.jpg"><IMG src="thumbnails/IMG_9409.jpg" height="275" width="183" alt="IMG_9409"></A></TD>
            <TD align="center"><A href="images/IMG_9414.jpg"><IMG src="thumbnails/IMG_9414.jpg" height="275" width="183" alt="IMG_9414"></A></TD>
            <TD align="center"><A href="images/IMG_9440.jpg"><IMG src="thumbnails/IMG_9440.jpg" height="275" width="183" alt="IMG_9440"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9489.jpg"><IMG src="thumbnails/IMG_9489.jpg" height="275" width="183" alt="IMG_9489"></A></TD>
            <TD align="center"><A href="images/IMG_9499.jpg"><IMG src="thumbnails/IMG_9499.jpg" height="275" width="183" alt="IMG_9499"></A></TD>
            <TD align="center"><A href="images/IMG_9502.jpg"><IMG src="thumbnails/IMG_9502.jpg" height="275" width="183" alt="IMG_9502"></A></TD>
            <TD align="center"><A href="images/IMG_9503.jpg"><IMG src="thumbnails/IMG_9503.jpg" height="275" width="183" alt="IMG_9503"></A></TD>
            <TD align="center"><A href="images/IMG_9506.jpg"><IMG src="thumbnails/IMG_9506.jpg" height="275" width="183" alt="IMG_9506"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9514.jpg"><IMG src="thumbnails/IMG_9514.jpg" height="275" width="183" alt="IMG_9514"></A></TD>
            <TD align="center"><A href="images/IMG_9516.jpg"><IMG src="thumbnails/IMG_9516.jpg" height="275" width="183" alt="IMG_9516"></A></TD>
            <TD align="center"><A href="images/IMG_9528.jpg"><IMG src="thumbnails/IMG_9528.jpg" height="275" width="183" alt="IMG_9528"></A></TD>
            <TD align="center"><A href="images/IMG_9529.jpg"><IMG src="thumbnails/IMG_9529.jpg" height="275" width="183" alt="IMG_9529"></A></TD>
            <TD align="center"><A href="images/IMG_9534.jpg"><IMG src="thumbnails/IMG_9534.jpg" height="275" width="183" alt="IMG_9534"></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>
           18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement 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
	}
}

