#!/usr/bin/perl5
#############################################################
$sitecode = "blackbookshelfin";
$defaulttemplatefile = "apipetemplate.html";
$templatedir = "../cgi-bin/";
$http_os = "UNIX"; # UNIX or NT
$newbrowserwindow=0;
$maxtime=20;
$siteaddress="www.amazon.com";
# Uncomment the following lines if you are having problems with timeouts
# from Amazon.
use LWP::UserAgent;
$useLWP=1;
###### PLEASE CHANGE NOTHING BELOW THIS LINE!
##################################
$aversion="Anaconda Version: [1.2.1] [PIPELINE AMAZON.COM] [07/01/99]";
$I11II1I11I111111=$sitecode; $I1I1111I11III1II=$defaulttemplatefile;
$I1I11I1III1I11I1=$templatedir; $I1III11I11IIII11=$http_os;
$I1111111I11I1111=$newheadingcolor;
$I1I1II11III1II1I=$newshippingcolor; $I11III1I1IIII11I=$logfile;
$I1IIIIII11II111I=$siteaddress; $I1I111111I111II1=$maxtime;
$I1I1II1I111II1I1=$cgibinurl;
$I11II11III11I111=$aversion; use Socket; if($newbrowserwindow)
{ $I11I11I1I1I11111=qq| target="_blank" |; } $| = 1; $I1111II1II1I11II = "";
$I111I1II11111I1I = $ENV{SCRIPT_NAME}; unless($I111I1II11111I1I =~ /^\//){
$I111I1II11111I1I = "/$I111I1II11111I1I"; }
if($I1I1II1I111II1I1) { $I111I1II11111I1I =~ s|.*/([^/]+$)|$1|gs;
$I111I1II11111I1I = $I1I1II1I111II1I1 . $I111I1II11111I1I; }
if($I1111111I11I1111)
{ $I11II11II1IIII1I = "color[ =\"#]+CC6600"; $I1IIII11II11I1I1 =
"color=\"$I1111111I11I1111\""; }
if($I1I1II11III1II1I) { $I11I1I1I11I1111I = "color[ =\"#]+990033";
$I1111I1I1II1IIII = "color=\"$I1I1II11III1II1I\""; } $I1IIII111II1IIII =
$ENV{'QUERY_STRING'} . "&"; $I111I1111IIIII1I=0;
print "Content-type: text/html\n\n"; $_=$I1IIII111II1IIII;
if(!($I11II11III11I111 =~ m|\w:\s*\[.*?\]\s*\[.*?\]\s*\[.*?\]|i))
{ print "INVALID ANACONDA INSTALLATION!\n"; exit; } if(m/command=(.*?)\&/i)
{ $I11I1III11IIII1I=URLDecodeString($1); s/command=(.*?)\&//i; }
if($I11I1III11IIII1I =~ m|version|i) { print "$I11II11III11I111\n";
exit; } if(m/passurl=(.*?)\&/i) { $I111II1I1IIIII1I=$1; s/passurl=(.*?)\&//i; }
$I1I11I1I1I1III1I=$_; if(length($I1I11I1I1I1III1I)>0) {
$I1I11I1I1I1III1I = "&$I1I11I1I1I1III1I";
} m/keyword(.*?)\&/i; $I1II1I111III11II=$1; if($I11III1I1IIII11I &&
$I1II1I111III11II)
{ open(logfile1,">>$I11III1I1IIII11I"); $I11I1I1III1II1I1 =
$I1II1I111III11II; $I11I1I1III1II1I1 =~ s/^[=\+]+//; while
($I11I1I1III1II1I1 =~ s/\+/ /) { };
print logfile1 "$I11I1I1III1II1I1\n"; close logfile1; }
if(m/template=(.*?)\&/i) { $I111II11111111II=$1; s/template=(.*?)\&//i; }
if(m/postkey=(.*?)\&/i) { $I111IIIIII1III11=URLDecodeString($1);
s/postkey=(.*?)\&//i; }
if(m/prekey=(.*?)\&/i) { $I1III1IIII1II1I1=URLDecodeString($1);
s/prekey=(.*?)\&//i; }
if(m/f1=(.*?)\&/i) { $f1=URLDecodeString($1); s/f1=(.*?)\&//i; }
if(m/f2=(.*?)\&/i) { $f2=URLDecodeString($1); s/f2=(.*?)\&//i; }
if(m/f3=(.*?)\&/i) { $f3=URLDecodeString($1); s/f3=(.*?)\&//i; }
if(m/f4=(.*?)\&/i) { $f4=URLDecodeString($1); s/f4=(.*?)\&//i; }
if(m/f5=(.*?)\&/i) { $f5=URLDecodeString($1); s/f5=(.*?)\&//i; }
if(m/f6=(.*?)\&/i) { $f6=URLDecodeString($1); s/f6=(.*?)\&//i; }
if(m/f7=(.*?)\&/i) { $f7=URLDecodeString($1); s/f7=(.*?)\&//i; }
if(m/f8=(.*?)\&/i) { $f8=URLDecodeString($1); s/f8=(.*?)\&//i; }
if(m/f9=(.*?)\&/i) { $f9=URLDecodeString($1); s/f9=(.*?)\&//i; }
if(m/c1=(.*?)\&/i) { $I1111111I11I1111=URLDecodeString($1); s/c1=(.*?)\&//i; }
if(m/c2=(.*?)\&/i) { $I1I1II11III1II1I=URLDecodeString($1); s/c2=(.*?)\&//i; }
$I1IIII111II1IIII=$_; if($I111II1I1IIIII1I) {
$I1II11II11I1I11I=$I111II1I1IIIII1I;
$I1II11II11I1I11I =~ s|http://([^/]*)$|/|i; $I1II11II11I1I11I =~
s|http://(.*?)/|/|i;
$I1II11II11I1I11I =~ s|\?(.*?)$||; $I11I1I11I11I1I11 = $1;
$I11I11II1I11I11I = &HTTPGet("$I1II11II11I1I11I", "$I1IIIIII11II111I", 80,
"$I11I1I11I11I1I11");
if ($I11I11II1I11I11I =~ m#Location:(.+)ASIN/(.+?)/#m) {
$I1I1IIII11I1II11="http://$I1IIIIII11II111I/exec/obidos/ASIN/$2/$I11II1I11I11111
1";
print "