(Tcl) Walmart - Update Inventory for an Item

Note: This example uses classes, properties, or methods discontinued in Chilkat v11.0.0 or greater.

Demonstrates how to update inventory for an item.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# ---------------------------------------------------------------------------------------------------------
# Note: This example is deprecated.  The Walmart API no longer uses the Signature method of authenticating.
# Walmart now uses OAuth2.  
# ---------------------------------------------------------------------------------------------------------

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

# Sends the following PUT request:
# PUT https://marketplace.walmartapis.com/v2/inventory?sku={SKU}

set sbUrl [new_CkStringBuilder]

set success [CkStringBuilder_Append $sbUrl "https://marketplace.walmartapis.com/v2/inventory?sku={SKU}"]
set numReplaced [CkStringBuilder_Replace $sbUrl "{SKU}" "HOPP~904~51041"]

set requestMethod "PUT"

# First we need to generate a signature for our request.
# The signature needs to be re-generated for each new Walmart HTTP request.
set authUtil [new_CkAuthUtil]

set wmConsumerId "WALMART_CONSUMER_ID"
set wmPrivateKey "WALMART_PRIVATE_KEY"
set jsonStr [CkAuthUtil_walmartSignature $authUtil [CkStringBuilder_getAsString $sbUrl] $wmConsumerId $wmPrivateKey $requestMethod]
if {[CkAuthUtil_get_LastMethodSuccess $authUtil] != 1} then {
    puts [CkAuthUtil_lastErrorText $authUtil]
    delete_CkStringBuilder $sbUrl
    delete_CkAuthUtil $authUtil
    exit
}

# The JSON returned by WalmartSignature contains the values to be used in the following
# header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID
set json [new_CkJsonObject]

CkJsonObject_Load $json $jsonStr

set http [new_CkHttp]

CkHttp_SetRequestHeader $http "WM_SVC.NAME" "Walmart Marketplace"
CkHttp_SetRequestHeader $http "WM_QOS.CORRELATION_ID" [CkJsonObject_stringOf $json "correlation_id"]
CkHttp_SetRequestHeader $http "WM_SEC.TIMESTAMP" [CkJsonObject_stringOf $json "timestamp"]
CkHttp_SetRequestHeader $http "WM_SEC.AUTH_SIGNATURE" [CkJsonObject_stringOf $json "signature"]
CkHttp_SetRequestHeader $http "WM_CONSUMER.ID" $wmConsumerId
CkHttp_put_Accept $http "application/xml"

# Note: Do not explicitly set the "Host" header.  Chilkat will set it automatically.

# The body of the PUT request will be XML that looks like this:

# 	<?xml version="1.0" encoding="utf-8" ?>
# 	<wm:inventory xmlns:wm="http://walmart.com/">
# 	    <wm:sku>HOPP~904~51041</wm:sku>
# 	    <wm:quantity>
# 	        <wm:unit>EACH</wm:unit>
# 	        <wm:amount>235</wm:amount>
# 	    </wm:quantity>
# 	    <wm:fulfillmentLagTime>5</wm:fulfillmentLagTime>
# 	</wm:inventory>

# Build the XML request body:
set originalAmount 234

set xmlBody [new_CkXml]

CkXml_put_Tag $xmlBody "wm:inventory"
CkXml_AddAttribute $xmlBody "xmlns:wm" "http://walmart.com/"
CkXml_UpdateChildContent $xmlBody "wm:sku" "HOPP~904~51041"
CkXml_UpdateChildContent $xmlBody "wm:quantity|wm:unit" "EACH"
CkXml_UpdateChildContentInt $xmlBody "wm:quantity|wm:amount" [expr $originalAmount + 1]
CkXml_UpdateChildContent $xmlBody "wm:fulfillmentLagTime" "5"

puts "PUT request body:"
puts [CkXml_getXml $xmlBody]
puts "--"

# This is a simple PUT that can be sent w/ the PutText method.
set xmlStr [CkHttp_putText $http [CkStringBuilder_getAsString $sbUrl] [CkXml_getXml $xmlBody] "utf-8" "application/xml" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkStringBuilder $sbUrl
    delete_CkAuthUtil $authUtil
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkXml $xmlBody
    exit
}

set xml [new_CkXml]

CkXml_LoadXml $xml $xmlStr

# A successful response should have a 200 response status
if {[CkHttp_get_LastStatus $http] != 200} then {
    puts [CkXml_getXml $xml]
    puts "Response Status Code: [CkHttp_get_LastStatus $http]"
    puts "Failed."
    delete_CkStringBuilder $sbUrl
    delete_CkAuthUtil $authUtil
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkXml $xmlBody
    delete_CkXml $xml
    exit
}

# A sample XML response is shown below..
puts [CkXml_getXml $xml]
puts "--"
puts "Success!"

# ---------------------------------------
# Sample XML response
# ---------------------------------------

# <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
# <inventory xmlns="http://walmart.com/">
#     <sku>HOPP~904~51041</sku>
#     <quantity>
#         <unit>EACH</unit>
#         <amount>235</amount>
#     </quantity>
#     <fulfillmentLagTime>5</fulfillmentLagTime>
# </inventory>

delete_CkStringBuilder $sbUrl
delete_CkAuthUtil $authUtil
delete_CkJsonObject $json
delete_CkHttp $http
delete_CkXml $xmlBody
delete_CkXml $xml