(Perl) Get Akeneo Token given Client ID and Secret

Assumes you're starting with a client ID and secret obtained from your OAuth1 provider, such as OneLogin. Demonstrates how to get an akeneo token using your client id/secret in combination with your akeneo login/password.

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

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

# The HTTP Basic authentication for this request is the
# OAuth client id and secret you've already obtained.
$http->put_BasicAuth(1);
$http->put_Login("my_akeneo_client_id");
$http->put_Password("my_akeneo_secret");

# Build this JSON:
# {
#   "grant_type": "password",
#   "username": "yourusername",
#   "password": "yourpassword"
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("grant_type","password");
$json->UpdateString("username","my_akeneo_username");
$json->UpdateString("password","my_akeneo_password");

# POST this JSON (with the Basic Authentication header)
$url = "http://pim.my-akeneo-site.com/api/oauth/v1/token";
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST",$url,$json,"application/json",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response status code: " . $resp->get_StatusCode() . "\r\n";
print "Response body: " . $resp->bodyStr() . "\r\n";

if ($resp->get_StatusCode() == 200) {
    # Success.
    # Parse the response, which looks like this:

    # 		{
    # 		    "access_token": "MTE0NzNkNzI5YTk0ZTBlNmFlNTI5NmVkOWJhZjUxYWRkN2UzZWIwOWNkMTkwNzY5Mzk3NGViMDFmYzdlODJlMg",
    # 		    "expires_in": 3600,
    # 		    "token_type": "bearer",
    # 		    "scope": null,
    # 		    "refresh_token": "ZDkyMzA2NDhlZjQ2MGQyMDQ2MWRiMDBmOTdkZjQ5ODY5Mzc3MTEzMjVkNTkwZThmNWRlNWY0MzllYWMxZWQ5ZA"
    # 		}

    $json->Load($resp->bodyStr());
    $access_token = $json->stringOf("access_token");
    $expires_in = $json->IntOf("expires_in");
    $token_type = $json->stringOf("token_type");
    $scope = $json->stringOf("scope");
    $refresh_token = $json->stringOf("refresh_token");

    print "Access Token: " . $access_token . "\r\n";
}