ruby-paa 0.0.1

data/example/list_search1

@@ -0,0 +1,31 @@
+#!/usr/bin/ruby -w
+#
+# $Id: list_search1,v 1.4 2010/02/20 16:49:13 ianmacd Exp $
+require 'rubygems'
+require 'openssl'
+require 'ruby-paa/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+person = 'Peter Duff'
+
+ls = ListSearch.new( 'WishList', { 'Name' => person } )
+ls.response_group = ResponseGroup.new( 'ListInfo' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( ls )
+lists = resp.list_search_response[0].lists[0].list
+
+puts '%s returns the following lists:' % [ person ]
+
+lists.each do |list|
+  puts '  %s' % [ list.customer_name ]
+  puts '  List created: %s' % [ list.date_created ]
+  puts '  List ID: %s' % [ list.list_id ]
+  puts '  URL: %s' % [ list.list_url ]
+  puts '  %s items on list.' % [ list.total_items ]
+  puts
+end

data/example/multiple_operation1

@@ -0,0 +1,69 @@
+#!/usr/bin/ruby -w
+#
+# $Id: multiple_operation1,v 1.3 2010/02/20 16:49:13 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+# Example of a batch operation, using the ASIN as the shared ID.
+#
+# The MerchantId restriction is to ensure that we retrieve only items that
+# are for sale by Amazon. This is important when we later want to retrieve the
+# availability status.
+#
+il = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000AE4QEC',
+			       'MerchantId' => 'Amazon' } )
+il2 = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000051WBE',
+				'MerchantId' => 'Amazon' } )
+il.batch( il2 )
+is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+
+mo = MultipleOperation.new( is, il )
+
+# You can have multiple response groups and apply them to all encapsulated
+# operations.
+#
+mo.response_group = ResponseGroup.new( 'Medium', 'Offers', 'Reviews' )
+
+req = Request.new
+req.locale = 'uk'
+resp = req.search( mo )
+
+# Items returned by the ItemSearch.
+#
+is_item_sets = resp.multi_operation_response.item_search_response[0].items
+
+# Items returned by the ItemLookup.
+#
+il_item_sets = resp.multi_operation_response.item_lookup_response[0].items
+
+item_sets = is_item_sets + il_item_sets
+
+item_sets.each do |item_set|
+  item_set.item.each do |item|
+    attribs = item.item_attributes[0]
+    puts attribs.label
+    if attribs.list_price
+      puts attribs.title, attribs.list_price[0].formatted_price
+    end
+  
+    # Availability has become a cumbersome thing to retrieve in AWSv4.
+    #
+    puts 'Availability: %s' %
+      [ item.offers[0].offer[0].offer_listing[0].availability ]
+
+    if item.customer_reviews
+      puts 'Average rating: %s' % [ item.customer_reviews[0].average_rating ]
+      puts 'Reviewed by %s customers.' %
+        [ item.customer_reviews[0].total_reviews ]
+      puts 'Customers said:'
+      item.customer_reviews[0].review.each do |review|
+        puts '  %s (%s votes)' % [ review.summary, review.total_votes ]
+      end
+    end
+  
+    puts
+  end
+end

data/example/seller_listing_lookup1

