(Tcl) Akeneo: Create New Product

Demonstrates how to create a new product.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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": "Dbardeur",
#         "locale": "fr_FR",
#         "scope": null
#       }
#     ],
#     "description": [
#       {
#         "data": "Summer top",
#         "locale": "en_US",
#         "scope": "ecommerce"
#       },
#       {
#         "data": "Top",
#         "locale": "en_US",
#         "scope": "tablet"
#       },
#       {
#         "data": "Dbardeur pour l't",
#         "locale": "fr_FR",
#         "scope": "ecommerce"
#       },
#       {
#         "data": "Dbardeur",
#         "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" "Dbardeur"
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" "Dbardeur 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" "Dbardeur"
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"
# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http $url "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    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_CkHttpResponse $resp


delete_CkHttp $http
delete_CkJsonObject $json