#!/usr/bin/perl
#	version 4.060917,	GPL licensed - http://www.opensource.org/licenses/gpl-license.html
# coded by MrRat - http://www.mrrat.com, with collaborative help from users at the APF Forum - http://www.absolutefreebies.com/phpBB2/
#	you can make a donation at http://s1.amazon.com/exec/varzea/pay/T3M26803DZOCMK
#	This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
# Do not change the subscription_id.  Doing so will violate your license to use this product.


use strict vars;
our (
%AWS_variables,%MY_variables,%Internal_variables,%FORM,%language_text,%associate_ids,%store_to_browse,%catalog_to_mode,%lookup_store,%current_base_nodes,
%base_nodes_us,%base_nodes_uk,%base_nodes_de,%base_nodes_jp,%base_nodes_fr,%base_nodes_ca,%no_image_image_hash,%bad_nodes,%mod_use,%sort_hash_by_mode,%sort_hash,%child_nodes,%template_html,
@mod_files,@months,@descriptors,$debug,%language_dirs_hash,%template_dirs_hash
);
use vars qw(
%AWS_variables %MY_variables %Internal_variables %FORM %language_text %associate_ids %store_to_browse %catalog_to_mode %lookup_store
%current_base_nodes %no_image_image_hash %bad_nodes %mod_use %sort_hash_by_mode %sort_hash %child_nodes %template_html
@mod_files @months @descriptors $debug %language_dirs_hash %template_dirs_hash
);

# to turn on debug mode include "_test" in the name of the script
if ($ENV{SCRIPT_NAME} =~ /_test\.cgi/) {
	if ($ENV{QUERY_STRING} !~ /cart_action/) {
		$| = 1; 
		open (STDERR, ">&STDOUT"); 
		if ($ENV{HTTP_REFERER} and $ENV{QUERY_STRING} !~ /myOperation/) {
			$MY_variables{continue_page} = $ENV{HTTP_REFERER};
			print qq[Set-Cookie: continue_page=$MY_variables{continue_page};\n];
		}
		print qq[Content-type: text/html\n\n]; 
	}
#$debug .= "<br>cookie: $ENV{'HTTP_COOKIE'}<br><br>\n";
	$Internal_variables{debug_state} = "on";
}

# load configuration
# begin find current directory
my $temp_path;
if($ENV{'PATH_TRANSLATED'}) {
	$temp_path = $ENV{'PATH_TRANSLATED'};
} else {
	$temp_path = $ENV{'SCRIPT_FILENAME'};
}
$temp_path =~ s|\\|/|g;
$Internal_variables{cwd} = substr($temp_path,0,rindex($temp_path,"/"));
# end find current directory

&load_config;
sub load_config {
	my $config_file = $Internal_variables{cwd} . "/apf_config.ini" || die qq[Problem opening config file at $Internal_variables{cwd}];
	if (!-s $config_file) {
		print "Location:apf_config.cgi\n\n";
		exit;
	}
	require $Internal_variables{cwd} . "/apf_config.ini";
}

# load mods
foreach my $item (@mod_files) {
	if ($mod_use{$item} eq "Yes") {
		require $Internal_variables{mods_directory} . "/$item.mod";
	}
}
eval 'use HTML::Entities'; my $load_entities_error .= $@;
if ($load_entities_error) { $debug .= "error loading: HTML::Entities<br>\n"; }

# setup initial variables
$MY_variables{script_name} = $ENV{SCRIPT_NAME};
#  Do not change the subscription_id.  Doing so will violate your license to use this product.
$MY_variables{subscription_id} = "09FVDRT8TEJ64C2A7Y02";
$FORM{ItemPage} = 1;
$FORM{ReviewPage} = 1;
$FORM{ProductPage} = 1;
$FORM{max_results} = 50;
$Internal_variables{amazon_server} = "webservices";
$Internal_variables{amazon_domain} = "amazon";
my $wsdl_version = "2006-09-13";


# make it so
get_url_input();
initialize_locale();
load_language();
initialize_hashes();
START_PROCESSING_LABEL:
calculate_initial_variables();
build_products();
build_the_page__main();
exit;

#	the end - subs below

