(Tcl) Walmart v3 Item Setup by Match

Provides a quick and convenient way to set up items by matching your items to existing item content on Walmart.com.

For more information, see https://developer.walmart.com/#/apicenter/marketPlace/latest#itemSetupByMatch

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Implements the following CURL command:

# curl -X POST \
#   https://marketplace.walmartapis.com/v3/feeds?feedType=item \
#   -H 'WM_SVC.NAME: Walmart Marketplace'
#   -H 'WM_SEC.ACCESS_TOKEN: eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....'
#   -H 'WM_QOS.CORRELATION_ID: b3261d2d-028a-4ef7-8602-633c23200af6'
#   -H 'Content-Type: application/json'
#   -H 'Accept: application/json'
#   -d '{
#     "MPItemFeedHeader": {
#         "version": "3.2.1"
#     },
#     "MPItem": [
#         {
#             "sku": "setup_by_ref",
#             "productIdentifiers": [
#                 {
#                     "productIdType": "GTIN",
#                     "productId": "05518319011365"
#                 }
#             ],
#             "MPProduct": {
#                 "category": "Electronics",
#                 "subCategory": "ElectronicsAccessories"
#             },
#             "MPOffer": {
#                 "price": 12.00,
#                 "shippingWeight": {
#                     "measure": 0.5,
#                     "unit": "lb"
#                 },
#                 "productTaxCode": 2038710
#             }
#         }
#     ]
# }'

# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON

# The following JSON is sent in the request body.

# {
#   "MPItemFeedHeader": {
#     "version": "3.2.1"
#   },
#   "MPItem": [
#     {
#       "sku": "setup_by_ref",
#       "productIdentifiers": [
#         {
#           "productIdType": "GTIN",
#           "productId": "05518319011365"
#         }
#       ],
#       "MPProduct": {
#         "category": "Electronics",
#         "subCategory": "ElectronicsAccessories"
#       },
#       "MPOffer": {
#         "price": 12.00,
#         "shippingWeight": {
#           "measure": 0.5,
#           "unit": "lb"
#         },
#         "productTaxCode": 2038710
#       }
#     }
#   ]
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "MPItemFeedHeader.version" "3.2.1"
CkJsonObject_UpdateString $json "MPItem[0].sku" "setup_by_ref"
CkJsonObject_UpdateString $json "MPItem[0].productIdentifiers[0].productIdType" "GTIN"
CkJsonObject_UpdateString $json "MPItem[0].productIdentifiers[0].productId" "05518319011365"
CkJsonObject_UpdateString $json "MPItem[0].MPProduct.category" "Electronics"
CkJsonObject_UpdateString $json "MPItem[0].MPProduct.subCategory" "ElectronicsAccessories"
CkJsonObject_UpdateNumber $json "MPItem[0].MPOffer.price" "12.00"
CkJsonObject_UpdateNumber $json "MPItem[0].MPOffer.shippingWeight.measure" "0.5"
CkJsonObject_UpdateString $json "MPItem[0].MPOffer.shippingWeight.unit" "lb"
CkJsonObject_UpdateInt $json "MPItem[0].MPOffer.productTaxCode" 2038710

CkHttp_SetRequestHeader $http "WM_QOS.CORRELATION_ID" "b3261d2d-028a-4ef7-8602-633c23200af6"
CkHttp_SetRequestHeader $http "Content-Type" "application/json"
CkHttp_SetRequestHeader $http "WM_SEC.ACCESS_TOKEN" "eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM....."
CkHttp_SetRequestHeader $http "Accept" "application/json"
CkHttp_SetRequestHeader $http "WM_SVC.NAME" "Walmart Marketplace"

# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http "https://marketplace.walmartapis.com/v3/feeds?feedType=item" "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    exit
}

set sbResponseBody [new_CkStringBuilder]

CkHttpResponse_GetBodySb $resp $sbResponseBody
set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

delete_CkHttpResponse $resp

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "feedId": "BC141881F6BB4B5891F084B225581BF2@AUUBAQA"
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set feedId [CkJsonObject_stringOf $jResp "feedId"]

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp