#!/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=xdw.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~";


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Big Boob Dancer Shay Lynn Probed by the SciFi Sex Machine</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="../../template/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="778" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><a href="http://tracker.zombaio.com/?$afid.7876960"><img src="../../movieT/GG_top_movies_b.jpg" alt="galactic girls performing in alien sex and SciFi Porn movies" width="778" height="314" border="0"></a></td>
  </tr>
  <tr>
    <td><table width="778" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td>
<TABLE width="750" border=0  align="center" cellpadding="5" cellspacing="5">
<TR>
  <TD colspan="3" align="center"><h2>Big Boob Dancer Shay Lynn Probed by the SciFi Sex Machine</h2>
   Sexy top dancer Shay Lynn was recruited by the IAR and sent to spy on the rival   Zercon race. The <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.glamourfilms.com/index.php">big boob glamour babe</a> landed on planet Penisus portraying herself as a   belle dancer. She was hired at a local night club. Shay’s main goal was to spy   on the local military base of the aggressive Zercon race. This hot SciFi Girl   had to try to become a lover of one of the top officers working at the base.   Unfortunately her plot was discovered by the Alien Baby mind and she was sent to   the DNA extraction LAB...<strong>Stay tuned to Galactic Girls and find out what happened   to this hot ass galactic girl!</strong></TD>
  </TR>
<TR>
  <TD align="center"><A href="images/ShayLynn_Feeding_0004.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0004.jpg" height="340" width="225" alt="ShayLynn_Feeding_0004"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0012.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0012.jpg" height="340" width="225" alt="ShayLynn_Feeding_0012"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0035.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0035.jpg" height="340" width="225" alt="ShayLynn_Feeding_0035"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/ShayLynn_Feeding_0044.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0044.jpg" height="340" width="225" alt="ShayLynn_Feeding_0044"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0070.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0070.jpg" height="340" width="225" alt="ShayLynn_Feeding_0070"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0084.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0084.jpg" height="340" width="225" alt="ShayLynn_Feeding_0084"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/ShayLynn_Feeding_0097.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0097.jpg" height="340" width="225" alt="ShayLynn_Feeding_0097"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0126.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0126.jpg" height="340" width="225" alt="ShayLynn_Feeding_0126"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0131.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0131.jpg" height="340" width="225" alt="ShayLynn_Feeding_0131"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/ShayLynn_Feeding_0137.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0137.jpg" height="340" width="225" alt="ShayLynn_Feeding_0137"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0147.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0147.jpg" height="340" width="225" alt="ShayLynn_Feeding_0147"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0175.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0175.jpg" height="340" width="225" alt="ShayLynn_Feeding_0175"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/ShayLynn_Feeding_0180.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0180.jpg" height="340" width="225" alt="ShayLynn_Feeding_0180"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0192.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0192.jpg" height="340" width="225" alt="ShayLynn_Feeding_0192"></A></TD>
  <TD align="center"><A href="images/ShayLynn_Feeding_0199.jpg"><IMG src="thumbnails/ShayLynn_Feeding_0199.jpg" height="340" width="225" alt="ShayLynn_Feeding_0199"></A></TD>
</TR>
</TABLE></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td><img src="../../../images/index2-bottom.jpg" alt="scifi porn and alien sex movies and videos" width="778" height="249" border="0"></td>
  </tr>
</table>
<br>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876960"><font size="6">CLICK HERE TO ENTER GALACTIC GIRLS</font></a></div>
<br>
<br>
<div align="center">GalacticGirls&#8482;<strong><br>
  </strong>18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<br>
  http://tracker.zombaio.com/?$afid.7876960<br>
</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
	}
}

