(Tcl) Walmart - Get All Feed Statuses

Note: This is an older example for the Walmart v2 API. You should instead use the Walmart v3 API.

Demonstrates how to send a Walmart REST API request to get all feed statuses.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# --------------------------------------------------------------------
# This example is for the older and deprecated Walmart v2 API.
# 
# Use the v3 API instead: Walmart v3 Get All Feed Statuses
# --------------------------------------------------------------------

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

# Demonstrates how to send a request such as the following to get all feed statuses:
# Also demonstrates how to parse the results.

# GET /v2/feeds HTTP/1.1
# WM_SVC.NAME: Walmart Marketplace
# WM_QOS.CORRELATION_ID: 123456abcdef
# WM_SEC.TIMESTAMP: 1438147839
# WM_SEC.AUTH_SIGNATURE: 9khb0lPeRt0WSGbXNGGj4kSQ9L6PMBX/q+ovdy9bDQfvdhYs8NoEsjRX4fD7UNIHTddgkmSVqAqeIIHlaLcRIl0Y4DcJqQYHL27LiWlsm91nYodGssWTKsOq6dJfUHEy95M4zXFGWDDhbHYCor28SCV/g/JdEQybGkcX9Zj5aDyg=
# WM_CONSUMER.ID: a20ac266-9add-4fc7-9392-fec303f5155c
# Accept: application/xml
# Host: https://marketplace.walmartapis.com

set requestUrl "https://marketplace.walmartapis.com/v2/feeds"
set requestMethod "GET"

# 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 $requestUrl $wmConsumerId $wmPrivateKey $requestMethod]
if {[CkAuthUtil_get_LastMethodSuccess $authUtil] != 1} then {
    puts [CkAuthUtil_lastErrorText $authUtil]
    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.

set xmlStr [CkHttp_quickGetStr $http $requestUrl]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkAuthUtil $authUtil
    delete_CkJsonObject $json
    delete_CkHttp $http
    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_CkAuthUtil $authUtil
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkXml $xml
    exit
}

# A sample XML response is shown below..

# To iterate over the Walmart feeds:
set numFeeds [CkXml_NumChildrenAt $xml "ns2:results"]
set i 0
while {$i < $numFeeds} {
    CkXml_put_I $xml $i

    puts "Feed ID: [CkXml_getChildContent $xml {ns2:results|ns2:feed[i]|ns2:feedId}]"
    puts "Feed Type: [CkXml_getChildContent $xml {ns2:results|ns2:feed[i]|ns2:feedType}]"
    puts "Num Items Recieved: [CkXml_GetChildIntValue $xml {ns2:results|ns2:feed[i]|ns2:itemsReceived}]"
    puts "Feed Status: [CkXml_getChildContent $xml {ns2:results|ns2:feed[i]|ns2:feedStatus}]"
    puts "--"

    set i [expr $i + 1]
}

puts "Success."

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

# <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
# <ns2:list xmlns:ns2="http://walmart.com/">
#     <ns2:totalResults>1293</ns2:totalResults>
#     <ns2:offset>0</ns2:offset>
#     <ns2:limit>50</ns2:limit>
#     <ns2:results>
#         <ns2:feed>
#             <ns2:feedId>AAAA7F0345E9403C91223F7139FFC341@AQsBAQA</ns2:feedId>
#             <ns2:feedType>inventory</ns2:feedType>
#             <ns2:partnerId>10000999999</ns2:partnerId>
#             <ns2:itemsReceived>130088</ns2:itemsReceived>
#             <ns2:itemsSucceeded>113154</ns2:itemsSucceeded>
#             <ns2:itemsFailed>16934</ns2:itemsFailed>
#             <ns2:itemsProcessing>0</ns2:itemsProcessing>
#             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
#             <ns2:feedDate>2017-04-27T17:05:42.078Z</ns2:feedDate>
#             <ns2:modifiedDtm>2017-04-27T18:06:10.795Z</ns2:modifiedDtm>
#         </ns2:feed>
#         <ns2:feed>
#             <ns2:feedId>AAAAF1F402CD407FA363AD2929593FFF@AQsBAQA</ns2:feedId>
#             <ns2:feedType>inventory</ns2:feedType>
#             <ns2:partnerId>10000999999</ns2:partnerId>
#             <ns2:itemsReceived>39594</ns2:itemsReceived>
#             <ns2:itemsSucceeded>34533</ns2:itemsSucceeded>
#             <ns2:itemsFailed>5061</ns2:itemsFailed>
#             <ns2:itemsProcessing>0</ns2:itemsProcessing>
#             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
#             <ns2:feedDate>2017-04-27T05:18:59.739Z</ns2:feedDate>
#             <ns2:modifiedDtm>2017-04-27T05:20:30.192Z</ns2:modifiedDtm>
#         </ns2:feed>
# ...
#     </ns2:results>
# </ns2:list>

delete_CkAuthUtil $authUtil
delete_CkJsonObject $json
delete_CkHttp $http
delete_CkXml $xml