(PureBasic) Refresh WiX Access Token

Request a new access token each time you call a WiX API. Use the refresh token together with your secret key, to request refresh tokens

For more information, see https://dev.wix.com/api/rest/authorization/oauth-2/refresh-an-access-token

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Implements the following CURL command:

    ; curl -X POST \
    ;   https://www.wix.com/oauth/access \
    ;   -H 'Content-Type: application/json' \
    ;   -d '{
    ;     "grant_type": "refresh_token",
    ;     "client_id": <CLIENT_ID>,
    ;     "client_secret": <CLIENT_SECRET>,
    ;     "refresh_token": <REFRESH_TOKEN>
    ; }'

    ; It is assumed we previously obtained an OAuth2 access token.
    ; This example loads the JSON access token file 
    ; saved by this example: Get WiX OAuth2 Access Token

    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/wix.json")
    If success <> 1
        Debug "Failed to load square.json"
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    ; Get the "refresh_token"
    refreshToken.s = CkJsonObject::ckStringOf(jsonToken,"refresh_token")

    ; The following JSON is sent in the request body.

    ; {
    ;   "grant_type": "refresh_token",
    ;   "client_id": <APP_ID>,
    ;   "client_secret": <APP_SECRET>,
    ;   "refresh_token": <REFRESH_TOKEN>
    ; }

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(json,"grant_type","refresh_token")
    CkJsonObject::ckUpdateString(json,"client_id","CLIENT_ID")
    CkJsonObject::ckUpdateString(json,"client_secret","CLIENT_SECRET")
    CkJsonObject::ckUpdateString(json,"refresh_token",refreshToken)

    CkHttp::ckSetRequestHeader(http,"Content-Type","application/json")

    resp.i = CkHttp::ckPostJson3(http,"https://www.wix.com/oauth/access","application/json",json)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    sbResponseBody.i = CkStringBuilder::ckCreate()
    If sbResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpResponse::ckGetBodySb(resp,sbResponseBody)
    jResp.i = CkJsonObject::ckCreate()
    If jResp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadSb(jResp,sbResponseBody)
    CkJsonObject::setCkEmitCompact(jResp, 0)

    Debug "Response Body:"
    Debug CkJsonObject::ckEmit(jResp)

    respStatusCode.i = CkHttpResponse::ckStatusCode(resp)
    Debug "Response Status Code = " + Str(respStatusCode)
    If respStatusCode >= 400
        Debug "Response Header:"
        Debug CkHttpResponse::ckHeader(resp)
        Debug "Failed."
        CkHttpResponse::ckDispose(resp)

        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkJsonObject::ckDispose(json)
        CkStringBuilder::ckDispose(sbResponseBody)
        CkJsonObject::ckDispose(jResp)
        ProcedureReturn
    EndIf

    CkHttpResponse::ckDispose(resp)

    ; Sample JSON response:

    ; {
    ;   "refresh_token": "OAUTH2.eyJraWQ ... vnB4cQ",
    ;   "access_token": "OAUTH2.eyJra ... la18lrw"
    ; }

    refresh_token.s = CkJsonObject::ckStringOf(jResp,"refresh_token")
    access_token.s = CkJsonObject::ckStringOf(jResp,"access_token")

    ; Save the new JSON access token response to a file.
    CkStringBuilder::ckWriteFile(sbResponseBody,"qa_data/tokens/wix.json","utf-8",0)


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(jsonToken)
    CkJsonObject::ckDispose(json)
    CkStringBuilder::ckDispose(sbResponseBody)
    CkJsonObject::ckDispose(jResp)


    ProcedureReturn
EndProcedure