#!/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 XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

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

<title>Kinky ethnic pornstars posing nude and teasing at Glamour Films</title>



<link href="../../GF.css" rel="stylesheet" type="text/css" />



</head>

<body>



<table width="1020" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">

<tr>

		<td>

			<a href="http://tracker.zombaio.com/?$afid.7876964"><img src="../../images/TGP.jpg" alt="hot beautiful girls in erotic sex movies" width="1020" height="447" border="0" /></a></td>

  </tr>

	<tr>

		<td class="MainBG"><table width="989" border="0"  align="center" cellpadding="2" cellspacing="2">

          <tr>

            <td width="957" align="center"><h1>NYOMI ZEN Chained In Darkness</h1>

            Small boob Asian babe Nyomi Zen stripping and posing nude in this black and white art movie.

            </td>

          </tr>

          <tr>

            <td align="center"><a href="NyomiZen_Chained_trailer.wmv"><img src="NyomiZenChained.jpg" alt="Nyomi Zen chained in black and white" width="970" height="680" border="0" /></a><br />

            / <a href="NyomiZen_Chained_trailer.mp4">MP4 VIDEO</a> /</td>

          </tr>

          <tr>

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

          </tr>

          <tr>

            <td align="center"><h1>SABRINA ROSE in BODYXCAPES</h1>

            Blond Playboy <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/index.php">cyber-girl</a> babe Sabrina Rose teasing in our exclusive BodyXcapes   series. Check out this fetish art film featuring a combination of POV shoots of   Sabrina's hot nude body. This is another high quality close up movie and images   by our own award winning photographer JJ Cahill. </td>

          </tr>

          <tr>

            <td align="center"><a href="SabrinaR_Desire_trailer.wmv"><img src="SabrinaRoseBodyXcapes.jpg" alt="Sabrina Rose exposing her hot body" width="970" height="680" border="0" /></a><br />

            / <a href="SabrinaR_Desire_trailer.mp4">MP4 VIDEO</a> /</td>

          </tr>

          <tr>

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

          </tr>

          <tr>

            <td align="center"><h1>Evie Delatosso Window Light</h1>

            Kinky sweet Latina Evie Delatosso teasing by the window.</td>

          </tr>

          <tr>

            <td align="center"><a href="EvieDelatosso_Window_trailer.wmv"><img src="EvieDelatossoWindow.jpg" alt="Evie Delatosso posing naked by the window" width="970" height="680" border="0" /></a><br />

            / <a href="EvieDelatosso_Window_trailer.mp4">MP4 VIDEO</a> /</td>

          </tr>

          <tr>

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

          </tr>

          



          



          

          <tr>

            <td align="center"><div align="center"><a href="http://tracker.zombaio.com/?$afid.7876964"><font face="Verdana, Arial, Helvetica, sans-serif" size="6"><strong>CLICK HERE TO BROWSE GLAMOUR FILMS</strong></font></a></div>

                <br />



  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">GlamourFilms&#8482;<br />

                          <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18

                            U.S.C. 2257 Record-Keeping Requirements Compliance Statement</strong></font></font></strong></font>:<br />

                http://glamourfilms.com/18-statement.html</p></td>

          </tr>

      </table></td>

  </tr>

	<tr>

		<td>

	  <img src="../../images/DesignDani_03.jpg" width="1020" height="46" alt="" /></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

	}

}



