#!/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>Allison Pierce in Evil Submission</TITLE>
<META NAME="DESCRIPTION" CONTENT="Porn babe Allison Pierce turning in to sex vampire nun!">
<META NAME="KEYWORDS" CONTENT="Allison Pierce, horror nun, fetish vampire, movie galleries, gothic porn images, sex video, gothic dungeon">
<META NAME="revisit-after" CONTENT="4 days">
<META NAME="copyright" CONTENT="copyright 2007, xxx horror">
<META NAME="distribution" CONTENT="Global">
<META NAME="rating" CONTENT="Mature">
<META NAME="language" CONTENT="en-us">
<META NAME="Author" CONTENT="webmaster@xxxhorror.com">
<META name="Robots" content="index,follow">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="horror.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="700" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Headar.jpg" alt="Ashley Renee, Paris Kennedy, Victoria Knight" width="700" height="300" border="0" /></a></td>
  </tr>

  <tr> <td><table width="600" border="0" align="center" cellpadding="2" cellspacing="2">
      <tr> 
        <td colspan="2">&nbsp;</td>
      </tr>
      <tr> 
        <td colspan="2"><h2 align="center">Allison Pierce in Evil Submission</h2></td>
      </tr>
      <tr> <td align="center"><a href="../../../movies/EVIL_SUBMISSION_AllisonP/EvilSubmission1_01.wmv"><img src="../../../movies/EVIL_SUBMISSION_AllisonP/EvilSubmission1_01.jpg" alt="Allison Pierce in Evil Submission movie thumbnail 1" width="245" height="180" border="0" /></a></td> 
      <td align="center"><a href="../../../movies/EVIL_SUBMISSION_AllisonP/EvilSubmission1_02.wmv"><img src="../../../movies/EVIL_SUBMISSION_AllisonP/EvilSubmission1_02.jpg" alt="Allison Pierce in Evil Submission movie thumbnail 2" width="245" height="180" border="0" /></a></td>
      </tr>
      <tr> 
        <td align="center">&nbsp;</td>
        <td align="center">&nbsp;</td>
      </tr>
      <tr> 
        <td align="center"><a href="../../../movies/EVIL_SUBMISSION_AllisonP/EvilSubmission1_03.wmv"><img src="../../../movies/EVIL_SUBMISSION_AllisonP/EvilSubmission1_03.jpg" alt="Allison Pierce in Evil Submission movie thumbnail 1" width="245" height="180" border="0" /></a></td>
        <td align="center"><a href="../../../movies/EVIL_SUBMISSION_AllisonP2/TheEvilSubmission_01.wmv"><img src="../../../movies/EVIL_SUBMISSION_AllisonP2/EvilSubmission1_01.jpg" alt="Allison Pierce in Evil Submission movie thumbnail 1" width="245" height="180" border="0" /></a></td>
      </tr>
      <tr> 
        <td colspan="2" align="center">&nbsp;</td>
      </tr>
      <tr> 
        <td colspan="2" align="center">Visit 
          <a href="http://tracker.zombaio.com/?$afid.7876929">xxx Horror</a> today and see more <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com/Allison_Pierce/index.htm">Allison 
          Pierce</a>!<br>
          100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 
          400,000 exclusive Fetish Movies, Horror Sex Images, Lesbian Vampires, 
          SCI-FI Videos, Alien Experiments and Bondage Pictures.</td>
      </tr>
      <tr> 
        <td align="center">&nbsp;</td>
        <td align="center">&nbsp;</td>
      </tr>
      <tr> 
        <td align="center"><a href="../../../movies/EVIL_SUBMISSION_AllisonP2/TheEvilSubmission_02.wmv"><img src="../../../movies/EVIL_SUBMISSION_AllisonP2/EvilSubmission1_02.jpg" alt="Allison Pierce in Evil Submission movie thumbnail 1" width="245" height="180" border="0" /></a></td>
        <td align="center"><a href="../../../movies/EVIL_SUBMISSION_AllisonP2/TheEvilSubmission_03.wmv"><img src="../../../movies/EVIL_SUBMISSION_AllisonP2/EvilSubmission1_03.jpg" alt="Allison Pierce in Evil Submission movie thumbnail 1" width="245" height="180" border="0" /></a></td>
      </tr>
      <tr> 
        <td align="center">&nbsp;</td>
        <td align="center">&nbsp;</td>
      </tr>
      <tr> 
        <td colspan="2" align="center"><a href="../../../movies/EVIL_SUBMISSION_AllisonP2/TheEvilSubmission_04.wmv"><img src="../../../movies/EVIL_SUBMISSION_AllisonP2/EvilSubmission1_04.jpg" alt="Allison Pierce in Evil Submission movie thumbnail 1" width="245" height="180" border="0" /></a></td>
      </tr>
      <tr> 
        <td align="right">&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr> 
    <td valign="top"><img src="../../TemplateM/t2/Footer_b.jpg" alt="Mistress Persephone, Domiana, fetish Amber does blowjob, Anastasia Pierce movies" width="700" height="300" border="0" /></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>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18 U.S.C. 2257 
    Record-Keeping Requirements Compliance Statement</strong></font> at:<br>
    http://xxxspacegirls.us/18-statement/18-statement.html </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
	}
}

