Tcl
Tcl
eBay -- Create or Replace Inventory Item
See more eBay Examples
This example shows how to create a new inventory item record or update an existing inventory item record.See Create or Replace Inventory Item for more REST API details.
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.
# PUT https://api.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01
# {
# "availability":
# {
# "shipToLocationAvailability":
# {
# "quantity": 50
# }
# },
# "condition": "NEW",
# "product":
# {
# "title": "GoPro Hero4 Helmet Cam",
# "description": "New GoPro Hero4 Helmet Cam. Unopened box.",
# "aspects": {
# "Brand" :["GoPro"],
# "Type" : ["Helmet/Action"],
# "Storage Type" : ["Removable"],
# "Recording Definition" : ["High Definition"],
# "Media Format" : ["Flash Drive (SSD)"],
# "Optical Zoom" : ["10x"]
# },
# "imageUrls": [
# "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg",
# "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg",
# "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg"
# ]
# }
# }
# First, generate the JSON using this code:
set json [new_CkJsonObject]
CkJsonObject_put_EmitCompact $json 0
CkJsonObject_UpdateNumber $json "availability.shipToLocationAvailability.quantity" "50"
CkJsonObject_UpdateString $json "condition" "NEW"
CkJsonObject_UpdateString $json "product.title" "GoPro Hero4 Helmet Cam"
CkJsonObject_UpdateString $json "product.description" "New GoPro Hero4 Helmet Cam. Unopened box."
CkJsonObject_UpdateString $json "product.aspects.Brand[0]" "GoPro"
CkJsonObject_UpdateString $json "product.aspects.Type[0]" "Helmet/Action"
CkJsonObject_UpdateString $json "product.aspects.\"Storage Type\"[0]" "Removable"
CkJsonObject_UpdateString $json "product.aspects.\"Recording Definition\"[0]" "High Definition"
CkJsonObject_UpdateString $json "product.aspects.\"Media Format\"[0]" "Flash Drive (SSD)"
CkJsonObject_UpdateString $json "product.aspects.\"Optical Zoom\"[0]" "10x"
CkJsonObject_UpdateString $json "product.imageUrls[0]" "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg"
CkJsonObject_UpdateString $json "product.imageUrls[1]" "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg"
CkJsonObject_UpdateString $json "product.imageUrls[2]" "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg"
# 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 "GP-Cam-01".
set url "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01"
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