#!/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~";


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Big Boob Exotic Dancer Shay Lynn in Alien Abduction</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><table width="778" border="0" cellspacing="0" cellpadding="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="750" border=0  align="center" cellpadding="5" cellspacing="5">
<TR>
  <TD colspan="3" align="center"><h2>Big Boob Exotic Dancer Shay Lynn in Alien Abduction</h2>
    <strong>Sexy exotic dancer Shay Lynn went early to bed on October 21/2209. She  plaid with her wet pussy and some toys, including a big pink dildo.  After achieving a couple of orgasms Shay started falling a sleep…little  did she know that the Trimon Aliens were spying on her for a long time.  Descendent from Galactic Girl warrior Sylvia Saint Shay was a good DNA  material for saving the Trimon race from extinction…Huge beam of light  entered Shay’s bedroom. Shay Lynn woke up to find herself in a real  nightmare. The big boob babe was teleported directly to the SCi-Fi DNA  laboratory on planet Pussea. Stay tuned to part two, where Shay was  tricked by undercover fetish lesbian agent of the Trimon’s and had an  encounter with the mind controlling tentacles!...Stay tuned to GalacticGirls.com</strong>!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/SJM_0806.jpg"><IMG src="thumbnails/SJM_0806.jpg" height="340" width="225" alt="SJM_0806"></A></TD>
  <TD align="center"><A href="images/SJM_0859.jpg"><IMG src="thumbnails/SJM_0859.jpg" height="340" width="225" alt="SJM_0859"></A></TD>
  <TD align="center"><A href="images/SJM_0860.jpg"><IMG src="thumbnails/SJM_0860.jpg" height="340" width="225" alt="SJM_0860"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_0878.jpg"><IMG src="thumbnails/SJM_0878.jpg" height="340" width="225" alt="SJM_0878"></A></TD>
  <TD align="center"><A href="images/SJM_0909.jpg"><IMG src="thumbnails/SJM_0909.jpg" height="340" width="225" alt="SJM_0909"></A></TD>
  <TD align="center"><A href="images/SJM_0914.jpg"><IMG src="thumbnails/SJM_0914.jpg" height="340" width="225" alt="SJM_0914"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_0954.jpg"><IMG src="thumbnails/SJM_0954.jpg" height="340" width="225" alt="SJM_0954"></A></TD>
  <TD align="center"><A href="images/SJM_1025.jpg"><IMG src="thumbnails/SJM_1025.jpg" height="340" width="225" alt="SJM_1025"></A></TD>
  <TD align="center"><A href="images/SJM_1085.jpg"><IMG src="thumbnails/SJM_1085.jpg" height="340" width="225" alt="SJM_1085"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_1151.jpg"><IMG src="thumbnails/SJM_1151.jpg" height="340" width="225" alt="SJM_1151"></A></TD>
  <TD align="center"><A href="images/SJM_1787.jpg"><IMG src="thumbnails/SJM_1787.jpg" height="340" width="225" alt="SJM_1787"></A></TD>
  <TD align="center"><A href="images/SJM_1823.jpg"><IMG src="thumbnails/SJM_1823.jpg" height="340" width="225" alt="SJM_1823"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/SJM_1834.jpg"><IMG src="thumbnails/SJM_1834.jpg" height="340" width="225" alt="SJM_1834"></A></TD>
  <TD align="center"><A href="images/SJM_1836.jpg"><IMG src="thumbnails/SJM_1836.jpg" height="340" width="225" alt="SJM_1836"></A></TD>
  <TD align="center"><A href="images/SJM_1837.jpg"><IMG src="thumbnails/SJM_1837.jpg" height="340" width="225" alt="SJM_1837"></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;<br>
18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<br>
http://xxxspacegirls.us/18-statement/18-statement.html
</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
	}
}

