#!/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>Asian Babe Max Mikita 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"><h1>Asian Babe Max Mikita drilled by huge black dick</h1>
              	Sexy martial art expert Max Mikita was mediating in her Vila, when she   sensed that somebody was watching her. A big dick black guy dressed in   white suite was jerking off hidden in the bushes. The black man   approached the large window trying to look better at the Asian babe,   when a strange thing happen. Max appeared behind his back and cuffed   him. At first she was thinking to beat him and throw him outside of her   property, but...<strong>read the whole story on FuckMeBlack.com!</strong></h2></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3319.jpg"><IMG src="thumbnails/IMG_3319.jpg" height="270" width="180" alt="IMG_3319"></A></TD>
            <TD align="center"><A href="images/IMG_3325.jpg"><IMG src="thumbnails/IMG_3325.jpg" height="270" width="180" alt="IMG_3325"></A></TD>
            <TD align="center"><A href="images/IMG_3332.jpg"><IMG src="thumbnails/IMG_3332.jpg" height="270" width="180" alt="IMG_3332"></A></TD>
            <TD align="center"><A href="images/IMG_3342.jpg"><IMG src="thumbnails/IMG_3342.jpg" height="270" width="180" alt="IMG_3342"></A></TD>
            <TD align="center"><A href="images/IMG_3345.jpg"><IMG src="thumbnails/IMG_3345.jpg" height="270" width="180" alt="IMG_3345"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3366.jpg"><IMG src="thumbnails/IMG_3366.jpg" height="270" width="180" alt="IMG_3366"></A></TD>
            <TD align="center"><A href="images/IMG_3379.jpg"><IMG src="thumbnails/IMG_3379.jpg" height="270" width="180" alt="IMG_3379"></A></TD>
            <TD align="center"><A href="images/IMG_3396.jpg"><IMG src="thumbnails/IMG_3396.jpg" height="270" width="180" alt="IMG_3396"></A></TD>
            <TD align="center"><A href="images/IMG_3410.jpg"><IMG src="thumbnails/IMG_3410.jpg" height="270" width="180" alt="IMG_3410"></A></TD>
            <TD align="center"><A href="images/IMG_3431.jpg"><IMG src="thumbnails/IMG_3431.jpg" height="270" width="180" alt="IMG_3431"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_3435.jpg"><IMG src="thumbnails/IMG_3435.jpg" height="270" width="180" alt="IMG_3435"></A></TD>
            <TD align="center"><A href="images/IMG_3486.jpg"><IMG src="thumbnails/IMG_3486.jpg" height="270" width="180" alt="IMG_3486"></A></TD>
            <TD align="center"><A href="images/IMG_3505.jpg"><IMG src="thumbnails/IMG_3505.jpg" height="270" width="180" alt="IMG_3505"></A></TD>
            <TD align="center"><A href="images/IMG_3507.jpg"><IMG src="thumbnails/IMG_3507.jpg" height="270" width="180" alt="IMG_3507"></A></TD>
            <TD align="center"><A href="images/IMG_3529.jpg"><IMG src="thumbnails/IMG_3529.jpg" height="270" width="180" alt="IMG_3529"></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>
            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
	}
}

