ruby-aaws 0.4.1

data/example/browse_node_lookup1

@@ -0,0 +1,46 @@
+#!/usr/bin/ruby -w
+#
+# $Id: browse_node_lookup1,v 1.3 2008/04/11 19:24:24 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+# This is the node for Social Sciences.
+#
+START_NODE = '11232'
+
+def follow_node(id)
+
+  req ||= Request.new
+  req.locale = 'us'
+
+  bnl = BrowseNodeLookup.new( id, {} )
+  bnl_rg ||= ResponseGroup.new( 'BrowseNodeInfo' )
+  resp = req.search( bnl, bnl_rg )
+
+  #items = resp.browse_node_sets.browse_nodes
+  nodes = resp.browse_node_lookup_response[0].browse_nodes[0].browse_node
+
+  nodes.each do |bn|
+
+    if bn.children
+      puts '%s (%s) has the following children:' % [ bn.name, id ]
+
+      bn.children[0].browse_node.each do |child_node|
+        puts '  %s' % [ child_node.name ]
+      end
+      puts
+
+      bn.children[0].browse_node.each do |child_node|
+        follow_node( child_node.browse_node_id )
+      end
+
+    else
+      puts '%s (%s) has no children.' % [ bn.name, id ]
+    end
+  end
+end
+
+follow_node( START_NODE )

data/example/customer_content_lookup1

