#!/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>Small Boobs Lana White in Balloon Porno Bath</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../MBP.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="1020" 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-0000&PA=$afid&HTML=http://www.myballoonporn.com/index.php"><img src="../../images/join_01.jpg" alt="" width="1020" height="257" border="0"></a></td>
  </tr>
	<tr>
		<td align="center" class="ViewClipBG"><TABLE width="945" border=0  align="center" cellpadding=0 cellspacing=5>

<TR>
  <TD colspan="5" align="center"><h1>Small Boobs Lana White in Balloon Bath</h1>
    In this kinky looner porn video the new comer Lana White blew and popped   many balloon while taking a cold bath. Lana came over for scifi and   horror sex shoots to our studio. After being abused by kinky alien   tentacles in our slimy alien swamp Lana needed a hot bath. Unfortunately   for the brave girl our water heater was overused and could only produce   cool water. The small boobs babe needed the wash the slime anyway so   she decided to...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/DSC_0928.jpg"><IMG src="thumbnails/DSC_0928.jpg" height="270" width="179" alt="DSC_0928"></A></TD>
  <TD align="center"><A href="images/DSC_0933.jpg"><IMG src="thumbnails/DSC_0933.jpg" height="270" width="179" alt="DSC_0933"></A></TD>
  <TD align="center"><A href="images/DSC_0937.jpg"><IMG src="thumbnails/DSC_0937.jpg" height="270" width="179" alt="DSC_0937"></A></TD>
  <TD align="center"><A href="images/DSC_0942.jpg"><IMG src="thumbnails/DSC_0942.jpg" height="270" width="179" alt="DSC_0942"></A></TD>
  <TD align="center"><A href="images/DSC_0944.jpg"><IMG src="thumbnails/DSC_0944.jpg" height="270" width="179" alt="DSC_0944"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0947.jpg"><IMG src="thumbnails/DSC_0947.jpg" height="270" width="179" alt="DSC_0947"></A></TD>
  <TD align="center"><A href="images/DSC_0951.jpg"><IMG src="thumbnails/DSC_0951.jpg" height="270" width="179" alt="DSC_0951"></A></TD>
  <TD align="center"><A href="images/DSC_0953.jpg"><IMG src="thumbnails/DSC_0953.jpg" height="270" width="179" alt="DSC_0953"></A></TD>
  <TD align="center"><A href="images/DSC_0956.jpg"><IMG src="thumbnails/DSC_0956.jpg" height="270" width="179" alt="DSC_0956"></A></TD>
  <TD align="center"><A href="images/DSC_0962.jpg"><IMG src="thumbnails/DSC_0962.jpg" height="270" width="179" alt="DSC_0962"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0964.jpg"><IMG src="thumbnails/DSC_0964.jpg" height="270" width="179" alt="DSC_0964"></A></TD>
  <TD align="center"><A href="images/DSC_0966.jpg"><IMG src="thumbnails/DSC_0966.jpg" height="270" width="179" alt="DSC_0966"></A></TD>
  <TD align="center"><A href="images/DSC_0967.jpg"><IMG src="thumbnails/DSC_0967.jpg" height="270" width="179" alt="DSC_0967"></A></TD>
  <TD align="center"><A href="images/DSC_0968.jpg"><IMG src="thumbnails/DSC_0968.jpg" height="270" width="179" alt="DSC_0968"></A></TD>
  <TD align="center"><A href="images/DSC_0970.jpg"><IMG src="thumbnails/DSC_0970.jpg" height="270" width="179" alt="DSC_0970"></A></TD>
</TR>
<TR>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
  <TD width="183" align="center">&nbsp;</TD>
</TR>
<TR>
  <TD colspan="5" align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0000&PA=$afid&HTML=http://www.myballoonporn.com/index.php" class="EnterText"><span class="EnterText">CLICK HERE TO ENTER MY BALLOON PORN</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 colspan="5" align="center">Copyright: MY BALLOON PORN. COM<br>
    2257 info at:<br>
    http://myballoonporn.com/2257.html</TD>
</TR>


</TABLE></td>
  </tr>
	<tr>
		<td>
			<img src="../../images/join_03.jpg" width="1020" height="65" alt=""></td>
  </tr>
	<tr>
		<td>
			<img src="../../images/join_04.jpg" width="1020" height="79" 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

	}

}



