#!/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>exotic dancer Shay Lynn in blow to pop balloon porn</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>Shay Lynn in Blow To Pop balloon action</h1>
    In this kinky fetish balloon video Shay Lynn pretends that she is a nice looner   girl. But during the shoot Mistress Ania made her blow a lot of balloons and   scratch them with her nails. The big boob babe was very annoyed by the sound,   which drove her crazy. By the end of the shoot Shay started smashing and popping   the innocent balloons with her firm ass and sharp nails. This is another   exclusive fetish balloon video featuring exotic...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/DSC_0798.jpg"><IMG src="thumbnails/DSC_0798.jpg" height="270" width="179" alt="DSC_0798"></A></TD>
  <TD align="center"><A href="images/DSC_0800.jpg"><IMG src="thumbnails/DSC_0800.jpg" height="270" width="179" alt="DSC_0800"></A></TD>
  <TD align="center"><A href="images/DSC_0802.jpg"><IMG src="thumbnails/DSC_0802.jpg" height="270" width="179" alt="DSC_0802"></A></TD>
  <TD align="center"><A href="images/DSC_0805.jpg"><IMG src="thumbnails/DSC_0805.jpg" height="270" width="179" alt="DSC_0805"></A></TD>
  <TD align="center"><A href="images/DSC_0809.jpg"><IMG src="thumbnails/DSC_0809.jpg" height="270" width="179" alt="DSC_0809"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0815.jpg"><IMG src="thumbnails/DSC_0815.jpg" height="270" width="179" alt="DSC_0815"></A></TD>
  <TD align="center"><A href="images/DSC_0817.jpg"><IMG src="thumbnails/DSC_0817.jpg" height="270" width="179" alt="DSC_0817"></A></TD>
  <TD align="center"><A href="images/DSC_0821.jpg"><IMG src="thumbnails/DSC_0821.jpg" height="270" width="179" alt="DSC_0821"></A></TD>
  <TD align="center"><A href="images/DSC_0825.jpg"><IMG src="thumbnails/DSC_0825.jpg" height="270" width="179" alt="DSC_0825"></A></TD>
  <TD align="center"><A href="images/DSC_0830.jpg"><IMG src="thumbnails/DSC_0830.jpg" height="270" width="179" alt="DSC_0830"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_0836.jpg"><IMG src="thumbnails/DSC_0836.jpg" height="270" width="179" alt="DSC_0836"></A></TD>
  <TD align="center"><A href="images/DSC_0840.jpg"><IMG src="thumbnails/DSC_0840.jpg" height="270" width="179" alt="DSC_0840"></A></TD>
  <TD align="center"><A href="images/DSC_0843.jpg"><IMG src="thumbnails/DSC_0843.jpg" height="270" width="179" alt="DSC_0843"></A></TD>
  <TD align="center"><A href="images/DSC_0849.jpg"><IMG src="thumbnails/DSC_0849.jpg" height="270" width="179" alt="DSC_0849"></A></TD>
  <TD align="center"><A href="images/DSC_0853.jpg"><IMG src="thumbnails/DSC_0853.jpg" height="270" width="179" alt="DSC_0853"></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

	}

}



