#!/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 blond lesbians in threesome sex orgy</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=2 cellspacing=2>

<TR>
  <TD colspan="3" align="center"><h1>Fat blond lesbians in threesome sex orgy</h1>
    Horny fat lesbians Sarah and Helen have invited a kinky guy for a sex   party. The guy likes to fuck fat sexy women and watching their big   belies and asses shake. The BBW babes meanwhile were licking their big   fat boobs and wrinkly asses. At some point the muscular guy got tired   and the fat MILFs let him lay down and started sucking his dick and   giving him a hot boob job. The guy enjoyed the handjob and blowjob then   erupted on...<strong>read the whole story on wildBBWporn.com!</strong></TD>
  </TR>
<TR>
		<TD align="center"><A href="images/DSCF2851.jpg"><IMG src="thumbnails/DSCF2851.jpg" height="200" width="300" alt="DSCF2851"></A></TD>
		<TD align="center"><A href="images/DSCF2853.jpg"><IMG src="thumbnails/DSCF2853.jpg" height="200" width="300" alt="DSCF2853"></A></TD>
		<TD align="center"><A href="images/DSCF2855.jpg"><IMG src="thumbnails/DSCF2855.jpg" height="200" width="300" alt="DSCF2855"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/DSCF2856.jpg"><IMG src="thumbnails/DSCF2856.jpg" height="200" width="300" alt="DSCF2856"></A></TD>
		<TD align="center"><A href="images/DSCF2860.jpg"><IMG src="thumbnails/DSCF2860.jpg" height="200" width="300" alt="DSCF2860"></A></TD>
		<TD align="center"><A href="images/DSCF2862.jpg"><IMG src="thumbnails/DSCF2862.jpg" height="200" width="300" alt="DSCF2862"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/DSCF2866.jpg"><IMG src="thumbnails/DSCF2866.jpg" height="200" width="300" alt="DSCF2866"></A></TD>
		<TD align="center"><A href="images/DSCF2870.jpg"><IMG src="thumbnails/DSCF2870.jpg" height="200" width="300" alt="DSCF2870"></A></TD>
		<TD align="center"><A href="images/DSCF2871.jpg"><IMG src="thumbnails/DSCF2871.jpg" height="200" width="300" alt="DSCF2871"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/DSCF2876.jpg"><IMG src="thumbnails/DSCF2876.jpg" height="200" width="300" alt="DSCF2876"></A></TD>
		<TD align="center"><A href="images/DSCF2879.jpg"><IMG src="thumbnails/DSCF2879.jpg" height="200" width="300" alt="DSCF2879"></A></TD>
		<TD align="center"><A href="images/DSCF2887.jpg"><IMG src="thumbnails/DSCF2887.jpg" height="200" width="300" alt="DSCF2887"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/DSCF2891.jpg"><IMG src="thumbnails/DSCF2891.jpg" height="200" width="300" alt="DSCF2891"></A></TD>
		<TD align="center"><A href="images/DSCF2892.jpg"><IMG src="thumbnails/DSCF2892.jpg" height="200" width="300" alt="DSCF2892"></A></TD>
		<TD align="center"><A href="images/DSCF2894.jpg"><IMG src="thumbnails/DSCF2894.jpg" height="200" width="300" alt="DSCF2894"></A></TD>
</TR>
<TR>
  <TD align="center">&nbsp;</TD>
  <TD align="center">&nbsp;</TD>
  <TD align="center">&nbsp;</TD>
</TR>
<TR>
  <TD colspan="3" 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 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>
</TR>
<TR>
  <TD colspan="3" 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

	}

}



