#!/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">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>XXX Fetish World Movies :: Anastasia Pierce :: Nika Noire :: Ruby Luster</title>

<style type="text/css">

<!--

body,td,th {

	font-family: Arial, Helvetica, sans-serif;

	font-size: 12px;

	color: #000000;

}

body {

	background-color: #000000;

	margin-left: 0px;

	margin-top: 0px;

	margin-right: 0px;

	margin-bottom: 0px;

}



.porn-back {

	background-image: url(../../template/images/back.jpg);

}

h1 {

	color: #000000;

}



.flash {

	text-decoration: underline overline blink;

	font-size: 30px;

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-weight: bold;

}

-->

</style>

</head>



<body text="#000000" link="#CC0000" vlink="#990000" alink="#990000">

<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">

  <tr>

    <td height="317"><img src="../../template/images/header.jpg" alt="fetish sluts Satine Phoenix and lesbian whore Attena fatale in BDSM movie with Tiger Lily " width="778" height="317" border="0"></td>

  </tr>

  <tr>

    <td class="porn-back"><table width="778" border="0" cellspacing="0" cellpadding="0">

        <tr> 

          <td><table width="778" border="0" cellspacing="0" cellpadding="0">

              <tr> 

                <td align="right"><a href="SmokingLingerie_01.wmv"><img src="movie_1.jpg" alt="Anastasia and Ruby smoking lingerie fetish movie1 thumbnail" width="240" height="240" border="0"></a></td>

                <td align="center"><a href="SmokingLingerie_02.wmv"><img src="movie_2.jpg" alt="Anastasia and Ruby smoking lingerie fetish movie1 thumbnail" width="240" height="239" border="0"></a></td>

                <td align="center"><a href="SmokingLingerie_03.wmv"><img src="movie_3.jpg" alt="Anastasia and Ruby smoking lingerie fetish movie1 thumbnail" width="240" height="240" border="0"></a></td>

              </tr>

              <tr> 

                <td colspan="2" align="center"><h1>Anastasia Pierce and Ruby Luster 

                    in Smoking Fetish</h1>

                  Top fetish sluts <a href="http://tracker.zombaio.com/?$afid.7876969">Anastasia 

                  Pierce</a> and Ruby Luster in hot lingerie smoking fetish movie 

                  clips!</td>

                <td align="center"><a href="SmokingLingerie_04.wmv"><img src="movie_4.jpg" alt="Anastasia and Ruby smoking lingerie fetish movie1 thumbnail" width="240" height="240" border="0"></a></td>

              </tr>

              <tr> 

                <td colspan="3" align="center"><hr></td>

              </tr>

              <tr> 

                <td align="right"><a href="../../Nika_Noire/seductress/Seductress_01.wmv"><img src="../../Nika_Noire/seductress/movie_1.jpg" alt="Nika Noire bondage seductress movies" width="240" height="240" border="0"></a></td>

                <td align="center"><a href="../../Nika_Noire/seductress/Seductress_02.wmv"><img src="../../Nika_Noire/seductress/movie_2.jpg" alt="Nika Noire bondage seductress movies" width="240" height="239" border="0"></a></td>

                <td align="center"><a href="../../Nika_Noire/seductress/Seductress_03.wmv"><img src="../../Nika_Noire/seductress/movie_3.jpg" alt="Nika Noire bondage seductress movies" width="240" height="240" border="0"></a></td>

              </tr>

              <tr> 

                <td colspan="2" align="center"><h1>Nika Noire Seductress</h1>

                  Hot amateur kinky babe <a href="http://tracker.zombaio.com/?$afid.7876969">Nika 

                  Noire</a> exposing her nice sweet body, spreading and masturbating 

                  in those fetish clips!</td>

                <td align="center"><a href="../../Nika_Noire/seductress/Seductress_04.wmv"><img src="../../Nika_Noire/seductress/movie_4.jpg" alt="Nika Noire bondage seductress movies" width="240" height="240" border="0"></a></td>

              </tr>

              <tr> 

                <td align="center">&nbsp;</td>

                <td align="center">&nbsp;</td>

                <td align="center">&nbsp;</td>

              </tr>

              <tr> 

                <td colspan="3" align="center"><a href="http://tracker.zombaio.com/?$afid.7876970" class="flash">CLICK 

                  HERE TO ENTER XXX FETISH WORLD</a></td>

              </tr>

            </table></td>

        </tr>

      </table></td>

  </tr>

  <tr>

    <td height="315"><img src="../../template/images/footer.jpg" alt="BDSM movies and fetish porn stars" width="778" height="315" border="0" usemap="#Map"></td>

  </tr>

</table>

<map name="Map" id="Map">

  <area shape="rect" coords="184,274,334,292" href="http://xxxspacegirls.us/18-statement/18-statement.html" alt="2257 porn statement">

</map>

</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

	}

}



