script by MrRat]; if ($MY_variables{associate_id} =~ /(freewarfrommrrat|mrratcom-21)/) { $apf_footer .= qq[
A portion of each sale goes to benefit MrRat.com, thank you.]; } # HACK BELOW - Change "No Image" image $apf_footer .= qq[\n]; # $apf_footer .= qq[\n]; # HACK BEGIN - Fix footer output $apf_footer .= qq[]; $html =~ s/<\/BODY>/$apf_footer/i; # HACK END # send the page to the browser # HACK BEGINS - SE Friendly URLs $html =~ s/$MY_variables{script_name}\?mode=([a-z_]+)&node=([0-9]+)/\/browse-$1-n-$2.shtml/ig; $html =~ s/$MY_variables{script_name}\?item_id=([a-zA-Z0-9]+)&search_type=AsinSearch/\/id-$1.shtml/ig; $html =~ s/$MY_variables{script_name}\?search_type=CustomerReviews&item_id=([a-zA-Z0-9]+)/\/id-$1.shtml/ig; $html =~ s/$MY_variables{script_name}\?mode=books&search_type=AuthorSearch&input_string=([^"&]+)/\/books-by-$1.shtml/ig; $html =~ s/$MY_variables{script_name}\?mode=(.*)&search_type=ManufacturerSearch&input_string=([^"&]+)/\/view-$2-made-$1.shtml/ig; $html =~ s/$MY_variables{script_name}\?search_type=SimilaritySearch&input_string=([a-zA-Z0-9]+)/\/show-similar-$1.shtml/ig; # HACK ENDS - SE Friendly URLs print "Content-type: text/html; charset=utf-8\n\n"; print $html; exit; # the end - subs below sub get_url_input { my ($form_pair,$form_name,$form_value,$item); for $form_pair (split(/&/, $ENV{QUERY_STRING})) { $form_pair =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # remove all dangerous characters listed in WWW Security FAQ - http://www.w3.org/Security/Faq/ # except characters ( ) * which are required for power searches # i know this doesn't untaint but can't figure out how to untaint accented characters without the overhead of locale $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) { if ($FORM{input_mode}) { $FORM{mode} = $FORM{input_mode}; } if ($FORM{input_templates}) { $FORM{templates} = $FORM{input_templates}; } if ($FORM{input_link_templates}) { $FORM{link_templates} = $FORM{input_link_templates}; } if ($FORM{input_language}) { $FORM{language} = $FORM{input_language}; } if ($FORM{input_sort}) { $FORM{sort_type} = $FORM{input_sort}; } if ($FORM{sort_type}) { $FORM{sort_type} =~ s/\s/+/g; } if ($FORM{input_max}) { $FORM{max_results} = $FORM{input_max}; } if ($FORM{input_link_max}) { $FORM{link_max_results} = $FORM{input_link_max}; } # HACK BELOW - prevent locale override $FORM{locale} = "us"; # if ($FORM{input_locale}) { $FORM{locale} = $FORM{input_locale}; } if ($FORM{input_id}) { $FORM{node} = $FORM{input_id}; } if ($FORM{input_item}) { $FORM{item_id} = $FORM{input_item}; } if ($FORM{input_page}) { $FORM{page_num} = $FORM{input_page}; } if ($FORM{input_search_type}) { $FORM{search_type} = $FORM{input_search_type}; } if ($FORM{input_pricerange}) { $FORM{pricerange} = $FORM{input_pricerange}; } if ($FORM{input_keywords}) { $FORM{keywords} = $FORM{input_keywords}; } if ($FORM{input_cart_action}) { $FORM{cart_action} = $FORM{input_cart_action}; } if ($FORM{input_cart_item}) { $FORM{cart_item} = $FORM{input_cart_item}; } if ($FORM{input_string}) { $FORM{input_string} =~ s/�|�[��]/oe/gi; $FORM{input_string} =~ s/�|�[��]/ae/gi; $FORM{input_string} =~ s/�|�[��]/ue/gi; $FORM{input_string} =~ s/�|��/ss/gi; } } } sub calculate_initial_variables { my @associate_ids = @{$associate_ids{$FORM{locale}}}; if ($FORM{templates} and @associate_ids[$FORM{templates}-1]) { $MY_variables{associate_id} = @associate_ids[$FORM{templates}-1]; } else { $MY_variables{associate_id} = @associate_ids[0]; } if ($FORM{locale} eq "uk") { $MY_variables{in_association} = qq[$language_text{association_text1}
]; # $sort_mode = substr($FORM{mode},0,length($FORM{mode})-3); $money_symbol = "£"; $amazon_server = "xml-eu"; } elsif ($FORM{locale} eq "de") { $MY_variables{in_association} = qq[$language_text{association_text1}
]; # $sort_mode = substr($FORM{mode},0,length($FORM{mode})-3); $money_symbol = "EUR "; $amazon_server = "xml-eu"; } else { $MY_variables{in_association} = qq[$language_text{association_text1}
]; $money_symbol = "$"; $amazon_server = "xml"; } $sort_mode = $FORM{mode}; if ($FORM{mode} eq "none") { $FORM{mode} = ""; } if ($FORM{input_string} eq "none") { $FORM{input_string} = ""; } if (!$FORM{link_max_results} and $FORM{max_results} != 50) { $FORM{link_max_results} = $FORM{max_results}; } $ENV{'HTTP_COOKIE'} =~ s/apfcart=([^,]+),([^;]+)/$AWS_variables{CartId} = $1; $AWS_variables{HMAC} = $2;/e; $AWS_variables{HMAC} =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg; if ($AWS_variables{CartId} and $AWS_variables{HMAC}) { $session = qq[&CartId=$AWS_variables{CartId}&Hmac=$AWS_variables{HMAC}]; } %lookup_store = reverse %store_to_browse; $MY_variables{store} = $lookup_store{$FORM{mode}}; ($url_mode = $FORM{mode}) =~ s/_/-/g; $FORM{input_string} =~ s/\s/\+/g; $MY_variables{see_back} = qq[$language_text{see_text3}]; # url, form, & see options $url_options = ""; $MY_variables{form_options} = ""; $see_url_options = ""; # HACK BELOW - Added for %%sort_items_link%% $sort_items_link_options =""; if ($FORM{link_templates} or $FORM{templates}) { # HACK BEGIN - Don't include templates=1 in URL or FORM passes if ($FORM{link_templates} ne "1") { $url_options .= "&templates=$FORM{link_templates}"; $MY_variables{form_options} .= qq[]; } # $url_options .= "&templates=$FORM{link_templates}"; # $MY_variables{form_options} .= qq[]; # HACK END } if ($FORM{language}) { $url_options .= "&language=$FORM{language}"; $MY_variables{form_options} .= qq[]; } # HACK BEGIN - Remove the locale from the url_options # if ($FORM{locale}) { # $url_options .= "&locale=$FORM{locale}"; # $MY_variables{form_options} .= qq[]; # } # HACK END if ($FORM{link_max_results}) { $url_options .= "&max_results=$FORM{link_max_results}"; $MY_variables{form_options} .= qq[]; } # HACK BEGIN - create %%url_options%% %%url_options_q%% $MY_variables{url_options} = $url_options; if ($url_options) { $MY_variables{url_options_q} = "?$url_options"; $MY_variables{url_options_q} =~ s/templates/link_templates/g; } else { $MY_variables{url_options_q} = ""; } # HACK ENDS if ($FORM{search_type}) { $see_url_options .= "&search_type=$FORM{search_type}"; } if ($FORM{input_string}) { $see_url_options .= "&input_string=$FORM{input_string}"; } if ($FORM{node}) { $see_url_options .= "&node=$FORM{node}"; } if ($FORM{item_id}) { $see_url_options .= "&item_id=$FORM{item_id}"; } # HACK BEGINS - for %%sort_items_link%% if ($FORM{pricerange}) { $see_url_options .= "&pricerange=$FORM{pricerange}"; } if ($FORM{keywords}) { $see_url_options .= "&keywords=$FORM{keywords}"; } $sort_items_link_options = "mode=$FORM{mode}&page_num=1"; $sort_items_link_options .= $see_url_options; if ($FORM{sort_type} ne "+salesrank") { $see_url_options .= "&sort_type=$FORM{sort_type}"; } # if ($FORM{sort_type} ne "+salesrank") { $see_url_options .= "&sort_type=$FORM{sort_type}"; } # if ($FORM{pricerange}) { $see_url_options .= "&pricerange=$FORM{pricerange}"; } # if ($FORM{keywords}) { $see_url_options .= "&keywords=$FORM{keywords}"; } # HACK ENDS if ($session and !$FORM{cart_action} and $FORM{locale} eq "us") { # HACK BEGIN - create %%shopping_cart_display%% # Add altered datestamp for non repeating number $MY_variables{timeid} = time; if (!$FORM{link_templates}) { $MY_variables{shopping_cart_display} = qq[]; } else { $MY_variables{shopping_cart_display} = qq[]; } # HACK END $MY_variables{shopping_cart_link} = qq[$language_text{cart_text3}]; } if ($FORM{node}) { %lookup_browse_id = reverse %{$FORM{mode}}; # HACK BELOW - Made type=heavy instead of type=lite $query = "BrowseNodeSearch=" . $FORM{node} . "&mode=$url_mode&type=heavy&page=$FORM{page_num}"; if ($FORM{input_string} and !$FORM{keywords}) { $FORM{keywords} = $FORM{input_string}; } $MY_variables{subject} = $lookup_browse_id{$FORM{node}}; $MY_variables{header} = qq[$language_text{header_text1} > $MY_variables{store} > $MY_variables{subject}
]; } elsif ($FORM{input_string}) { if ($FORM{search_type} =~ /(?:SimilaritySearch|ListManiaSearch|SellerProfile|SellerSearch|WishlistSearch|ExchangeSearch)/) { if ($FORM{search_type} eq "SellerSearch") { $query = "SellerSearch=$FORM{input_string}&type=heavy&offerstatus=open&page=$FORM{page_num}"; } # HACK BELOW - Made type=heavy instead of type=lite elsif ($FORM{search_type} eq "SimilaritySearch") { $query = "$FORM{search_type}=$FORM{input_string}&type=heavy&page=$FORM{page_num}"; } else { $query = "$FORM{search_type}=$FORM{input_string}&type=heavy&page=$FORM{page_num}"; } # HACK END } else { if ($FORM{search_type} =~ /(AuthorSearch|ArtistSearch|ActorSearch|ManufacturerSearch|DirectorSearch|PowerSearch)/) { $query = "$FORM{search_type}="; } else { $query = "KeywordSearch="; } (my $search_url = $FORM{input_string}) =~ s/\+/%20/g; # HACK BELOW set %%subject%% to %%store%% instead of input_string $MY_variables{subject} = $MY_variables{store}; # ($MY_variables{subject} = $FORM{input_string}) =~ s/\+/ /g; # HACK BELOW - Made type=heavy instead of type=lite $query .= $search_url . "&mode=$url_mode&type=heavy&page=$FORM{page_num}"; } } elsif ($FORM{search_type} =~ /(ThirdPartyNew|Used|Collectible|Refurbished)/) { $query = "AsinSearch=$FORM{item_id}&type=heavy&offer=$FORM{search_type}&offerpage=$FORM{page_num}"; my %marketplace_text_hash = ( Used => $language_text{my_marketplace2}, Collectible => $language_text{my_marketplace3}, ThirdPartyNew => $language_text{my_marketplace4}, Refurbished => $language_text{my_marketplace5} ); $my_marketplace_text = $marketplace_text_hash{$FORM{search_type}}; } elsif ($FORM{item_id} =~ /,/) { $MY_variables{store} = $language_text{header_text2}; $MY_variables{subject} = $language_text{header_text3}; # HACK BELOW - Made type=heavy instead of type=lite $query = "AsinSearch=" . $FORM{item_id} . "&type=heavy&page=$FORM{page_num}"; } # HACK BEGIN create %%keywords%% if ($FORM{search_type} eq "SimilaritySearch") { # create title text for SimilaritySearch - part 1 $MY_variables{keywords} = "Similar Items"; } else { ($MY_variables{keywords} = $FORM{input_string}) =~ s/\+/ /g; } # "zero" subject where appropriate if ($FORM{search_type} =~ /PowerSearch/) {$MY_variables{subject} = "";} # HACK END if ($FORM{pricerange}) { $query .= qq[&price=$FORM{pricerange}]; } if ($FORM{keywords}) { $query .= qq[&keywords=$FORM{keywords}]; } } sub build_search_box { my ($search_box_allsearches, $search_subject); if ($show_search_options eq "yes") { $search_box_allsearches = qq[
$language_text{searchbox_text3}]; } $MY_variables{search_box} = qq[]; # HACK BEGIN - create %%search_box2%% $MY_variables{search_box2} = $MY_variables{search_box}; $MY_variables{search_box2} =~ s/size=\"35\"/size=\"16\"/g; $MY_variables{search_box2} =~ s/>
/$language_text{searchbox_text2_2}<\/option>/g; # HACK ENDS } sub load_templates { my $temp_num = $FORM{templates} - 1; if ($temp_num < 0) { $temp_num = 0; } my %template_name_refs = ( page => \@page_templates, products => \@products_templates, item => \@item_templates, larger_image => \@larger_image_templates, sellersearch => \@sellersearch_templates, sellerprofile => \@sellerprofile_templates, thirdparty_products => \@thirdparty_products_templates, browse_menu => \@browse_menu_templates, nav_menu => \@nav_menu_templates, featured_product => \@featured_product_templates, blended => \@blended_templates, shopping_cart => \@shopping_cart_templates, customer_reviews => \@customer_reviews_templates, homepage => \@homepage_templates, ,featured_product_home => \@featured_home_templates); # HACK ABOVE HERE - include HomePage templates for my $key (keys %template_name_refs) { my $template_file_name = ${$template_name_refs{$key}}[$temp_num]; if ( -e $template_file_name ) { open(FILEHANDLE,"<$template_file_name"); while () { $template_html{$key} = $template_html{$key} . $_; } close (FILEHANDLE); } } } sub get_url { my $value = $_[0]; my $skip = $_[1]; my (%xml_cache,$xml_result,$dbm_error); my $cache_expire = time() - 3600; my $cache_time = $value . "_time"; if ($use_cache eq "yes") { eval 'use Fcntl'; $dbm_error = $@; eval 'use DB_File'; $dbm_error .= $@; if (!$dbm_error) { if (-s $cache_file > (7000 * $cache_max_size)) { unlink $cache_file; } eval 'tie(%xml_cache,"DB_File",$cache_file,O_RDONLY)'; $dbm_error = $@; } } if ($xml_cache{$value} and $xml_cache{$cache_time} > $cache_expire) { $xml_result = $xml_cache{$value}; $debug .= "cache status = cached request size " . length($xml_result) . ", total requests cached " . keys(%xml_cache) . "\n"; untie %xml_cache; } else { untie %xml_cache; # HACK BELOW - Use SimpleGet.pl instead of LWP require "SimpleGet.pl"; # eval 'use LWP::Simple qw($ua get)'; if ($@) { print "Content-type: text/html\n\n"; print "Unable to use LWP::Simple and this script cannot function without it.\n"; exit; } # my $ua = new LWP::UserAgent; # $ua->timeout(30); $xml_result = get($value); # HACK BEGIN - Various retries if incomplete XML data my $Count_try = 1; # retry for CustomerReview if you have AvgCustomerRatings if (($value =~ /type=heavy/) and ($xml_result =~ /AvgCustomerRating/)) { until ((($xml_result =~ //) and ($xml_result =~ //)) or ($Count_try > 2)) {sleep 1; $xml_result = get($value); ++$Count_try;} # retry if BrowseNodeSearch fails } elsif (($value =~ /type=heavy/) and ($value =~ /BrowseNodeSearch=/)) { until (($xml_result =~ //) or ($Count_try > 3)) {sleep 1; $xml_result = get($value); ++$Count_try;} # retry for Availability when type=heavy or AsinSearch'n and no Availability } elsif ((($value =~ /type=heavy/) or ($value =~ /AsinSearch=/)) and ($value !~ /ShoppingCart/)) { until ((($xml_result =~ /|/) and ($xml_result !~ /We encountered an error processing your request|Invalid Asin/)) or ($Count_try > 3)) {sleep 1; $xml_result = get($value); ++$Count_try;} } else { until ($xml_result or $Count_try > 3) {sleep 1; $xml_result = get($value); ++$Count_try;} } # HACK END $xml_result =~ s/\<//<$1em>/gi; $xml_result =~ s/<(\/?)b>/<$1strong>/gi; $xml_result =~ s/
/
/gi; $xml_result =~ s/<\/?p>/

