4c92790fc0
As announced this past February, Amazon.com will no longer be accepting web services requests to Amazon E-Commerce Service (Amazon ECS) version 3.0 beginning on March 31, 2008. This patch upgrades to Amazon.com's Associates Web Service 4.0 for the following components: 1. Amazon.com Locale support for: Canada, Germany, France, Japan, UK, and US (see the new syspref called AmazonLocale) 2. Jacket Covers 3. Editorial Reviews 4. Customer Reviews 5. Amazon.com Similar Items The following changes MUST be made to continue using Amazon.com content: 1. Delete the system preference: AmazonDevKey (AmazonDevKeys used with AmazonECS 3.0 are no longer valid) 2. Add the system preferences: AmazonLocale, AWSAccessKeyID NOTE: steps 1, 2 are done by the web installer 3. Verify your AWSAccessKeyID: You may already have an Access Key ID. You can access your Access Key ID by going to http://aws.amazon.com, pointing to Your Web Services Account, then clicking View Access Key Identifiers. Depending on when you signed up for ECS 3.0, you may need to re-register for an AWS account, which includes an Access Key ID. 4. Enter your AWSAccessKeyID in the Koha syspref called AWSAccessKeyID For complete details on the changes in Amazon.com Associates Web Service 4.0, and the migration process, please see: http://tinyurl.com/ysorqy Other changes with this patch: * added $tabsysprefs{PatronsPerPage}="Patrons"; * Moved OPAC Features to OPAC in sysprefs * removed experimental OPACXISBNAmazonSimilarItems and XISBNAmazonSimilarItems features Signed-off-by: Joshua Ferraro <jmf@liblime.com>
123 lines
3.5 KiB
Perl
123 lines
3.5 KiB
Perl
package C4::Amazon;
|
|
# Copyright (C) 2006 LibLime
|
|
# <jmf at liblime dot com>
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha 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.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along with
|
|
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
use XML::Simple;
|
|
use LWP::Simple;
|
|
use LWP::UserAgent;
|
|
use HTTP::Request::Common;
|
|
|
|
use strict;
|
|
|
|
use vars qw($VERSION @ISA @EXPORT);
|
|
|
|
BEGIN {
|
|
require Exporter;
|
|
$VERSION = 0.03;
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(
|
|
&get_amazon_details
|
|
&check_search_inside
|
|
);
|
|
}
|
|
|
|
=head1 NAME
|
|
|
|
C4::Amazon - Functions for retrieving Amazon.com content in Koha
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
This module provides facilities for retrieving Amazon.com content in Koha
|
|
|
|
=head1 get_amazon_details($isbn);
|
|
|
|
=head2 $isbn is a isbn string
|
|
|
|
=cut
|
|
|
|
sub get_amazon_details {
|
|
my ( $isbn ) = @_;
|
|
#normalize the ISBN
|
|
$isbn =~ s/(p|-|:| )//g;
|
|
|
|
# Determine which content to grab in the request
|
|
|
|
# Determine correct locale
|
|
my $locale_hashref = {
|
|
CA => '.ca',
|
|
DE => '.de',
|
|
FR => '.fr',
|
|
JP => '.jp',
|
|
UK => '.co.uk',
|
|
US => '.com',
|
|
};
|
|
|
|
my $amazon_locale_syspref = C4::Context->preference('AmazonLocale');
|
|
my $tld = $locale_hashref->{$amazon_locale_syspref} || '.com'; # default top level domain is .com
|
|
|
|
# grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
|
|
my $aws_access_key_id = C4::Context->preference('AWSAccessKeyID');
|
|
|
|
#grab the associates tag: mine is 'kadabox-20'
|
|
my $af_tag=C4::Context->preference('AmazonAssocTag');
|
|
my $response_group = "Similarities,EditorialReview,Reviews,ItemAttributes";
|
|
my $asin=$isbn;
|
|
my $url = "http://ecs.amazonaws$tld/onca/xml?Service=AWSECommerceService&AWSAccessKeyId=$aws_access_key_id&Operation=ItemLookup&AssociateTag=$af_tag&Version=2007-01-15&ItemId=$asin&ResponseGroup=$response_group";
|
|
# warn $url;
|
|
my $content = get($url);
|
|
warn "could not retrieve $url" unless $content;
|
|
my $xmlsimple = XML::Simple->new();
|
|
my $response = $xmlsimple->XMLin(
|
|
$content,
|
|
forcearray => [ qw(SimilarProduct EditorialReview Review) ],
|
|
);
|
|
return $response;
|
|
}
|
|
|
|
sub check_search_inside {
|
|
my $isbn = shift;
|
|
my $ua = LWP::UserAgent->new(
|
|
agent => "Mozilla/4.76 [en] (Win98; U)",
|
|
keep_alive => 1,
|
|
env_proxy => 1,
|
|
);
|
|
my $available = 1;
|
|
my $uri = "http://www.amazon.com/gp/reader/$isbn/ref=sib_dp_pt/002-7879865-0184864#reader-link";
|
|
my $req = HTTP::Request->new(GET => $uri);
|
|
$req->header (
|
|
'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*',
|
|
'Accept-Charset' => 'iso-8859-1,*,utf-8',
|
|
'Accept-Language' => 'en-US' );
|
|
my $res = $ua->request($req);
|
|
my $content = $res->content();
|
|
if ($content =~ m/This book is temporarily unavailable/) {
|
|
undef $available;
|
|
}
|
|
return $available;
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NOTES
|
|
|
|
=head1 AUTHOR
|
|
|
|
Joshua Ferraro <jmf@liblime.com>
|
|
|
|
=cut
|