#!/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>Natasha and Star in Balloon Popping Fetish Fight</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="971" border=0  align="center" cellpadding=0 cellspacing=15>
          <TR>
            <TD colspan="4" align="center"><h2>Natasha and Star in Balloon Popping Fetish Fight</h2>
            Tattoo slut Natasha was caught by looner bitch Star touching her huge  burstable balloons. Pissed off black big boob babe Star beat the  balloon slut Natasha with the big overinflated balloons. As they  started fighting they dog piled on the oversized innocent balloon,  testing how long it will resist popping. After losing one balloon,  Natasha began inflating her own dirty red balloon. Watch the crazy  interracial balloon...Read the whole story on MyBalloonPorn.com!</TD>
          </TR>
          <TR>
            <TD width="224" align="center"><A href="images/DSC_0476.jpg"><IMG src="thumbnails/DSC_0476.jpg" height="146" width="220" alt="DSC_0476"></A></TD>
            <TD width="224" align="center"><A href="images/DSC_0482.jpg"><IMG src="thumbnails/DSC_0482.jpg" height="146" width="220" alt="DSC_0482"></A></TD>
            <TD width="224" align="center"><A href="images/DSC_0484.jpg"><IMG src="thumbnails/DSC_0484.jpg" height="146" width="220" alt="DSC_0484"></A></TD>
            <TD width="224" align="center"><A href="images/DSC_0487.jpg"><IMG src="thumbnails/DSC_0487.jpg" height="146" width="220" alt="DSC_0487"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/DSC_0494.jpg"><IMG src="thumbnails/DSC_0494.jpg" height="146" width="220" alt="DSC_0494"></A></TD>
            <TD align="center"><A href="images/DSC_0516.jpg"><IMG src="thumbnails/DSC_0516.jpg" height="146" width="220" alt="DSC_0516"></A></TD>
            <TD align="center"><A href="images/DSC_0531.jpg"><IMG src="thumbnails/DSC_0531.jpg" height="146" width="220" alt="DSC_0531"></A></TD>
            <TD align="center"><A href="images/DSC_0533.jpg"><IMG src="thumbnails/DSC_0533.jpg" height="146" width="220" alt="DSC_0533"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/DSC_0537.jpg"><IMG src="thumbnails/DSC_0537.jpg" height="146" width="220" alt="DSC_0537"></A></TD>
            <TD align="center"><A href="images/DSC_0538.jpg"><IMG src="thumbnails/DSC_0538.jpg" height="146" width="220" alt="DSC_0538"></A></TD>
            <TD align="center"><A href="images/DSC_0540.jpg"><IMG src="thumbnails/DSC_0540.jpg" height="146" width="220" alt="DSC_0540"></A></TD>
            <TD align="center"><A href="images/DSC_0542.jpg"><IMG src="thumbnails/DSC_0542.jpg" height="146" width="220" alt="DSC_0542"></A></TD>
          </TR>
          <TR>
            <TD align="center"><A href="images/DSC_0545.jpg"><IMG src="thumbnails/DSC_0545.jpg" height="146" width="220" alt="DSC_0545"></A></TD>
            <TD align="center"><A href="images/DSC_0546.jpg"><IMG src="thumbnails/DSC_0546.jpg" height="146" width="220" alt="DSC_0546"></A></TD>
            <TD align="center"><A href="images/DSC_0548.jpg"><IMG src="thumbnails/DSC_0548.jpg" height="146" width="220" alt="DSC_0548"></A></TD>
            <TD align="center"><A href="images/DSC_0563.jpg"><IMG src="thumbnails/DSC_0563.jpg" height="146" width="220" alt="DSC_0563"></A></TD>
          </TR>
          <TR>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
            <TD align="center">&nbsp;</TD>
          </TR>
          <TR>
            <TD colspan="4" 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>
          </TR>

          <TR>
            <TD colspan="4" 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

	}

}