/gi; # HACK BEGIN - change verbiage if (!$xml_result and $skip ne "skip_ok") { $MY_variables{error_msg} = "We're sorry, the server was too busy to process your request.
Please wait a few moments and...\n"; } # if (!$xml_result and $skip ne "skip_ok") { $MY_variables{error_msg} = "Sorry, we are currently unable to process your request in a timely manner.
Please try again later.\n"; } # HACK ENDS if (($use_cache eq "yes" and !$dbm_error) and ($xml_result !~ //)) { my $count=0; open(LOCK, ">$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",$cache_file,O_CREAT|O_RDWR)'; $dbm_error = $@; if (keys(%xml_cache) > $cache_max_size) { undef %xml_cache; $debug .= "cleared cache\n"; } } } $xml_cache{$value} = $xml_result; $xml_cache{$cache_time} = time; untie %xml_cache; close(LOCK); $debug .= "cache status = not cached request size " . length($xml_result) . "\n"; } # HACK BEGIN - customize invalid ASIN for cart message if ($xml_result =~ //) { $xml_result =~ s/([^<]+)<\/ErrorMsg>/if ($skip ne "skip_ok") { $MY_variables{error_msg} .= $1; }/esi; if ($MY_variables{error_msg} =~ "No items eligible for adding to cart!") {$MY_variables{error_msg} = "

We're sorry, this item is currently out of stock or unavailable.

Some items are restocked or made available later. Please stop back again.

