#!/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>Fat juicy ass babe drilled hard by skinny guy</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-0028&PA=$afid&HTML=http://www.wildbbwporn.com/index.php"><img src="../template/View_Clip_01.jpg" alt="horny fat russian babes drilled by armenian lovers" width="1020" height="243" border="0"></a></td>
  </tr>
	<tr>
		<td class="FLVbg" height="466"><TABLE width="970" border=0  align="center" cellpadding=0 cellspacing=10>

<TR>
  <TD colspan="5" align="center"><h1>Fat juicy ass babe drilled hard by skinny guy</h1>
    	In this classic <strong>BBW</strong> porno movie our characters Paula and Zack met on a blind date. For long time Zack was telling his buddies how he likes women with big juicy asses and dreams about them every night. Zack's friends decided to surprise him by introducing him to a huge juicy ass <strong>BBW</strong> babe. On the other hand sexy <strong>fat</strong> chick Paula was dreaming for a slim guy drilling her pussy hard. So the chemistry for this amateur porno movie was...<strong>read the whole story on wildBBWporn.com!</strong></TD>
  </TR>
<TR>
  <TD align="center"><A href="images/DSCF5175.jpg"><IMG src="thumbnails/DSCF5175.jpg" height="270" width="180" alt="DSCF5175"></A></TD>
  <TD align="center"><A href="images/DSCF5188.jpg"><IMG src="thumbnails/DSCF5188.jpg" height="270" width="180" alt="DSCF5188"></A></TD>
  <TD align="center"><A href="images/DSCF5269.jpg"><IMG src="thumbnails/DSCF5269.jpg" height="270" width="180" alt="DSCF5269"></A></TD>
  <TD align="center"><A href="images/DSCF5271.jpg"><IMG src="thumbnails/DSCF5271.jpg" height="270" width="180" alt="DSCF5271"></A></TD>
  <TD align="center"><A href="images/DSCF5277.jpg"><IMG src="thumbnails/DSCF5277.jpg" height="270" width="180" alt="DSCF5277"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSCF5289.jpg"><IMG src="thumbnails/DSCF5289.jpg" height="270" width="180" alt="DSCF5289"></A></TD>
  <TD align="center"><A href="images/DSCF5295.jpg"><IMG src="thumbnails/DSCF5295.jpg" height="270" width="180" alt="DSCF5295"></A></TD>
  <TD align="center"><A href="images/DSCF5314.jpg"><IMG src="thumbnails/DSCF5314.jpg" height="270" width="180" alt="DSCF5314"></A></TD>
  <TD align="center"><A href="images/DSCF5318.jpg"><IMG src="thumbnails/DSCF5318.jpg" height="270" width="180" alt="DSCF5318"></A></TD>
  <TD align="center"><A href="images/DSCF5324.jpg"><IMG src="thumbnails/DSCF5324.jpg" height="270" width="180" alt="DSCF5324"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSCF5330.jpg"><IMG src="thumbnails/DSCF5330.jpg" height="270" width="180" alt="DSCF5330"></A></TD>
  <TD align="center"><A href="images/DSCF5340.jpg"><IMG src="thumbnails/DSCF5340.jpg" height="270" width="180" alt="DSCF5340"></A></TD>
  <TD align="center"><A href="images/DSCF5349.jpg"><IMG src="thumbnails/DSCF5349.jpg" height="270" width="180" alt="DSCF5349"></A></TD>
  <TD align="center"><A href="images/DSCF5364.jpg"><IMG src="thumbnails/DSCF5364.jpg" height="270" width="180" alt="DSCF5364"></A></TD>
  <TD align="center"><A href="images/DSCF5367.jpg"><IMG src="thumbnails/DSCF5367.jpg" height="270" width="180" alt="DSCF5367"></A></TD>
</TR>

<TR>
  <TD colspan="5" align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0028&PA=$afid&HTML=http://www.wildbbwporn.com/index.php" class="EnterText">CLICK HERE TO ENTER WILD BBW PORN</a></TD>
  </TR>
<TR>
  <TD colspan="5" align="center">2257 info at: http://wildbbwporn.com/2257.html</TD>
  </TR>


</TABLE>
	  </td>
	</tr>
	<tr>
		<td>
			<img src="../template/View_Clip_03.jpg" width="1020" height="100" alt="wild BBW porn"></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

	}

}



