#!/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~";
Anastasia Pierce Spacegirl Warrior
Anastasia Pierce Spacegirl Warrior
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Spacegirl
Warrior, Anastasia, beams into the Evil Alien Mechanized Pussy Probe Laboratory
which is onboard their main Intergalactic Vessel. She is armed with a High
powered Plasma Ray and a Iridium Cutting Sword, seeming ready to battle
the Evil Forces. As she is reconnoitering the Lab, the main Probe puts out
an Unseen Energy Ray that subdues her by activating her Sexual Desires.
She struggles valiantly to overcome this power, as she is being stripped
of her Protective Armor. The Alien Force finally gets her captive in the
Pussy Probe Extractor Chair…We shall see “What’s Next”
for this valiant Spacegirl Warrior! |
XxxSpaceGirls™
18 U.S.C. 2257
Record-Keeping Requirements Compliance Statement at:
http://xxxspacegirls.us/18-statement/18-statement.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
}
}