#!/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>Isabella Camile in Broken Vows</TITLE>
<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">Isabella Camile in Broken Vows</h1>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/XxxHorror02.jpg" alt="horror sex, fetish movie, vampire porn video, fetish lesbians, bondage girls" width="585" height="100" border="0"></a></div>
<TABLE width="585" border=0  align="center" cellpadding=0 cellspacing=5 bgcolor="#990000">

<TR>
		 <td width="109" height="100%" align="center" valign="middle"><A href="images/snicki003.jpg"><IMG src="thumbnails/snicki003.jpg" height="160" width="107" border=0 alt="snicki003"></A></td>
    <td width="108" height="100%" align="center" valign="middle"><A href="images/snicki006.jpg"><IMG src="thumbnails/snicki006.jpg" height="160" width="106" border=0 alt="snicki006"></A></td>
    <td width="108" height="100%" align="center" valign="middle"><A href="images/snicki007.jpg"><IMG src="thumbnails/snicki007.jpg" height="160" width="106" border=0 alt="snicki007"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/snicki022.jpg"><IMG src="thumbnails/snicki022.jpg" height="160" width="108" border=0 alt="snicki022"></A></td>
    <td width="119" height="100%" align="center" valign="middle"><A href="images/snicki028.jpg"><IMG src="thumbnails/snicki028.jpg" height="160" width="106" border=0 alt="snicki028"></A></td>
</TR>



<TR>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki041.jpg"><IMG src="thumbnails/snicki041.jpg" height="160" width="106" border=0 alt="snicki041"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki043.jpg"><IMG src="thumbnails/snicki043.jpg" height="160" width="106" border=0 alt="snicki043"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki049.jpg"><IMG src="thumbnails/snicki049.jpg" height="160" width="106" border=0 alt="snicki049"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki070.jpg"><IMG src="thumbnails/snicki070.jpg" height="160" width="106" border=0 alt="snicki070"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki073.jpg"><IMG src="thumbnails/snicki073.jpg" height="160" width="105" border=0 alt="snicki073"></A></td>
</TR>


<TR>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki093.jpg"><IMG src="thumbnails/snicki093.jpg" height="160" width="106" border=0 alt="snicki093"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki096.jpg"><IMG src="thumbnails/snicki096.jpg" height="160" width="106" border=0 alt="snicki096"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki098.jpg"><IMG src="thumbnails/snicki098.jpg" height="160" width="106" border=0 alt="snicki098"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki104.jpg"><IMG src="thumbnails/snicki104.jpg" height="160" width="106" border=0 alt="snicki104"></A></td>
		 <td height="100%" align="center" valign="middle"><A href="images/snicki106.jpg"><IMG src="thumbnails/snicki106.jpg" height="160" width="113" border=0 alt="snicki106"></A></td>
</TR>
<TR>
  <td height="100%" colspan="5" align="center" valign="middle"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Welcome to the beginning of the end! Where we find once Sister Nicki  transformed into a evil sex Nun minion to the dark lord Lucifer.  Exploring her new home Nicki prepares the sacrificial table as she  awaits her Sister Nora's return. Suddenly she feels a strange but  powerful energy illuminating from the wooden box upon the table.</font></strong></td>
  </TR>
</TABLE>
<br>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876929"><font size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong>CLICK HERE TO BROWSE XXX HORROR</strong></font></a></div><br>

<div align="center">
  <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 at:<br>
    http://xxxspacegirls.us/18-statement/18-statement.html</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
	}
}

