#!/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>Amateur Black babe Tori Torrell stripping pink lingerie and popping balloons</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"><h3>Amateur Black babe Tori Torrell stripping pink lingerie and popping balloons</h3>
  
  Sexy black amateur girl Mika Leone wants to become a top porn star. She   wanted to start with more softcore action and switch to full blown   hardcore sex. What better to start with than popping huge burstable   balloons naked? She came to our studio very enthusiastic. It was   pleasure to shoot this fit girl who enjoyed blowing big balloons and   then smashing them with her firm ass. Check out this balloon...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_5764.jpg"><IMG src="thumbnails/SJM_5764.jpg" height="270" width="179" alt="SJM_5764"></A></TD>
  <TD align="center"><A href="images/SJM_5773.jpg"><IMG src="thumbnails/SJM_5773.jpg" height="270" width="179" alt="SJM_5773"></A></TD>
  <TD align="center"><A href="images/SJM_5786.jpg"><IMG src="thumbnails/SJM_5786.jpg" height="270" width="179" alt="SJM_5786"></A></TD>
  <TD align="center"><A href="images/SJM_5824.jpg"><IMG src="thumbnails/SJM_5824.jpg" height="270" width="179" alt="SJM_5824"></A></TD>
  <TD align="center"><A href="images/SJM_5837.jpg"><IMG src="thumbnails/SJM_5837.jpg" height="270" width="179" alt="SJM_5837"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_5840.jpg"><IMG src="thumbnails/SJM_5840.jpg" height="270" width="179" alt="SJM_5840"></A></TD>
  <TD align="center"><A href="images/SJM_5901.jpg"><IMG src="thumbnails/SJM_5901.jpg" height="270" width="179" alt="SJM_5901"></A></TD>
  <TD align="center"><A href="images/SJM_5931.jpg"><IMG src="thumbnails/SJM_5931.jpg" height="270" width="179" alt="SJM_5931"></A></TD>
  <TD align="center"><A href="images/SJM_5938.jpg"><IMG src="thumbnails/SJM_5938.jpg" height="270" width="179" alt="SJM_5938"></A></TD>
  <TD align="center"><A href="images/SJM_5942.jpg"><IMG src="thumbnails/SJM_5942.jpg" height="270" width="179" alt="SJM_5942"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_5953.jpg"><IMG src="thumbnails/SJM_5953.jpg" height="270" width="179" alt="SJM_5953"></A></TD>
  <TD align="center"><A href="images/SJM_5954.jpg"><IMG src="thumbnails/SJM_5954.jpg" height="270" width="179" alt="SJM_5954"></A></TD>
  <TD align="center"><A href="images/SJM_5956.jpg"><IMG src="thumbnails/SJM_5956.jpg" height="270" width="179" alt="SJM_5956"></A></TD>
  <TD align="center"><A href="images/SJM_5979.jpg"><IMG src="thumbnails/SJM_5979.jpg" height="270" width="179" alt="SJM_5979"></A></TD>
  <TD align="center"><A href="images/SJM_5988.jpg"><IMG src="thumbnails/SJM_5988.jpg" height="270" width="179" alt="SJM_5988"></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 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: 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

	}

}



