Tcl
Tcl
Walmart v3 Item Setup by Match
See more Walmart v3 Examples
Provides a quick and convenient way to set up items by matching your items to existing item content on Walmart.com.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# 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"
set resp [new_CkHttpResponse]
set success [CkHttp_HttpJson $http "POST" "https://marketplace.walmartapis.com/v3/feeds?feedType=item" $json "application/json" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp
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_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp
exit
}
# 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_CkHttpResponse $resp
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp