#!/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 Dakota Rose in Balloon Popping Cowgirl</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="my fetish balloon porn videos" 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>Hot Tattoo Babe Dakota Rose in Balloon Popping Cowgirl</h3>
  
  Sexy tattoo babe Dakota Rose went to Texas to visit her  parents during the Summer. One day Dakota decided to help her parents with  their huge cow herd . She mounted her nice stallion and went out to the feeding  ground. She returned to the farm after a long and difficult day. Riding the stallion  made her very horny&hellip;Dakota was taking off her dirty cloths when she saw a lot  of balloons laying in....Read the whole story on MyBalloonPorn.com!
    </TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_4921.jpg"><IMG src="thumbnails/SJM_4921.jpg" height="270" width="179" alt="SJM_4921"></A></TD>
  <TD align="center"><A href="images/SJM_4934.jpg"><IMG src="thumbnails/SJM_4934.jpg" height="270" width="179" alt="SJM_4934"></A></TD>
  <TD align="center"><A href="images/SJM_4951.jpg"><IMG src="thumbnails/SJM_4951.jpg" height="270" width="179" alt="SJM_4951"></A></TD>
  <TD align="center"><A href="images/SJM_4956.jpg"><IMG src="thumbnails/SJM_4956.jpg" height="270" width="179" alt="SJM_4956"></A></TD>
  <TD align="center"><A href="images/SJM_4961.jpg"><IMG src="thumbnails/SJM_4961.jpg" height="270" width="179" alt="SJM_4961"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_4966.jpg"><IMG src="thumbnails/SJM_4966.jpg" height="270" width="179" alt="SJM_4966"></A></TD>
  <TD align="center"><A href="images/SJM_4985.jpg"><IMG src="thumbnails/SJM_4985.jpg" height="270" width="179" alt="SJM_4985"></A></TD>
  <TD align="center"><A href="images/SJM_4997.jpg"><IMG src="thumbnails/SJM_4997.jpg" height="270" width="179" alt="SJM_4997"></A></TD>
  <TD align="center"><A href="images/SJM_4998.jpg"><IMG src="thumbnails/SJM_4998.jpg" height="270" width="179" alt="SJM_4998"></A></TD>
  <TD align="center"><A href="images/SJM_5001.jpg"><IMG src="thumbnails/SJM_5001.jpg" height="270" width="179" alt="SJM_5001"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_5013.jpg"><IMG src="thumbnails/SJM_5013.jpg" height="270" width="179" alt="SJM_5013"></A></TD>
  <TD align="center"><A href="images/SJM_5019.jpg"><IMG src="thumbnails/SJM_5019.jpg" height="270" width="179" alt="SJM_5019"></A></TD>
  <TD align="center"><A href="images/SJM_5023.jpg"><IMG src="thumbnails/SJM_5023.jpg" height="270" width="179" alt="SJM_5023"></A></TD>
  <TD align="center"><A href="images/SJM_5034.jpg"><IMG src="thumbnails/SJM_5034.jpg" height="270" width="179" alt="SJM_5034"></A></TD>
  <TD align="center"><A href="images/SJM_5038.jpg"><IMG src="thumbnails/SJM_5038.jpg" height="270" width="179" alt="SJM_5038"></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="sexy tattoo babes popping huge porn balloons"></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

	}

}



