(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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
set xml [new_CkXml]

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

# Get the XML in the most compact form for the feed submission.
set sbXml [new_CkStringBuilder]

CkXml_put_EmitCompact $xml 1
CkXml_GetXmlSb $xml $sbXml

# Get the MD5 hash..
set crypt [new_CkCrypt2]

CkCrypt2_put_HashAlgorithm $crypt "md5"
set contentMd5Value [CkCrypt2_hashStringENC $crypt [CkStringBuilder_getAsString $sbXml]]

set rest [new_CkRest]

# 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 
# 
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "mws.amazonservices.com" $port $bTls $bAutoReconnect]

CkRest_put_Host $rest "mws.amazonservices.com"

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

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

CkRest_AddHeader $rest "Content-Type" "text/xml"
set responseXml [CkRest_fullRequestString $rest "POST" "/Feeds/2009-01-01" [CkStringBuilder_getAsString $sbXml]]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkXml $xml
    delete_CkStringBuilder $sbXml
    delete_CkCrypt2 $crypt
    delete_CkRest $rest
    exit
}

if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    # Examine the request/response to see what happened.
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response body: $responseXml"
    puts "---"
    puts "LastRequestStartLine: [CkRest_lastRequestStartLine $rest]"
    puts "LastRequestHeader: [CkRest_lastRequestHeader $rest]"
}

# Examine the XML returned in the response body.
puts "$responseXml"
puts "----"
puts "Success."

delete_CkXml $xml
delete_CkStringBuilder $sbXml
delete_CkCrypt2 $crypt
delete_CkRest $rest