#!/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>Amina Sky in the Slutty Executive</TITLE>

<META NAME="DESCRIPTION" CONTENT="Hot porn star Amina Sky stripping, smoking and spreading slutty legs.">

<META NAME="KEYWORDS" CONTENT="Amina Sky, slutty executive, spreading legs, hot pussy, centerfold babe, porn star">

<META NAME="revisit-after" CONTENT="14 days">

<META NAME="copyright" CONTENT="copyright 2007, babe Centerfolds">

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

<style type="text/css">

<!--

body,td,th {

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

	font-size: 12px;

	color: #000000;

}

body {

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

	background-repeat: repeat-y;

	margin-left: 0px;

	margin-top: 0px;

	margin-right: 0px;

	margin-bottom: 0px;

	background-position: center;

	background-color: #E9F3F4;

}

-->

</style>

</head>



<body>

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

  <tr> 

    <td height="222"><a href="http://tracker.zombaio.com/?$afid.7876969"><img src="../../BabeCenterFoldsMovieTemplate2/images/header.jpg" alt="Babe Centerfolds, porn stars, fetish models" width="800" height="222" border="0"></a></td>

  </tr>

  <tr> 

    <td valign="top"><table width="672" border="0" align="center" cellpadding="0" cellspacing="0">

        <tr align="center"> 

          <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif"><strong>Amina 

            Sky has just hit the Jackpot with her own lingerie company and 

            gets hot and horny at the thought of her new wealth! Since her meetings 

            were put on hole she decides to kick back with a stogie and count 

            cash. She gets way too HOT and starts stripping off her clothes to 

            get at that WET PUSSY&#8230;Break time!</strong></font></td>

        </tr>

        <tr> 

          <td><a href="../../../models/Amina_Sky/SLUTTY-EXECUTIVE-CLIPS/SluttyExecutive_01.wmv"><img src="movie_1.jpg" alt="Amina Sky slutty executive movie thumbnail 1" width="224" height="217" border="0"></a></td>

          <td><a href="../../../models/Amina_Sky/SLUTTY-EXECUTIVE-CLIPS/SluttyExecutive_02.wmv"><img src="movie_2.jpg" alt="Amina Sky slutty executive movie thumbnail 2" width="224" height="217" border="0"></a></td>

          <td><a href="../../../models/Amina_Sky/SLUTTY-EXECUTIVE-CLIPS/SluttyExecutive_03.wmv"><img src="movie_3.jpg" alt="Amina Sky slutty executive movie thumbnail 3" width="224" height="217" border="0"></a></td>

        </tr>

      </table></td>

  </tr>

  <tr> 

    <td valign="top">&nbsp;</td>

  </tr>

  <tr> 

    <td valign="top"><table width="672" border="0" align="center" cellpadding="0" cellspacing="0">

        <tr> 

          <td><a href="../../../models/Amina_Sky/SLUTTY-EXECUTIVE-CLIPS/SluttyExecutive_04.wmv"><img src="movie_4.jpg" alt="Amina Sky slutty executive movie thumbnail 4" width="224" height="217" border="0"></a></td>

          <td><a href="../../../models/Amina_Sky/SLUTTY-EXECUTIVE-CLIPS/SluttyExecutive_05.wmv"><img src="movie_5.jpg" alt="Amina Sky slutty executive movie thumbnail 5" width="224" height="217" border="0"></a></td>

          <td><a href="../../../models/Amina_Sky/SLUTTY-EXECUTIVE-CLIPS/SluttyExecutive_06.wmv"><img src="movie_6.jpg" alt="Amina Sky slutty executive movie thumbnail 6" width="224" height="217" border="0"></a></td>

        </tr>

        <tr> 

          <td>&nbsp;</td>

          <td>&nbsp;</td>

          <td>&nbsp;</td>

        </tr>

        <tr align="center"> 

          <td colspan="3"><font size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="http://tracker.zombaio.com/?$afid.7876969" class="blink">CLICK 

            HERE TO BROWSE BABE CENTERFOLDS</a></strong></font></td>

        </tr>

        <tr align="center"> 

          <td colspan="3">&nbsp;</td>

        </tr>

        <tr align="center"> 

          <td colspan="3">

<div align="center"> 

  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">BabeCenterfolds&#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></td>

        </tr>

      </table></td>

  </tr>

</table>

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

	}

}



