#!/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>Busty Dancer Shay Lynn in Gymnastics Poppping</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>Busty Dancer Shay Lynn in Gymnastics Poppping</h1>
    	In this classic balloon fetish video, busty porn babe Shay Lynn blows and pops balloons naked. Flexible exotic dancer Shay pops the balloons doing walkovers and other gymnastic routines, exposing her firm hot ass huge tits. Feeling the looner lust kinky Shay grabbed the innocent balloons and smashed them with her nails until they popped releasing a loud sound, making Shay Lynn deaf...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/DSC_1061.jpg"><IMG src="thumbnails/DSC_1061.jpg" height="270" width="179" alt="DSC_1061"></A></TD>
  <TD align="center"><A href="images/DSC_1067.jpg"><IMG src="thumbnails/DSC_1067.jpg" height="270" width="179" alt="DSC_1067"></A></TD>
  <TD align="center"><A href="images/DSC_1070.jpg"><IMG src="thumbnails/DSC_1070.jpg" height="270" width="179" alt="DSC_1070"></A></TD>
  <TD align="center"><A href="images/DSC_1076.jpg"><IMG src="thumbnails/DSC_1076.jpg" height="270" width="179" alt="DSC_1076"></A></TD>
  <TD align="center"><A href="images/DSC_1080.jpg"><IMG src="thumbnails/DSC_1080.jpg" height="270" width="179" alt="DSC_1080"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_1094.jpg"><IMG src="thumbnails/DSC_1094.jpg" height="270" width="179" alt="DSC_1094"></A></TD>
  <TD align="center"><A href="images/DSC_1096.jpg"><IMG src="thumbnails/DSC_1096.jpg" height="270" width="179" alt="DSC_1096"></A></TD>
  <TD align="center"><A href="images/DSC_1104.jpg"><IMG src="thumbnails/DSC_1104.jpg" height="270" width="179" alt="DSC_1104"></A></TD>
  <TD align="center"><A href="images/DSC_1114.jpg"><IMG src="thumbnails/DSC_1114.jpg" height="270" width="179" alt="DSC_1114"></A></TD>
  <TD align="center"><A href="images/DSC_1132.jpg"><IMG src="thumbnails/DSC_1132.jpg" height="270" width="179" alt="DSC_1132"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/DSC_1136.jpg"><IMG src="thumbnails/DSC_1136.jpg" height="270" width="179" alt="DSC_1136"></A></TD>
  <TD align="center"><A href="images/DSC_1148.jpg"><IMG src="thumbnails/DSC_1148.jpg" height="270" width="179" alt="DSC_1148"></A></TD>
  <TD align="center"><A href="images/DSC_1165.jpg"><IMG src="thumbnails/DSC_1165.jpg" height="270" width="179" alt="DSC_1165"></A></TD>
  <TD align="center"><A href="images/DSC_1171.jpg"><IMG src="thumbnails/DSC_1171.jpg" height="270" width="179" alt="DSC_1171"></A></TD>
  <TD align="center"><A href="images/DSC_1175.jpg"><IMG src="thumbnails/DSC_1175.jpg" height="270" width="179" alt="DSC_1175"></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

	}

}



