B4X

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. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

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

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

Dim json As ChilkatJsonObject
json.Initialize
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)
Dim url As String = "http://pim.my-akeneo-site.com/api/oauth/v1/token"
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", url, json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("Response status code: " & resp.StatusCode)
Log("Response body: " & resp.BodyStr)

If resp.StatusCode = 200 Then
    '  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)
    Dim access_token As String = json.StringOf("access_token")
    Dim expires_in As Int = json.IntOf("expires_in")
    Dim token_type As String = json.StringOf("token_type")
    Dim scope As String = json.StringOf("scope")
    Dim refresh_token As String = json.StringOf("refresh_token")

    Log("Access Token: " & access_token)
End If