#!/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 Black babe Tori Torrel in Knife Popper</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 Black babe Tori Torrel in Knife Popper</h3>
  
  Tori Torrel is a crazy balloon lover. She loves balloons so much that its   borderline hatred. First she likes to see how long a balloon will last under her   nice round ass, then how much she can scratch them before they explode. Tori loves blowing up balloons and then stabbing them with her knife! This naked girl is crazy about rubbing...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_5381.jpg"><IMG src="thumbnails/SJM_5381.jpg" height="270" width="179" alt="SJM_5381"></A></TD>
  <TD align="center"><A href="images/SJM_5415.jpg"><IMG src="thumbnails/SJM_5415.jpg" height="270" width="179" alt="SJM_5415"></A></TD>
  <TD align="center"><A href="images/SJM_5445.jpg"><IMG src="thumbnails/SJM_5445.jpg" height="270" width="179" alt="SJM_5445"></A></TD>
  <TD align="center"><A href="images/SJM_5461.jpg"><IMG src="thumbnails/SJM_5461.jpg" height="270" width="179" alt="SJM_5461"></A></TD>
  <TD align="center"><A href="images/SJM_5474.jpg"><IMG src="thumbnails/SJM_5474.jpg" height="270" width="179" alt="SJM_5474"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_5488.jpg"><IMG src="thumbnails/SJM_5488.jpg" height="270" width="179" alt="SJM_5488"></A></TD>
  <TD align="center"><A href="images/SJM_5614.jpg"><IMG src="thumbnails/SJM_5614.jpg" height="270" width="179" alt="SJM_5614"></A></TD>
  <TD align="center"><A href="images/SJM_5623.jpg"><IMG src="thumbnails/SJM_5623.jpg" height="270" width="179" alt="SJM_5623"></A></TD>
  <TD align="center"><A href="images/SJM_5634.jpg"><IMG src="thumbnails/SJM_5634.jpg" height="270" width="179" alt="SJM_5634"></A></TD>
  <TD align="center"><A href="images/SJM_5649.jpg"><IMG src="thumbnails/SJM_5649.jpg" height="270" width="179" alt="SJM_5649"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_5652.jpg"><IMG src="thumbnails/SJM_5652.jpg" height="270" width="179" alt="SJM_5652"></A></TD>
  <TD align="center"><A href="images/SJM_5661.jpg"><IMG src="thumbnails/SJM_5661.jpg" height="270" width="179" alt="SJM_5661"></A></TD>
  <TD align="center"><A href="images/SJM_5664.jpg"><IMG src="thumbnails/SJM_5664.jpg" height="270" width="179" alt="SJM_5664"></A></TD>
  <TD align="center"><A href="images/SJM_5667.jpg"><IMG src="thumbnails/SJM_5667.jpg" height="270" width="179" alt="SJM_5667"></A></TD>
  <TD align="center"><A href="images/SJM_5683.jpg"><IMG src="thumbnails/SJM_5683.jpg" height="270" width="179" alt="SJM_5683"></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>
   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

	}

}



