#!/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 Oriental chick Kayme kai 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>Sexy Oriental chick Kayme kai drilled by huge black dick</h3>
             	On this warm Saturday evening Johnny went to a party in Hollywood Hills.   He was invited by his masseur who was a nice looking Asian babe.   Actually the party was full with Asian girls and hot MILFS. After having   a couple of conversations with these petite and tight Asian women   Johnny was getting horny and his cock was getting hard. Johnny's huge   cock started to lift his pants and he embarrassed of the...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9545.jpg"><IMG src="thumbnails/IMG_9545.jpg" height="275" width="183" alt="IMG_9545"></A></TD>
            <TD align="center"><A href="images/IMG_9554.jpg"><IMG src="thumbnails/IMG_9554.jpg" height="275" width="183" alt="IMG_9554"></A></TD>
            <TD align="center"><A href="images/IMG_9617.jpg"><IMG src="thumbnails/IMG_9617.jpg" height="275" width="183" alt="IMG_9617"></A></TD>
            <TD align="center"><A href="images/IMG_9630.jpg"><IMG src="thumbnails/IMG_9630.jpg" height="275" width="183" alt="IMG_9630"></A></TD>
            <TD align="center"><A href="images/IMG_9639.jpg"><IMG src="thumbnails/IMG_9639.jpg" height="275" width="183" alt="IMG_9639"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9646.jpg"><IMG src="thumbnails/IMG_9646.jpg" height="275" width="183" alt="IMG_9646"></A></TD>
            <TD align="center"><A href="images/IMG_9649.jpg"><IMG src="thumbnails/IMG_9649.jpg" height="275" width="183" alt="IMG_9649"></A></TD>
            <TD align="center"><A href="images/IMG_9650.jpg"><IMG src="thumbnails/IMG_9650.jpg" height="275" width="183" alt="IMG_9650"></A></TD>
            <TD align="center"><A href="images/IMG_9674.jpg"><IMG src="thumbnails/IMG_9674.jpg" height="275" width="183" alt="IMG_9674"></A></TD>
            <TD align="center"><A href="images/IMG_9688.jpg"><IMG src="thumbnails/IMG_9688.jpg" height="275" width="183" alt="IMG_9688"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9706.jpg"><IMG src="thumbnails/IMG_9706.jpg" height="275" width="183" alt="IMG_9706"></A></TD>
            <TD align="center"><A href="images/IMG_9708.jpg"><IMG src="thumbnails/IMG_9708.jpg" height="275" width="183" alt="IMG_9708"></A></TD>
            <TD align="center"><A href="images/IMG_9716.jpg"><IMG src="thumbnails/IMG_9716.jpg" height="275" width="183" alt="IMG_9716"></A></TD>
            <TD align="center"><A href="images/IMG_9733.jpg"><IMG src="thumbnails/IMG_9733.jpg" height="275" width="183" alt="IMG_9733"></A></TD>
            <TD align="center"><A href="images/IMG_9739.jpg"><IMG src="thumbnails/IMG_9739.jpg" height="275" width="183" alt="IMG_9739"></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">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
	}
}

