#!/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>Cheating Wives Austin and Vanessa Drilled by J 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">

<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>Cheating Wives Austin and Vanessa Drilled by J Depth</h2>
              In this kinky interracial group sex movie we find two bored wives   sitting in front of the TV and talking gossips while their husbands were   out working hard. Blond wife Austin Taylor and Latina Vanessa Leon   spotted an ad in the newspaper regarding a black guy offering escort   services. The kinky lesbian wives called Johnny and asked him to join   them for some fun. Big dick guy Johnny was in the area and arrived in 20   minutes. At first the wives...<strong>read the whole story on FuckMeBlack.com!</strong></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8340.jpg"><IMG src="thumbnails/IMG_8340.jpg" height="270" width="180" alt="IMG_8340"></A></TD>
            <TD align="center"><A href="images/IMG_8351.jpg"><IMG src="thumbnails/IMG_8351.jpg" height="270" width="180" alt="IMG_8351"></A></TD>
            <TD align="center"><A href="images/IMG_8500.jpg"><IMG src="thumbnails/IMG_8500.jpg" height="270" width="180" alt="IMG_8500"></A></TD>
            <TD align="center"><A href="images/IMG_8561.jpg"><IMG src="thumbnails/IMG_8561.jpg" height="270" width="180" alt="IMG_8561"></A></TD>
            <TD align="center"><A href="images/IMG_8588.jpg"><IMG src="thumbnails/IMG_8588.jpg" height="270" width="180" alt="IMG_8588"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8616.jpg"><IMG src="thumbnails/IMG_8616.jpg" height="270" width="180" alt="IMG_8616"></A></TD>
            <TD align="center"><A href="images/IMG_8622.jpg"><IMG src="thumbnails/IMG_8622.jpg" height="270" width="180" alt="IMG_8622"></A></TD>
            <TD align="center"><A href="images/IMG_8642.jpg"><IMG src="thumbnails/IMG_8642.jpg" height="270" width="180" alt="IMG_8642"></A></TD>
            <TD align="center"><A href="images/IMG_8649.jpg"><IMG src="thumbnails/IMG_8649.jpg" height="270" width="180" alt="IMG_8649"></A></TD>
            <TD align="center"><A href="images/IMG_8659.jpg"><IMG src="thumbnails/IMG_8659.jpg" height="270" width="180" alt="IMG_8659"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/IMG_8736.jpg"><IMG src="thumbnails/IMG_8736.jpg" height="270" width="180" alt="IMG_8736"></A></TD>
            <TD align="center"><A href="images/IMG_8740.jpg"><IMG src="thumbnails/IMG_8740.jpg" height="270" width="180" alt="IMG_8740"></A></TD>
            <TD align="center"><A href="images/IMG_8761.jpg"><IMG src="thumbnails/IMG_8761.jpg" height="270" width="180" alt="IMG_8761"></A></TD>
            <TD align="center"><A href="images/IMG_8808.jpg"><IMG src="thumbnails/IMG_8808.jpg" height="270" width="180" alt="IMG_8808"></A></TD>
            <TD align="center"><A href="images/IMG_8813.jpg"><IMG src="thumbnails/IMG_8813.jpg" height="270" width="180" alt="IMG_8813"></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
	}
}

