(Perl) Akeneo: Create New Family

Demonstrates how to create a new family.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

# Use your previously obtained access token.
# See Get Akeneo Access Token
$http->put_AuthToken("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

# {
#   "code": "caps",
#   "attributes": [
#     "sku",
#     "name",
#     "description",
#     "price",
#     "color",
#     "picture"
#   ],
#   "attribute_as_label": "name",
#   "attribute_as_image": "picture",
#   "attribute_requirements": {
#     "ecommerce": [
#       "sku",
#       "name",
#       "description",
#       "price",
#       "color"
#     ],
#     "tablet": [
#       "sku",
#       "name",
#       "description",
#       "price"
#     ]
#   },
#   "labels": {
#     "en_US": "Caps",
#     "fr_FR": "Casquettes"
#   }
# }
# 
$json = chilkat::CkJsonObject->new();
$json->UpdateString("code","caps");
$json->UpdateString("attributes[0]","sku");
$json->UpdateString("attributes[1]","name");
$json->UpdateString("attributes[2]","description");
$json->UpdateString("attributes[3]","price");
$json->UpdateString("attributes[4]","color");
$json->UpdateString("attributes[5]","picture");
$json->UpdateString("attribute_as_label","name");
$json->UpdateString("attribute_as_image","picture");
$json->UpdateString("attribute_requirements.ecommerce[0]","sku");
$json->UpdateString("attribute_requirements.ecommerce[1]","name");
$json->UpdateString("attribute_requirements.ecommerce[2]","description");
$json->UpdateString("attribute_requirements.ecommerce[3]","price");
$json->UpdateString("attribute_requirements.ecommerce[4]","color");
$json->UpdateString("attribute_requirements.tablet[0]","sku");
$json->UpdateString("attribute_requirements.tablet[1]","name");
$json->UpdateString("attribute_requirements.tablet[2]","description");
$json->UpdateString("attribute_requirements.tablet[3]","price");
$json->UpdateString("labels.en_US","Caps");
$json->UpdateString("labels.fr_FR","Casquettes");

$json->put_EmitCompact(0);
# Show the JSON to be sent..
print $json->emit() . "\r\n";

$url = "http://pim.my-akeneo-site.com/api/rest/v1/families";
# resp is a HttpResponse
$resp = $http->PostJson3($url,"application/json",$json);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";
print "Response Body: " . "\r\n";
print $resp->bodyStr() . "\r\n";