sub get_url_input {
	my ($form_pair,$form_name,$form_value);
	for $form_pair (split(/&/, $ENV{QUERY_STRING})) {
		$form_pair =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$form_pair =~ s/[\;|\`|\\|\||\?|\~|\<|\>|\^|\[|\]|\{|\}|\$]/ /g;
		($form_name, $form_value) = split(/=/, $form_pair);
		if ($form_name eq $form_value) { $form_value = ""; }
		$FORM{$form_name} = $form_value;
	}
	if (%FORM) {
		(my $this_function = (caller(0))[3]) =~ s/[^:]+:://;
		foreach my $item (@mod_files) {
			my $hash_name = qq[subs__$item]; my $sub_name = $this_function . "__" . $item;
			if ($mod_use{$item} eq "Yes" and ${$hash_name}{$this_function} eq "Yes") { &{$sub_name}; }
		}
		if ($FORM{locale}) { $MY_variables{current_locale} = $FORM{locale} }
	}
	if (!$MY_variables{current_locale}) { $MY_variables{current_locale} = $MY_variables{default_locale}; }
	if ($FORM{Operation} eq "ItemSearch" and !($FORM{Keywords} or $FORM{Title} or $FORM{Power} or $FORM{BrowseNode} or $FORM{Artist} or $FORM{Author} or $FORM{Actor} or $FORM{Director} or $FORM{AudienceRating} or $FORM{Manufacturer} or $FORM{MusicLabel} or $FORM{Composer} or $FORM{Publisher} or $FORM{Brand} or $FORM{Conductor} or $FORM{Orchestra} or $FORM{TextStream} or $FORM{Cuisine} or $FORM{City} or $FORM{Neighborhood})) { delete $FORM{Operation}; }
}

sub initialize_locale {
	my @associate_ids = @{$associate_ids{$MY_variables{current_locale}}};
	if ($FORM{associate_ids} and @associate_ids[$FORM{associate_ids}-1]) {
		$MY_variables{associate_id} = @associate_ids[$FORM{associate_ids}-1];
	} else {
		$MY_variables{associate_id} = @associate_ids[0];
	}
	if ($MY_variables{current_locale} eq "ca") {
		$Internal_variables{amazon_country} = "ca";
		$Internal_variables{money_symbol} = "CDN&#36;";
	 	$Internal_variables{img_tracker_locale} = "15";
		%store_to_browse = ( "Blended" => "Blended", "Books" => "Books", "Classical" => "Classical", "DVD" => "DVD", "Livres en Fran&#231;ais" => "ForeignBooks", "Music" => "Music", "Software" => "Software", "VHS" => "VHS", "Video" => "Video", "Video Games" => "VideoGames", );
		%current_base_nodes = ( "Books" => 927726, "Classical" => 962464, "DVD" => 952768, "ForeignBooks" => 1008174, "Music" => 962454, "Software" => 3234171, "VHS" => 962072, "VideoGames" => 3234221, );
	} elsif ($MY_variables{current_locale} eq "de") {
		$Internal_variables{amazon_country} = "de";
		$Internal_variables{money_symbol} = "EUR ";
	 	$Internal_variables{img_tracker_locale} = "3";
		%store_to_browse = ( "Alle Produkte" => "Blended", "B&#252;cher" => "Books", "Musik (Klassische)" => "Classical", "DVD" => "DVD", "Elektronik" => "Electronics", "Engl. B&#252;cher" => "ForeignBooks", "K&#246;rperpflege &amp; Bad" => "HealthPersonalCare", "Haus &amp; Garten" => "HomeGarden", "K&#252;che &amp; Haushalt" => "Kitchen", "Zeitschriften" => "Magazines", "Musik" => "Music", "Musik Tracks" => "MusicTracks", "Garten &amp; Freizeit" => "OutdoorLiving", "PC Hardware" => "PCHardware", "Kamera &amp; Foto" => "Photo", "Sports" => "SportingGoods", "Software" => "Software", "Software &amp; Video-Spiele" => "SoftwareVideoGames", "Heimwerken" => "Tools", "Video" => "VHS", "Video (DVD &amp; VHS)" => "Video", "Video-Spiele" => "VideoGames", "Spielwaren" => "Toys");
		%current_base_nodes = ( "Books" => 541686, "Classical" => 255966, "DVD" => 547664, "Electronics" => 569604, "ForeignBooks" => 54071011, "HealthPersonalCare" => 10925231, "Kitchen" => 3169011, "Magazines" => 1161660, "Music" => 542676, "OutdoorLiving" => 10925241, "PCHardware" => 700962, "Photo" => 571860, "SportingGoods" => 16435121, "Software" => 542064, "Tools" => 10925051, "Toys" => 12950661, "VideoGames" => 541708, );
	} elsif ($MY_variables{current_locale} eq "fr") {
		$Internal_variables{amazon_country} = "fr";
		$Internal_variables{money_symbol} = "EUR ";
	 	$Internal_variables{img_tracker_locale} = "8";
		%store_to_browse = ( "Tous les produits" => "Blended", "Livres" => "Books", "Classique" => "Classical", "DVD" => "DVD", "Electronics" => "Electronics", "Livres en anglais" => "ForeignBooks", "Musique" => "Music", "MusicTracks" => "MusicTracks", "Logiciels" => "Software", "Vid&#233;o" => "VHS", "Jeux vid&#233;o" => "VideoGames", );
		%current_base_nodes = ( "Books" => 301130, "Classical" => 301174, "DVD" => 409392, "Electronics" => 13910671, "ForeignBooks" => 923654, "Music" => 301164, "Software" => 547972, "VHS" => 301176, "VideoGames" => 548014, );
	} elsif ($MY_variables{current_locale} eq "jp") {
		$Internal_variables{amazon_country} = "co.jp";
		$Internal_variables{money_symbol} = "&#165;";
	 	$Internal_variables{img_tracker_locale} = "9";
		%store_to_browse = ( "Blended" => "Blended", "&#21644;&#26360;" => "Books", "&#12463;&#12521;&#12471;&#12483;&#12463;" => "Classical", "DVD" => "DVD", "&#12456;&#12524;&#12463;&#12488;&#12525;&#12491;&#12463;&#12473;" => "Electronics", "&#27915;&#26360;" => "ForeignBooks", "&#12504;&#12523;&#12473;&#65286;&#12499;&#12517;&#12540;&#12486;&#12451;&#12540;" => "HealthPersonalCare", "&#12507;&#12499;&#12540;" => "Hobbies", "&#12507;&#12540;&#12512;&#12461;&#12483;&#12481;&#12531;" => "Kitchen", "&#12511;&#12517;&#12540;&#12472;&#12483;&#12463;" => "Music", "MusicTracks" => "MusicTracks", "&#12477;&#12501;&#12488;&#12454;&#12455;&#12450;" => "Software", "&#12473;&#12509;&#12540;&#12484;" => "SportingGoods", "&#12362;&#12418;&#12385;&#12419;" => "Toys", "&#12499;&#12487;&#12458;" => "VHS", "Video" => "Video", "&#12466;&#12540;&#12512;" => "VideoGames", );
		%current_base_nodes = ( "Books" => 465610, "Classical" => 701042, "DVD" => 562002, "Electronics" => 3210991, "ForeignBooks" => 573662, "HealthPersonalCare" => 161669011, "Hobbies" => 13321861, "Kitchen" => 3839151, "Music" => 562032, "Software" => 637630, "SportingGoods" => 14315361, "Toys" => 13299531, "VHS" => 561972, "VideoGames" => 637872, );
	} elsif ($MY_variables{current_locale} eq "uk") {
		$Internal_variables{amazon_country} = "co.uk";
		$Internal_variables{money_symbol} = "&#163;";
	 	$Internal_variables{img_tracker_locale} = "2";
		%store_to_browse = ( "All Products" => "Blended", "Books" => "Books", "Classical Music" => "Classical", "DVD" => "DVD", "Electronics" => "Electronics", "Health &amp; Personal Care" => "HealthPersonalCare", "Home &amp; Garden" => "HomeGarden", "Kitchen &amp; Housewares" => "Kitchen", "Music" => "Music", "Music Tracks" => "MusicTracks", "Outdoor Living" => "OutdoorLiving", "Software" => "Software", "Toys" => "Toys", "VHS" => "VHS", "Video (DVD &amp; VHS)" => "Video", "Video Games" => "VideoGames", );
		%current_base_nodes = ( "Books" => 1025612, "Classical" => 697386, "DVD" => 573406, "Electronics" => 560800, "HealthPersonalCare" => 3147461, "Kitchen" => 3147411, "Music" => 520920, "OutdoorLiving" => 10709021, "Software" => 1025614, "Toys" => 595314, "VHS" => 573400, "VideoGames" => 1025616, );
	} else {
		$Internal_variables{amazon_country} = "com";
		$Internal_variables{money_symbol} = "&#36;";
	 	$Internal_variables{img_tracker_locale} = "1";
		%store_to_browse = ( "All Products" => "Blended", "Apparel" => "Apparel", "Automotive" => "Automotive", "Baby" => "Baby", "Beauty" => "Beauty", "Books" => "Books", "Classical Music" => "Classical", "DVD" => "DVD", "Digital Music" => "DigitalMusic", "Electronics" => "Electronics", "Gourmet Food" => "GourmetFood", "Health &amp; Personal Care" => "HealthPersonalCare", "Jewelry" => "Jewelry", "Kitchen &amp; Housewares" => "Kitchen", "Magazines" => "Magazines", "Miscellaneous" => "Miscellaneous", "Music" => "Music", "Musical Instruments" => "MusicalInstruments", "Music Tracks" => "MusicTracks", "Office Products" => "OfficeProducts", "Outdoor Living" => "OutdoorLiving", "PC Hardware" => "PCHardware", "Pet Supplies" => "PetSupplies", "Photo" => "Photo", "Restaurants" => "Restaurants", "Software" => "Software", "Sporting Goods" => "SportingGoods", "Tools &amp; Hardware" => "Tools", "Toys" => "Toys", "VHS" => "VHS", "Video (DVD &amp; VHS)" => "Video", "Video Games" => "VideoGames", "Wireless" => "Wireless", "Wireless Accessories" => "WirelessAccessories" );
		%current_base_nodes = ( "Apparel" => 1036682, "Automotive" => 15690151, "Baby" => 165797011, "Beauty" => 11055981, "Books" => 1000, "Classical" => 85, "DVD" => 404276, "Electronics" => 493964, "GourmetFood" => 3580501, "HealthPersonalCare" => 3760931, "Jewelry" => 3880591, "Kitchen" => 284507, "Magazines" => 599872, "Music" => 301668, "MusicalInstruments" => 11969971, "OfficeProducts" => 1084128, "OutdoorLiving" => 286168, "PCHardware" => 541966, "PetSupplies" => 12923371, "Photo" => 502394, "Software" => 491286, "SportingGoods" => 3375301, "Tools" => 468240, "Toys" => 165795011, "VHS" => 404274, "VideoGames" => 471280, );
	}
	$Internal_variables{amazon_url} = "http://www.amazon." . $Internal_variables{amazon_country} . "/gp/redirect.html?location=%2F&tag=$MY_variables{associate_id}&SubscriptionId=$MY_variables{subscription_id}";
	$Internal_variables{amazon_site} = $Internal_variables{amazon_domain} . "." . $Internal_variables{amazon_country};
	my $key_name = "nodes_to_use_$MY_variables{current_locale}";
	if ($Internal_variables{$key_name} and $Internal_variables{$key_name} ne "All") {
		my (%good_indexes);
		for my $item (split(/,/, $Internal_variables{$key_name})) { $good_indexes{$item} = "x"; }
		foreach my $key (keys %store_to_browse) {
			delete $store_to_browse{$key} unless exists $good_indexes{$store_to_browse{$key}};
		}
	}
	(my $this_function = (caller(0))[3]) =~ s/[^:]+:://;
	foreach my $item (@mod_files) {
		my $hash_name = qq[subs__$item]; my $sub_name = $this_function . "__" . $item;
		if ($mod_use{$item} eq "Yes" and ${$hash_name}{$this_function} eq "Yes") { &{$sub_name}; }
	}
}

sub load_language {
	%language_dirs_hash = %{load_subdir_names($Internal_variables{languages_directory})};
	if ($FORM{language}) {
		# never trust what someone types in
		if ($language_dirs_hash{$FORM{language}}) {
			$Internal_variables{language_location} = "$Internal_variables{languages_directory}/$FORM{language}";
		} else {
			delete $FORM{language};
			$Internal_variables{language_location} = "$Internal_variables{languages_directory}/default";
		}
	} elsif ($MY_variables{current_locale} eq "de") {
		$Internal_variables{language_location} = "$Internal_variables{languages_directory}/german";
	} elsif ($MY_variables{current_locale} eq "jp") {
		$Internal_variables{language_location} = "$Internal_variables{languages_directory}/japanese";
	} elsif ($MY_variables{current_locale} eq "fr") {
		$Internal_variables{language_location} = "$Internal_variables{languages_directory}/french";
	} else {
		$Internal_variables{language_location} = "$Internal_variables{languages_directory}/default";
	}
	require "$Internal_variables{language_location}/main.language";
	(my $this_function = (caller(0))[3]) =~ s/[^:]+:://;
	foreach my $item (@mod_files) {
		my $hash_name = qq[subs__$item]; my $sub_name = $this_function . "__" . $item;
		if ($mod_use{$item} eq "Yes" and ${$hash_name}{$this_function} eq "Yes") { &{$sub_name}; }
	}
}

sub load_subdir_names {
	my $temp_input = shift;
	my %results_hash;
	opendir(DIR, $temp_input);
	my @temp_dirs = readdir(DIR);
	closedir(DIR);
	foreach my $item (@temp_dirs) {
		if (-d "$temp_input/$item" and $item !~ /\./) { $results_hash{$item} = 1;}
	}
	return \%results_hash;
}

sub initialize_hashes {
	%catalog_to_mode = ( "Apparel" => "Apparel", "Automotive Parts and Accessories" => "Automotive", "Baby" => "Baby", "Beauty" => "Beauty", "Book" => "Books", "books" => "Books", "books-english" => "Books", "DVD" => "DVD", "dvd" => "DVD", "Electronics" => "Electronics", "electronics" => "Electronics", "books-french" => "ForeignBooks", "books-gurupa-us-subtier" => "ForeignBooks", "Home Improvement" => "Tools", "tools" => "Tools", "Gourmet" => "GourmetFood", "Grocery" => "GourmetFood", "Jewelry" => "Jewelry", "Watch" => "Jewelry", "Kitchen" => "Kitchen", "kitchen" => "Kitchen", "Home &amp; Garden" => "Kitchen", "Lawn &amp; Patio" => "OutdoorLiving", "garden" => "OutdoorLiving", "Magazine" => "Magazines", "Magazines" => "Magazines", "magazines" => "Magazines", "Music" => "Music", "music" => "Music", "Musical Instruments" => "MusicalInstruments", "Personal Computer" => "PCHardware", "Software" => "Software", "software" => "Software", "Toy" => "Toys", "toys" => "Toys", "Video" => "VHS", "video" => "VHS", "Video Games" => "VideoGames", "videogames" => "VideoGames", "Sporting Goods" => "SportingGoods", "Sports" => "SportingGoods", "sports" => "SportingGoods", "Photography" => "Photo", "Office Product" => "OfficeProducts", "Furniture" => "OfficeProducts", "CE" => "Electronics", "ce" => "Electronics", "Health and Personal Care" => "HealthPersonalCare", "health" => "HealthPersonalCare", "Health and Beauty" => "HealthPersonalCare", "Health &amp; Personal Care" => "HealthPersonalCare", "Wireless" => "Wireless", "Restaurant Menu" => "Restaurants", "Baby Product" => "Baby" );
	%lookup_store = reverse %store_to_browse;
	require $Internal_variables{cwd} . "/apf_sort_" . $MY_variables{current_locale} . ".ini";
	%no_image_image_hash = (
		"Default" => "http://g-images.amazon.com/images/G/01/x-site/icons/no-img-sm.gif", 
		"Apparel" => "http://g-images.amazon.com/images/G/01/apparel/general/apparel-no-image.gif",
		"Baby" => "http://g-images.amazon.com/images/G/01/baby/no-photo-baby.gif",
		"Books" => "http://g-images.amazon.com/images/G/01/books/icons/books-no-image.gif",
		"Classical" => "http://g-images.amazon.com/images/G/01/music/icons/music-no-image.gif",
		"DVD" => "http://g-images.amazon.com/images/G/01/dvd/icons/dvd-no-image.gif",
		"DigitalMusic" => "http://g-images.amazon.com/images/G/01/music/icons/music-no-image.gif",
		"Electronics" => "http://g-images.amazon.com/images/G/01/electronics/no-photo-ce.gif",
		"GourmetFood" => "http://g-images.amazon.com/images/G/01/gourmet/gourmet-no-image.gif",
		"Jewelry" => "http://g-images.amazon.com/images/G/01/jewelry/nav/jewelry-icon-no-image-avail.gif",
		"Kitchen" => "http://g-images.amazon.com/images/G/01/kitchen/placeholder-icon.gif",
		"Magazines" => "http://g-images.amazon.com/images/G/01/stores/magazines/no_cover_image.gif",
		"Music" => "http://g-images.amazon.com/images/G/01/music/icons/music-no-image.gif",
		"MusicTracks" => "http://g-images.amazon.com/images/G/01/music/icons/music-no-image.gif",
		"OfficeProducts" => "http://g-images.amazon.com/images/G/01/office-products/icons/no-photo-office-prod.gif",
		"OutdoorLiving" => "http://g-images.amazon.com/images/G/01/stores/garden/no-photo-lawn.gif",
		"PCHardware" => "http://g-images.amazon.com/images/G/01/computer/no-photo-computer.gif",
		"HealthPersonalCare" => "http://g-images.amazon.com/images/G/01/hpc/icon-hpc-noimageavail.gif",
		"Photo" => "http://g-images.amazon.com/images/G/01/photo/placeholder-icon.gif",
		"Software" => "http://g-images.amazon.com/images/G/01/software/new-item-1.gif",
		"SportingGoods" => "http://g-images.amazon.com/images/G/01/stores/sports-outdoors/sports-no-image.gif",
		"Tools" => "http://g-images.amazon.com/images/G/01/stores/hi/no-photo-tools.gif",
		"Toys" => "http://g-images.amazon.com/images/G/01/v9/icons/no-picture-icon.gif",
		"VHS" => "http://g-images.amazon.com/images/G/01/video/icons/video-no-image.gif",
		"Video" => "http://g-images.amazon.com/images/G/01/video/icons/video-no-image.gif",
		"VideoGames" => "http://g-images.amazon.com/images/G/01/videogames/icons/vg-not-available.gif",
		"Wireless" => "http://g-images.amazon.com/images/G/01/wireless/no-photo-lt-blue.gif",
	);
	(my $this_function = (caller(0))[3]) =~ s/[^:]+:://;
	foreach my $item (@mod_files) {
		my $hash_name = qq[subs__$item]; my $sub_name = $this_function . "__" . $item;
		if ($mod_use{$item} eq "Yes" and ${$hash_name}{$this_function} eq "Yes") { &{$sub_name}; }
	}
}

sub build_templates_location {
	%template_dirs_hash = %{load_subdir_names($Internal_variables{templates_directory})};
	if ($FORM{templates}) {
		# never trust what someone types in
		if ($template_dirs_hash{$FORM{templates}}) {
			$Internal_variables{templates_location} = "$Internal_variables{templates_directory}/$FORM{templates}";
		} else {
			delete $FORM{templates};
		}
	}
	if (!$FORM{link_templates} or !$template_dirs_hash{$FORM{link_templates}}) {
		$FORM{link_templates} = $FORM{templates};
	}
}

sub calculate_initial_variables {
	$MY_variables{SearchIndex} = $FORM{SearchIndex};
	if ($FORM{SearchIndex} =~ /node:|node%3A/) { $MY_variables{SearchIndex} =~ s/node:([^:]+):(.*)/$1/; $FORM{BrowseNode} = $2; }
	if (!$MY_variables{SearchIndex} and !$FORM{Operation} and !$FORM{myOperation} and $Internal_variables{there_can_be_only_one}) { $MY_variables{SearchIndex} = $Internal_variables{there_can_be_only_one}; }
	build_templates_location();
	if (!$FORM{link_max_results} and $FORM{max_results} != 50) { $FORM{link_max_results} = $FORM{max_results}; }
	$MY_variables{see_back} = qq[<a href="javascript:history.go(-1)" onmouseout="self.status='';return true" onmouseover="self.status=document.referrer;return true">$language_text{see_text3}</a>];
	$MY_variables{in_association} = qq[<a class="apf_small_text" href="$MY_variables{script_name}?go=amazon&amp;locale=$MY_variables{current_locale}">$language_text{association_text1}</a>];
	$Internal_variables{base_url} = "http://$Internal_variables{amazon_server}.$Internal_variables{amazon_site}/onca/xml?Service=AWSECommerceService&AssociateTag=$MY_variables{associate_id}&SubscriptionId=$MY_variables{subscription_id}&Version=$wsdl_version";
	if ($Internal_variables{display_adult} ne "Yes") { $Internal_variables{bad_nodes} .= "3777371,"; }
	for my $item (split(/,/, $Internal_variables{bad_nodes})) { if (!$bad_nodes{$item}) {$bad_nodes{$item} = "x";} }
	$ENV{'HTTP_COOKIE'} =~ s/continue_page=([^;]+)/$MY_variables{continue_page} = $1;/e;
	if ($MY_variables{continue_page}) {
		$MY_variables{continue_page_onclick} = qq[parent.location='$MY_variables{continue_page}'];
	} else {
		$MY_variables{continue_page_onclick} = qq[javascript:history.go(-1)];
	}
	# url, form, & see options
	delete $Internal_variables{url_options}; delete $MY_variables{form_options}; delete $Internal_variables{see_url_options}; delete $Internal_variables{query};
	if ($MY_variables{SearchIndex}) {
		$MY_variables{store} = $lookup_store{$MY_variables{SearchIndex}};
		if ($FORM{Operation} =~ /ItemSearch|SellerListingSearch/) { $Internal_variables{query} .= "&SearchIndex=$MY_variables{SearchIndex}"; }
		$Internal_variables{see_url_options} = "SearchIndex=$MY_variables{SearchIndex}";
		$Internal_variables{more_form_options} = qq[<input type="hidden" name="SearchIndex" value="$MY_variables{SearchIndex}" />];
	}
	if ($FORM{Operation} and !$FORM{BrowseNode}) {
		if ($Internal_variables{see_url_options}) { $Internal_variables{see_url_options} .= "&amp;"; }
		$Internal_variables{see_url_options} .= "Operation=$FORM{Operation}";
		$Internal_variables{more_form_options} .= qq[<input type="hidden" name="Operation" value="$FORM{Operation}" />];
	}
	if ($FORM{myOperation}) {
		if ($Internal_variables{see_url_options}) { $Internal_variables{see_url_options} .= "&amp;"; }
		$Internal_variables{see_url_options} .= "myOperation=$FORM{myOperation}";
		$Internal_variables{more_form_options} .= qq[<input type="hidden" name="myOperation" value="$FORM{myOperation}" />];
	}
	if ($FORM{ItemId}) {
		$Internal_variables{see_url_options} .= "&amp;ItemId=$FORM{ItemId}";
		$Internal_variables{more_form_options} .= qq[<input type="hidden" name="ItemId" value="$FORM{ItemId}" />];
	}
	if ($FORM{link_templates}) {
		$Internal_variables{url_options} .= "&amp;templates=$FORM{link_templates}";
		$MY_variables{form_options} .= qq[<input type="hidden" name="templates" value="$FORM{link_templates}" />];
	}
	if ($FORM{language}) {
		$Internal_variables{url_options} .= "&amp;language=$FORM{language}";
		$MY_variables{form_options} .= qq[<input type="hidden" name="language" value="$FORM{language}" />];
	}
	if ($FORM{locale}) {
		$Internal_variables{url_options} .= "&amp;locale=$FORM{locale}";
		$MY_variables{form_options} .= qq[<input type="hidden" name="locale" value="$FORM{locale}" />];
	}
	if ($FORM{link_max_results}) {
		$Internal_variables{url_options} .= "&amp;max_results=$FORM{link_max_results}";
		$MY_variables{form_options} .= qq[<input type="hidden" name="max_results" value="$FORM{link_max_results}" />];
	}
	if ($FORM{associate_ids}) {
		$Internal_variables{url_options} .= "&amp;associate_ids=$FORM{associate_ids}";
		$MY_variables{form_options} .= qq[<input type="hidden" name="associate_ids" value="$FORM{associate_ids}" />];
	}
	if ($FORM{ResponseGroup}) { $Internal_variables{see_url_options} .= "&amp;ResponseGroup=$FORM{ResponseGroup}"; }
	if (!$FORM{ResponseGroup}) {
		if ($FORM{Operation} =~ /ItemSearch|SimilarityLookup/ or $FORM{ItemId} =~ /,/) {
			$FORM{ResponseGroup} = $Internal_variables{ResponseGroup_Products};
			if ($FORM{SearchIndex} ne "Blended") { $Internal_variables{can_sort} = "Yes"; }
		} elsif ($FORM{Operation} eq "ListLookup") {
			$FORM{ResponseGroup} = $Internal_variables{ResponseGroup_Products} . ",ListItems";
		} elsif ($FORM{myOperation} eq "CustomerReviews") {
			$FORM{ResponseGroup} = $Internal_variables{ResponseGroup_Reviews};
		} elsif ($FORM{myOperation} eq "Image") {
			$FORM{ResponseGroup} = $Internal_variables{ResponseGroup_Image};
		} elsif ($FORM{Operation} eq "ItemLookup") {
			$FORM{ResponseGroup} = $Internal_variables{ResponseGroup_Item};
		}
	}
	delete $Internal_variables{persistant_parameters_query}; delete $Internal_variables{persistant_parameters_url_options}; delete $Internal_variables{persistant_parameters_form_options};
	foreach my $item ("Availability", "AudienceRating", "City", "Neighborhood", "MaximumPrice", "MinimumPrice", "Condition", "ISPUPostalCode", "MPAARating") {
		if ($FORM{$item}) {
			$MY_variables{subject} = $language_text{button_text4};
			(my $search_url = $FORM{$item}) =~ s/\+/ /g;
			$search_url = url_encode($search_url);
			$Internal_variables{persistant_parameters_query} .= "&$item=$search_url";
			$Internal_variables{persistant_parameters_url_options} .= "&amp;$item=$FORM{$item}";
			$Internal_variables{persistant_parameters_form_options} .= qq[<input type="hidden" name="$item" value="$FORM{$item}" />];
		}
	}
	foreach my $item ("ListType", "ListId", "Keywords", "Title", "BrowseNode", "Artist", "Author", "Actor", "Director", "Manufacturer", "MusicLabel", "Composer", "Publisher", "Brand", "Conductor", "Orchestra", "TextStream", "Sort", "Cuisine", "MerchantId", "DeliveryMethod", "ConditionType", "Count", "Power") {
		if ($FORM{$item}) {
			$MY_variables{subject} = $language_text{button_text4};
			my $search_url = $FORM{$item};
			if ($item ne "Sort") {
				$search_url =~ s/\+/ /g;
				$search_url = url_encode($search_url);
			} else {
				$search_url =~ s/\+/%2B/g;
			}
			if ($item eq "Keywords") {
				$search_url = lc($search_url);
				$Internal_variables{Keywords_escaped} = html_escape($FORM{Keywords});
				$Internal_variables{Keywords_encoded} = url_encode($FORM{Keywords});
				$FORM{$item} = $Internal_variables{Keywords_escaped};
			}
			$Internal_variables{query} .= "&$item=$search_url";
			$Internal_variables{see_url_options} .= "&amp;$item=$FORM{$item}";
			$Internal_variables{more_form_options} .= qq[<input type="hidden" name="$item" value="$FORM{$item}" />];
		}
	}
	$Internal_variables{query} .= $Internal_variables{persistant_parameters_query};
	$Internal_variables{see_url_options} .= $Internal_variables{persistant_parameters_url_options};
	$Internal_variables{more_form_options} .= $Internal_variables{persistant_parameters_form_options};
	if (!$Internal_variables{there_can_be_only_one}) {
		(my $temp_options = $Internal_variables{url_options}) =~ s/^&amp;//;
		$Internal_variables{bestsellers_header} = qq[<a href="$MY_variables{script_name}?$temp_options">$language_text{header_text1}</a> &gt; ];
	}
#	if ($FORM{BrowseNode}) {
#		($MY_variables{BrowseNodeName_display} = $FORM{BrowseNodeName}) =~ s/_/ /g;
#		$MY_variables{header} = qq[$Internal_variables{bestsellers_header}<a href="$MY_variables{script_name}?SearchIndex=$MY_variables{SearchIndex}$Internal_variables{url_options}">$MY_variables{store}</a> &gt; $MY_variables{BrowseNodeName_display}];
#$debug .= $MY_variables{BrowseNodeName_display} . "." . $AWS_variables{BrowseNodes} . "<br>";
#		my $temp_BrowseNodes = $AWS_variables{BrowseNodes};
#		recurse_Ancestors($temp_BrowseNodes,"","browseheader");
#		$MY_variables{header} = $Internal_variables{browse_header} = $MY_variables{browseheader};
#	}
	if ($FORM{Operation} eq "ItemSearch") {
		if ($FORM{ItemPage} > 1) { $Internal_variables{query} .= qq[&ItemPage=$FORM{ItemPage}]; }
		$Internal_variables{query} .= qq[&ResponseGroup=$FORM{ResponseGroup}];
	}
	if ($FORM{Operation} eq "ItemLookup" or $FORM{Operation} eq "SimilarityLookup") {
		if ($FORM{ReviewPage} > 1) { $Internal_variables{query} .= qq[&ReviewPage=$FORM{ReviewPage}]; }
		$Internal_variables{query} .= qq[&ItemId=$FORM{ItemId}&ResponseGroup=$FORM{ResponseGroup}];
	}
	if ($FORM{Operation} eq "ListLookup") {
		if ($FORM{ProductPage} > 1) { $Internal_variables{query} .= qq[&ProductPage=$FORM{ProductPage}]; }
		$Internal_variables{query} .= qq[&ResponseGroup=$FORM{ResponseGroup}];
	}
	# end url, form, & see options
	# begin cart stuff
	$ENV{'HTTP_COOKIE'} =~ s/apfcart_$MY_variables{current_locale}=([^,]+),([^;]+)/$AWS_variables{CartId} = $1; $AWS_variables{URLEncodedHMAC} = $2;/e;
	$ENV{'HTTP_COOKIE'} =~ s/apfcartcontents_$MY_variables{current_locale}=([^,]+),([^;]+)/$MY_variables{total_cart_items} = $1; $MY_variables{cart_price_total} = $2;/e;
	if ($AWS_variables{CartId} and $AWS_variables{URLEncodedHMAC}) { $Internal_variables{session} = qq[&CartId=$AWS_variables{CartId}&HMAC=$AWS_variables{URLEncodedHMAC}]; }
	if (!$FORM{cart_action}) {
		if ($Internal_variables{session}) {
			$MY_variables{shopping_cart_link} = qq[<span class="apf_cart_text3_style"><a href="$MY_variables{script_name}?cart_action=get$Internal_variables{url_options}">$language_text{cart_text3}</a></span>];
		}
	} else {
	}
	# end cart stuff
	(my $this_function = (caller(0))[3]) =~ s/[^:]+:://;
	foreach my $item (@mod_files) {
		my $hash_name = qq[subs__$item]; my $sub_name = $this_function . "__" . $item;
		if ($mod_use{$item} eq "Yes" and ${$hash_name}{$this_function} eq "Yes") { &{$sub_name}; }
	}
}

sub build_products {
	if ($FORM{cart_action}) {
		require $Internal_variables{cwd} . "/apf_main.pm";
		shopping_cart();
	} elsif ($FORM{go} eq "amazon") {
		print "Location:$Internal_variables{amazon_url}\n\n";
		exit;
	} else {
		my $xml_result;
		if ($FORM{Operation}) {
			my $this_xml_url = $Internal_variables{base_url} . "&Operation=$FORM{Operation}" . $Internal_variables{query};
			$xml_result = get_url($this_xml_url);
		}
		require $Internal_variables{cwd} . "/apf_main.pm";
		build_products__main($xml_result);
	}
}

sub url_encode {
	my $value = shift;
	$value =~ s|/| |g;
	$value =~ s/([^A-Za-z0-9_])/sprintf("%%%02X", ord($1))/seg;
	return $value;
}

sub html_escape {
	my $value = shift;
	if (!$load_entities_error) {
		$value = decode_entities($value);
		$value = encode_entities($value,'!"%()*\/<=>?[\\]^{|}\'&');
	} else {
  	study($value);
  	$value =~ s|\!|&#33;|g;
  	$value =~ s|\"|&#34;|g;
  	$value =~ s|\%|&#37;|g;
  	$value =~ s|\(|&#40;|g;
  	$value =~ s|\)|&#41;|g;
  	$value =~ s|\*|&#42;|g;
  	$value =~ s|\/|&#47;|g;
  	$value =~ s|\<|&#60;|g;
  	$value =~ s|\=|&#61;|g;
  	$value =~ s|\>|&#62;|g;
  	$value =~ s|\?|&#63;|g;
  	$value =~ s|\[|&#91;|g;
  	$value =~ s|\\|&#92;|g;
  	$value =~ s|\]|&#93;|g;
  	$value =~ s|\^|&#94;|g;
  	$value =~ s|\{|&#123;|g;
  	$value =~ s/\|/&#124;/g;
  	$value =~ s|\}|&#125;|g;
	}
	return $value;
}

sub get_url {
	my ($value, $skip) = @_;
	$value =~ s/ /%20/g;
	$value =~ s/BrowseNode=([^%&]+)%3A([^&]+)/BrowseNode=$1:$2/;
	(my $this_function = (caller(0))[3]) =~ s/[^:]+:://;
	foreach my $item (@mod_files) {
		my $hash_name = qq[subs__$item]; my $sub_name = $this_function . "__" . $item;
		if ($mod_use{$item} eq "Yes" and ${$hash_name}{$this_function} eq "Yes") { $value = &{$sub_name}($value); }
	}
	$debug .= qq[<a href="$value" target="xml">XML Request</a><br />\n];
	my ($cache_age,$cache_expire,$cache_time,%xml_cache,$xml_result,$dbm_error);
	if ($FORM{ResponseGroup} =~ /Large|Medium|Offer|SellerListing/) {
		$cache_age = 3600;
	} else {
		$cache_age = 86400;
	}
	$cache_expire = time() - $cache_age; $cache_time = $value . "_time";
	if ($Internal_variables{use_cache} eq "Yes" and $Internal_variables{debug_state} ne "on") {
		eval 'use Fcntl'; $dbm_error = $@;
		eval 'use DB_File'; $dbm_error .= $@;
		if (!$dbm_error) {
			if (-s $Internal_variables{cache_file} > (7000 * $Internal_variables{cache_max_size})) { unlink $Internal_variables{cache_file}; }
			eval 'tie(%xml_cache,"DB_File",$Internal_variables{cache_file},O_RDONLY)'; $dbm_error = $@;
		}
	}
	if ($xml_cache{$value} and $xml_cache{$cache_time} > $cache_expire) {
		$xml_result = $xml_cache{$value};
		untie %xml_cache;
	} else {
		untie %xml_cache;
		require $Internal_variables{cwd} . "/simpleget.pl";
		for (my $temp_i = 1; $temp_i <= 3; $temp_i++) {
			$xml_result = get($value);
			if (!$xml_result) {
				sleep 1;
			} else {
				$MY_variables{error_msg} = ""; last;
			}
		}
		if (!$load_entities_error) {
			$xml_result = decode_entities($xml_result);
		} else {
  		study($xml_result);
  		$xml_result =~ s/&lt;/</gi;
  		$xml_result =~ s/&gt;/>/gi;
  		$xml_result =~ s/&amp;([^\s])/&$1/gi;
  		$xml_result =~ s/&amp;amp;quot;/&quot;/gi;
  		$xml_result =~ s/&amp;(.{2,5};)/&$1/gi;
  		$xml_result =~ s/<(\/?)i>/<$1em>/gi;
  		$xml_result =~ s/<(\/?)b>/<$1strong>/gi;
		}
		$xml_result =~ s/<a href=[^>]+>|<\/a>//gi;
		$xml_result =~ s/<p>(?=\s*<p>)//gi;
		$xml_result =~ s/(<table[^>]+)<tr=.<tr.>/$1><tr>/gi;
		$xml_result =~ s/(<tr[^>]*>)[^<]+<p>[^<]+(<td[^>]*>)/$1$2/gi;
		$xml_result =~ s/(<table[^>]*>)[^<]+<p>[^<]+(<tr[^>]*>)/$1$2/gi;
		$xml_result =~ s/<\/?p>/<br \/><br \/>/gi;
		$xml_result =~ s/<br>/<br \/>/gi;
		$xml_result =~ s/<[\/]*body>|<[\/]*html>|<\!DOCTYP[^>]+>//gi;
		if (!$xml_result and $skip ne "skip_ok") { $MY_variables{error_msg} = qq[Sorry, we are currently unable to process your request in a timely manner. <a href="$MY_variables{script_name}?go=amazon&amp;locale=$MY_variables{current_locale}">Please try $Internal_variables{amazon_site}</a>\n]; }
		if ($Internal_variables{use_cache} eq "Yes" and $Internal_variables{debug_state} ne "on" and !$dbm_error) {
			my $count=0;
			open(LOCK, ">$Internal_variables{cache_file}.lock");
			until (flock(LOCK,2) or $count > 50) {
				sleep .10;
				++$count;
			}
			if ($count > 50) { $dbm_error = "lock failed"; }
			if (!$dbm_error) {
				eval 'tie(%xml_cache,"DB_File",$Internal_variables{cache_file},O_CREAT|O_RDWR)'; $dbm_error = $@;
				if (keys(%xml_cache) > $Internal_variables{cache_max_size}) { undef %xml_cache; $debug .= "cleared cache<br />\n"; }
			}
		}
		$xml_cache{$value} = $xml_result;
		$xml_cache{$cache_time} = time;
		untie %xml_cache;
		close(LOCK);
	}
	$xml_result =~ s/<Message>([^<]+)<\/Message><\/Error>/if ($skip ne "skip_ok" and $FORM{SearchIndex} ne "Blended") { $MY_variables{error_msg} .= "Error: $1"; }/esi;
	return $xml_result;
}