Lianja

Zoom API - Create JWT to Authenticate API Requests

See more Zoom Examples

Creates a JWT for the Zoom API. Lianja

llSuccess = .F.

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

// Use your API key and secret here...
lcApiKey = "o9rw6Gq0RnqlkfaSqtCMOA"
lcApiSecret = "UslmE23Kjh7at9z3If1xAHEyLmPDNxvxQrjR"

// Create a JWT to authenticate Zoom API requests.
loJwt = createobject("CkJwt")

loJose = createobject("CkJsonObject")
llSuccess = loJose.UpdateString("alg","HS256")
llSuccess = loJose.UpdateString("typ","JWT")

// Build claims to look like this:
// {"aud":null,"iss":"o9rw6Gq0RnqlkfaSqtCMOA","exp":1627651762,"iat":1627646363}
loClaims = createobject("CkJsonObject")
llSuccess = loClaims.UpdateString("iss",lcApiKey)
llSuccess = loClaims.UpdateNull("aud")

// Set the timestamp of when the JWT was created to now.
lnCurDateTime = loJwt.GenNumericDate(0)
llSuccess = loClaims.AddIntAt(-1,"iat",lnCurDateTime)

// Set the timestamp defining an expiration time (end time) for the token
// to be now + 1 month(3600 * 24 * 30 seconds)
lnOneMonth = 3600 * 24 * 30
llSuccess = loClaims.AddIntAt(-1,"exp",lnCurDateTime + lnOneMonth)

// Produce the smallest possible JWT:
loJwt.AutoCompact = .T.

lcStrJwt = loJwt.CreateJwt(loJose.Emit(),loClaims.Emit(),lcApiSecret)

? lcStrJwt

// Let's test the JWT to by sending the following request:

// curl --request GET \
//   --url 'https://api.zoom.us/v2/users?status=active&page_size=30&page_number=1' \
//   --header 'authorization: Bearer { your_token }' \
//   --header 'content-type: application/json

loHttp = createobject("CkHttp")

// Implements the following CURL command:

// curl --request GET \
//   --url 'https://api.zoom.us/v2/users?status=active&page_size=30&page_number=1' \
//   --header 'authorization: Bearer { your_token }' \
//   --header 'content-type: application/json

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

loHttp.SetRequestHeader("content-type","application/json")
// Adds the "Authorization: Bearer { your_token }" header.
loHttp.AuthToken = lcStrJwt

loSbResponseBody = createobject("CkStringBuilder")
llSuccess = loHttp.QuickGetSb("https://api.zoom.us/v2/users?status=active&page_size=30&page_number=1",loSbResponseBody)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loJwt
    release loJose
    release loClaims
    release loHttp
    release loSbResponseBody
    return
endif

loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loHttp.LastStatus
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loHttp.LastHeader
    ? "Failed."
    release loJwt
    release loJose
    release loClaims
    release loHttp
    release loSbResponseBody
    release loJResp
    return
endif

// Sample output:

// {
//   "page_count": 1,
//   "page_number": 1,
//   "page_size": 30,
//   "total_records": 1,
//   "users": [
//     {
//       "id": "s8uAiMJiRmS_-eu1yOhKlg",
//       "first_name": "Joe",
//       "last_name": "Example",
//       "email": "joe@example.com",
//       "type": 1,
//       "pmi": 5224934114,
//       "timezone": "America/Chicago",
//       "verified": 1,
//       "created_at": "2021-07-30T11:56:37Z",
//       "last_login_time": "2021-07-30T11:56:37Z",
//       "language": "en-US",
//       "phone_number": "",
//       "status": "active",
//       "role_id": "0"
//     }
//   ]
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

lnPage_count = loJResp.IntOf("page_count")
lnPage_number = loJResp.IntOf("page_number")
lnPage_size = loJResp.IntOf("page_size")
lnTotal_records = loJResp.IntOf("total_records")
i = 0
lnCount_i = loJResp.SizeOfArray("users")
do while i < lnCount_i
    loJResp.I = i
    lcId = loJResp.StringOf("users[i].id")
    lcFirst_name = loJResp.StringOf("users[i].first_name")
    lcLast_name = loJResp.StringOf("users[i].last_name")
    lcEmail = loJResp.StringOf("users[i].email")
    lnV_type = loJResp.IntOf("users[i].type")
    lnPmi = loJResp.IntOf("users[i].pmi")
    lcTimezone = loJResp.StringOf("users[i].timezone")
    lnVerified = loJResp.IntOf("users[i].verified")
    lcCreated_at = loJResp.StringOf("users[i].created_at")
    lcLast_login_time = loJResp.StringOf("users[i].last_login_time")
    lcLanguage = loJResp.StringOf("users[i].language")
    lcPhone_number = loJResp.StringOf("users[i].phone_number")
    lcStatus = loJResp.StringOf("users[i].status")
    lcRole_id = loJResp.StringOf("users[i].role_id")
    i = i + 1
enddo


release loJwt
release loJose
release loClaims
release loHttp
release loSbResponseBody
release loJResp