#!/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>Sexy Latina Cassandra Cruz making looner dreams come true</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>Sexy Latina Cassandra Cruz making looner dreams come true</h3>
  
 Sexy Latina Cassandra Cruz likes to play with balloons right before going to bed. In this episode she dresses in light pink and goes to the balloon popping room in her house. Here, in this specially designed room for balloon fetish sex, Cassandra would start touching her smooth Latina body and sweet creamy boobs. This hot fetish babe strips herself wile popping huge burstable balloons and...read the whole story on myballoonporn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_6820.jpg"><IMG src="thumbnails/SJM_6820.jpg" height="270" width="179" alt="SJM_6820"></A></TD>
  <TD align="center"><A href="images/SJM_6849.jpg"><IMG src="thumbnails/SJM_6849.jpg" height="270" width="179" alt="SJM_6849"></A></TD>
  <TD align="center"><A href="images/SJM_6876.jpg"><IMG src="thumbnails/SJM_6876.jpg" height="270" width="179" alt="SJM_6876"></A></TD>
  <TD align="center"><A href="images/SJM_6899.jpg"><IMG src="thumbnails/SJM_6899.jpg" height="270" width="179" alt="SJM_6899"></A></TD>
  <TD align="center"><A href="images/SJM_6917.jpg"><IMG src="thumbnails/SJM_6917.jpg" height="270" width="179" alt="SJM_6917"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_6935.jpg"><IMG src="thumbnails/SJM_6935.jpg" height="270" width="179" alt="SJM_6935"></A></TD>
  <TD align="center"><A href="images/SJM_6941.jpg"><IMG src="thumbnails/SJM_6941.jpg" height="270" width="179" alt="SJM_6941"></A></TD>
  <TD align="center"><A href="images/SJM_6947.jpg"><IMG src="thumbnails/SJM_6947.jpg" height="270" width="179" alt="SJM_6947"></A></TD>
  <TD align="center"><A href="images/SJM_6987.jpg"><IMG src="thumbnails/SJM_6987.jpg" height="270" width="179" alt="SJM_6987"></A></TD>
  <TD align="center"><A href="images/SJM_6993.jpg"><IMG src="thumbnails/SJM_6993.jpg" height="270" width="179" alt="SJM_6993"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_7011.jpg"><IMG src="thumbnails/SJM_7011.jpg" height="270" width="179" alt="SJM_7011"></A></TD>
  <TD align="center"><A href="images/SJM_7043.jpg"><IMG src="thumbnails/SJM_7043.jpg" height="270" width="179" alt="SJM_7043"></A></TD>
  <TD align="center"><A href="images/SJM_7055.jpg"><IMG src="thumbnails/SJM_7055.jpg" height="270" width="179" alt="SJM_7055"></A></TD>
  <TD align="center"><A href="images/SJM_7124.jpg"><IMG src="thumbnails/SJM_7124.jpg" height="270" width="179" alt="SJM_7124"></A></TD>
  <TD align="center"><A href="images/SJM_7152.jpg"><IMG src="thumbnails/SJM_7152.jpg" height="270" width="179" alt="SJM_7152"></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>
  18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement 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

	}

}



