Tcl
Tcl
Akeneo: Create New Product
See more HTTP Misc Examples
Demonstrates how to create a new product.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set http [new_CkHttp]
# Use your previously obtained access token.
# See Get Akeneo Access Token
CkHttp_put_AuthToken $http "access_token"
# Build the following JSON to be sent in the request body:
# Use this online tool to generate the code from sample JSON:
# Generate Code to Create JSON
# {
# "identifier": "top",
# "enabled": true,
# "family": "tshirt",
# "categories": [
# "summer_collection"
# ],
# "groups": [],
# "parent": null,
# "values": {
# "name": [
# {
# "data": "Top",
# "locale": "en_US",
# "scope": null
# },
# {
# "data": "D�bardeur",
# "locale": "fr_FR",
# "scope": null
# }
# ],
# "description": [
# {
# "data": "Summer top",
# "locale": "en_US",
# "scope": "ecommerce"
# },
# {
# "data": "Top",
# "locale": "en_US",
# "scope": "tablet"
# },
# {
# "data": "D�bardeur pour l'�t�",
# "locale": "fr_FR",
# "scope": "ecommerce"
# },
# {
# "data": "D�bardeur",
# "locale": "fr_FR",
# "scope": "tablet"
# }
# ],
# "price": [
# {
# "locale": null,
# "scope": null,
# "data": [
# {
# "amount": "150.5",
# "currency": "EUR"
# },
# {
# "amount": "150",
# "currency": "USD"
# }
# ]
# }
# ],
# "color": [
# {
# "locale": null,
# "scope": null,
# "data": "black"
# }
# ],
# "size": [
# {
# "locale": null,
# "scope": null,
# "data": "m"
# }
# ]
# },
# "associations": {
# "PACK": {
# "products": [
# "sunglass"
# ],
# "groups": []
# }
# }
# }
#
set json [new_CkJsonObject]
CkJsonObject_UpdateString $json "identifier" "top"
CkJsonObject_UpdateBool $json "enabled" 1
CkJsonObject_UpdateString $json "family" "tshirt"
CkJsonObject_UpdateString $json "categories[0]" "summer_collection"
CkJsonObject_UpdateNewArray $json "groups"
CkJsonObject_UpdateNull $json "parent"
CkJsonObject_UpdateString $json "values.name[0].data" "Top"
CkJsonObject_UpdateString $json "values.name[0].locale" "en_US"
CkJsonObject_UpdateNull $json "values.name[0].scope"
CkJsonObject_UpdateString $json "values.name[1].data" "D�bardeur"
CkJsonObject_UpdateString $json "values.name[1].locale" "fr_FR"
CkJsonObject_UpdateNull $json "values.name[1].scope"
CkJsonObject_UpdateString $json "values.description[0].data" "Summer top"
CkJsonObject_UpdateString $json "values.description[0].locale" "en_US"
CkJsonObject_UpdateString $json "values.description[0].scope" "ecommerce"
CkJsonObject_UpdateString $json "values.description[1].data" "Top"
CkJsonObject_UpdateString $json "values.description[1].locale" "en_US"
CkJsonObject_UpdateString $json "values.description[1].scope" "tablet"
CkJsonObject_UpdateString $json "values.description[2].data" "D�bardeur pour l'�t�"
CkJsonObject_UpdateString $json "values.description[2].locale" "fr_FR"
CkJsonObject_UpdateString $json "values.description[2].scope" "ecommerce"
CkJsonObject_UpdateString $json "values.description[3].data" "D�bardeur"
CkJsonObject_UpdateString $json "values.description[3].locale" "fr_FR"
CkJsonObject_UpdateString $json "values.description[3].scope" "tablet"
CkJsonObject_UpdateNull $json "values.price[0].locale"
CkJsonObject_UpdateNull $json "values.price[0].scope"
CkJsonObject_UpdateString $json "values.price[0].data[0].amount" "150.5"
CkJsonObject_UpdateString $json "values.price[0].data[0].currency" "EUR"
CkJsonObject_UpdateString $json "values.price[0].data[1].amount" "150"
CkJsonObject_UpdateString $json "values.price[0].data[1].currency" "USD"
CkJsonObject_UpdateNull $json "values.color[0].locale"
CkJsonObject_UpdateNull $json "values.color[0].scope"
CkJsonObject_UpdateString $json "values.color[0].data" "black"
CkJsonObject_UpdateNull $json "values.size[0].locale"
CkJsonObject_UpdateNull $json "values.size[0].scope"
CkJsonObject_UpdateString $json "values.size[0].data" "m"
CkJsonObject_UpdateString $json "associations.PACK.products[0]" "sunglass"
CkJsonObject_UpdateNewArray $json "associations.PACK.groups"
CkJsonObject_put_EmitCompact $json 0
# Show the JSON to be sent..
puts [CkJsonObject_emit $json]
set url "http://pim.my-akeneo-site.com/api/rest/v1/products"
set resp [new_CkHttpResponse]
set success [CkHttp_HttpJson $http "POST" $url $json "application/json" $resp]
if {$success == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp
exit
}
puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"
puts "Response Body: "
puts [CkHttpResponse_bodyStr $resp]
# The akeneo response will include a "Location" header, such as the following:
# HTTP/1.1 201 Created
# Date: Tue, 22 Jan 2019 10:36:35 GMT
# Server: Apache/2
# X-Powered-By: PHP/7.1.25
# Cache-Control: max-age=0, private, must-revalidate, no-cache, private
# Set-Cookie: abcdefg; path=/; HttpOnly
# Location: http://xyz.example.com/api/rest/v1/products/L0000123
# Vary: User-Agent
# Content-Length: 0
# Keep-Alive: timeout=2, max=100
# Connection: Keep-Alive
# Content-Type: application/json
# Get the location header using resp.GetHeaderField
set location [CkHttpResponse_getHeaderField $resp "Location"]
puts "Location: $location"
delete_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp