1 package OpenILS::WWW::AddedContent::Amazon;
2 use strict; use warnings;
3 use OpenSRF::Utils::Logger qw/$logger/;
4 use OpenSRF::Utils::SettingsParser;
5 use OpenILS::WWW::AddedContent;
6 use OpenSRF::Utils::JSON;
7 use OpenSRF::EX qw/:try/;
10 my $AC = 'OpenILS::WWW::AddedContent';
13 my( $class, $args ) = @_;
14 $class = ref $class || $class;
15 return bless($args, $class);
20 return $self->{base_url};
25 return $self->{userid};
29 # --------------------------------------------------------------------------
31 my( $self, $key ) = @_;
32 return $self->send_img(
33 $self->fetch_response('_SCMZZZZZZZ_.jpg', $key));
37 my( $self, $key ) = @_;
38 return $self->send_img(
39 $self->fetch_response('_SCMZZZZZZZ_.jpg', $key));
43 my( $self, $key ) = @_;
44 return $self->send_img(
45 $self->fetch_response('_SCZZZZZZZ_.jpg', $key));
48 # --------------------------------------------------------------------------
51 my($self, $response) = @_;
53 content_type => $response->header('Content-type'),
54 content => $response->content,
59 # returns the raw content returned from the URL fetch
61 my( $self, $page, $key ) = @_;
62 return $self->fetch_response($page, $key)->content;
65 # returns the HTTP response object from the URL fetch
67 my( $self, $page, $key ) = @_;
68 my $uname = $self->userid;
69 my $url = $self->base_url . "$key.01.$page";
70 return $AC->get_url($url);