Lua

RSAP Union API - Get OAuth2 Access Token

See more _Miscellaneous_ Examples

Demonstrates how to get an OAuth2 access token for the RSAP Union API. Note: This uses the client credentials flow, which does NOT require an interactive engagement using a browser. Lua

local chilkat = require("chilkat")

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

local http = chilkat.Http.new()

-- The following JSON is sent in the request body.

-- {
--   "grant_type": "client_credentials",
--   "client_id": 1234,
--   "client_secret": "23456abcde"
-- }

local json = chilkat.JsonObject.new()
json:update_string("grant_type", "client_credentials")
json:update_int("client_id", 1234)
json:update_string("client_secret", "23456abcde")

http:set_request_header("Content-type", "application/json")

-- Add the client certificate TLS authentication.
local cert = chilkat.Cert.new()
local success = cert:load_from_file("qa_data/certs_and_keys/union_client_certificate.crt")
if not success then
    print(cert.last_error_text)
    return
end

local privKey = chilkat.PrivateKey.new()
success = privKey:load_any_format_file("qa_data/certs_and_keys/union_client_certificate.nopass.key", "")
if not success then
    print(privKey.last_error_text)
    return
end

-- Associate the private key with the cert.
-- This will fail if the private key is not actually the correct one that corresponds to the public key stored within the cert.
success = cert:set_private_key(privKey)
if not success then
    print(cert.last_error_text)
    return
end

-- Tell HTTP to use the cert for client TLS certificate authentication.
success = http:set_ssl_client_cert(cert)
if not success then
    print(http.last_error_text)
    return
end

local resp = chilkat.HttpResponse.new()
success = http:http_json("POST", "https://api-test.rsap.ca/oauth/token", json, "application/json", resp)
if not success then
    print(http.last_error_text)
    return
end

local sbResponseBody = chilkat.StringBuilder.new()
resp:get_body_sb(sbResponseBody)
local jResp = chilkat.JsonObject.new()
jResp:load_sb(sbResponseBody)
jResp.emit_compact = false

print("Response Body:")
print(jResp:emit())

local respStatusCode = resp.status_code
print("Response Status Code = " .. respStatusCode)
if respStatusCode >= 400 then
    print("Response Header:")
    print(resp.header)
    print("Failed.")
    return
end

-- Sample JSON response:
-- (Sample code for parsing the JSON response is shown below)

-- {
--   "token_type": "Bearer",
--   "expires_in": 3600,
--   "access_token": "eyJ0eXAi...LnE"
-- }

-- This token expires in 1 hour.  Your application could re-use the same token for up to an hour,
-- or it can simply get a new access token before each request (if you're not doing too many requests).
success = jResp:write_file("qa_data/tokens/rsapToken.json")