#!/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>Hot tattoo babe Kayla Jane in Fetish Balloon Popping Teacher</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="looner balloon popping amateur girls" 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"><h2>Hot tattoo babe Kayla Jane in Balloon Popping Teacher</h2>
    Hot and sexy elementary school teacher Kyla Jane discovered new   <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0000&PA=$afid&HTML=http://xxxhorror.com/index.php">kinky fetish desires</a> in her life. One day after preparing the classroom for a birthday party   she sat on the soft red carpet. Kyla was very tired after blowing around 30   colorful balloons. She needed to stuck something in her pussy in order to   recharge herself. Hot tattoo babe Kyla grabbed one of the thick pens laying   around. Accidentally she popped a big...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_6518.jpg"><IMG src="thumbnails/SJM_6518.jpg" height="270" width="179" alt="SJM_6518"></A></TD>
  <TD align="center"><A href="images/SJM_6524.jpg"><IMG src="thumbnails/SJM_6524.jpg" height="270" width="179" alt="SJM_6524"></A></TD>
  <TD align="center"><A href="images/SJM_6531.jpg"><IMG src="thumbnails/SJM_6531.jpg" height="270" width="179" alt="SJM_6531"></A></TD>
  <TD align="center"><A href="images/SJM_6534.jpg"><IMG src="thumbnails/SJM_6534.jpg" height="270" width="179" alt="SJM_6534"></A></TD>
  <TD align="center"><A href="images/SJM_6552.jpg"><IMG src="thumbnails/SJM_6552.jpg" height="270" width="179" alt="SJM_6552"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_6560.jpg"><IMG src="thumbnails/SJM_6560.jpg" height="270" width="179" alt="SJM_6560"></A></TD>
  <TD align="center"><A href="images/SJM_6573.jpg"><IMG src="thumbnails/SJM_6573.jpg" height="270" width="179" alt="SJM_6573"></A></TD>
  <TD align="center"><A href="images/SJM_6576.jpg"><IMG src="thumbnails/SJM_6576.jpg" height="270" width="179" alt="SJM_6576"></A></TD>
  <TD align="center"><A href="images/SJM_6579.jpg"><IMG src="thumbnails/SJM_6579.jpg" height="270" width="179" alt="SJM_6579"></A></TD>
  <TD align="center"><A href="images/SJM_6587.jpg"><IMG src="thumbnails/SJM_6587.jpg" height="270" width="179" alt="SJM_6587"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_6591.jpg"><IMG src="thumbnails/SJM_6591.jpg" height="270" width="179" alt="SJM_6591"></A></TD>
  <TD align="center"><A href="images/SJM_6594.jpg"><IMG src="thumbnails/SJM_6594.jpg" height="270" width="179" alt="SJM_6594"></A></TD>
  <TD align="center"><A href="images/SJM_6597.jpg"><IMG src="thumbnails/SJM_6597.jpg" height="270" width="179" alt="SJM_6597"></A></TD>
  <TD align="center"><A href="images/SJM_6603.jpg"><IMG src="thumbnails/SJM_6603.jpg" height="270" width="179" alt="SJM_6603"></A></TD>
  <TD align="center"><A href="images/SJM_6621.jpg"><IMG src="thumbnails/SJM_6621.jpg" height="270" width="179" alt="SJM_6621"></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">&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

	}

}



