Visual FoxPro
OneLogin OIDC - Get Discovery Document (OpenID Connect)

Downloads the OpenID Connect self-discovery document for a OneLogin OIDC enabled app.
Chilkat Visual FoxPro Downloads

Visual FoxPro
LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJsonResponse
LOCAL lcAuthorization_endpoint
LOCAL lnClaims_parameter_supported
LOCAL lcIssuer
LOCAL lcJwks_uri
LOCAL lnRequest_parameter_supported
LOCAL lnRequest_uri_parameter_supported
LOCAL lcToken_endpoint
LOCAL lcUserinfo_endpoint
LOCAL lcIntrospection_endpoint
LOCAL lcRevocation_endpoint
LOCAL i
LOCAL lnCount_i
LOCAL lcStrVal

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

loHttp.Accept = "application/json"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://<account>.onelogin.com/oidc/.well-known/openid-configuration",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loResp
    RELEASE loJsonResponse
    CANCEL
ENDIF

*  Sample output...
*  (See the parsing code below..)
*  
*  Use the this online tool to generate parsing code from sample JSON: 
*  Generate Parsing Code from JSON

*  {
*    "acr_values_supported": [
*      "onelogin:nist:level:1:re-auth"
*    ],
*    "authorization_endpoint": "https://chilkat-dev.onelogin.com/oidc/auth",
*    "claims_parameter_supported": true,
*    "claims_supported": [
*      "acr",
*      "auth_time",
*      "company",
*      "custom_fields",
*      "department",
*      "email",
*      "family_name",
*      "given_name",
*      "groups",
*      "iss",
*      "locale_code",
*      "name",
*      "params",
*      "phone_number",
*      "preferred_username",
*      "sid",
*      "sub",
*      "title",
*      "updated_at"
*    ],
*    "grant_types_supported": [
*      "authorization_code",
*      "implicit",
*      "refresh_token",
*      "client_credentials",
*      "password"
*    ],
*    "id_token_signing_alg_values_supported": [
*      "RS256"
*    ],
*    "issuer": "https://openid-connect.onelogin.com/oidc",
*    "jwks_uri": "https://chilkat-dev.onelogin.com/oidc/certs",
*    "request_parameter_supported": false,
*    "request_uri_parameter_supported": false,
*    "response_modes_supported": [
*      "form_post",
*      "fragment",
*      "query"
*    ],
*    "response_types_supported": [
*      "code",
*      "id_token token",
*      "id_token"
*    ],
*    "scopes_supported": [
*      "openid",
*      "name",
*      "profile",
*      "groups",
*      "email",
*      "params",
*      "phone"
*    ],
*    "subject_types_supported": [
*      "public"
*    ],
*    "token_endpoint": "https://chilkat-dev.onelogin.com/oidc/token",
*    "token_endpoint_auth_methods_supported": [
*      "client_secret_basic",
*      "client_secret_post",
*      "none"
*    ],
*    "userinfo_endpoint": "https://chilkat-dev.onelogin.com/oidc/me",
*    "userinfo_signing_alg_values_supported": [
*    ],
*    "code_challenge_methods_supported": [
*      "S256"
*    ],
*    "introspection_endpoint": "https://chilkat-dev.onelogin.com/oidc/token/introspection",
*    "introspection_endpoint_auth_methods_supported": [
*      "client_secret_basic",
*      "client_secret_post",
*      "none"
*    ],
*    "revocation_endpoint": "https://chilkat-dev.onelogin.com/oidc/token/revocation",
*    "revocation_endpoint_auth_methods_supported": [
*      "client_secret_basic",
*      "client_secret_post",
*      "none"
*    ],
*    "claim_types_supported": [
*      "normal"
*    ]
*  }
*  

lcAuthorization_endpoint = loJsonResponse.StringOf("authorization_endpoint")
lnClaims_parameter_supported = loJsonResponse.BoolOf("claims_parameter_supported")
lcIssuer = loJsonResponse.StringOf("issuer")
lcJwks_uri = loJsonResponse.StringOf("jwks_uri")
lnRequest_parameter_supported = loJsonResponse.BoolOf("request_parameter_supported")
lnRequest_uri_parameter_supported = loJsonResponse.BoolOf("request_uri_parameter_supported")
lcToken_endpoint = loJsonResponse.StringOf("token_endpoint")
lcUserinfo_endpoint = loJsonResponse.StringOf("userinfo_endpoint")
lcIntrospection_endpoint = loJsonResponse.StringOf("introspection_endpoint")
lcRevocation_endpoint = loJsonResponse.StringOf("revocation_endpoint")
i = 0
lnCount_i = loJsonResponse.SizeOfArray("acr_values_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("acr_values_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("claims_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("claims_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("grant_types_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("grant_types_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("id_token_signing_alg_values_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("id_token_signing_alg_values_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("response_modes_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("response_modes_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("response_types_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("response_types_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("scopes_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("scopes_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("subject_types_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("subject_types_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("token_endpoint_auth_methods_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("token_endpoint_auth_methods_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("userinfo_signing_alg_values_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("code_challenge_methods_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("code_challenge_methods_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("introspection_endpoint_auth_methods_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("introspection_endpoint_auth_methods_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("revocation_endpoint_auth_methods_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("revocation_endpoint_auth_methods_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJsonResponse.SizeOfArray("claim_types_supported")
DO WHILE i < lnCount_i
    loJsonResponse.I = i
    lcStrVal = loJsonResponse.StringOf("claim_types_supported[i]")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loResp
RELEASE loJsonResponse