#!/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>Syxy ass Latina Alexa Cruz 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"><h2>Syxy ass Latina Alexa Cruz drilled by huge black dick</h2>
              Sexy Latina Alexa Cruz and big dick J Depth were involved in a parking   lot accident. Juicy ass Latina Alexa did not have a car insurance and   got very scared, when Johnny mentioned calling the police. Alexa asked   Johnny to follow her home, where she promised to pay him for the dent.   Considering that his bumper had many other dents, Johnny thought that   this is a good deal and agreed. Little did he know that the horny babe...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9119.jpg"><IMG src="thumbnails/IMG_9119.jpg" height="270" width="180" alt="IMG_9119"></A></TD>
            <TD align="center"><A href="images/IMG_9235.jpg"><IMG src="thumbnails/IMG_9235.jpg" height="270" width="180" alt="IMG_9235"></A></TD>
            <TD align="center"><A href="images/IMG_9271.jpg"><IMG src="thumbnails/IMG_9271.jpg" height="270" width="180" alt="IMG_9271"></A></TD>
            <TD align="center"><A href="images/IMG_9281.jpg"><IMG src="thumbnails/IMG_9281.jpg" height="270" width="180" alt="IMG_9281"></A></TD>
            <TD align="center"><A href="images/IMG_9350.jpg"><IMG src="thumbnails/IMG_9350.jpg" height="270" width="180" alt="IMG_9350"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9395.jpg"><IMG src="thumbnails/IMG_9395.jpg" height="270" width="180" alt="IMG_9395"></A></TD>
            <TD align="center"><A href="images/IMG_9573.jpg"><IMG src="thumbnails/IMG_9573.jpg" height="270" width="180" alt="IMG_9573"></A></TD>
            <TD align="center"><A href="images/IMG_9586.jpg"><IMG src="thumbnails/IMG_9586.jpg" height="270" width="180" alt="IMG_9586"></A></TD>
            <TD align="center"><A href="images/IMG_9590.jpg"><IMG src="thumbnails/IMG_9590.jpg" height="270" width="180" alt="IMG_9590"></A></TD>
            <TD align="center"><A href="images/IMG_9620.jpg"><IMG src="thumbnails/IMG_9620.jpg" height="270" width="180" alt="IMG_9620"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_9629.jpg"><IMG src="thumbnails/IMG_9629.jpg" height="270" width="180" alt="IMG_9629"></A></TD>
            <TD align="center"><A href="images/IMG_9641.jpg"><IMG src="thumbnails/IMG_9641.jpg" height="270" width="180" alt="IMG_9641"></A></TD>
            <TD align="center"><A href="images/IMG_9647.jpg"><IMG src="thumbnails/IMG_9647.jpg" height="270" width="180" alt="IMG_9647"></A></TD>
            <TD align="center"><A href="images/IMG_9649.jpg"><IMG src="thumbnails/IMG_9649.jpg" height="270" width="180" alt="IMG_9649"></A></TD>
            <TD align="center"><A href="images/IMG_9652.jpg"><IMG src="thumbnails/IMG_9652.jpg" height="270" width="180" alt="IMG_9652"></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
	}
}