";} } #$xml_result =~ s/([^<]+)<\/ErrorMsg>/if ($skip ne "skip_ok") { $MY_variables{error_msg} .= $1; }/esi; # HACK ENDS return $xml_result; } sub parse_xml_into_hashes_of_arrays { my $xml_result = shift; my (%temp_level_0, $temp_level_1); $xml_result =~ s/<([^>]+?)(?:\s[^>]+)?>(.*?)<\/\1>/push @{$temp_level_0{$1}}, $2;/gsie; $temp_level_1 = process_hashes_of_arrays(\%temp_level_0); delete $AWS_variables{ProductInfo}; $AWS_variables{TotalResults} = ${${$temp_level_1}{TotalResults}}[0]; $AWS_variables{TotalPages} = ${${$temp_level_1}{TotalPages}}[0]; return $temp_level_1; } sub process_hashes_of_arrays { my ($entry_hash, %exit_hash) = @_; for my $key (keys %$entry_hash) { if (!${${$entry_hash}{$key}}[1]) { $AWS_variables{$key} = ${${$entry_hash}{$key}}[0]; $AWS_variables{$key} =~ s/"/'/g; } foreach my $item (@{${$entry_hash}{$key}}) { $item =~ s/<([^>]+?)(\s[^>]+)?>(.*?)<\/\1>/my $temp3; if ($2 and $1 eq "Details") { $temp3 = $3 . "$2<\/DetailsURL>"; } else { $temp3 = $3; } push @{$exit_hash{$1}}, $temp3;/gsie; } } return \%exit_hash; } sub blended_search { my $level_1 = shift; my $i_blended = 0; foreach my $item_blended (@{${$level_1}{ProductLine}}) { my %temp_hash_blended; push @{$temp_hash_blended{ProductLine}}, $item_blended; my $level_2_blended = process_hashes_of_arrays(\%temp_hash_blended); # HACK BELOW - filter onlys wanted modes for blended search if (${$level_2_blended}{Mode}[0] !~ /(books|electronics|pc-hardware|software|videogames)/) { next; } # if (${$level_2_blended}{Mode}[0] eq "apparel") { next; } my $level_3_blended = process_hashes_of_arrays($level_2_blended); ${$level_2_blended}{Mode}[0] =~ s/-/_/g; $MY_variables{blended_mode} = $lookup_store{${$level_2_blended}{Mode}[0]}; $MY_variables{blended_mode_totalresults} = ${$level_3_blended}{TotalResults}[0]; $MY_variables{blended_mode_pages} = ${$level_3_blended}{TotalPages}[0]; $MY_variables{blended_see_more_url} = qq[$MY_variables{script_name}?mode=${$level_2_blended}{Mode}[0]&input_string=$FORM{input_string}$url_options]; $MY_variables{products_html} .= set_html("blended"); assign_variables("products",$level_3_blended); } $MY_variables{store} = "$language_text{searchbox_text1}"; } sub assign_variables { my ($whose_variables, $temp_input) = @_; my @Details; if (@{${$temp_input}{Details}}) { @Details = @{${$temp_input}{Details}}; } my $i = 0; my ($more_form_options); Details_loop: foreach my $item (@Details) { my (%temp_hash, @descriptors); # HACK BEGIN - Added deletekeys values for @AWS and @MY my @AWS_deletekeys = (DetailsURL,Catalog,ReleaseDate,Manufacturer,Availability,ListPrice,OurPrice,UsedPrice,Media,NumMedia,Encoding,TheatricalReleaseDate,MpaaRating,EsrbRating,ReadingLevel,AgeGroup,UsedPrice,CollectiblePrice,ThirdPartyNewPrice,RefurbishedPrice); delete @AWS_variables{@AWS_deletekeys}; my @MY_deletekeys = (our_price,list_price,discount,our_value,list_value,my_artists,my_platforms,my_avg_rating_display,first_review_shortened_comment,first_review_summary,my_used,my_collectible,my_thirdpartynew,my_refurbished,discountpercent,similar_items_link); delete @MY_variables{@MY_deletekeys}; # HACK END $details_max = $#Details + 1; push @{$temp_hash{Details}}, $item; my $level_2 = process_hashes_of_arrays(\%temp_hash); my $level_3 = process_hashes_of_arrays($level_2); if ($AWS_variables{DetailsURL}) { $AWS_variables{DetailsURL} =~ s/(?:\surl=|\')//g; $MY_variables{in_association} = qq[$language_text{association_text1}
]; } if ($FORM{node}) { if (exists($chat_modes{$FORM{mode}})) { $MY_variables{chat_link} = qq[Chat about $lookup_browse_id{$FORM{node}}
]; } } if ($catalog_to_mode{$AWS_variables{Catalog}} and !$FORM{mode}) { $FORM{mode} = $catalog_to_mode{$AWS_variables{Catalog}}; } $more_form_options = qq[]; if ($FORM{search_type}) { $more_form_options .= qq[]; } if ($FORM{input_string}) { $more_form_options .= qq[]; } if ($FORM{node}) { $more_form_options .= qq[]; } if ($FORM{item_id}) { $more_form_options .= qq[]; } if ($FORM{pricerange}) { $more_form_options .= qq[]; } if ($FORM{keywords}) { $more_form_options .= qq[]; } # start my_artists if ($FORM{mode} =~ /^(books|books_uk|books_de|books_de_intl_us)$/i) { $MY_variables{my_artists} = comma_separate_list(${$level_3}{Author},$language_text{my_artists_text1},"AuthorSearch"); } elsif ($FORM{mode} =~ /^(music|classical|pop_music_de|classical_de)$/i) { $MY_variables{my_artists} = comma_separate_list(${$level_3}{Artist},$language_text{my_artists_text1},"ArtistSearch"); } elsif ($FORM{mode} =~ /^(dvd|vhs|video|dvd_uk|vhs_uk|dvd_de|vhs_de)$/i) { # HACK BELOW -- check for Actors fix if (${$level_3}{Actor}) { $MY_variables{my_artists} .= comma_separate_list(${$level_3}{Actor},$language_text{my_artists_text2},"ActorSearch"); } # $MY_variables{my_artists} = comma_separate_list(${$level_3}{Actor},$language_text{my_artists_text2},"ActorSearch"); # HACK BELOW - removed stray
if (${$level_3}{Director}) { $MY_variables{my_artists} .= comma_separate_list(${$level_3}{Director},$language_text{my_artists_text4},"DirectorSearch"); } # if (${$level_3}{Director}) { $MY_variables{my_artists} .= "
" . comma_separate_list(${$level_3}{Director},$language_text{my_artists_text4},"DirectorSearch"); } } if ( (!$MY_variables{my_artists}) and ($AWS_variables{Manufacturer}) ) { if ($FORM{mode} =~ /^(toys|electronics|kitchen|videogames|software|photo|pc_hardware|electronics_uk|video_games_uk|software_uk|ce_de|kitchen_de|video_games_de|software_de)$/) { (my $search_manufacturer_string = $AWS_variables{Manufacturer}) =~ s/ /+/g; # HACK BEGIN - fixed code to include
after Manufacturer and fix URL invalid characters $search_manufacturer_string =~ s/&/and/g; $search_manufacturer_string =~ s/\&/and/g; $search_manufacturer_string =~ s/\"//g; $MY_variables{my_artists} = qq[$language_text{my_artists_text3} $AWS_variables{Manufacturer}
]; } else { $MY_variables{my_artists} = qq[$language_text{my_artists_text3} $AWS_variables{Manufacturer}
]; # $MY_variables{my_artists} = qq[$language_text{my_artists_text3} $AWS_variables{Manufacturer}]; # } else { # $MY_variables{my_artists} = qq[$language_text{my_artists_text3} $AWS_variables{Manufacturer}]; # HACK END } } # end my_artists # start my_comments my $temp_loop = 1; foreach my $item (@{${$level_3}{CustomerReview}}) { my (%temp_hash,$temp_hash1,$temp_rounded_rating,$temp_rating_display,$shortened_comment); push @{$temp_hash{CustomerReview}}, $item; $temp_hash1 = process_hashes_of_arrays(\%temp_hash); ($temp_rounded_rating = ${$temp_hash1}{Rating}[0]) =~ s/(\.\d+)//; if ($1 >= .25 and $1 < .75) { $temp_rounded_rating .= "-5"; } elsif ($1 >= .75) { $temp_rounded_rating++; $temp_rounded_rating .= "-0"; } else { $temp_rounded_rating .= "-0"; } $temp_rating_display = qq[ $${$temp_hash1}{Rating}[0] out of 5 stars$ ]; # HACK BEGIN - Change %%my_comments%% output if (!${$temp_hash1}{Rating}[0]) { $temp_rating_display = ""; } if ($MY_variables{my_comments}) { $MY_variables{my_comments} .= qq[

\n]; } $MY_variables{my_comments} .= qq[$temp_rating_display ${$temp_hash1}{Summary}[0]
\n${$temp_hash1}{Comment}[0]
\n]; # if ($FORM{mode} eq "toys") { $temp_rating_display = ${$temp_hash1}{Rating}[0]}; # if (!${$temp_hash1}{Rating}[0]) { $temp_rating_display = $language_text{average_rating_text2}; } # if ($MY_variables{my_comments}) { $MY_variables{my_comments} .= qq[

\n]; } # $MY_variables{my_comments} .= qq[$language_text{my_comments_text1} $temp_rating_display - ${$temp_hash1}{Summary}[0]
\n${$temp_hash1}{Comment}[0]
\n]; # HACK END $shortened_comment = ${$temp_hash1}{Comment}[0]; $shortened_comment =~ s/<([^\s|>]+)\s[^>]+>(.*?)<\/\1>/$2/gis; if ($review_length) { while (substr($shortened_comment,$review_length,1) !~ /[\s|-]/ and $review_length < length($shortened_comment)) { $review_length++ } $shortened_comment = substr($shortened_comment,0,$review_length); # HACK BEGIN - Force "... Read More" at end of %%first_review_shortened_comment%% $shortened_comment .= qq[ ... $language_text{my_comments_text2}]; # if ($review_length < length(${$temp_hash1}{Comment}[0])) { $shortened_comment .= qq[ ... $language_text{my_comments_text2}]; } } # HACK END # HACK BELOW if ($MY_variables{my_shortened_comments}) { $MY_variables{my_shortened_comments} .= qq[

\n]; } # if ($MY_variables{my_shortened_comments}) { $MY_variables{my_shortened_comments} .= qq[

