#!/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=http://tbassflick.com">

</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>Isis Seven and CJ Wright in deep anal sex action</TITLE>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<style type="text/css">

<!--

body {

	margin: 0px;

	padding: 0px;

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 18px;

}



.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: 30px;

	text-decoration: underline overline blink;

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-weight: bold;

}

td {

	color: #000000;

}

a:link {

	color: #990000;

}

a:visited {

	color: #FF0000;

}

a:hover {

	color: #660000;

}

a:active {

	color: #CC0000;

}

.copyright {

	font-family: Verdana, Arial, Helvetica, sans-serif;

	font-size: 12px;

	color: #FFFFFF;

}



-->

</style>

</HEAD>

<body bgcolor="#000000" text="#FFFFFF">



<table width="625" align="center" cellpadding="2" cellspacing="2" class="tb-border">

  <tr> 

    <th align="center" valign="top" scope="col"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.tbassflick.com/index.php"><img src="../Black_Gum_White_Girls/images/tbassflick.jpg" alt="www.tbassflick.com" width="608" height="142" border="0"></a></th>

  </tr>

  <tr> 

    <th align="center" valign="top" bgcolor="#DAD6B0" scope="col"><TABLE width="609" border=0  align="center" cellpadding=2 cellspacing=2>

      <TR>

        <TD width="589" colspan="3" align="center"><h1>Isis Seven and CJ Wright</h1>

          Big booty white slut Isis Seven fucked hard in the ass by  <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.cjwrightxxx.com/index.php">big black cock</a>. This is another exclusive interracial video directed by TB for  fishnet ass freaks, featuring 6 all anal interracial movies with nasty facial  cum-shots at the end! Enjoy!</TD>

        </TR>

      <TR>

        <TD align="center"><A href="images/IMG_0958.jpg"><IMG src="thumbnails/IMG_0958.jpg" height="270" width="180" alt="IMG_0958"></A></TD>

        <TD align="center"><A href="images/IMG_0984.jpg"><IMG src="thumbnails/IMG_0984.jpg" height="270" width="180" alt="IMG_0984"></A></TD>

        <TD align="center"><A href="images/IMG_0992.jpg"><IMG src="thumbnails/IMG_0992.jpg" height="270" width="180" alt="IMG_0992"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_0994.jpg"><IMG src="thumbnails/IMG_0994.jpg" height="270" width="180" alt="IMG_0994"></A></TD>

        <TD align="center"><A href="images/IMG_1014.jpg"><IMG src="thumbnails/IMG_1014.jpg" height="270" width="180" alt="IMG_1014"></A></TD>

        <TD align="center"><A href="images/IMG_1026.jpg"><IMG src="thumbnails/IMG_1026.jpg" height="270" width="180" alt="IMG_1026"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_1045.jpg"><IMG src="thumbnails/IMG_1045.jpg" height="270" width="180" alt="IMG_1045"></A></TD>

        <TD align="center"><A href="images/IMG_1051.jpg"><IMG src="thumbnails/IMG_1051.jpg" height="270" width="180" alt="IMG_1051"></A></TD>

        <TD align="center"><A href="images/IMG_1062.jpg"><IMG src="thumbnails/IMG_1062.jpg" height="270" width="180" alt="IMG_1062"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_1064.jpg"><IMG src="thumbnails/IMG_1064.jpg" height="270" width="180" alt="IMG_1064"></A></TD>

        <TD align="center"><A href="images/IMG_1067.jpg"><IMG src="thumbnails/IMG_1067.jpg" height="270" width="180" alt="IMG_1067"></A></TD>

        <TD align="center"><A href="images/IMG_1077.jpg"><IMG src="thumbnails/IMG_1077.jpg" height="270" width="180" alt="IMG_1077"></A></TD>

      </TR>

      <TR>

        <TD align="center"><A href="images/IMG_1091.jpg"><IMG src="thumbnails/IMG_1091.jpg" height="270" width="180" alt="IMG_1091"></A></TD>

        <TD align="center"><A href="images/IMG_1097.jpg"><IMG src="thumbnails/IMG_1097.jpg" height="270" width="180" alt="IMG_1097"></A></TD>

        <TD align="center"><A href="images/IMG_1142.jpg"><IMG src="thumbnails/IMG_1142.jpg" height="270" width="180" alt="IMG_1142"></A></TD>

      </TR>

      



      

    </TABLE></th>

  </tr>

</table>

<p align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://www.tbassflick.com/index.php" class="style23">CLICK HERE TO BROWSE TBASSFLICK</a></p>

<div align="center">

  <p class="copyright">TBASSFLICK &#8482;<br>

    18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement:<br>

http://tbassflick.com/2257.html</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

	}

}



