#!/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=http://xxxspacegirls.us">
</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~";


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Loni Bunny Call Girl Babe</TITLE>
<META NAME="DESCRIPTION" CONTENT="Only high quality porn star images - 667x1024 pixels - at babeCenterfolds.com!">
<META NAME="KEYWORDS" CONTENT="Loni Bunny, hentai babes, sci-fi sex, alien porn, vampire lesbian, horror galleries, robot uniforms, fetish tits, anime perversions">
<META NAME="revisit-after" CONTENT="14 days">
<META NAME="copyright" CONTENT="copyright 2004, xxx space girls">
<META NAME="distribution" CONTENT="Global">
<META NAME="rating" CONTENT="Mature">
<META NAME="language" CONTENT="en-us">
<META name="Robots" content="index,follow">
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#CCCC33"  text="#000000"  link="#FF3300"  vlink="#CC0000"  alink="#FF3333">
<h1 align="center">Loni Bunny Call Girl Babe</h1>
<TABLE width="565" border="0"  align="center" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF">
  <TR> 
    <TD colspan="5" align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/tour2.htm"><img src="../../header/sci-fi-asian-teen.jpg" alt="sci-fi asian sex, alien porn orgies, space sex, space vampires, horror sex aliens" width="468" height="100" border="0"></a></TD>
  </TR>
  <TR> 
    <TD width="107" align="center"><A href="images/LoniBunnyCallGirlSlut_0001.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0001.jpg" border="2" alt="LoniBunnyCallGirlSlut_0001"></A></TD>
    <TD width="107" align="center"><A href="images/LoniBunnyCallGirlSlut_0006.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0006.jpg" border="2" alt="LoniBunnyCallGirlSlut_0006"></A></TD>
    <TD width="107" align="center"><A href="images/LoniBunnyCallGirlSlut_0007.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0007.jpg" border="2" alt="LoniBunnyCallGirlSlut_0007"></A></TD>
    <TD width="107" align="center"><A href="images/LoniBunnyCallGirlSlut_0012.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0012.jpg" border="2" alt="LoniBunnyCallGirlSlut_0012"></A></TD>
    <TD width="107" align="center"><A href="images/LoniBunnyCallGirlSlut_0019.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0019.jpg" border="2" alt="LoniBunnyCallGirlSlut_0019"></A></TD>
  </TR>
  <TR> 
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0023.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0023.jpg" border="2" alt="LoniBunnyCallGirlSlut_0023"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0033.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0033.jpg" border="2" alt="LoniBunnyCallGirlSlut_0033"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0037.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0037.jpg" border="2" alt="LoniBunnyCallGirlSlut_0037"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0043.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0043.jpg" border="2" alt="LoniBunnyCallGirlSlut_0043"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0047.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0047.jpg" border="2" alt="LoniBunnyCallGirlSlut_0047"></A></TD>
  </TR>
  <TR> 
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0053.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0053.jpg" border="2" alt="LoniBunnyCallGirlSlut_0053"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0055.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0055.jpg" border="2" alt="LoniBunnyCallGirlSlut_0055"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0068.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0068.jpg" border="2" alt="LoniBunnyCallGirlSlut_0068"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0071.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0071.jpg" border="2" alt="LoniBunnyCallGirlSlut_0071"></A></TD>
    <TD align="center"><A href="images/LoniBunnyCallGirlSlut_0073.jpg"><IMG src="thumbnails/LoniBunnyCallGirlSlut_0073.jpg" border="2" alt="LoniBunnyCallGirlSlut_0073"></A></TD>
  </TR>
</TABLE>
<table width="565" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  <tr>
    <td align="center"><font face="Tahoma"><font face="Tahoma"><font face="Verdana, Arial, Helvetica, sans-serif"><strong>Visit 
      <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com" title="Fetish Porn Stars">Babe Centerfolds</a> 
      today and see more <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0001&PA=$afid&HTML=http://xxxfetishworld.com/page-3.htm" title="Foot Fetish Gallery">Fetish 
      Babes</a>.<br>
      100's of the hottest porn stars doing your wildest fantasies. Over 400,000 
      exclusive FETISH MOVIES, HORROR SEX IMAGES, VAMPIRE BONDAGE , SCI-FI GIRLS 
      and ALIEN PORN.</strong></font></font><font face="Verdana, Arial, Helvetica, sans-serif"></font></font></td>
  </tr>
</table>
<br>
<div align="center">
  <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539&PA=$afid&HTML=http://adultworldmedia.com">webmasters</a>
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">XXXSPACEGIRLS&#8482;</font></strong></font>
  </p>
</div>
</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
	}
}