\n]; } $MY_variables{my_shortened_comments} .= qq[$language_text{my_comments_text1} $temp_rating_display - ${$temp_hash1}{Summary}[0]
\n$shortened_comment
\n]; if ($temp_loop eq 1) { $MY_variables{first_review_rating_display} = $temp_rating_display; # HACK BELOW - Added
to the %%first_review_summary%% $MY_variables{first_review_summary} = ${$temp_hash1}{Summary}[0] .= qq[
]; #$MY_variables{first_review_summary} = ${$temp_hash1}{Summary}[0]; $MY_variables{first_review_comment} = ${$temp_hash1}{Comment}[0]; $MY_variables{first_review_shortened_comment} = $shortened_comment; } $temp_loop++; } # end my_comments # start my_features if (${$level_3}{Feature}) { $MY_variables{my_features} = qq[$language_text{my_features_text1}\n

]; $MY_variables{my_features} .= join("
", @{${$level_3}{Feature}}); $MY_variables{my_features} .= qq[

\n]; } # end my_features # start my_prices if ($FORM{locale} eq "us") { if ($AWS_variables{UsedPrice} and $AWS_variables{UsedPrice} ne "\$0.") { $MY_variables{my_used} = qq[$language_text{my_marketplace2} $language_text{my_marketplace1} $AWS_variables{UsedPrice}
]; } if ($AWS_variables{CollectiblePrice} and $AWS_variables{CollectiblePrice} ne "\$0.") { $MY_variables{my_collectible} = qq[$language_text{my_marketplace3} $language_text{my_marketplace1} $AWS_variables{CollectiblePrice}
]; } if ($AWS_variables{ThirdPartyNewPrice} and $AWS_variables{ThirdPartyNewPrice} ne "\$0.") { $MY_variables{my_thirdpartynew} = qq[$language_text{my_marketplace4} $language_text{my_marketplace1} $AWS_variables{ThirdPartyNewPrice}
]; } if ($AWS_variables{RefurbishedPrice} and $AWS_variables{RefurbishedPrice} ne "\$0.") { $MY_variables{my_refurbished} = qq[$language_text{my_marketplace5} $language_text{my_marketplace1} $AWS_variables{RefurbishedPrice}
]; } } if ($AWS_variables{OurPrice}) { $MY_variables{our_value} = $AWS_variables{OurPrice}; if ($FORM{locale} eq "de") { $MY_variables{our_value} =~ s/\.//g; $MY_variables{our_value} =~ s/,/./; } else { $MY_variables{our_value} =~ s/,//g; } $MY_variables{our_value} =~ s/^(?:(?:\$|��|EUR )(\d+(?:\.\d*)?|\.\d+))?.*$/$1/; # HACK BELOW - REWROTE FOR %%my_prices%% $MY_variables{our_price} = qq[$language_text{my_prices_text2} $AWS_variables{OurPrice}
]; # $MY_variables{our_price} = qq[$language_text{my_prices_text2} $AWS_variables{OurPrice}
]; } else { # HACK BELOW - REWROTE FOR %%my_prices%% $MY_variables{our_price} = qq[$language_text{my_prices_text2} $language_text{my_prices_text5}
]; # $MY_variables{our_price} = qq[$language_text{my_prices_text2} $language_text{my_prices_text5}
]; } if ($AWS_variables{ListPrice} and ($AWS_variables{OurPrice} ne $AWS_variables{ListPrice}) ) { $MY_variables{list_value} = $AWS_variables{ListPrice}; if ($FORM{locale} eq "de") { $MY_variables{list_value} =~ s/\.//g; $MY_variables{list_value} =~ s/,/./; } else { $MY_variables{list_value} =~ s/,//g; } $MY_variables{list_value} =~ s/^(?:(?:\$|��|EUR )(\d+(?:\.\d*)?|\.\d+))?.*$/$1/; # HACK BELOW - REWROTE FOR %%my_prices%% if ($MY_variables{our_value} < $MY_variables{list_value}) { $MY_variables{list_price} = qq[$language_text{my_prices_text1} $AWS_variables{ListPrice}
]; } # if ($MY_variables{our_value} < $MY_variables{list_value}) { $MY_variables{list_price} = qq[$language_text{my_prices_text1} $AWS_variables{ListPrice}
]; } } if ( ($MY_variables{our_value} and $MY_variables{list_value}) and ($MY_variables{our_value} < $MY_variables{list_value}) ) { my $discount_amount = $money_symbol . (sprintf "%.2f", ($MY_variables{list_value} - $MY_variables{our_value})); if ($FORM{locale} eq "de") { $discount_amount =~ s/\./,/g; } my $discount_percent = (sprintf "%2.f", (100 - ($MY_variables{our_value} / $MY_variables{list_value})*100)) . "%"; # HACK BELOW - Added %%discountpercent%% and rewrote %%my_prices%% $MY_variables{discountpercent} = (sprintf "%2.f", (100 - ($MY_variables{our_value} / $MY_variables{list_value})*100)); $MY_variables{discountpercent} =~ s/\s/0/g; $MY_variables{discount} = qq[$language_text{my_prices_text3} $discount_amount ($discount_percent)
]; # $MY_variables{discount} = qq[$language_text{my_prices_text3} $discount_amount ($discount_percent)
]; } # HACK BELOW - Removed "prices subject to change" line $MY_variables{my_prices} = $MY_variables{list_price} . $MY_variables{our_price} . $MY_variables{discount}; # $MY_variables{my_prices} = qq[

] . $MY_variables{list_price} . $MY_variables{our_price} . $MY_variables{discount} . qq[$language_text{my_prices_text4}

]; # end my_prices # HACK BEGIN create %%simple_title%% and %%simple_title_url%% $simple_title = $AWS_variables{ProductName}; $simple_title =~ s/&//g; $simple_title =~ s/[^a-zA-Z_0-9]/ /g; $simple_title =~ s/\s\s/ /g; $simple_title =~ s/\s\s/ /g; $MY_variables{simple_title} = join("", (split(/(\s+)/, $simple_title))[0..$title_length*2-1] ); #$simple_title =~ s/The\s//g; $simple_title =~ s/\sof\sthe\s|\sthe\s|\sof\s|\sa\s|\sand\s|\swith\s|\sor\s/ /gi; $simple_title =~ s/\sR\s|\sTM\s/ /g; $MY_variables{simple_title_url} = join("", (split(/(\s+)/, $simple_title))[0..$title_length*2-1] ); $MY_variables{simple_title_url} =~ s/ /+/g; # HACK END # start my_descriptors # HACK BELOW - removed "Sales Rank" from output # if ($AWS_variables{SalesRank}) { push (@descriptors, qq[$language_text{my_descriptors_text9} $AWS_variables{SalesRank}]); } if ($AWS_variables{ReleaseDate}) { push (@descriptors, qq[$language_text{my_descriptors_text1} $AWS_variables{ReleaseDate}]); } if ($AWS_variables{Media} and $AWS_variables{Media} ne $AWS_variables{Catalog}) { push (@descriptors, qq[$language_text{my_descriptors_text3} $AWS_variables{Media}]); } if ($AWS_variables{NumMedia} and $AWS_variables{NumMedia} > 1) { push (@descriptors, qq[$language_text{my_descriptors_text4} $AWS_variables{NumMedia}]); } if ($AWS_variables{Encoding}) { push (@descriptors, qq[$language_text{my_descriptors_text10} $AWS_variables{Encoding}]); } if ($AWS_variables{TheatricalReleaseDate}) { push (@descriptors, qq[$language_text{my_descriptors_text2} $AWS_variables{TheatricalReleaseDate}]); } if ($AWS_variables{MpaaRating}) { push (@descriptors, qq[$language_text{my_descriptors_text5} $AWS_variables{MpaaRating}]); } if ($AWS_variables{EsrbRating}) { push (@descriptors, qq[$language_text{my_descriptors_text7} $AWS_variables{EsrbRating}]); } if ($AWS_variables{ReadingLevel}) { push (@descriptors, qq[$language_text{my_descriptors_text12} $AWS_variables{ReadingLevel}]); } if ($AWS_variables{AgeGroup}) { push (@descriptors, qq[$language_text{my_descriptors_text8} $AWS_variables{AgeGroup}]); } if ($AWS_variables{Manufacturer} and $MY_variables{my_artists} !~ /\Q$AWS_variables{Manufacturer}\E/) { push (@descriptors, qq[$language_text{my_descriptors_text13} $AWS_variables{Manufacturer}]); } $MY_variables{my_platforms} = join(", ", @{${$level_3}{Platform}}); if ($MY_variables{my_platforms}) { push (@descriptors, qq[$language_text{my_descriptors_text6} $MY_variables{my_platforms}]); } $MY_variables{my_descriptors} = join("
\n", @descriptors); if ($MY_variables{my_descriptors}) { $MY_variables{my_descriptors} .= "
\n"; } # end my_descriptors #BEGIN BELOW -- Added extra "
at end if ($AWS_variables{ProductDescription}) { $MY_variables{product_description} = qq[$language_text{my_product_description}

$AWS_variables{ProductDescription}

\n]; } # start my_ThirdPartyProductDetails if ($my_marketplace_text) { my $ii; foreach my $item (@{${$level_3}{ThirdPartyProductDetails}}) { my (%temp_hash,$temp_hash1,$temp_hash2); push @{$temp_hash{ThirdPartyProductDetails}}, $item; $temp_hash1 = process_hashes_of_arrays(\%temp_hash); $temp_hash2 = process_hashes_of_arrays($temp_hash1); if (!$AWS_variables{OfferingPrice}) { next; } if (!$AWS_variables{SellerRating}) { $AWS_variables{SellerRating} = "$language_text{average_rating_text2}"; } # HACK BEGIN - Added %%SellerRatingStars%% ($round_seller_rating = $AWS_variables{SellerRating}) =~ s/(\.\d+)//; if ($1 >= .25 and $1 < .75) { $round_seller_rating .= "-5"; } elsif ($1 >= .75) { $round_seller_rating++; $round_seller_rating .= "-0"; } else { $round_seller_rating .= "-0"; } $MY_variables{SellerRatingStars} = "stars-$round_seller_rating.gif"; # HACK END $MY_variables{sellersearch_url} = "$MY_variables{script_name}?search_type=SellerSearch&input_string=$AWS_variables{SellerId}$url_options"; $MY_variables{ThirdPartyProduct_buy_button} = qq[]; $MY_variables{buy_button} = initialize_buttons("buy"); $MY_variables{my_ThirdPartyProductDetails} .= set_html("thirdparty_products",$ii); $ii++ } # HACK BEGIN - made store=mode instead of used/collectible/third party new $MY_variables{store} = $lookup_store{$catalog_to_mode{$AWS_variables{Catalog}}}; $marketplace_text_temp = $my_marketplace_text; $marketplace_text_temp =~ s/ Price//; $marketplace_text_temp =~ s/:/ Prices/; $MY_variables{subject} = "$AWS_variables{ProductName} [$marketplace_text_temp]"; # $MY_variables{store} = $my_marketplace_text; # $MY_variables{subject} = $AWS_variables{ProductName}; # HACK END } # end my_ThirdPartyProductDetails #start sort_box if (($FORM{input_string} or $FORM{node} or $FORM{search_type} =~ /AuthorSearch|ArtistSearch|ActorSearch|DirectorSearch|ManufacturerSearch|PowerSearch/) and $AWS_variables{TotalResults} > 1) { my (@temp_sort_array,$sort_box_options); if ( @{$sort_hash_by_mode{$sort_mode}} ) { @temp_sort_array = @{$sort_hash_by_mode{$sort_mode}}; } else { @temp_sort_array = @{$sort_hash_by_mode{"all"}}; } # HACK BELOW - Added for %%sort_items_link%% $MY_variables{sort_items_link} = "$language_text{button_text6} ."; foreach my $key1 (keys %sort_hash) { if (grep { $_ eq $key1 } @temp_sort_array) { $sort_box_options .= qq[]; } } my $sort_form_options = $MY_variables{form_options} . $more_form_options; $MY_variables{sort_box} = qq[]; } #end sort_box if (${$level_3}{AvgCustomerRating} and ${$level_3}{AvgCustomerRating}[0] != 0) { $AWS_variables{AvgCustomerRating} = sprintf "%.2f", ${$level_3}{AvgCustomerRating}[0]; (my $temp_rounded_rating = $AWS_variables{AvgCustomerRating}) =~ s/(\.\d+)//; if ($1 >= .25 and $1 < .75) { $temp_rounded_rating .= "-5"; } elsif ($1 >= .75) { $temp_rounded_rating++; $temp_rounded_rating .= "-0"; } else { $temp_rounded_rating .= "-0"; } # HACK BEGIN -- added "Average Rating" before star graphics $MY_variables{my_avg_rating_display} = qq[$language_text{average_rating_text1} $$AWS_variables{AvgCustomerRating} out of 5 stars$
]; # If review temp unavailable, add "Review(s) temporarily unavailable." if (!$MY_variables{first_review_summary}) { $MY_variables{first_review_shortened_comment} = "Customer review temporarily unavailable."; $MY_variables{my_comments} = "Customer reviews temporarily unavailable."; } # $MY_variables{my_avg_rating_display} = qq[ $$AWS_variables{AvgCustomerRating} out of 5 stars$ ]; # HACK END } else { # HACK BEGINS -- Add "...not yet reviewed." # $MY_variables{my_avg_rating_display} = $AWS_variables{AvgCustomerRating} = $language_text{average_rating_text2}; $MY_variables{first_review_shortened_comment} = "$AWS_variables{Catalog} not yet reviewed."; $MY_variables{my_comments} = "$AWS_variables{Catalog} not yet reviewed."; # HACK END } if ($AWS_variables{Tracks}) { foreach my $item (@{${$level_3}{Track}}) { $MY_variables{my_tracks} .= qq[

