#!/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>Sexy black babe Ms. Platinum blowing her boyfriend's big and long 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"><h3>Sexy black babe Ms. Platinum blowing her boyfriend's big and long cock</h3>
             	Ms.Platinum is a sexy chick with that around the way girl attitude. She was   really cool and this was my first time working with her. When she showed up I   notice she had nuff ass, but this is about Black Throat Love, so i had to fall   back and get her again on the booty movie. Anyway we got in some hot BJ action,   man she <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0024&PA=$afid&HTML=http://www.handjobsalon.com/index.php">sucked my dick</a> every way imaginable and it was all love. I may need to   bring her back for round two, but this episode was crazy...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3285.jpg"><IMG src="thumbnails/IMG_3285.jpg" height="275" width="183" alt="IMG_3285"></A></TD>
            <TD align="center"><A href="images/IMG_3300.jpg"><IMG src="thumbnails/IMG_3300.jpg" height="275" width="183" alt="IMG_3300"></A></TD>
            <TD align="center"><A href="images/IMG_3318.jpg"><IMG src="thumbnails/IMG_3318.jpg" height="275" width="183" alt="IMG_3318"></A></TD>
            <TD align="center"><A href="images/IMG_3326.jpg"><IMG src="thumbnails/IMG_3326.jpg" height="275" width="183" alt="IMG_3326"></A></TD>
            <TD align="center"><A href="images/IMG_3347.jpg"><IMG src="thumbnails/IMG_3347.jpg" height="275" width="183" alt="IMG_3347"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3378.jpg"><IMG src="thumbnails/IMG_3378.jpg" height="275" width="183" alt="IMG_3378"></A></TD>
            <TD align="center"><A href="images/IMG_3385.jpg"><IMG src="thumbnails/IMG_3385.jpg" height="275" width="183" alt="IMG_3385"></A></TD>
            <TD align="center"><A href="images/IMG_3394.jpg"><IMG src="thumbnails/IMG_3394.jpg" height="275" width="183" alt="IMG_3394"></A></TD>
            <TD align="center"><A href="images/IMG_3404.jpg"><IMG src="thumbnails/IMG_3404.jpg" height="275" width="183" alt="IMG_3404"></A></TD>
            <TD align="center"><A href="images/IMG_3408.jpg"><IMG src="thumbnails/IMG_3408.jpg" height="275" width="183" alt="IMG_3408"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3409.jpg"><IMG src="thumbnails/IMG_3409.jpg" height="275" width="183" alt="IMG_3409"></A></TD>
            <TD align="center"><A href="images/IMG_3422.jpg"><IMG src="thumbnails/IMG_3422.jpg" height="275" width="183" alt="IMG_3422"></A></TD>
            <TD align="center"><A href="images/IMG_3428.jpg"><IMG src="thumbnails/IMG_3428.jpg" height="275" width="183" alt="IMG_3428"></A></TD>
            <TD align="center"><A href="images/IMG_3434.jpg"><IMG src="thumbnails/IMG_3434.jpg" height="275" width="183" alt="IMG_3434"></A></TD>
            <TD align="center"><A href="images/IMG_3438.jpg"><IMG src="thumbnails/IMG_3438.jpg" height="275" width="183" alt="IMG_3438"></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:<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

	}

}



