Xbase++

Get Akeneo Token given Client ID and Secret

See more HTTP Misc Examples

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. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL cUrl
LOCAL oResp
LOCAL cAccess_token
LOCAL nExpires_in
LOCAL cToken_type
LOCAL cScope
LOCAL cRefresh_token

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  The HTTP Basic authentication for this request is the
//  OAuth client id and secret you've already obtained.
oHttp:BasicAuth := 1
oHttp:Login := "my_akeneo_client_id"
oHttp:Password := "my_akeneo_secret"

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

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("grant_type", "password")
oJson:UpdateString("username", "my_akeneo_username")
oJson:UpdateString("password", "my_akeneo_password")

//  POST this JSON (with the Basic Authentication header)
cUrl := "http://pim.my-akeneo-site.com/api/oauth/v1/token"
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", cUrl, oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response status code: " + Str(oResp:StatusCode)
? "Response body: " + oResp:BodyStr

IF (oResp:StatusCode == 200)
    //  Success.
    //  Parse the response, which looks like this:

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

    oJson:Load(oResp:BodyStr)
    cAccess_token := oJson:StringOf("access_token")
    nExpires_in := oJson:IntOf("expires_in")
    cToken_type := oJson:StringOf("token_type")
    cScope := oJson:StringOf("scope")
    cRefresh_token := oJson:StringOf("refresh_token")

    ? "Access Token: " + cAccess_token
ENDIF

oHttp:destroy()
oJson:destroy()
oResp:destroy()