$item

]; } $MY_variables{my_tracks} = qq[$language_text{my_descriptors_text11}

$MY_variables{my_tracks}]; } if (${$level_3}{Product}) { if (${$level_3}{ListId}) { $MY_variables{my_listmania} = qq[

$language_text{similar_text1}

]; } my ($temp_similar_products, $temp_similar_products_cart) = get_extra_product_links(${$level_3}{Product}); # HACK BELOW - Added %%simlar_items_link%% if (($temp_similar_products) or ($temp_similar_products_cart)) {$MY_variables{similar_items_link} = qq[$language_text{see_text7}];} if ($temp_similar_products) { my $temp_similar_products_images; # HACK BEGIN - MAKES %%my_similar_products%% INTO TABLE ROW WITH PICS AND TITLES $MY_variables{my_similar_products} = qq[$language_text{my_similar_products_text1}$temp_similar_products

$language_text{see_text6}]; # $MY_variables{my_similar_products} = qq[$language_text{my_similar_products_text1}

$language_text{see_text6}

]; # HACK END foreach my $item (@{${$level_3}{Product}}) { $temp_similar_products_images .= qq[

]; } # HACK END $MY_variables{my_similar_products_images} = qq[$language_text{my_similar_products_text1}
$temp_similar_products_images$language_text{see_text6}
]; # HACK END } if ($temp_similar_products_cart) { # HACK BEGINS -- REWROTE %%similar_products_cartadd%% $MY_variables{similar_products_cartadd} = qq[ ] . $temp_similar_products_cart . qq[

$language_text{my_similar_products_text1}

$language_text{cart_text4}

$language_text{see_text6}\n]; # $MY_variables{similar_products_cartadd} = qq[

$language_text{cart_text4}

$language_text{my_similar_products_text1}

] . #$temp_similar_products_cart . qq[

\n]; # HACK END } elsif ($MY_variables{my_similar_products}) { $MY_variables{similar_products_cartadd} = $MY_variables{my_similar_products}; } } if (${$level_3}{Accessory}) { my ($temp_accessories, $temp_accessories_cart) = get_extra_product_links(${$level_3}{Accessory}); if ($temp_accessories) { my $temp_accessories_images; # HACK BELOW - rewrote how Accessories are displayed $MY_variables{my_accessories} = qq[$language_text{my_accessories_text1}$temp_accessories

]; # $MY_variables{my_accessories} = qq[$language_text{my_accessories_text1}

$temp_accessories]; foreach my $item (@{${$level_3}{Accessory}}) { $temp_accessories_images .= qq[

]; } $MY_variables{my_accessories_images} = qq[$language_text{my_accessories_text1}
$temp_accessories_images
]; } if ($temp_accessories_cart) { #HACK BEGIN - REWROTE %%accessories_cartadd%% $MY_variables{accessories_cartadd} = qq[ ] . $temp_accessories_cart . qq[

$language_text{my_accessories_text1}

$language_text{cart_text4}

\n]; # $MY_variables{accessories_cartadd} = qq[

$language_text{cart_text4}

$language_text{my_accessories_text1}

] . $temp_accessories_cart . qq[

\n]; # HACK END } elsif ($MY_variables{my_accessories}) { $MY_variables{accessories_cartadd} = $MY_variables{my_accessories}; } } if (!$AWS_variables{Availability}) { $AWS_variables{Availability} = "unknown"; } # HACK BELOW - Added preorder text to items "Not yet released" if ($AWS_variables{Availability} =~ "Not yet") { $AWS_variables{Availability} .= "
Pre-order this item today"; } # HACK BELOW - Removed "Availability:" $MY_variables{my_availability} = qq[$AWS_variables{Availability}
\n]; # $MY_variables{my_availability} = qq[$language_text{availability_text1} $AWS_variables{Availability}
\n]; $MY_variables{old_product_url} = "http://www.$amazon_site/exec/obidos/ASIN/$AWS_variables{Asin}/ref=nosim/$MY_variables{associate_id}?dev-t=D1KQJBNTALRLQH"; $MY_variables{pda_item_url} = "http://www.amazon.com/exec/obidos/redirect?tag=$MY_variables{associate_id}&creative=D1KQJBNTALRLQH&camp=2025&link_code=xm2&path=dt/upda-1.0-anywhere/tg/aa/upda/item/-/$AWS_variables{Asin}"; $MY_variables{rim_item_url} = "http://www.amazon.com/exec/obidos/redirect?tag=$MY_variables{associate_id}&creative=D1KQJBNTALRLQH&camp=2025&link_code=xm2&path=dt/upda-1.0-i/tg/aa/upda/item/-/$AWS_variables{Asin}"; $MY_variables{my_large_image_url} = "$MY_variables{script_name}?item_id=$AWS_variables{Asin}&search_type=image$url_options"; $MY_variables{item_url} = "$MY_variables{script_name}?item_id=$AWS_variables{Asin}&search_type=AsinSearch$url_options"; $MY_variables{buy_button} = initialize_buttons("buy"); $MY_variables{oneclick_button} = initialize_buttons("oneclick"); $MY_variables{shopping_cart_button} = initialize_buttons("cart"); $MY_variables{wishlist_button} = initialize_buttons("wishlist"); $MY_variables{wedding_button} = initialize_buttons("wedding"); $MY_variables{baby_button} = initialize_buttons("baby"); $MY_variables{products_html} .= set_html($whose_variables,$i) . $MY_variables{my_ThirdPartyProductDetails}; if ($i >= $FORM{max_results} -1) { last Details_loop; } $i++; } if ($whose_variables eq "sellerprofile") { my $level_2 = process_hashes_of_arrays($temp_input); my $level_3 = process_hashes_of_arrays($level_2); my $ii ="0"; if (!$AWS_variables{NumberOfCanceledAuctions}) { $AWS_variables{NumberOfCanceledAuctions} = $language_text{average_rating_text2}; } $sellerprofile_max = $#{${$level_3}{Feedback}} + 1; foreach my $item (@{${$level_3}{Feedback}}) { my (%temp_hash,$temp_hash1,$temp_hash2); push @{$temp_hash{ListingProductDetails}}, $item; $temp_hash1 = process_hashes_of_arrays(\%temp_hash); $temp_hash2 = process_hashes_of_arrays($temp_hash1); $MY_variables{sellerprofile_html} .= set_html("sellerprofile",$ii); $ii++ } } elsif ($whose_variables eq "sellersearch") { my $level_2 = process_hashes_of_arrays($temp_input); my $level_3 = process_hashes_of_arrays($level_2); # HACK BELOW - Improve title text for SellerSearches $MY_variables{store} = "Items Used and Third Party"; $MY_variables{subject} = "Items for sale by $AWS_variables{SellerNickname}"; # $MY_variables{store} = $AWS_variables{SellerNickname}; $MY_variables{subject} = $language_text{button_text4}; $MY_variables{products_html} .= $MY_variables{sellerprofile_html}; if ($search_type eq "ExchangeSearch") { ${$level_3}{ListingProductDetails} = ${$temp_input}{ListingProductDetails}; } foreach my $item (@{${$level_3}{ListingProductDetails}}) { my (%temp_hash,$temp_hash1,$temp_hash2); push @{$temp_hash{ListingProductDetails}}, $item; $temp_hash1 = process_hashes_of_arrays(\%temp_hash); $temp_hash2 = process_hashes_of_arrays($temp_hash1); if (!$AWS_variables{ExchangeSellerRating}) { $AWS_variables{ExchangeSellerRating} = "$language_text{average_rating_text2}"; } $AWS_variables{ImageUrlSmall} = "http://images.amazon.com/images/P/$AWS_variables{ExchangeAsin}.01.THUMBZZZ.jpg"; $MY_variables{item_url} = "$MY_variables{script_name}?search_type=$offering_type{$AWS_variables{ExchangeOfferingType}}&item_id=$AWS_variables{ExchangeAsin}$url_options"; $MY_variables{my_exchangesellerrating} = qq[$language_text{my_comments_text1} $AWS_variables{ExchangeSellerRating}]; $MY_variables{ThirdPartyProduct_buy_button} = qq[]; $MY_variables{buy_button} = initialize_buttons("buy"); $MY_variables{products_html} .= set_html("sellersearch",$i); if ($i >= $FORM{max_results} -1) { return; } $i++; } } elsif ($whose_variables eq "AllSearches") { initialize_all_search_boxes(); $MY_variables{products_html} .= set_html("AllSearches",$i); } # start see_more if ($AWS_variables{TotalResults} or $AWS_variables{NumberOfOfferings}) { $AWS_variables{TotalResults} = $AWS_variables{TotalResults} + $AWS_variables{NumberOfOfferings}; if (!$AWS_variables{TotalPages}) { $AWS_variables{TotalPages} = int(($AWS_variables{TotalResults} + 9)/10); if ($AWS_variables{TotalPages} == 0) { $AWS_variables{TotalPages} = 1; } } # HACK BELOW - rewrote the Page 1 of # display $MY_variables{see_total} = qq[
$language_text{see_text4} $FORM{page_num} $language_text{see_text5} $AWS_variables{TotalPages}]; # $MY_variables{see_total} = qq[$language_text{see_text4} $FORM{page_num} $language_text{see_text5} $AWS_variables{TotalPages}]; my $see_form_options = $MY_variables{form_options} . $more_form_options; $see_form_options .= qq[]; if ($FORM{page_num} < $AWS_variables{TotalPages}) { my $next_page = $FORM{page_num} + 1; $see_form_options .= qq[]; $MY_variables{see_next} = qq[]; } if ($FORM{page_num} > 1) { my $prev_page = $FORM{page_num} - 1; $see_form_options .= qq[]; $MY_variables{see_prev} = qq[]; } my ($page_num_low,$page_num_high); $MY_variables{see_index} = ""; if ($AWS_variables{TotalPages} != "1") { if ($FORM{page_num} - 5 > 0) { $page_num_low = $FORM{page_num} - 5; } else { $page_num_low = "1"; } if ($page_num_low + 10 <= $AWS_variables{TotalPages}) { $page_num_high = $page_num_low + 10; } else { $page_num_high = $AWS_variables{TotalPages}; } for (my $loop_index = $page_num_low; $loop_index <= $page_num_high; $loop_index++) { if ($loop_index == $FORM{page_num}) { $MY_variables{see_index} .= qq[ $loop_index ]; } else { $MY_variables{see_index} .= qq[ $loop_index ]; } } } } #end see_more } sub shopping_cart { my ($this_xml_url, $xml_result); if (!$MY_variables{associate_id}) { $html = "

