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

</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" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<HEAD>

<TITLE>Alana Evans as Office Dominatrix in this handjob movie</TITLE>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<style type="text/css">

<!--

body {

	margin: 0px;

	padding: 0px;

	background-color: #000000;

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

}



.tb-border {

	border-top: 4px none #FFFFFF;

	border-right: 4px dashed #FFFFFF;

	border-bottom: 4px dashed #FFFFFF;

	border-left: 4px dashed #FFFFFF;

}

.style23 {font-size: 26px; text-decoration: underline overline blink; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }

body,td,th {

}

h1 {

	color: #000000;

}

a:link {

	color: #FF0000;

}

a:visited {

	color: #CC0000;

}

a:hover {

	color: #FFCC00;

}

a:active {

	color: #CC0000;

}



-->

</style>

</HEAD>

<body>

<table width="608" align="center" class="tb-border">

  <tr>

    <th align="center" valign="top" bgcolor="#FFFFCC" scope="col"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0018&PA=$afid&HTML=http://www.handjobsalon.com/index.php"><img src="../handjobsalon.jpg" alt="www.handjobsalon.com" width="608" height="142" border="0"></a></th>

  </tr>

  <tr>

    <th align="center" valign="top" bgcolor="#FFFFCC" scope="col"><TABLE width="600" border=0  align="center" cellpadding=5 cellspacing=5>

      <TR>

        <TD width="580" colspan="3" align="center"><h2>Alana Evans Office Dominatrix</h2>

          Big boob fetish slut Alana Evans dominating and humiliating  her co-worker after a stressful business meeting. After every important  business meeting blond office whore Alana needs to relax her crazy pervert mind.  She calls one of her male employees in the office. At first she seduces them by  exposing her smooth hot nude body. Little do they know that this kinky slut tricks  them into nasty painful <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0018&PA=$afid&HTML=http://xxxhorror.com/index.php">female domination sex</a> game…Enjoy!</TD>

        </TR>

      <TR>

        <TD align="center"><A href="images/_CKP3382.jpg"><IMG src="thumbnails/_CKP3382.jpg" height="240" width="159" alt="_CKP3382"></A></TD>

        <TD align="center"><A href="images/_CKP3419.jpg"><IMG src="thumbnails/_CKP3419.jpg" height="240" width="159" alt="_CKP3419"></A></TD>

        <TD align="center"><A href="images/_CKP3493.jpg"><IMG src="thumbnails/_CKP3493.jpg" height="240" width="159" alt="_CKP3493"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/_CKP3509.jpg"><IMG src="thumbnails/_CKP3509.jpg" height="240" width="159" alt="_CKP3509"></A></TD>

        <TD align="center"><A href="images/_CKP3541.jpg"><IMG src="thumbnails/_CKP3541.jpg" height="240" width="159" alt="_CKP3541"></A></TD>

        <TD align="center"><A href="images/_CKP3605.jpg"><IMG src="thumbnails/_CKP3605.jpg" height="240" width="159" alt="_CKP3605"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/_CKP3608.jpg"><IMG src="thumbnails/_CKP3608.jpg" height="240" width="159" alt="_CKP3608"></A></TD>

        <TD align="center"><A href="images/_CKP3611.jpg"><IMG src="thumbnails/_CKP3611.jpg" height="240" width="159" alt="_CKP3611"></A></TD>

        <TD align="center"><A href="images/_CKP3639.jpg"><IMG src="thumbnails/_CKP3639.jpg" height="240" width="159" alt="_CKP3639"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/_CKP3647.jpg"><IMG src="thumbnails/_CKP3647.jpg" height="240" width="159" alt="_CKP3647"></A></TD>

        <TD align="center"><A href="images/_CKP3653.jpg"><IMG src="thumbnails/_CKP3653.jpg" height="240" width="159" alt="_CKP3653"></A></TD>

        <TD align="center"><A href="images/_CKP3660.jpg"><IMG src="thumbnails/_CKP3660.jpg" height="240" width="159" alt="_CKP3660"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/_CKP3664.jpg"><IMG src="thumbnails/_CKP3664.jpg" height="240" width="159" alt="_CKP3664"></A></TD>

        <TD align="center"><A href="images/_CKP3682.jpg"><IMG src="thumbnails/_CKP3682.jpg" height="240" width="159" alt="_CKP3682"></A></TD>

        <TD align="center"><A href="images/_CKP3698.jpg"><IMG src="thumbnails/_CKP3698.jpg" height="240" width="159" alt="_CKP3698"></A></TD>

      </TR>











    </TABLE></th>

  </tr>

</table>

<p align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=940106-0018&PA=$afid&HTML=http://www.handjobsalon.com/index.php" class="style23">CLICK HERE TO BROWSE HANDJOB SALON</a></p>

<div align="center">

  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#FFFFFF" size="2">HANDJOBSALON &#8482;</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

	}

}



