#!/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>Fetish pornstar babes Mika Tan, Ashley Renee and Jewell Marceau in kinky bondage movies</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css">
<!--
body {
	margin: 0px;
	padding: 0px;
}
-->
</style>
</head>

<body bgcolor="#000000" text="#FFFFFF" link="#FF0000" vlink="#CC0000" alink="#FFFF00">

<table width="704" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="700" align="center" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../TemplateM/t2/Headar2.jpg" alt="Horror Sex bondage video" width="699" height="273" border="0"></a></td>
  </tr>

  <tr> <td><table width="700" border="0" align="center" cellpadding="10" cellspacing="10">
        <tr>
          <td colspan="2" align="center"><h2>Mika Tan and Ashley Renee Bondage Babes</h2>
            <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Do you remember <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/tour1.htm">spacegirl</a> Mika Tan? We haven’t shot her since year 2000. She came to visit us the other day…there was a shoot going on with Aashley Renee at the same time. Mika could not resist it and joined Ashley in some rough bondage action!</font></strong></td>
        </tr>
        <tr>
          <td width="315" align="center"><a href="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/BondageBabes_01.wmv"><img src="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/movie1.jpg" alt="Mika Tan dominating Ashley Renee image" width="300" height="300"></a></td>
          <td width="315" align="center"><a href="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/BondageBabes_02.wmv"><img src="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/movie2.jpg" alt="Mika Tan and Ashley Renee bondage domination image" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td align="center"><a href="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/BondageBabes_03.wmv"><img src="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/movie3.jpg" alt="Mika Tan and Ashley renee in bondage babes image" width="300" height="300"></a></td>
          <td align="center"><a href="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/BondageBabes_04.wmv"><img src="http://xxxfetishworld.com/TGP/Mika_Tan/BondageBabes/movie4.jpg" alt="lesbian sluts kissing and licking in bondage image" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td colspan="2" align="center"><h2 align="center">Amber Michaels in Wild Dungeon Demon</h2>
          <strong> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Bondage slut Amber Michaels arrives at the Horror Castle to deliver new latex costumes to the vampire lesbian bitches. She was invited to wait in one of the guest rooms. While she was waiting the dark Dungeon Demon of the castle started to blur her mind. She opened the bags and put on one of the fetish latex outfits...Amber was out of her mind – she started fisting herself, toying her ass with a huge anal dildo and at the end Amber Michaels squirted on the nice Persian carpet...Check out this nasty dungeon sex movie and high resolution images exposing the extreme sexual desires of Amber Michaels! Stay tuned to XXX HORROR!</font></strong></td>
        </tr>
        <tr>
          <td align="center"><a href="../../amber_michaels/wild_dungeon_demon/DungeonDemon_01.wmv"><img src="../../amber_michaels/wild_dungeon_demon/movie1.jpg" alt="amber michaels in fisting horrorsex slut" width="300" height="300"></a></td>
          <td align="center"><a href="../../amber_michaels/wild_dungeon_demon/DungeonDemon_02.wmv"><img src="../../amber_michaels/wild_dungeon_demon/movie2.jpg" alt="Amber Michaels in the pussy torture dungeon image" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td align="center"><a href="../../amber_michaels/wild_dungeon_demon/DungeonDemon_03.wmv"><img src="../../amber_michaels/wild_dungeon_demon/movie3.jpg" alt="Amber Michaels inserting 2 dildos in her pussy fetish image" width="300" height="300"></a></td>
          <td align="center"><a href="../../amber_michaels/wild_dungeon_demon/DungeonDemon_04.wmv"><img src="../../amber_michaels/wild_dungeon_demon/movie4.jpg" alt="Amber peeing on nic persian carpet image" width="300" height="300"></a></td>
        </tr>
        <tr>
          <td colspan="2" align="center"><h2 align="center">Jewell Marceau Fetish Pinup</h2>
           <strong> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nasty fetish dominatrix Jewell Marceau showed up for a lesbian horrorsex shoot…but first she needed to get turned on…we had to tie her up and spank her smooth round ass and massage her huge boobs. After the 20 minute play her pussy got wet and receptive for the lesbian domination following in the next horrorsex shoot!</font></strong><BR>            </td>
        </tr>
        <tr>
          <td align="center"><a href="PinUpFetish1_03.wmv"><img src="movie3.jpg" alt="Jewell Marceau pinup fetish slut image" width="300" height="300"></a></td>
          <td align="center"><a href="PinUpFetish1_04.wmv"><img src="movie4.jpg" alt="Jewell tight and spanked in movies image" width="300" height="300"></a></td>
        </tr>

      </table>

    </td>
  </tr>
  <tr>
    <td align="center" valign="top"><img src="../../TemplateM/t2/Footer2.jpg" alt="Horror Sex BDSM  movies" width="699" height="300" border="0"></td>
  </tr>
</table>
<br>
<div align="center" class="HorrorLink"><strong><a href="http://tracker.zombaio.com/?$afid.7876929"><font size="6" face="Verdana, Arial, Helvetica, sans-serif">CLICK HERE TO BROWSE XXX HORROR</font></a></strong></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</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
	}
}

