#!/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>Patient popping balloons in the dentist office</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"><h1>Patient popping balloons in the dentist office</h1>
    	This is what happens when the dentist is late?! Big boobs fetish babe   Kymberly had a dentist appointment. She sat on the old vintage chair   expecting her dentist to show up. The dentist was late so the patient   looked around bored. The porn babe started playing with her clitoras   when she saw many colorful balloons in the corner. Bored to death the   big boobs babe started popping the balloons while masturbating. She was   about to...Read the whole story on MyBalloonPorn.com!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_7829.jpg"><IMG src="thumbnails/SJM_7829.jpg" height="270" width="179" alt="SJM_7829"></A></TD>
  <TD align="center"><A href="images/SJM_7914.jpg"><IMG src="thumbnails/SJM_7914.jpg" height="270" width="179" alt="SJM_7914"></A></TD>
  <TD align="center"><A href="images/SJM_7973.jpg"><IMG src="thumbnails/SJM_7973.jpg" height="270" width="179" alt="SJM_7973"></A></TD>
  <TD align="center"><A href="images/SJM_7984.jpg"><IMG src="thumbnails/SJM_7984.jpg" height="270" width="179" alt="SJM_7984"></A></TD>
  <TD align="center"><A href="images/SJM_7991.jpg"><IMG src="thumbnails/SJM_7991.jpg" height="270" width="179" alt="SJM_7991"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_7999.jpg"><IMG src="thumbnails/SJM_7999.jpg" height="270" width="179" alt="SJM_7999"></A></TD>
  <TD align="center"><A href="images/SJM_8008.jpg"><IMG src="thumbnails/SJM_8008.jpg" height="270" width="179" alt="SJM_8008"></A></TD>
  <TD align="center"><A href="images/SJM_8017.jpg"><IMG src="thumbnails/SJM_8017.jpg" height="270" width="179" alt="SJM_8017"></A></TD>
  <TD align="center"><A href="images/SJM_8062.jpg"><IMG src="thumbnails/SJM_8062.jpg" height="270" width="179" alt="SJM_8062"></A></TD>
  <TD align="center"><A href="images/SJM_8082.jpg"><IMG src="thumbnails/SJM_8082.jpg" height="270" width="179" alt="SJM_8082"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_8110.jpg"><IMG src="thumbnails/SJM_8110.jpg" height="270" width="179" alt="SJM_8110"></A></TD>
  <TD align="center"><A href="images/SJM_8136.jpg"><IMG src="thumbnails/SJM_8136.jpg" height="270" width="179" alt="SJM_8136"></A></TD>
  <TD align="center"><A href="images/SJM_8141.jpg"><IMG src="thumbnails/SJM_8141.jpg" height="270" width="179" alt="SJM_8141"></A></TD>
  <TD align="center"><A href="images/SJM_8153.jpg"><IMG src="thumbnails/SJM_8153.jpg" height="270" width="179" alt="SJM_8153"></A></TD>
  <TD align="center"><A href="images/SJM_8159.jpg"><IMG src="thumbnails/SJM_8159.jpg" height="270" width="179" alt="SJM_8159"></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>
    2257 info 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

	}

}