No associate_id found!

"; } $use_cache = "no"; $debug .= "cook=$ENV{'HTTP_COOKIE'}\n"; # HACK BELOW - Title Cart Page correctly $MY_variables{store} = "Selections"; $MY_variables{subject} = "Your Shopping Cart Items"; # $MY_variables{store} = "Shopping"; $MY_variables{subject} = "Cart"; $MY_variables{header} = $language_text{cart_text1}; if ($FORM{cart_action} eq "get") { if (!$session) { $MY_variables{products_html} = $language_text{cart_text2}; return; } # HACK BELOW - added "&sims=true" to ShoppingCart=get $this_xml_url = "http://$amazon_server.amazon.com/onca/xml3?ShoppingCart=get&f=xml&t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH$session&sims=true&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n"; } elsif ($FORM{cart_action} eq "clear") { if (!$session) { $MY_variables{products_html} = $language_text{cart_text2}; return; } print "Set-Cookie: apfcart=empty; expires=Sun 01-Jan-01 01:01:01 GMT;\n"; my $temp_result = get_url("http://$amazon_server.amazon.com/onca/xml3?ShoppingCart=clear&f=xml&t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH$session&locale=$FORM{locale}"); $MY_variables{products_html} = $language_text{cart_text2}; return; } elsif ($FORM{cart_action} eq "modify") { my $cart_delete_item; $ENV{QUERY_STRING} =~ s/cart_delete_item=([^&]+)/$cart_delete_item = $1;/e; $this_xml_url = "http://$amazon_server.amazon.com/onca/xml3?ShoppingCart=modify&f=xml&t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH&Item.$cart_delete_item=0$session&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n"; } elsif ($FORM{cart_action} eq "add") { my ( %item_hash, $item_key, $items_quantities ); $ENV{QUERY_STRING} =~ s/cart_item_([^=]+)=([^&]+)/if ($2 > 0) { $item_hash{$1} = $item_hash{$1} + $2; }/ge; foreach $item_key (keys %item_hash) { $items_quantities .= "&Asin.$item_key=$item_hash{$item_key}"; } # HACK BELOW - added "&sims=true" to ShoppingCart=add $this_xml_url = "http://$amazon_server.amazon.com/onca/xml3?ShoppingCart=add&f=xml&t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH$items_quantities$session&sims=true&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n"; } elsif ($FORM{cart_action} eq "replace") { if (!$session) { $MY_variables{products_html} = $language_text{cart_text2}; return; } my ( $temp_result, %item_hash, $item_key, $items_quantities, $i ); for (my $temp_i = 1; $temp_i <= 3; $temp_i++) { delete $MY_variables{error_msg}; $temp_result = get_url("http://$amazon_server.amazon.com/onca/xml3?ShoppingCart=clear&f=xml&t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH$session&locale=$FORM{locale}"); $xml_result = get_url($this_xml_url); $debug .= "xml_url=$this_xml_url\n"; if ($xml_result =~ /ShoppingCart/) { $MY_variables{error_msg} = ""; last; } } sleep 1; $ENV{QUERY_STRING} =~ s/cart_item_([^=]+)=([^&]+)/if ($2 > 0) { $item_hash{$1} = $item_hash{$1} + $2; }/ge; foreach $item_key (keys %item_hash) { $items_quantities .= "&Asin.$item_key=$item_hash{$item_key}"; } $this_xml_url = "http://$amazon_server.amazon.com/onca/xml3?ShoppingCart=add&f=xml&t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH$items_quantities$session&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n $items_quantities - $MY_variables{error_msg} - $AWS_variables{ErrorMsg}\n\n"; if (!$items_quantities) { delete $MY_variables{error_msg}; $FORM{cart_action} = "clear"; shopping_cart(); return; } } if ($this_xml_url) { for (my $temp_i = 1; $temp_i <= 3; $temp_i++) { $MY_variables{error_msg} = ""; $xml_result = get_url($this_xml_url); if ($xml_result =~ /ShoppingCart/) { $MY_variables{error_msg} = ""; last; } } } my $level_1 = parse_xml_into_hashes_of_arrays($xml_result); my $level_2 = process_hashes_of_arrays($level_1); my $level_3 = process_hashes_of_arrays($level_2); # HACK BELOW - Added for sub shopping_cart_similar shopping_cart_similar($level_3); my $i = 0; if (!$session and $FORM{cart_action} eq "add") { print "Set-Cookie: apfcart=$AWS_variables{CartId},$AWS_variables{HMAC};\n"; } $MY_variables{total_cart_items} = $#{${$level_3}{Item}} + 1; my $whose_variables = "shopping_cart"; $MY_variables{continue_shopping} = qq[

]; # HACK BELOW - Change Checkout Button Graphic $MY_variables{checkout} = qq[

]; # $MY_variables{checkout} = qq[

]; foreach my $single_item (@{${$level_3}{Item}}) { my (%temp_hash,$temp_hash1,$temp_hash2); push @{$temp_hash{Item}}, $single_item; $temp_hash1 = process_hashes_of_arrays(\%temp_hash); $temp_hash2 = process_hashes_of_arrays($temp_hash1); ($MY_variables{our_value} = $AWS_variables{OurPrice}) =~ s/(?:\$|£|,|USD )//g; $MY_variables{our_value_item_total} = $MY_variables{our_value} * $AWS_variables{Quantity}; $MY_variables{my_cart_item_price} = $money_symbol . (sprintf "%.2f", $MY_variables{our_value_item_total}); $MY_variables{cart_value_total} += $MY_variables{our_value_item_total}; $MY_variables{cart_price_total} = $money_symbol . (sprintf "%.2f", $MY_variables{cart_value_total}); $MY_variables{cart_qty_total} += $AWS_variables{Quantity}; $MY_variables{products_html} .= set_html($whose_variables,$i); $i++ } if (!$MY_variables{cart_qty_total} and !$MY_variables{error_msg} and !$AWS_variables{ErrorMsg}) { $MY_variables{products_html} = $language_text{cart_text2}; } } # HACK HERE - For %%shopping_cart_similar_products%% and %%shopping_cart_similar_products_images%% sub shopping_cart_similar { $sim_level_3 = shift; if (${$sim_level_3}{Product}) { my ($temp_similar_products, $temp_similar_products_cart) = get_extra_product_links(${$sim_level_3}{Product}); if ($temp_similar_products) { my $temp_similar_products_images; $MY_variables{shopping_cart_similar_products} = qq[]; $MY_variables{shopping_cart_similar_products} .= qq[$temp_similar_products]; $MY_variables{shopping_cart_similar_products} .= qq[

]; foreach my $item (@{${$sim_level_3}{Product}}) { $temp_similar_products_images .= qq[

]; } $MY_variables{shopping_cart_similar_products_images} = qq[$language_text{my_similar_products_text1}
$temp_similar_products_images
]; } } } # HACK END sub initialize_all_search_boxes { $MY_variables{header} = $language_text{searchbox_text3}; my ($searchbox_start,$searchbox_end,$searchbox_modes,$searchbox_string,$searchbox_item,$searchbox_id,$searchbox_offering_types,%searchbox_types,$searchbox_sort,$searchbox_name,$searchbox_pricerange); $searchbox_start = qq[]; foreach my $key (sort keys %store_to_browse) { $searchbox_modes .= qq[]; } $searchbox_modes = qq[$language_text{searchbox_text13}: ]; $searchbox_string = qq[$language_text{searchbox_text7}: ]; $searchbox_item = qq[$language_text{searchbox_text5}: ]; $searchbox_id = qq[$language_text{searchbox_text12}: ]; $searchbox_pricerange = qq[$language_text{searchbox_text14}: ]; foreach my $key (sort keys %offering_type) { $searchbox_offering_types .= qq[]; } $searchbox_offering_types = qq[$language_text{thirdparty_text7} ]; %searchbox_types = ( "ASIN/ISBN" => ["","$searchbox_item"], $language_text{searchbox_text6} => ["","$searchbox_string","ActorSearch","dvd","sort"], $language_text{searchbox_text9} => ["","$searchbox_string","ArtistSearch","music","sort"], $language_text{searchbox_text10} => ["","$searchbox_string","AuthorSearch","books","sort"], $language_text{searchbox_text11} => ["","$searchbox_string\n$searchbox_id\n$searchbox_modes\n$searchbox_pricerange","","","sort"], $language_text{searchbox_text15} => ["","$searchbox_string","DirectorSearch","dvd","sort"], $language_text{searchbox_text16} => ["","$searchbox_string","ListManiaSearch"], $language_text{searchbox_text17} => ["","$searchbox_string\n$searchbox_modes","ManufacturerSearch","","sort"], $language_text{searchbox_text18} => ["
Details","$searchbox_string","PowerSearch","books","sort"], $language_text{searchbox_text19} => ["","$searchbox_string","SimilaritySearch"], $language_text{searchbox_text20} => ["","$searchbox_item\n$searchbox_offering_types"], $language_text{searchbox_text21} => ["","$searchbox_string","ExchangeSearch"], $language_text{searchbox_text22} => ["","$searchbox_string","SellerSearch"], $language_text{searchbox_text23} => ["","$searchbox_item\n$searchbox_modes","UpcSearch"], $language_text{searchbox_text24} => ["","$searchbox_string","WishlistSearch"], ); my $lap="0"; $MY_variables{all_searchboxes} = qq[\n]; foreach my $key (sort keys %searchbox_types) { $lap++; if (${$searchbox_types{$key}}[2]) { ${$searchbox_types{$key}}[1] .= qq[\n]; } if (${$searchbox_types{$key}}[3]) { ${$searchbox_types{$key}}[1] .= qq[\n]; } if (${$searchbox_types{$key}}[4]) { my (@temp_sort_array,$searchbox_sort); if ( ${$searchbox_types{$key}}[3] and @{$sort_hash_by_mode{${$searchbox_types{$key}}[3]}} ) { @temp_sort_array = @{$sort_hash_by_mode{${$searchbox_types{$key}}[3]}}; } else { @temp_sort_array = @{$sort_hash_by_mode{"all"}}; } foreach my $key1 (keys %sort_hash) { if (grep { $_ eq $key1 } @temp_sort_array) { $searchbox_sort .= qq[]; } } ${$searchbox_types{$key}}[1] .= qq[]; } $searchbox_name = $key . "_searchbox"; ${$searchbox_name} = qq|$searchbox_start\n\n$MY_variables{form_options}\n${$searchbox_types{$key}}[1]\n$searchbox_end\n|; if ($lap == 1) { $MY_variables{all_searchboxes} .= "\n"; } $MY_variables{all_searchboxes} .= qq[]; if ($lap == 2) { $MY_variables{all_searchboxes} .= "\n\n"; $lap = 0; } } if ($lap > 0) { $MY_variables{all_searchboxes} .= "\n\n"; } $MY_variables{all_searchboxes} .= "

