#!/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>Tall Goddess in smoke and roses art photo gallery at Glamour Films</title>



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



</head>

<body>



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

<tr>

		<td>

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

  </tr>

	<tr>

		<td class="TGP-table"><table width="695" border="0"  align="center" cellpadding="5" cellspacing="5">

          <tr>

            <td colspan="5" align="center"><h1>Tall Goddess in smoke and roses</h1>

              Sexy glamour babe Tall Goddess stripping kinky black outfit and posing in fishnet stockings, while smoking, in this fetish art photo gallery. Visit GlamourFilms.com and watch high quality movies of  hot porn stars and  top glamour models.</td>

          </tr>

          <tr>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0002.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0002.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0002" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0004.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0004.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0004" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0066.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0066.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0066" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0080.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0080.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0080" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0158.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0158.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0158" /></a></td>

          </tr>

          <tr>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0238.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0238.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0238" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0257.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0257.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0257" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0278.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0278.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0278" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0299.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0299.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0299" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0341.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0341.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0341" /></a></td>

          </tr>

          <tr>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0349.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0349.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0349" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0365.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0365.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0365" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0409.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0409.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0409" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0424.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0424.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0424" /></a></td>

            <td align="center"><a href="images/TallGoddess_Smoke-Roses_0430.jpg"><img src="thumbnails/TallGoddess_Smoke-Roses_0430.jpg" height="200" width="130" alt="TallGoddess_Smoke-Roses_0430" /></a></td>

          </tr>

          



          

          <tr>

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

                <br /><br />



               GlamourFilms&#8482;<br />

               18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<br />http://glamourfilms.com/18-statement.html

                </td>

          </tr>

      </table></td>

  </tr>

	<tr>

		<td>

	  <img src="../../../images/TGP-bottom.jpg" width="800" height="36" 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

	}

}



