#!/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>Alira in Demon Pussy</TITLE>
<META NAME="DESCRIPTION" CONTENT="ALIRA with the Cock Swallowing Demon Pussy is taken to the Fetish Dungeon and put on the Cross!">
<META NAME="KEYWORDS" CONTENT="Alira, demon pussy, xxx movie, horror sex, alien hardcore, fetish slut, porn galleries, dungeon video, gothic babes">
<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">Alira in Demon Pussy</h1>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/horror2.jpg" alt="sex movie, horror video, xxx DVD, porn vampire, gothic slut" width="585" height="100" border="0"></a></div>
<TABLE width="585" border=0  align="center" cellpadding=0 cellspacing=5 bgcolor="#FFFFFF">
  <TR> 
    <td height="100%" colspan="5" valign="middle"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>ALIRA 
      with the Cock Swallowing Demon Pussy is taken to the <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/tour4.htm">Fetish 
      Dungeon</a> and put on the Cross! A Satanic Cult of Demonic followers Gather 
      to Worship her Demon Pussy that speaks to them in &#8220;Tongues&#8221;!!!</strong></font></td>
  </TR>
  <TR> 
    <td width="111" height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0001.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0001.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0001"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0004.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0004.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0004"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0015.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0015.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0015"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0040.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0040.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0040"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0043.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0043.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0043"></A></td>
  </TR>
  <TR> 
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0050.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0050.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0050"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0056.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0056.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0056"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0061.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0061.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0061"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0063.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0063.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0063"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0070.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0070.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0070"></A></td>
  </TR>
  <TR> 
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0071.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0071.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0071"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0075.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0075.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0075"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0080.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0080.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0080"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0085.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0085.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0085"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/ALIRA_CockSwallowingDemon_Cross1_0090.jpg"><IMG src="thumbnails/ALIRA_CockSwallowingDemon_Cross1_0090.jpg" height="160" width="104" border=2 alt="ALIRA_CockSwallowingDemon_Cross1_0090"></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 
      Adult Fantasy Park today and see more <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com">Fetish 
      Babes</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>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong><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></strong></font> 
    </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
	}
}

