#!/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 ass babe Katie Cummings and Big Cock porn actor John E Depth</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">
<!-- {RECIPS} -->
<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 ass babe Katie Cummings and Big Cock porn actor John E Depth</h3>
             	Katie is a hot chick with a nice phat ass. I had alot of fun with  her...she is an east coaster like myself so we was bugging out and  laughing our heads off before the scene. You know i love cuttin jokes  and having fun cause it eases the mood..its nothing like a sexy vibe to  set it off. When she saw my dick she said "u gonna put all that in me,  i"m damn sure gonna try (lol). Man off the tease alone this girl had me  on the bone. She got to sucking the thick long cock and realized she needed two...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8472.jpg"><IMG src="thumbnails/IMG_8472.jpg" height="275" width="183" alt="IMG_8472"></A></TD>
            <TD align="center"><A href="images/IMG_8523.jpg"><IMG src="thumbnails/IMG_8523.jpg" height="275" width="183" alt="IMG_8523"></A></TD>
            <TD align="center"><A href="images/IMG_8540.jpg"><IMG src="thumbnails/IMG_8540.jpg" height="275" width="183" alt="IMG_8540"></A></TD>
            <TD align="center"><A href="images/IMG_8564.jpg"><IMG src="thumbnails/IMG_8564.jpg" height="275" width="183" alt="IMG_8564"></A></TD>
            <TD align="center"><A href="images/IMG_8594.jpg"><IMG src="thumbnails/IMG_8594.jpg" height="275" width="183" alt="IMG_8594"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8598.jpg"><IMG src="thumbnails/IMG_8598.jpg" height="275" width="183" alt="IMG_8598"></A></TD>
            <TD align="center"><A href="images/IMG_8605.jpg"><IMG src="thumbnails/IMG_8605.jpg" height="275" width="183" alt="IMG_8605"></A></TD>
            <TD align="center"><A href="images/IMG_8606.jpg"><IMG src="thumbnails/IMG_8606.jpg" height="275" width="183" alt="IMG_8606"></A></TD>
            <TD align="center"><A href="images/IMG_8611.jpg"><IMG src="thumbnails/IMG_8611.jpg" height="275" width="183" alt="IMG_8611"></A></TD>
            <TD align="center"><A href="images/IMG_8613.jpg"><IMG src="thumbnails/IMG_8613.jpg" height="275" width="183" alt="IMG_8613"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8622.jpg"><IMG src="thumbnails/IMG_8622.jpg" height="275" width="183" alt="IMG_8622"></A></TD>
            <TD align="center"><A href="images/IMG_8666.jpg"><IMG src="thumbnails/IMG_8666.jpg" height="275" width="183" alt="IMG_8666"></A></TD>
            <TD align="center"><A href="images/IMG_8676.jpg"><IMG src="thumbnails/IMG_8676.jpg" height="275" width="183" alt="IMG_8676"></A></TD>
            <TD align="center"><A href="images/IMG_8685.jpg"><IMG src="thumbnails/IMG_8685.jpg" height="275" width="183" alt="IMG_8685"></A></TD>
            <TD align="center"><A href="images/IMG_8686.jpg"><IMG src="thumbnails/IMG_8686.jpg" height="275" width="183" alt="IMG_8686"></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 colspan="5" 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
	}
}

