Tcl Requires Chilkat v11.0.0+
Tcl
eBay -- Create or Replace Inventory Item (2nd example)
See more eBay Examples
Another example for creating an inventory item, with different data.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.
# 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 that�s 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 resp [new_CkHttpResponse]
set success [CkHttp_HttpStr $http "PUT" $url [CkJsonObject_emit $json] "utf-8" "application/json" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkJsonObject $json
delete_CkHttp $http
delete_CkStringBuilder $sbAuth
delete_CkHttpResponse $resp
exit
}
puts "Response status code = [CkHttpResponse_get_StatusCode $resp]"
if {[CkHttp_get_LastStatus $http] != 204} then {
puts [CkHttpResponse_bodyStr $resp]
puts "Failed"
delete_CkJsonObject $json
delete_CkHttp $http
delete_CkStringBuilder $sbAuth
delete_CkHttpResponse $resp
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
delete_CkHttpResponse $resp