$language_text{searchbox_text8}:
$key${$searchbox_types{$key}}[0]
\n${$searchbox_name}

\n"; } sub comma_separate_list { my($temp_array_ref,$temp_list_start,$temp_search_type,$temp_list,$temp_search_string,$item) = @_; foreach $item (@{$temp_array_ref}) { if ($temp_list) { $temp_list .= ", "; } else { $temp_list = "$temp_list_start "; } ($temp_search_string = $item) =~ s/ /+/g; #HACK BEGIN - fix URL invalid characters $temp_search_string =~ s/&/and/g; $temp_search_string =~ s/\&/and/g; $temp_search_string =~ s/\"//g; # HACK END $temp_list .= qq[$item]; } # HACK BELOW - Add
after %%my_artists%% lists $temp_list .= qq[
]; return $temp_list; } sub initialize_buttons { my $value = $_[0]; my ($asin_buy_button,$temp_button); if (!$MY_variables{associate_id}) { $html = "

No associate_id found!

"; } if ($MY_variables{ThirdPartyProduct_buy_button}) { $asin_buy_button = $MY_variables{ThirdPartyProduct_buy_button}; # HACK BELOW - Remove line to enable proper cart button on ThirdPartyProducts pages # if ($value eq "oneclick" or $value eq "cart") { $value = "buy"; } } else { $asin_buy_button = qq[]; } if ($value eq "wishlist") { $temp_button = qq[]; } elsif ($value eq "wedding") { $temp_button = qq[]; } elsif ($value eq "baby") { $temp_button = qq[]; } # HACK BELOW - Changed "!$MY_variables{ThirdPartyProduct_buy_button}" to "($value eq "cart")" and added "Available for download now" to "$AWS_variables{Availability} !~" elsif (($value eq "cart") and ($AWS_variables{Availability} =~ /(?:not available|discontinued|out of print|unable|jetzt gebraucht vorbestellen)/i or ($FORM{locale} eq "us" and $value eq "cart" and $AWS_variables{Availability} !~ /Usually ships|Available for download now|Not yet/))) { $MY_variables{my_availability} = qq[$language_text{availability_text2}
]; # BEGIN BELOW -- OPEN "See More Details" in new window also go to nosim page $temp_button = qq[]; # $temp_button = qq[]; } else { # HACK BEGIN - Modified appearances of buttons if (($value eq "buy") and ($FORM{search_type} eq "AsinSearch")) { $temp_button = qq[]; } elsif ($value eq "buy") { $temp_button = qq[]; } # if ($value eq "buy") { $temp_button = qq[]; } # HACK END if ($value eq "oneclick") { $temp_button = qq[

]; } if ($value eq "cart") { $temp_button = qq[]; } if ($FORM{locale} eq "uk") { $temp_button = qq[]; } if ($FORM{locale} eq "de") { $temp_button = qq[]; } } return $temp_button; } sub get_extra_product_links { my $value = shift; my ($temp_asins,$temp_xml_result,@temp_xml_feed,$my_temp,$temp_cart,$cart_counter); $temp_asins = join(",", @{$value}); $temp_xml_result = get_url("http://$amazon_server.amazon.com/onca/xml3?t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH&AsinSearch=$temp_asins&type=lite&f=xml&locale=$FORM{locale}","skip_ok"); push @temp_xml_feed, ($temp_xml_result =~ /]+)?>(.*?)<\/Details>/gsi); for my $ii (0 .. $#temp_xml_feed) { my ($temp_asin,$temp_product_name,$temp_our_price,$temp_availability,$row_color); @temp_xml_feed[$ii] =~ s/([^<]+)<\/Asin>/$temp_asin = $1/sie; @temp_xml_feed[$ii] =~ s/([^<]+)<\/ProductName>/$temp_product_name = $1/sie; @temp_xml_feed[$ii] =~ s/([^<]+)<\/OurPrice>/$temp_our_price = $1/sie; @temp_xml_feed[$ii] =~ s/([^<]+)<\/Availability>/$temp_availability = $1/sie; # HACK BEGINS -- MAKES %%my_similar_products%% INTO TABLE ROW WITH PICS AND TITLES $my_temp .= qq[

$temp_product_name]; # $my_temp .= qq[

$temp_product_name

\n]; # HACK END if ($AWS_variables{Availability} =~ /Usually ships|Available for download now|Not yet/i) { if ($ii/2 == int($ii/2)) { $row_color = "apf_even_row"; } else { $row_color = "apf_odd_row"; } # HACK BEGIN - ADD PICS TO %%similar_products_cartadd% $temp_cart .= qq[

$temp_product_name
]; $temp_cart .= qq[ $temp_our_price ]; # $temp_cart .= qq[

$temp_our_price

$temp_product_name

]; # HACK END } } return $my_temp, $temp_cart; } sub build_international_links { my $int_options = $see_url_options . $url_options; my %international_sites = ( "us" => $language_text{locale_text2}, "uk" => $language_text{locale_text3}, "de" => $language_text{locale_text4} ); if ($int_options =~ /search_type=(?:ListManiaSearch|SimilaritySearch|WishlistSearch|SellerSearch)/) { $FORM{mode} = ""; $int_options = $url_options; } $int_options =~ s/search_type=(?:ThirdPartyNew|Used|Collectible|Refurbished)/search_type=AsinSearch/; $int_options =~ s/search_type=AsinSearch/input_string=$AWS_variables{ProductName}/; delete($international_sites{$FORM{locale}}); foreach my $int_key (keys %international_sites) { my $int_mode = ${$all_store_to_browse{$int_key}}{$lookup_store{$FORM{mode}}}; # i dare you to figure that out :P if ($FORM{mode} eq "blended") { $int_mode = $FORM{mode}; } if (!$int_mode and $FORM{mode}) { my $temp_mode = $FORM{mode}; $FORM{mode} = ""; $int_options = $url_options; $FORM{mode} = $temp_mode; } if ($MY_variables{international_links}) { $MY_variables{international_links} .= ", "; } else { $MY_variables{international_links} = "$language_text{locale_text1} "; } $int_options =~ s/(?:&locale=[^&]+|&node=[^&]+)//g; $MY_variables{international_links} .= qq[$international_sites{$int_key}]; } } sub build_featured_product { my $featured_input = shift; my ($featured_asin); if ($featured_input =~ ",") { @featured_products = split(/,/,$featured_input); $featured_input = "random"; } if ($featured_input =~ /browse\+(\d+)\+mode\+(.+)/) { my $query = "BrowseNodeSearch=$1&mode=$2&type=lite&page=$FORM{page_num}"; my $this_xml_url="http://$amazon_server.amazon.com/onca/xml3?t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH&$query&f=xml&sort=$FORM{sort_type}&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n"; my $xml_result = get_url($this_xml_url); my $level_1 = parse_xml_into_hashes_of_arrays($xml_result); my $featured_asin_xml = ${${$level_1}{Details}}[rand @{${$level_1}{Details}}]; # now this next line is an impressive piece of poo ${${$level_1}{Details}}[rand @{${$level_1}{Details}}] =~ s/([^<]+)<\/Asin>/$featured_asin = $1/e; } elsif ($featured_input eq "random") { if (@featured_products) { $featured_asin = $featured_products[rand @featured_products]; } else { return; } } else { $featured_asin = $featured_input; } my $this_xml_url = "http://$amazon_server.amazon.com/onca/xml3?t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH&AsinSearch=$featured_asin&type=lite&f=xml&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n"; my $xml_result = get_url($this_xml_url,"skip_ok"); if (!$xml_result) { return; } my $level_1 = parse_xml_into_hashes_of_arrays($xml_result); my $level_2 = process_hashes_of_arrays($level_1); $MY_variables{featured_ProductName} = ${$level_2}{ProductName}[0]; $MY_variables{my_featured_item_url} = "$MY_variables{script_name}?item_id=${$level_2}{Asin}[0]&search_type=AsinSearch$url_options"; # HACK BEGIN - create %%my_featured_similarlink%% if (${$level_2}{Asin}[0]) { $MY_variables{my_featured_similarlink} = qq[

