B4X Requires Chilkat v11.5.0+

curl Update Local Manager Secrets

See more CURL Examples

Demonstrates how to initially write secrets to the local manager that will later be used in curl commands. On Windows, this refers to the Windows Credential Manager, and on macOS, it refers to the Apple Keychain. B4X

Dim success As Boolean = False

'  This example will store 3 secrets in the local manager.

'  On Windows, this refers to the Windows Credential Manager, and on macOS, it refers to the Apple Keychain.
'  These secrets will be used at a later point in time in curl commands,
'  as shown in this example:  Using Local Manager Secrets with curl

'  Also see: Chilkat v11.5.0 — Secrets Integration
'  and also: Chilkat Secrets API

Dim secrets As ChilkatSecrets
secrets.Initialize("secrets")

Dim json As ChilkatJsonObject
json.Initialize

json.UpdateString("appName", "sharepoint")
json.UpdateString("service", "oauth2")
json.UpdateString("username", "client_id")

'  These are not actual/real values..
success = secrets.UpdateSecretStr(json, "4afc67c5-6d3f-4ed0-91c7-5d239c78bff7")
If success = False Then
    Log(secrets.LastErrorText)
    Return
End If


json.UpdateString("username", "client_secret")
success = secrets.UpdateSecretStr(json, "Rlh8Q~xaP10Dw-goWQDLXrRJfYAFVW1hHauvfhO6")
If success = False Then
    Log(secrets.LastErrorText)
    Return
End If


json.UpdateString("username", "token_endpoint")
success = secrets.UpdateSecretStr(json, "https://login.microsoftonline.com/5f410b89-177f-40b3-9d66-ac519c728025/oauth2/v2.0/token")
If success = False Then
    Log(secrets.LastErrorText)
    Return
End If


'  -----------------------------------------------------------------------------------------------------------
'  The above secrets would be accessed like this:
Dim json2 As ChilkatJsonObject
json2.Initialize

json2.EnableSecrets = True

'  Chilkat sees the secret specification string (beginning with "!!") and resolves from the local manager.
json2.UpdateString("x", "!!sharepoint|oauth2|client_id")
Log("x = " & json2.StringOf("x"))

json2.UpdateString("y", "!!sharepoint|oauth2|client_secret")
Log("y = " & json2.StringOf("y"))

json2.UpdateString("z", "!!sharepoint|oauth2|token_endpoint")
Log("z = " & json2.StringOf("z"))

'  You can see the values retrieved from the local manager:

'  x = 4afc67c5-6d3f-4ed0-91c7-5d239c78bff7
'  y = Rlh8Q~xaP10Dw-goWQDLXrRJfYAFVW1hHauvfhO6
'  z = https://login.microsoftonline.com/5f410b89-177f-40b3-9d66-ac519c728025/oauth2/v2.0/token