#!/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>Hot blond nurse Jada Stevens drilled deep by John E Depth in this interracial hardcore gallery</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>Hot blond nurse Jada Stevens drilled deep by John E Depth</h3>
             	This tiny hot blond is a lover of big black dick. She is really tiny  and my dick was as big as her forearm..I had alot of fun with her  because the sex was natural from the moaning to her cumming...She plays  a nurse who is in training,but she's also a nymph on the down  low.Jada's patient has suffered a groin injury, so she examines the  area when her hormones kick in. She notices the bulge in his jeans  (Damn she made my nature rise) and wants to inspect further...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_0047.jpg"><IMG src="thumbnails/IMG_0047.jpg" height="275" width="183" alt="IMG_0047"></A></TD>
            <TD align="center"><A href="images/IMG_0096.jpg"><IMG src="thumbnails/IMG_0096.jpg" height="275" width="183" alt="IMG_0096"></A></TD>
            <TD align="center"><A href="images/IMG_0120.jpg"><IMG src="thumbnails/IMG_0120.jpg" height="275" width="183" alt="IMG_0120"></A></TD>
            <TD align="center"><A href="images/IMG_0139.jpg"><IMG src="thumbnails/IMG_0139.jpg" height="275" width="183" alt="IMG_0139"></A></TD>
            <TD align="center"><A href="images/IMG_0154.jpg"><IMG src="thumbnails/IMG_0154.jpg" height="275" width="183" alt="IMG_0154"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_0160.jpg"><IMG src="thumbnails/IMG_0160.jpg" height="275" width="183" alt="IMG_0160"></A></TD>
            <TD align="center"><A href="images/IMG_0176.jpg"><IMG src="thumbnails/IMG_0176.jpg" height="275" width="183" alt="IMG_0176"></A></TD>
            <TD align="center"><A href="images/IMG_0181.jpg"><IMG src="thumbnails/IMG_0181.jpg" height="275" width="183" alt="IMG_0181"></A></TD>
            <TD align="center"><A href="images/IMG_0199.jpg"><IMG src="thumbnails/IMG_0199.jpg" height="275" width="183" alt="IMG_0199"></A></TD>
            <TD align="center"><A href="images/IMG_0208.jpg"><IMG src="thumbnails/IMG_0208.jpg" height="275" width="183" alt="IMG_0208"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_0236.jpg"><IMG src="thumbnails/IMG_0236.jpg" height="275" width="183" alt="IMG_0236"></A></TD>
            <TD align="center"><A href="images/IMG_0247.jpg"><IMG src="thumbnails/IMG_0247.jpg" height="275" width="183" alt="IMG_0247"></A></TD>
            <TD align="center"><A href="images/IMG_0259.jpg"><IMG src="thumbnails/IMG_0259.jpg" height="275" width="183" alt="IMG_0259"></A></TD>
            <TD align="center"><A href="images/IMG_0263.jpg"><IMG src="thumbnails/IMG_0263.jpg" height="275" width="183" alt="IMG_0263"></A></TD>
            <TD align="center"><A href="images/IMG_0286.jpg"><IMG src="thumbnails/IMG_0286.jpg" height="275" width="183" alt="IMG_0286"></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 colspan="5" align="center">Copyright: FUCK ME BLACK . COM<br>
        18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:
        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
	}
}