$language_text{see_text7}

]; } else { $MY_variables{my_featured_similarlink} = ""; } # HACK END $MY_variables{featured_ImageUrlSmall} = ${$level_2}{ImageUrlSmall}[0]; $MY_variables{featured_OurPrice} = ${$level_2}{OurPrice}[0]; return set_html("featured_product"); } # HACK BEGIN - New sub sub build_featured_product_home { my $featured_input = shift; my ($featured_asin); if ($featured_input =~ ",") { @featured_products = split(/,/,$featured_input); $featured_input = "random"; } if ($featured_input =~ /browse\+(\d+)\+mode\+(.+)/) { my $query = "BrowseNodeSearch=$1&mode=$2&type=lite&page=$FORM{page_num}"; my $this_xml_url="http://$amazon_server.amazon.com/onca/xml3?t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH&$query&f=xml&sort=$FORM{sort_type}&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n"; my $xml_result = get_url($this_xml_url); my $level_1 = parse_xml_into_hashes_of_arrays($xml_result); my $featured_asin_xml = ${${$level_1}{Details}}[rand @{${$level_1}{Details}}]; # now this next line is an impressive piece of poo ${${$level_1}{Details}}[rand @{${$level_1}{Details}}] =~ s/([^<]+)<\/Asin>/$featured_asin = $1/e; } elsif ($featured_input eq "random") { if (@featured_products) { $featured_asin = $featured_products[rand @featured_products]; } else { return; } } else { $featured_asin = $featured_input; } my $this_xml_url = "http://$amazon_server.amazon.com/onca/xml3?t=$MY_variables{associate_id}&dev-t=D1KQJBNTALRLQH&AsinSearch=$featured_asin&type=lite&f=xml&locale=$FORM{locale}"; $debug .= "xml_url=$this_xml_url\n"; my $xml_result = get_url($this_xml_url,"skip_ok"); if (!$xml_result) { return; } my $level_1 = parse_xml_into_hashes_of_arrays($xml_result); my $level_2 = process_hashes_of_arrays($level_1); my $level_3 = process_hashes_of_arrays($level_2); $MY_variables{featured_ProductName} = ${$level_2}{ProductName}[0]; $MY_variables{my_featured_item_url} = "$MY_variables{script_name}?item_id=${$level_2}{Asin}[0]&search_type=AsinSearch$url_options"; # Create %%my_featured_similarlink%% if (${$level_2}{Asin}[0]) { $MY_variables{my_featured_similarlink} = qq[

$language_text{see_text7}]; # $MY_variables{my_featured_similarlink} = qq[

$language_text{see_text7}

]; # HACK END } else { $MY_variables{my_featured_similarlink} = ""; } $MY_variables{featured_ImageUrlSmall} = ${$level_2}{ImageUrlSmall}[0]; $MY_variables{featured_ImageUrlMedium} = ${$level_2}{ImageUrlMedium}[0]; $MY_variables{featured_OurPrice} = ${$level_2}{OurPrice}[0]; return set_html("featured_product_home"); } sub load_browse_table { my ($input1, $input2, $input3) = @_; my ($page_listing); my $i = 0; $menu_length = keys(%{$input1}); foreach my $key (sort keys %{$input1}) { $MY_variables{browse_menu_url} = qq[$MY_variables{script_name}?$input2${$input1}{$key}$url_options]; $MY_variables{browse_menu_name} = $key; if ($input3 eq "nav_menu") { $page_listing .= set_html("nav_menu",$i); } else { $page_listing .= set_html("browse_menu",$i); } $i++; } return $page_listing; } sub apf_commands { my ($command_string, $lap, $whose_variables) = @_; $lap = $lap + 1; my (%COMMAND, $command_name, $command_value); $command_string =~ //s; my $command_commands = $1; my $command_html = $2; for my $command_pair (split(/&/, $command_commands)) { ($command_name, $command_value) = split(/=/, $command_pair); if ($command_value eq "last") { if ($whose_variables eq "sellerprofile") { $command_value = $sellerprofile_max; } elsif ($whose_variables eq "shopping_cart") { $command_value = $MY_variables{total_cart_items}; } elsif ($whose_variables eq "products") { $command_value = $details_max; } elsif ($whose_variables =~ "_menu") { $command_value = $menu_length; } else { $command_value = $FORM{max_results}; } } $COMMAND{$command_name} = $command_value; } if ($COMMAND{apf_repeat} and !$COMMAND{apf_start}) { $COMMAND{apf_start} = 1; } if ($COMMAND{apf_start}) { if ($COMMAND{apf_start} == $lap) { return $command_html; } if ($COMMAND{apf_repeat}) { my $test_lap = ($lap - $COMMAND{apf_start})/$COMMAND{apf_repeat}; if ($test_lap == int $test_lap) { return $command_html; } } } if ($COMMAND{apf_end} == $lap) { return $command_html; } elsif ($COMMAND{apf_include}) { if ($COMMAND{apf_include} eq "nav_menu") { if ($FORM{mode} and !$nav_menu_type) { $MY_variables{nav_menu_html} = load_browse_table(\%{$FORM{mode}}, "mode=$FORM{mode}&node=", "nav_menu"); } elsif ($nav_menu_type ne "none") { # HACK BELOW - Display nav_menu only in a node $MY_variables{nav_menu_html} = ""; # $MY_variables{nav_menu_html} = load_browse_table(\%store_to_browse, "mode=", "nav_menu"); } if ($MY_variables{nav_menu_html}) { return $command_html; } # HACK BEGIN - Various File Includes } elsif (($FORM{search_type} eq "AsinSearch" and $COMMAND{apf_include} eq "ASINinclude") or ($FORM{node} and $COMMAND{apf_include} eq "NODEinclude") or ($FORM{mode} and $COMMAND{apf_include} eq "MODEinclude")) { my $include_variable; if ($COMMAND{apf_include} eq "ASINinclude") { open(FILEHANDLE,"includes/ASIN-$AWS_variables{Asin}.html"); } if ($COMMAND{apf_include} eq "NODEinclude") { open(FILEHANDLE,"includes/NODE-$FORM{node}.html"); } if ($COMMAND{apf_include} eq "MODEinclude") { open(FILEHANDLE,"includes/MODE-$FORM{mode}.html"); } while () { $include_variable = $include_variable . $_; } close (FILEHANDLE); return $include_variable; } elsif (($FORM{search_type} eq "AsinSearch") and ($COMMAND{apf_include} =~ "asinmore")) { my $include_variable; open(FILEHANDLE,"includesasin/$AWS_variables{Asin}-$COMMAND{apf_include}"); while () { $include_variable = $include_variable . $_; } close (FILEHANDLE); return $include_variable; } elsif (($FORM{node} and $COMMAND{apf_include} =~ "nodemore-$FORM{node}") or ($FORM{mode} and $COMMAND{apf_include} =~ "modemore-$FORM{mode}")) { my $include_variable; open(FILEHANDLE,"$COMMAND{apf_include}"); while () { $include_variable = $include_variable . $_; } close (FILEHANDLE); return $include_variable; } elsif (($FORM{search_type} eq "AsinSearch" and $COMMAND{apf_include} =~ "randomasin") or ($FORM{node} and $COMMAND{apf_include} =~ "randomnode-$FORM{node}") or ($FORM{mode} and $COMMAND{apf_include} =~ "randommode-$FORM{mode}") or ($COMMAND{apf_include} =~ "randomfile")) { my $include_variable; $el = 1; my @elem; if ($COMMAND{apf_include} =~ "randomasin") { open (rf, ") { chop $_ if ($_ =~ /\n$/); chop $_ if ($_ =~ /\r$/); chop $_ if ($_ =~ /\n$/); chop $_ if ($_ =~ /\r$/); next if ($_ eq ''); if ($_ eq $randdelimitor) { push (@elem, $gathered); $gathered = ''; next; } $gathered .= $_ . "\n"; } close (rf); if ($gathered ne '') { push (@elem, $gathered); $gathered = ''; } $el = scalar(@elem); srand; $wl = int(rand($el)); $wl = $el - 1 if ($wl >= $el); $wl = 0 if ($wl < 0); $include_variable = $elem[$wl]; return $include_variable; } elsif ($COMMAND{apf_include} =~ /ASINinclude|MODEinclude|NODEinclude|asinmore|nodemore|modemore|randommode|randomnode|randomasin|randomfile/) { my $include_variable =""; return $include_variable; # HACK END } else { my $include_variable; open(FILEHANDLE,"<$COMMAND{apf_include}"); while () { $include_variable = $include_variable . $_; } close (FILEHANDLE); return $include_variable; } } elsif ($COMMAND{apf_featured_product}) { my $my_featured_product = build_featured_product($COMMAND{apf_featured_product}); if ($my_featured_product) { return $my_featured_product; } # HACK BEGIN - New sub call } elsif ($COMMAND{apf_featured_product_home}) { my $my_featured_product_home = build_featured_product_home($COMMAND{apf_featured_product_home}); if ($my_featured_product_home) { return $my_featured_product_home; } # HACK END } elsif ($COMMAND{apf_show_vars}) { my $temp_html; if ($COMMAND{apf_show_vars} ne "AWS") { $temp_html = "
MY_variables:

"; foreach my $key (sort keys %MY_variables) { (my $encoded = $MY_variables{$key}) =~ s/%%$key%% => $encoded

"; } $temp_html .= "

"; } if ($COMMAND{apf_show_vars} ne "MY") { $temp_html .= "
AWS_variables:

"; foreach my $key (sort keys %AWS_variables) { (my $encoded = $AWS_variables{$key}) =~ s/%%$key%% => $encoded

"; } $temp_html .= "

"; } $MY_variables{products_html} .= $temp_html . "

"; } return; } sub set_html { my ($which, $lap) = @_; my $temp_result; if ($template_html{$which}) { $temp_result = $template_html{$which}; } else { if ($which eq "page") { $temp_result = qq[ %%store%% : %%subject%%

%%header%%

%%in_association%% %%search_box%%

%%shopping_cart_link%%

%%sort_box%%

%%products_html%%

%%see_prev%%

%%see_next%%

%%see_total%%
%%see_index%%

]; } elsif ($which eq "products") { $temp_result = qq[

%%result_number%%.

%%my_prices%%

%%ProductName%%
%%my_artists%%
%%ReleaseDate%%