#!/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 in Balloon Fetish Haven</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 in Balloon Fetish Haven</h3>
  
  Come into the balloon haven of Cassandra Cruz. Not shot in years this exotica Latina invites us into her private room, to show what she does in her spare time. Secretly Cassandra Cruz has a wild balloon fetish. She isn't a popper, she is a teaser, digging her long finger nails into the balloon just moments from popping them. This tease loves rubbing over inflated balloons all over her...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
		<TD width="183" align="center"><A href="images/SJM_7170.jpg"><IMG src="thumbnails/SJM_7170.jpg" height="270" width="179" alt="SJM_7170"></A></TD>
		<TD width="183" align="center"><A href="images/SJM_7193.jpg"><IMG src="thumbnails/SJM_7193.jpg" height="270" width="179" alt="SJM_7193"></A></TD>
		<TD width="183" align="center"><A href="images/SJM_7285.jpg"><IMG src="thumbnails/SJM_7285.jpg" height="270" width="179" alt="SJM_7285"></A></TD>
		<TD width="183" align="center"><A href="images/SJM_7295.jpg"><IMG src="thumbnails/SJM_7295.jpg" height="270" width="179" alt="SJM_7295"></A></TD>
		<TD width="183" align="center"><A href="images/SJM_7304.jpg"><IMG src="thumbnails/SJM_7304.jpg" height="270" width="179" alt="SJM_7304"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/SJM_7342.jpg"><IMG src="thumbnails/SJM_7342.jpg" height="270" width="179" alt="SJM_7342"></A></TD>
		<TD align="center"><A href="images/SJM_7371.jpg"><IMG src="thumbnails/SJM_7371.jpg" height="270" width="179" alt="SJM_7371"></A></TD>
		<TD align="center"><A href="images/SJM_7398.jpg"><IMG src="thumbnails/SJM_7398.jpg" height="270" width="179" alt="SJM_7398"></A></TD>
		<TD align="center"><A href="images/SJM_7409.jpg"><IMG src="thumbnails/SJM_7409.jpg" height="270" width="179" alt="SJM_7409"></A></TD>
		<TD align="center"><A href="images/SJM_7429.jpg"><IMG src="thumbnails/SJM_7429.jpg" height="270" width="179" alt="SJM_7429"></A></TD>
</TR>



<TR>
		<TD align="center"><A href="images/SJM_7455.jpg"><img src="thumbnails/SJM_7455.jpg" height="270" width="179" alt="SJM_7455"></A></TD>
		<TD align="center"><A href="images/SJM_7464.jpg"><IMG src="thumbnails/SJM_7464.jpg" height="270" width="179" alt="SJM_7464"></A></TD>
		<TD align="center"><A href="images/SJM_7474.jpg"><IMG src="thumbnails/SJM_7474.jpg" height="270" width="179" alt="SJM_7474"></A></TD>
		<TD align="center"><A href="images/SJM_7495.jpg"><IMG src="thumbnails/SJM_7495.jpg" height="270" width="179" alt="SJM_7495"></A></TD>
		<TD align="center"><A href="images/SJM_7506.jpg"><IMG src="thumbnails/SJM_7506.jpg" height="270" width="179" alt="SJM_7506"></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"><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>
    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

	}

}