@@ -0,0 +1,30 @@
+#!/usr/bin/ruby -w
+#
+# $Id: seller_listing_lookup1,v 1.2 2010/02/20 16:49:13 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+seller_id = 'AP8U6Y3PYQ9VO'
+artist = 'Killing Joke'
+sll = SellerListingLookup.new( seller_id, 'ASIN',
+			       { 'Id' => 'B0009RRRC8' } )
+sll.response_group = ResponseGroup.new( 'SellerListing' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( sll )
+
+# Yawn. This is verbose.
+#
+
+seller_id = resp.seller_listing_lookup_response[0].seller_listings[0].
+	    request[0].seller_listing_lookup_request[0].seller_id
+item = resp.seller_listing_lookup_response[0].seller_listings[0].
+       seller_listing[0]
+
+puts 'Seller %s is selling the following item by %s:' % [ seller_id, artist ]
+puts item

data/example/seller_listing_search1

@@ -0,0 +1,29 @@
+#!/usr/bin/ruby -w
+#
+# $Id: seller_listing_search1,v 1.5 2010/02/20 16:49:13 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+seller_id = 'AP8U6Y3PYQ9VO'
+artist = 'Killing Joke'
+
+sls = SellerListingSearch.new( seller_id, { 'Keywords' => artist } )
+sls.response_group = ResponseGroup.new( 'SellerListing' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( sls )
+
+# Yawn. This is verbose.
+#
+seller_id = resp.seller_listing_search_response[0].seller_listings[0].
+	    request[0].seller_listing_search_request[0].seller_id
+items = resp.seller_listing_search_response[0].seller_listings[0].
+	seller_listing
+
+puts 'Seller %s is selling the following items by %s:' % [ seller_id, artist ]
+items.each { |item| puts item, '-' * 80 }

data/example/seller_lookup1

@@ -0,0 +1,45 @@
+#!/usr/bin/ruby -w
+#
+# $Id: seller_lookup1,v 1.2 2010/02/20 16:49:13 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+def display_properties(root, indent=0)
+  if root[0].respond_to? :properties
+    printf( 'Property %s =', root[0] )
+    root[0].properties.each do |pr|
+      display_properties( pr, indent + 2 )
+    end
+  else
+    printf( "Property %s = %s.\n", root, root.to_h[root] )
+  end
+end
+  
+sl = SellerLookup.new( 'A3QFR0K2KCB7EG' )
+sl.response_group = ResponseGroup.new( 'Seller' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( sl ).seller_lookup_response
+
+seller = resp.sellers.seller
+
+seller.properties.each do |pr|
+  if seller[0][pr][0].properties.empty?
+    printf( "%s = %s.\n", pr, seller[0][pr] )
+  else
+    seller[0][pr][0].properties.each do |nest1|
+      if seller[0][pr][0][nest1][0].properties.empty?
+        printf( "%s = %s.\n", nest1, seller[0][pr][0][nest1][0] )
+      else
+	seller[0][pr][0][nest1][0].properties.each do |nest2|
+          printf( "%s = %s.\n", nest2, seller[0][pr][0][nest1][0][nest2] )
+	end
+      end
+    end
+  end
+end

data/example/shopping_cart1

@@ -0,0 +1,42 @@
+#!/usr/bin/ruby -w
+#
+# $Id: shopping_cart1,v 1.3 2010/02/20 16:49:13 ianmacd Exp $
+
+require 'amazon/aws/search'
+require 'amazon/aws/shoppingcart'
+
+include Amazon::AWS
+#include Amazon::AWS::Search
+include Amazon::AWS::ShoppingCart
+
+cart = Cart.new
+cart.locale = 'uk'
+
+cart.cart_create( :ASIN, 'B00151HZA6', 3, false,
+		  { 'B000WC4AH0' => 2 ,
+		    'B00004U9MS' => 8 } )
+
+puts cart.cart_id
+puts cart.hmac
+puts cart.purchase_url
+puts
+
+cart.cart_add( :ASIN, 'B0014C2BL4', 1,
+	       { 'B0006L16N8' => 5 },
+	       { 'B000QRI5RM' => 4 } )
+cart.cart_add( :ASIN, 'B0013F2M52', 3 )
+cart.cart_add( :ASIN, 'B000HCPSR6', 5 )
+cart.cart_modify( :ASIN, 'B00151HZA6', 2, true,
+		  { 'B0013F2M52' => 1 },
+		  { 'B000HCPSR6' => 3 } )
+
+puts 'Cart contents:'
+cart.each do |it|
+  puts "ASIN: %s, item Id: %-14s, quantity: %d" %
+    [ it.asin, it.cart_item_id, it.quantity ]
+end
+puts
+
+puts cart.items
+
+cart.cart_clear

data/example/similarity_lookup1

@@ -0,0 +1,48 @@
+#!/usr/bin/ruby -w
+#
+# $Id: similarity_lookup1,v 1.2 2010/02/20 16:49:14 ianmacd Exp $
+
+require 'amazon/aws'
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+# Example of a batch operation, using the ASIN as the shared ID.
+#
+sl = SimilarityLookup.new( [ 'B000AE4QEC', 'B000051WBE' ] )
+
+# You can have multiple response groups.
+#
+sl.response_group = ResponseGroup.new( 'Medium', 'Offers', 'Reviews' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( sl )
+item_sets = resp.similarity_lookup_response[0].items
+
+item_sets.each do |item_set|
+  item_set.item.each do |item|
+    attribs = item.item_attributes[0]
+    puts attribs.label
+    if attribs.list_price
+      puts attribs.title, attribs.list_price[0].formatted_price
+    end
+  
+    # Availability has become a cumbersome thing to retrieve in AWSv4.
+    #
+    puts 'Availability: %s' %
+      [ item.offers[0].offer[0].offer_listing[0].availability ]
+    puts 'Average rating: %s' % [ item.customer_reviews[0].average_rating ]
+    puts 'Reviewed by %s customers.' %
+      [ item.customer_reviews[0].total_reviews ]
+  
+    puts 'Customers said:'
+    item.customer_reviews[0].review.each do |review|
+      puts '  %s (%s votes)' % [ review.summary, review.total_votes ]
+    end
+  
+    puts
+  end
+end

data/example/tag_lookup1

@@ -0,0 +1,34 @@
+#!/usr/bin/ruby -w
+#
+# $Id: tag_lookup1,v 1.2 2010/02/20 16:49:14 ianmacd Exp $
+
+require 'amazon/aws'
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+tag_str = 'Awful'
+tl = TagLookup.new( tag_str )
+
+# You can have multiple response groups.
+#
+tl.response_group = ResponseGroup.new( 'Tags', 'TagsSummary' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( tl )
+tag = resp.tag_lookup_response.tags.tag
+
+printf( "Tag name '%s' has %d distinct items.\n", tag_str, tag.distinct_items )
+printf( "Tag has %d distinct items.\n", tag.distinct_users )
+printf( "Tag has %d total usages.\n", tag.total_usages )
+printf( "Tagged for the first time in entity %s on %s\nby %s..\n",
+        tag.first_tagging.entity_id,
+	tag.first_tagging.time,
+	tag.first_tagging.user_id )
+printf( "Tagged for the last time in entity %s on %s\nby %s..\n",
+        tag.last_tagging.entity_id,
+	tag.last_tagging.time,
+	tag.last_tagging.user_id )

data/example/transaction_lookup1

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby -w
+#
+# $Id: transaction_lookup1,v 1.2 2010/02/20 16:49:14 ianmacd Exp $
+
+require 'amazon/aws'
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+tl = TransactionLookup.new( '103-5663398-5028241' )
+tl.response_group = ResponseGroup.new( 'TransactionDetails' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( tl )
+trans = resp.transaction_lookup_response.transactions.transaction
+
+printf( "Transaction date was %s.\n", trans.transaction_date )
+printf( "It was in the amount of %s and the seller was %s.\n",
+        trans.totals.total.formatted_price, trans.seller_name )
+printf( "The shipping charge was %s and the package was sent by %s.\n",
+        trans.totals.shipping_charge.formatted_price,
+	trans.shipments.shipment.delivery_method )

data/example/vehicle_search

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+#
+# $Id: vehicle_search,v 1.2 2010/02/20 16:49:14 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+vs = VehicleSearch.new( { 'Year' => 2008 } )
+vs.response_group = ResponseGroup.new( 'VehicleMakes' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( vs )
+makes = resp.vehicle_search_response[0].vehicle_years[0].vehicle_year[0].
+        vehicle_makes[0].vehicle_make
+
+printf( "Search returned %d makes of vehicle for 2008.\n\n", makes.size )
+
+makes.each { |make| puts make, '' }

data/lib/ruby-paa.rb

@@ -0,0 +1,165 @@
+# $Id: amazon.rb,v 1.33 2010/03/19 17:20:46 ianmacd Exp $
+#
+
+module Amazon
+
+  # A top-level exception container class.
+  #
+  class AmazonError < StandardError; end
+
+  NAME = 'Ruby/Amazon'
+
+  @@config = {}
+
+  # We're going to have to use String#size if String#bytesize isn't available.
+  # This is for Ruby pre-1.8.7.
+  #
+  unless String.instance_methods.include? 'bytesize'
+    String.module_eval( 'alias :bytesize :size' )
+  end
+
+  # Prints debugging messages and works like printf, except that it prints
+  # only when Ruby is run with the -d switch.
+  #
+  def Amazon.dprintf(format='', *args)
+    $stderr.printf( format + "\n", *args ) if $DEBUG
+  end
+
+  # Encode a string, such that it is suitable for HTTP transmission.
+  #
+  def Amazon.url_encode(string)
+
+    # Shamelessly plagiarised from Wakou Aoyama's cgi.rb, but then altered
+    # slightly to please AWS.
+    #
+    string.gsub( /([^a-zA-Z0-9_.~-]+)/ ) do
+      '%' + $1.unpack( 'H2' * $1.bytesize ).join( '%' ).upcase
+    end
+  end
+
+  # Convert a string from CamelCase to ruby_case.
+  #
+  def Amazon.uncamelise(string)
+    # Avoid modifying by reference.
+    #
+    string = string.dup
+
+    # Don't mess with string if all caps.
+    #
+    if string =~ /[a-z]/
+      string.gsub!( /(.+?)(([A-Z][a-z]|[A-Z]+$))/, "\\1_\\2" )
+    end
+
+    # Convert to lower case.
+    #
+    string.downcase
+  end
+
+
+  # A Class for dealing with configuration files, such as
+  # <tt>/etc/amazonrc</tt> and <tt>~/.amazonrc</tt>.
+  #
+  class Config < Hash
+
+    require 'stringio'
+
+    # Exception class for configuration file errors.
+    #
+    class ConfigError < AmazonError; end
+
+    # A configuration may be passed in as a string. Otherwise, the files
+    # <tt>/etc/amazonrc</tt> and <tt>~/.amazonrc</tt> are read if they exist
+    # and are readable.
+    #
+    def initialize(config_str=nil)
+      locale = nil
+
+      if config_str
+
+        # We have been passed a config file as a string.
+        #
+        config_files = [ config_str ]
+        config_class = StringIO
+
+      else
+
+        # Perform the usual search for the system and user config files.
+        #
+        config_files = [ File.join( '', 'etc', 'amazonrc' ) ]
+
+        # Figure out where home is. The locations after HOME are for Windows.
+        # [ruby-core:12347]
+        #
+        hp = nil
+        if ENV.key?( 'HOMEDRIVE' ) && ENV.key?( 'HOMEPATH' )
+          hp = ENV['HOMEDRIVE'] + ENV['HOMEPATH']
+        end
+        home = ENV['AMAZONRCDIR'] || ENV['HOME'] || hp || ENV['USERPROFILE']
+
+        user_rcfile = ENV['AMAZONRCFILE'] || '.amazonrc'
+
+        if home
+          config_files << File.expand_path( File.join( home, user_rcfile ) )
+        end
+
+        config_class = File
+      end
+
+      config_files.each do |cf|
+
+        if config_class == StringIO
+          readable = true
+        else
+          # We must determine whether the file is readable.
+          #
+          readable = File.exists?( cf ) && File.readable?( cf )
+        end
+
+        if readable
+
+          Amazon.dprintf( 'Opening %s ...', cf ) if config_class == File
+
+          config_class.open( cf ) { |f| lines = f.readlines }.each do |line|
+            line.chomp!
+
+            # Skip comments and blank lines.
+            #
+            next if line =~ /^(#|$)/
+
+            Amazon.dprintf( 'Read: %s', line )
+
+            # Determine whether we're entering the subsection of a new locale.
+            #
+            if match = line.match( /^\[(\w+)\]$/ )
+              locale = match[1]
+              Amazon.dprintf( "Config locale is now '%s'.", locale )
+              next
+            end
+
+            # Store these, because we'll probably find a use for these later.
+            #
+            begin
+              match = line.match( /^\s*(\S+)\s*=\s*(['"]?)([^'"]+)(['"]?)/ )
+              key, begin_quote, val, end_quote = match[1, 4]
+              raise ConfigError if begin_quote != end_quote
+
+            rescue NoMethodError, ConfigError
+              raise ConfigError, "bad config line: #{line}"
+            end
+
+            if locale && locale != 'global'
+              self[locale] ||= {}
+              self[locale][key] = val
+            else
+              self[key] = val
+            end
+
+          end
+        end
+
+      end
+
+    end
+  end
+
+end