(Perl) MWS SubmitFeed (Amazon Marketplace Web Service)

Uploads a feed for processing by Amazon MWS.

See Amazon MWS SubmitFeed for the Amazon MWS SubmitFeed reference documentation.

Important: The Chilkat v9.5.0.75 release accidentally breaks Amazon MWS (not AWS) authentication. If you need MWS with 9.5.0.75, send email to support@chilkatsoft.com for a hotfix, or revert back to v9.5.0.73, or update to a version after 9.5.0.75.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# This example will send an XML file in the HTTP request body.  
# First we'll construct the XML, then we'll compute the MD5 digest which needs to be added as a query param..

# Construct the following XML.   (This is just a sample XML body..)

# <AmazonEnvelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
#     xsi:noNamespaceSchemaLocation="amzn-envelope.xsd">
#   <Header>
#     <DocumentVersion>1.01</DocumentVersion>
#     <MerchantIdentifier>M_EXAMPLE_123456</MerchantIdentifier>
#   </Header>
#   <MessageType>Product</MessageType>
#   <PurgeAndReplace>false</PurgeAndReplace>
#   <Message>
#     <MessageID>1</MessageID>
#     <OperationType>Update</OperationType>
#     <Product>
#       <SKU>56789</SKU>
#       <StandardProductID>
#         <Type>ASIN</Type>
#         <Value>B0EXAMPLEG</Value>
#       </StandardProductID>
#       <ProductTaxCode>A_GEN_NOTAX</ProductTaxCode>
#       <DescriptionData>
#         <Title>Example Product Title</Title>
#         <Brand>Example Product Brand</Brand>
#         <Description>This is an example product description.</Description>
#         <BulletPoint>Example Bullet Point 1</BulletPoint>
#         <BulletPoint>Example Bullet Point 2</BulletPoint>
#         <MSRP currency="USD">25.19</MSRP>
#         <Manufacturer>Example Product Manufacturer</Manufacturer>
#         <ItemType>example-item-type</ItemType>
#       </DescriptionData>
#       <ProductData>
#         <Health>
#           <ProductType>
#             <HealthMisc>
#               <Ingredients>Example Ingredients</Ingredients>
#               <Directions>Example Directions</Directions>
#             </HealthMisc>
#           </ProductType>
#         </Health>
#       </ProductData>
#     </Product>
#   </Message>
# </AmazonEnvelope>

# This code was generated by pasting the above XML into the online tool at http://tools.chilkat.io/xmlCreate.cshtml
$xml = chilkat::CkXml->new();
$xml->put_Tag("AmazonEnvelope");
$xml->AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance");
$xml->AddAttribute("xsi:noNamespaceSchemaLocation","amzn-envelope.xsd");
$xml->UpdateChildContent("Header|DocumentVersion","1.01");
$xml->UpdateChildContent("Header|MerchantIdentifier","M_EXAMPLE_123456");
$xml->UpdateChildContent("MessageType","Product");
$xml->UpdateChildContent("PurgeAndReplace","false");
$xml->UpdateChildContent("Message|MessageID","1");
$xml->UpdateChildContent("Message|OperationType","Update");
$xml->UpdateChildContent("Message|Product|SKU","56789");
$xml->UpdateChildContent("Message|Product|StandardProductID|Type","ASIN");
$xml->UpdateChildContent("Message|Product|StandardProductID|Value","B0EXAMPLEG");
$xml->UpdateChildContent("Message|Product|ProductTaxCode","A_GEN_NOTAX");
$xml->UpdateChildContent("Message|Product|DescriptionData|Title","Example Product Title");
$xml->UpdateChildContent("Message|Product|DescriptionData|Brand","Example Product Brand");
$xml->UpdateChildContent("Message|Product|DescriptionData|Description","This is an example product description.");
$xml->UpdateChildContent("Message|Product|DescriptionData|BulletPoint","Example Bullet Point 1");
$xml->UpdateChildContent("Message|Product|DescriptionData|BulletPoint[1]","Example Bullet Point 2");
$xml->UpdateAttrAt("Message|Product|DescriptionData|MSRP",1,"currency","USD");
$xml->UpdateChildContent("Message|Product|DescriptionData|MSRP","25.19");
$xml->UpdateChildContent("Message|Product|DescriptionData|Manufacturer","Example Product Manufacturer");
$xml->UpdateChildContent("Message|Product|DescriptionData|ItemType","example-item-type");
$xml->UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Ingredients","Example Ingredients");
$xml->UpdateChildContent("Message|Product|ProductData|Health|ProductType|HealthMisc|Directions","Example Directions");

# Get the XML in the most compact form for the feed submission.
$sbXml = chilkat::CkStringBuilder->new();
$xml->put_EmitCompact(1);
$xml->GetXmlSb($sbXml);

# Get the MD5 hash..
$crypt = chilkat::CkCrypt2->new();
$crypt->put_HashAlgorithm("md5");
$contentMd5Value = $crypt->hashStringENC($sbXml->getAsString());

$rest = chilkat::CkRest->new();

# Connect to the Amazon MWS REST server.
# 
# Make sure to connect to the correct Amazon MWS Endpoing, otherwise
# you'll get an HTTP 401 response code.
# 
# The possible servers are:
# 
# North America (NA) 	https://mws.amazonservices.com
# Europe (EU) 	https://mws-eu.amazonservices.com
# India (IN) 	https://mws.amazonservices.in
# China (CN) 	https://mws.amazonservices.com.cn
# Japan (JP) 	https://mws.amazonservices.jp 
# 
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("mws.amazonservices.com",$port,$bTls,$bAutoReconnect);

$rest->put_Host("mws.amazonservices.com");

$rest->AddQueryParam("AWSAccessKeyId","0PB842ExampleN4ZTR2");
$rest->AddQueryParam("Action","SubmitFeed");
$rest->AddQueryParam("FeedType","_POST_PRODUCT_DATA_");
$rest->AddQueryParam("MWSAuthToken","amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE");
$rest->AddQueryParam("MarketplaceId.Id.1","ATVExampleDER");
$rest->AddQueryParam("SellerId","A1XExample5E6");
$rest->AddQueryParam("ContentMD5Value",$contentMd5Value);
$rest->AddQueryParam("SignatureMethod","HmacSHA256");
$rest->AddQueryParam("SignatureVersion","2");
$rest->AddQueryParam("Version","2009-01-01");

# Add the MWS Signature param.  (Also adds the Timestamp parameter using the curent system date/time.)
$rest->AddMwsSignature("POST","/Feeds/2009-01-01","mws.amazonservices.com","MWS_SECRET_ACCESS_KEY_ID");

$rest->AddHeader("Content-Type","text/xml");
$responseXml = $rest->fullRequestString("POST","/Feeds/2009-01-01",$sbXml->getAsString());
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

if ($rest->get_ResponseStatusCode() != 200) {
    # Examine the request/response to see what happened.
    print "response status code = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "response status text = " . $rest->responseStatusText() . "\r\n";
    print "response header: " . $rest->responseHeader() . "\r\n";
    print "response body: " . $responseXml . "\r\n";
    print "---" . "\r\n";
    print "LastRequestStartLine: " . $rest->lastRequestStartLine() . "\r\n";
    print "LastRequestHeader: " . $rest->lastRequestHeader() . "\r\n";
}

# Examine the XML returned in the response body.
print $responseXml . "\r\n";
print "----" . "\r\n";
print "Success." . "\r\n";