#!/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~";
Generator error
Please input Your affiliate ID Try again.
~EOT~
exit;
}
sub gencode{
print "Content-Type: text/html\n\n";
print <<"~EOT~";
Kenya Nasty Nurse gallery at Xxx Space Girls
Kenya Nasty Nurse
VISIT
XXX
HORROR TODAY AND SEE MORE FETISH
BABES.
100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES. OVER 350,000
EXCLUSIVE FETISH, HORROR, VAMPIRE, GOTHIC, BONDAGE IMAGES AND MOVIES.
XXXSPACEGIRLS™
~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
}
}
