Amazon-MWS

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.130 Sat Apr  2 08:08:26 2016 CEST

     [ENHANCEMENTS]

     * Add method to retrieve skus with warnings (Marco Pessotto).
     * Add color and size mismatches, also handle errors in German
       (Marco Pessotto).

     [BUG FIXES]

     * Strip trailing slash from endpoint
       (Marco Pessotto, jordanmhiller, GH #9).

     [DOCUMENTATION]

     * Add possible explanation for error code 8572 (Stefan Hornburg/Racke).

0.120 Tue Mar 29 07:35:46 2016 CEST

     [ENHANCEMENTS]

lib/Amazon/MWS/Client.pm  view on Meta::CPAN

=head3 application

The name of your application.  Defaults to 'Amazon::MWS::Client'

=head3 version

The version of your application.  Defaults to the current version of this
module.

=head3 endpoint

Where MWS lives.  Defaults to 'https://mws.amazonaws.com'.

=head3 access_key_id

Your AWS Access Key Id

=head3 secret_key

Your AWS Secret Access Key

lib/Amazon/MWS/Uploader.pm  view on Meta::CPAN

                                         # or dbh => $dbh,
  
                                         schema_dir => '/path/to/xml_schema',
                                         feed_dir => '/path/to/directory/for/xml',
  
                                         merchant_id => 'xxx',
                                         access_key_id => 'xxx',
                                         secret_key => 'xxx',
  
                                         marketplace_id => 'xxx',
                                         endpoint => 'xxx',
  
                                         products => \@products,
                                        );
  
  # say once a day, retrieve the full batch and send it up
  $agent->upload; 
  
  # every 10 minutes or so, continue the work started with ->upload, if any
  $agent->resume;

lib/Amazon/MWS/amazon.xml  view on Meta::CPAN

<amazon>
	<access_key_id>ACCESS KET HERE</access_key_id>
        <secret_key>SECRET KEY HERE</secret_key>
        <merchant_id>MERCHANT ID HERE</merchant_id>
        <marketplace_id>HOME MARKETPLACE HERE</marketplace_id>
        <endpoint>ENDPOINT HERE </endpoint>
	<debug>0</debug>
	<logfile>LOG FILE PATH HERE</logfile>
</amazon>

t/error-parsing.t  view on Meta::CPAN

use warnings;
use Amazon::MWS::Uploader;
use Data::Dumper;
use Test::More;

my %constructor = (
                   merchant_id => '__MERCHANT_ID__',
                   access_key_id => '12341234',
                   secret_key => '123412341234',
                   marketplace_id => '123412341234',
                   endpoint => 'https://mws-eu.amazonservices.com',
                   feed_dir => 't/feeds',
                   schema_dir => 'schemas',
                  );

plan skip_all => "Missing schema and feed dirs"
  unless (-d $constructor{schema_dir} && -d $constructor{feed_dir});

my $uploader = Amazon::MWS::Uploader->new(%constructor);

my $error_msg = q{upload-2016-03-14-19-07-09 8541 The SKU data provided conflicts with the Amazon catalog. The standard_product_id value(s) provided correspond to the ASIN  XXXXXX, but some information contradicts with the Amazon catalog. The followi...

t/job-selection.t  view on Meta::CPAN

unless (-d $feed_dir) {
    mkdir $feed_dir or die "Cannot create $feed_dir $!";
}

my %constructor = (
                   merchant_id => '__MERCHANT_ID__',
                   shop_id => 'shoppe',
                   access_key_id => '12341234',
                   secret_key => '123412341234',
                   marketplace_id => '123412341234',
                   endpoint => 'https://mws-eu.amazonservices.com',
                   feed_dir => $feed_dir,
                   schema_dir => 'schemas',
                   db_dsn => 'dbi:SQLite:dbname=t/test.db',
                   db_username => '',
                   db_password => '',
                  );



my $uploader = Amazon::MWS::Uploader->new(%constructor);

t/order-reports.t  view on Meta::CPAN

                                                               Title => 'bac');
is $test_obj->Title, 'bac';



my %constructor = (
                   merchant_id => '__MERCHANT_ID__',
                   access_key_id => '12341234',
                   secret_key => '123412341234',
                   marketplace_id => '123412341234',
                   endpoint => 'https://mws-eu.amazonservices.com',
                   schema_dir => 'schemas',
                   feed_dir => File::Spec->catdir(qw/t feeds/),
                  );
my $uploader = Amazon::MWS::Uploader->new(%constructor);

ok($uploader);

my $xml = <<'AMAZONXML';
<AmazonEnvelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="amzn-envelope.xsd">
  <Header>

t/product-filtering.t  view on Meta::CPAN

my @products = (Amazon::MWS::XML::Product->new(sku => '1234',
                                               price => '10',
                                               ean => '4444123412343',
                                              ));

my %constructor = (
                   merchant_id => '__MERCHANT_ID__',
                   access_key_id => '12341234',
                   secret_key => '123412341234',
                   marketplace_id => '123412341234',
                   endpoint => 'https://mws-eu.amazonservices.com',
                   feed_dir => 't/feeds',
                   schema_dir => 'schemas',
                   existing_products => $existing_products,
                   products => \@products,
                   debug => 1,
                  );

my $uploader = Amazon::MWS::Uploader->new(%constructor);
ok($uploader, "object created");

t/shipping-confirmation.t  view on Meta::CPAN

exit unless $test_extended;

my $feed_dir = 't/feeds';

my $uploader = Amazon::MWS::Uploader->new(
                                          merchant_id => 'My Store',
                                          access_key_id => '12341234',
                                          secret_key => '123412341234',
                                          marketplace_id => '123412341234',
                                          endpoint => 'https://mws-eu.amazonservices.com',
                                          feed_dir => $feed_dir,
                                          schema_dir => $schema_dir,
                                          );
ok($uploader, "Uploader ok");

my $feed = $uploader->shipping_confirmation_feed($shipped_order);
ok($feed, "Can create the feed and validates against the schema"); # and diag $feed;

# test against the example provided in the documentation

t/uploader.t  view on Meta::CPAN

unless (-d $feed_dir) {
    mkdir $feed_dir or die "Cannot create $feed_dir $!";
}

my %constructor = (
                   merchant_id => '__MERCHANT_ID__',
                   access_key_id => '12341234',
                   secret_key => '123412341234',
                   marketplace_id => '123412341234',
                   endpoint => 'https://mws-eu.amazonservices.com',
                   feed_dir => $feed_dir,
                   schema_dir => 'schemas',
                  );

my $uploader = Amazon::MWS::Uploader->new(%constructor);

ok($uploader);
ok($uploader->client->can('agent'), "Client can call agent");
ok($uploader->client->agent->isa('LWP::UserAgent'));
ok($uploader->schema, "schema built");

 view all matches for this distribution
 view release on metacpan -  search on metacpan