#!/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>Tyla Wynn as Satan's Slut</TITLE>
<META NAME="DESCRIPTION" CONTENT="Porn star Tyla Wynn in horror sex with Satan - movies and images!">
<META NAME="KEYWORDS" CONTENT="Tyla Wynn, xxx movie, satan sex, horror video, fetish vampire, gothic galleries, porn images, BDSM DVD">
<META NAME="revisit-after" CONTENT="14 days">
<META NAME="copyright" CONTENT="copyright 2005, xxx horror">
<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="#000000" text="#FFFFFF" link="#FF0000" vlink="#CC0000" alink="#FF0000">
<h1 align="center">Tyla Wynn &quot;Satan's Slut&quot;</h1>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/XXXHorror.jpg" alt="horror movie, vampire sex, lesbian DVD, fetish video" width="585" height="100" border="0"></a></div>
<TABLE width="585" border=0  align="center" cellpadding=0 cellspacing=5 bgcolor="#FFFFFF">
  <TR> 
    <td width="111" height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut1_0015.jpg"><IMG src="thumbnails/TylaWynnSatansSlut1_0015.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut1_0015"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut1_0024.jpg"><IMG src="thumbnails/TylaWynnSatansSlut1_0024.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut1_0024"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut1_0027.jpg"><IMG src="thumbnails/TylaWynnSatansSlut1_0027.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut1_0027"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut1_0060.jpg"><IMG src="thumbnails/TylaWynnSatansSlut1_0060.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut1_0060"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut1_0074.jpg"><IMG src="thumbnails/TylaWynnSatansSlut1_0074.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut1_0074"></A></td>
  </TR>
  <TR> 
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut1_0082.jpg"><IMG src="thumbnails/TylaWynnSatansSlut1_0082.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut1_0082"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut1_0090.jpg"><IMG src="thumbnails/TylaWynnSatansSlut1_0090.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut1_0090"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0001.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0001.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0001"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0024.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0024.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0024"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0036.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0036.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0036"></A></td>
  </TR>
  <TR> 
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0054.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0054.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0054"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0082.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0082.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0082"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0104.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0104.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0104"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0108.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0108.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0108"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/TylaWynnSatansSlut2_0125.jpg"><IMG src="thumbnails/TylaWynnSatansSlut2_0125.jpg" height="160" width="104" border=2 alt="TylaWynnSatansSlut2_0125"></A></td>
  </TR>
  <TR> 
    <td height="100%" colspan="5" align="center" valign="middle"><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Visit 
      <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/tour4.htm">HORROR SEX</a> today and see 
      more <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com/Tyla_Wynn/index.htm">TYLA WYNN</a>!<br>
      100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 
      exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, 
      Alien Manga and Bondage Pictures.</strong></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">xxxHorror&#8482;<br>
    <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/18-statement/18-statement.html">18 U.S.C. 
    2257 Record-Keeping Requirements Compliance Statement</a></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
	}
}

