#!/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.shtml">
</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>Ryaan Reynolds Galactic Girl</TITLE>

<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#CCFFFF" text="000000" link="#0000FF" vlink="#000099" alink="#6600FF">
<h1 align="center">Ryaan Reynolds Galactic Girl</h1>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876960"><img src="../../header/GG-3.jpg" alt="wild girls, galactic sex, alien porn movie, BDSM slut" width="585" height="100" border="0"></a></div>
<TABLE width="585" border="0"  align="center" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF">
  <TR> 
    <TD colspan="5" align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Porn 
      teen babe Ryan Reynolds was teased by the Alien Breeder. He used his telepathic 
      powers and made her enter the SciFi lab. As a horny little bitch&#8230;she 
      grabbed the DNA extractor, thinking it is a dildo.</strong></font></TD>
  </TR>
  <TR> 
    <TD width="111" align="center"> <A href="images/RyaanReynolds_GalacticGirl1_0001.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl1_0001.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl1_0001"></A></TD>
    <TD width="111" align="center"> <A href="images/RyaanReynolds_GalacticGirl1_0009.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl1_0009.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl1_0009"></A></TD>
    <TD width="111" align="center"> <A href="images/RyaanReynolds_GalacticGirl1_0029.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl1_0029.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl1_0029"></A></TD>
    <TD width="111" align="center"> <A href="images/RyaanReynolds_GalacticGirl1_0059.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl1_0059.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl1_0059"></A></TD>
    <TD width="111" align="center"> <A href="images/RyaanReynolds_GalacticGirl1_0109.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl1_0109.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl1_0109"></A></TD>
  </TR>
  <TR> 
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl1_0159.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl1_0159.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl1_0159"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl1_0202.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl1_0202.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl1_0202"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0001.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0001.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0001"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0034.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0034.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0034"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0062.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0062.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0062"></A></TD>
  </TR>
  <TR> 
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0104.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0104.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0104"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0126.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0126.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0126"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0178.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0178.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0178"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0184.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0184.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0184"></A></TD>
    <TD align="center"> <A href="images/RyaanReynolds_GalacticGirl2_0204.jpg"><IMG src="thumbnails/RyaanReynolds_GalacticGirl2_0204.jpg" height="160" width="104" border="2" alt="RyaanReynolds_GalacticGirl2_0204"></A></TD>
  </TR>
</TABLE>
<br>
<div align="center"> <a href="http://tracker.zombaio.com/?$afid.7876960"><font size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong>CLICK 
  HERE TO ENTER GALACTIC GIRLS</strong></font></a> </div><br>


 
<div align="center"> 
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">GalacticGirls&#8482;<br>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18 U.S.C. 2257 
    Record-Keeping Requirements Compliance Statement</strong></font> at:<br>
    http://tracker.zombaio.com/?$afid.7876960 </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
	}
}