@@ -0,0 +1,27 @@
+#!/usr/bin/ruby -w
+#
+# $Id: customer_content_lookup1,v 1.3 2008/04/28 09:59:52 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+ccl = CustomerContentLookup.new( 'AJDWXANG1SYZP' )
+rg = ResponseGroup.new( 'CustomerReviews' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( ccl, rg )
+
+review = resp.customer_content_lookup_response.customers.customer.customer_reviews.review[0]
+
+printf( "Customer's name is %s.\n", review.reviewer.name )
+printf( "Customer's location is %s.\n", review.reviewer.location )
+printf( "Review date is %s.\n", review.date )
+printf( "Review has received %s votes.\n", review.total_votes )
+printf( "Of these, %d deemed the review helpful.\n", review.helpful_votes )
+printf( "Product reviewed has ASIN '%s'.\n", review.asin )
+printf( "Review summary is: %s.\n", review.summary )
+printf( "Review content is:\n%s.\n", review.content )

data/example/customer_content_search1

@@ -0,0 +1,21 @@
+#!/usr/bin/ruby -w
+#
+# $Id: customer_content_search1,v 1.1 2008/04/27 21:58:54 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+ccs = CustomerContentSearch.new( 'ian@caliban.org' )
+rg = ResponseGroup.new( 'CustomerInfo' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( ccs, rg )
+cust = resp.customer_content_search_response.customers.customer
+
+printf( "Customer's ID is %s.\n", cust.customer_id )
+printf( "Customer's nickname is %s.\n", cust.nickname )
+printf( "Customer's location is %s.\n", cust.location.user_defined_location )

data/example/example1

@@ -0,0 +1,87 @@
+#!/usr/bin/ruby -w
+#
+# $Id: example1,v 1.4 2008/04/28 10:24:56 ianmacd Exp $
+
+require 'amazon/aws'
+require 'amazon/aws/search'
+
+# We don't want to have to fully qualify identifiers.
+#
+include Amazon::AWS
+include Amazon::AWS::Search
+
+# If you don't have one of these, don't pass the second argument to
+# Request.new.
+#
+ASSOCIATES_ID = "webservices-20"
+
+# Your access key ID.
+#
+KEY_ID        = "0Y44V8FAFNM119C6PTR2"
+
+request  = Request.new( KEY_ID, ASSOCIATES_ID )
+
+# Create an item search object.
+#
+# is = ItemSearch.new( 'Books', { 'Keywords' => 'ruby programming' } )
+is = ItemSearch.new( 'Books', { 'Title' => 'ruby programming' } )
+
+# Create a response group object. Examples of response groups are 'Small',
+# 'Medium' and 'Large'. 'Large' returns all data about an item.
+#
+rg = ResponseGroup.new( 'Large' )
+
+# Search for the items, passing the result into a block.
+#
+nr_items = 0
+page_nr = 0
+response = request.search( is, rg, :ALL_PAGES ) do |page|
+# page.item_search_response[0].items.each do |item_set|
+#   item_set.item.each do |item|
+#     puts 'Found a product:'
+#     item.instance_variables.each do |iv|
+#      printf( "%s = %s\n", iv, item.instance_variable_get( iv ) )
+#     end
+#   end
+# end
+ printf( "Page %d had unique request ID %s.\n",
+	  page_nr += 1,
+	  page.item_search_response[0].operation_request[0].request_id )
+  printf( "Page %d contained %d result(s).\n",
+	  page_nr,
+	  page.item_search_response[0].items[0].item.size )
+end
+
+# You don't have to access the items through a block.
+#
+nr_items = 0
+response.each do |page|
+    page.item_search_response[0].items.each do |item_set|
+      nr_items += item_set.item.size
+    end
+  end
+printf( "Search returned %d items.\n", nr_items )
+
+# The first item in the list.
+#
+items = response[0].item_search_response[0].items[0].item
+product1 = items[0]
+puts "\nProperties available for the first product returned:",
+  product1.properties.sort
+puts
+
+# There are three ways to retrieve the property of a product:
+#
+
+# Instance variable:
+#
+p product1.asin
+p product1.item_attributes[0].title
+
+# Feels more like a Hash:
+#
+p product1.item_attributes[0]['list_price'][0]['formatted_price']
+
+# A variation on the hash theme:
+#
+p product1.item_attributes[0][:author]

data/example/help1

@@ -0,0 +1,25 @@
+#!/usr/bin/ruby -w
+#
+# $Id: help1,v 1.1 2008/04/27 22:21:52 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+h = Help.new( 'ResponseGroup', 'Large' )
+
+rg = ResponseGroup.new( 'Help' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( h, rg )
+help = resp.help_response[0].information.response_group_information
+
+printf( "The response group 'Large' was created on %s\n", help.creation_date )
+puts 'It can be used with the following operations:'
+puts help.valid_operations.operation.join( ', ' )
+puts
+puts "and causes the following elements to be returned:\n\n"
+puts help.elements.element

data/example/item_lookup1

@@ -0,0 +1,55 @@
+#!/usr/bin/ruby -w
+#
+# $Id: item_lookup1,v 1.5 2008/04/11 19:24:24 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.
+#
+# 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' },
+		             { 'ItemId' => 'B000051WBE',
+			       'MerchantId' => 'Amazon' } )
+
+# You can have multiple response groups.
+#
+rg = ResponseGroup.new( 'Medium', 'Offers', 'Reviews' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( il, rg )
+item_sets = resp.item_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/item_lookup2

@@ -0,0 +1,55 @@
+#!/usr/bin/ruby -w
+#
+# $Id: item_lookup2,v 1.3 2008/04/11 19:24:24 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.
+#
+# 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' => 'B000065RSW',
+			       'MerchantId' => 'Amazon' },
+		             { 'ItemId' => 'B000A1INIU',
+			       'MerchantId' => 'Amazon' } )
+
+# You can have multiple response groups.
+#
+rg = ResponseGroup.new( 'Medium', 'Offers', 'Reviews' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( il, rg )
+item_sets = resp.item_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/item_search1

@@ -0,0 +1,30 @@
+#!/usr/bin/ruby -w
+#
+# $Id: item_search1,v 1.4 2008/04/11 19:24:24 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+rg = ResponseGroup.new( 'Large' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( is, rg )
+
+items = resp.item_search_response[0].items[0].item
+
+# Available properties for first item:
+#
+puts items[0].properties
+
+items.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
+end

data/example/item_search2

@@ -0,0 +1,37 @@
+#!/usr/bin/ruby -w
+#
+# $Id: item_search2,v 1.4 2008/04/28 09:59:39 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+# We can use symbols instead of string.
+#
+is = ItemSearch.new( :Music, { :Artist => 'Stranglers' } )
+rg = ResponseGroup.new( :Medium )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( is, rg, :ALL_PAGES )
+
+# Use of :ALL_PAGES means an array of responses is returned, one per page.
+#
+items = resp.collect { |r| r.item_search_response[0].items[0].item }.flatten
+
+printf( "Search returned %d items.\n", items.size )
+
+items.each do |item|
+  attribs = item.item_attributes[0]
+  puts '%s %s' % [ attribs.title, ( attribs.format ?
+				      "(#{attribs.format})" : '' ) ]
+  puts '%s (%s)' % [ attribs.manufacturer, attribs.binding ]
+  puts 'Release date: %s' % [ attribs.release_date ]
+  puts attribs.list_price[0].formatted_price if attribs.list_price
+  if item.editorial_reviews
+    puts item.editorial_reviews[0].editorial_review[0].content
+  end
+  puts
+end

data/example/item_search3

@@ -0,0 +1,23 @@
+#!/usr/bin/ruby -w
+#
+# $Id: item_search3,v 1.3 2008/04/11 19:24:24 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+is = ItemSearch.new( 'Baby', { 'Keywords' => 'pants',
+		               'MinimumPrice' => '2500',
+			       'MaximumPrice' => '4999' } )
+rg = ResponseGroup.new( 'Small' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( is, rg )
+items = resp.item_search_response[0].items[0].item
+
+printf( "Search returned %d items.\n", items.size )
+
+items.each { |item| puts item, '' }

data/example/list_lookup1

@@ -0,0 +1,29 @@
+#!/usr/bin/ruby -w
+#
+# $Id: list_lookup1,v 1.1 2008/04/27 16:36:14 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+ll = ListLookup.new( '3P722DU4KUPCP', 'Listmania' )
+ll_rg = ResponseGroup.new( 'ListInfo', 'Small' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( ll, ll_rg )
+list = resp.list_lookup_response[0].lists[0].list
+
+puts 'List Title: %s' % [ list.list_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
+
+list.list_item.each_with_index do |it, idx|
+  att = it.item.item_attributes
+  printf( "%d. %s (%s)\n", idx + 1, att.title, att.product_group )
+end

data/example/list_search1

@@ -0,0 +1,30 @@
+#!/usr/bin/ruby -w
+#
+# $Id: list_search1,v 1.3 2008/04/11 19:24:24 ianmacd Exp $
+
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+person = 'Peter Duff'
+
+ls = ListSearch.new( 'WishList', { 'Name' => person } )
+ls_rg = ResponseGroup.new( 'ListInfo' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( ls, ls_rg )
+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,67 @@
+#!/usr/bin/ruby -w
+#
+# $Id: multiple_operation1,v 1.1 2008/04/11 15:00:56 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' },
+		             { 'ItemId' => 'B000051WBE',
+			       'MerchantId' => 'Amazon' } )
+is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+
+mo = MultipleOperation.new( is, il )
+
+# You can have multiple response groups.
+#
+rg = ResponseGroup.new( 'Medium', 'Offers', 'Reviews' )
+
+req = Request.new
+req.locale = 'uk'
+resp = req.search( mo, rg )
+
+# 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.1 2008/04/27 10:49:38 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_rg = ResponseGroup.new( 'SellerListing' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( sll, sll_rg )
+
+# 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,28 @@
+#!/usr/bin/ruby -w
+#
+# $Id: seller_listing_search1,v 1.4 2008/04/28 10:00:28 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_rg = ResponseGroup.new( 'SellerListing' )
+
+req = Request.new
+req.locale = 'uk'
+
+resp = req.search( sls, sls_rg )
+
+# 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.1 2008/04/27 10:10:07 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_rg = ResponseGroup.new( 'Seller' )
+
+req = Request.new
+req.locale = 'us'
+
+resp = req.search( sl, sl_rg ).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.2 2008/06/06 13:31:40 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 ,
+		    'B000PY32OM' => 8 } )
+
+puts cart.cart_id
+puts cart.hmac
+puts cart.purchase_url
+puts
+
+cart.cart_add( :ASIN, 'B0014C2BL4', 1,
+	       { 'B00006BCKL' => 5 },
+	       { 'B000VVE2UW' => 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