(Tcl) eBay -- Create or Replace Inventory Item (2nd example)

Another example for creating an inventory item, with different data.

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.

# This example sends the following sample PUT request to create (or replace) a new inventory item.

# { 
#     "product": { 
#         "title": "Test listing - do not bid or buy - awesome Apple watch test 2",
#         "aspects": { 
#             "Feature" : ["Water resistance", "GPS"],
#             "CPU" : ["Dual-Core Processor"]
#         },
#         "description": "Test listing - do not bid or buy \n Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display that\u2019s two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move ",
#         "upc": ["888462079525"],
#         "imageUrls": [
#             "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975",
#             "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390",
#             "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007"
#         ]
#     },
#     "condition": "NEW",
#     "packageWeightAndSize": { 
#         "dimensions": { 
#             "height": 5,
#             "length": 10,
#             "width": 15,
#             "unit": "INCH"
#         },
#         "packageType": "MAILING_BOX",
#         "weight": { 
#             "value": 2,
#             "unit": "POUND"
#         }
#     },
#     "availability": { 
#         "shipToLocationAvailability": { 
#             "quantity": 10
#         }
#     }
# }

# First, generate the JSON using this code:
set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

CkJsonObject_UpdateString $json "product.title" "Test listing - do not bid or buy - awesome Apple watch test 2"
CkJsonObject_UpdateString $json "product.aspects.Feature[0]" "Water resistance"
CkJsonObject_UpdateString $json "product.aspects.Feature[1]" "GPS"
CkJsonObject_UpdateString $json "product.aspects.CPU[0]" "Dual-Core Processor"
CkJsonObject_UpdateString $json "product.description" "Test listing - do not bid or buy\\n Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display thats two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move "
CkJsonObject_UpdateString $json "product.upc[0]" "888462079525"
CkJsonObject_UpdateString $json "product.imageUrls[0]" "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975"
CkJsonObject_UpdateString $json "product.imageUrls[1]" "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390"
CkJsonObject_UpdateString $json "product.imageUrls[2]" "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007"
CkJsonObject_UpdateString $json "condition" "NEW"
CkJsonObject_UpdateNumber $json "packageWeightAndSize.dimensions.height" "5"
CkJsonObject_UpdateNumber $json "packageWeightAndSize.dimensions.length" "10"
CkJsonObject_UpdateNumber $json "packageWeightAndSize.dimensions.width" "15"
CkJsonObject_UpdateString $json "packageWeightAndSize.dimensions.unit" "INCH"
CkJsonObject_UpdateString $json "packageWeightAndSize.packageType" "MAILING_BOX"
CkJsonObject_UpdateNumber $json "packageWeightAndSize.weight.value" "2"
CkJsonObject_UpdateString $json "packageWeightAndSize.weight.unit" "POUND"
CkJsonObject_UpdateNumber $json "availability.shipToLocationAvailability.quantity" "10"

# Show the JSON to be sent:
puts [CkJsonObject_emit $json]

# Use a previously obtained user token.  The token should look something like this:
# "v^1.1#i^1#r^0#p^3#I^3#f^0#t^H4sIAAAAAAAAAOVXa2wUVRTu9k ... 89xuCWYREAAA=="
set accessToken "EBAY_ACCESS_TOKEN"

set http [new_CkHttp]

# This example uses the sandbox.  
# Change "api.sandbox.ebay.com" to "api.ebay.com" to use the production system.
# Note: The last part of the url is the SKU.  In this URL, the SKU is "AppleWatch".
set url "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/AppleWatch"
CkJsonObject_put_EmitCompact $json 1

# Set your Content-Language to whatever is desired.
CkHttp_SetRequestHeader $http "Content-Language" "en-US"

# Add our access token to the request, which is a header
# having the following format:
# Authorization: Bearer <userAccessToken>
set sbAuth [new_CkStringBuilder]

CkStringBuilder_Append $sbAuth "Bearer "
CkStringBuilder_Append $sbAuth $accessToken
CkHttp_SetRequestHeader $http "Authorization" [CkStringBuilder_getAsString $sbAuth]

CkHttp_put_Accept $http "application/json"
CkHttp_put_AllowGzip $http 0

set strResponse [CkHttp_putText $http $url [CkJsonObject_emit $json] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkStringBuilder $sbAuth
    exit
}

puts "Response status code = [CkHttp_get_LastStatus $http]"

if {[CkHttp_get_LastStatus $http] != 204} then {
    puts "$strResponse"
    puts "Failed"
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkStringBuilder $sbAuth
    exit
}

# On success (status code = 204), there is no output payload (strResponse will be empty).
puts "Inventory item successfully created."

delete_CkJsonObject $json
delete_CkHttp $http
delete_CkStringBuilder $sbAuth