Tcl Requires Chilkat v11.5.0+

Example: Secrets.SecretSpecToJson method

Demonstrates the SecretSpecToJson method. This method converts a secret specification string to the JSON required to create or lookup the secret. Tcl

load ./chilkat.dll

set success 0

set secrets [new_CkSecrets]

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

#  A secret name can include up to 4 components:
#  [appName] / service / [domain] / username

#  This example will demonstrate secret specification strings
#  for each possible combination.

#  ------------------------------------------------------
#  1: service + username
set sspec "!!imap|john@example.com"

CkSecrets_SecretSpecToJson $secrets $sspec $json
puts [CkJsonObject_emit $json]

#  Result:
#  {
#    "service": "imap",
#    "username": "john@example.com"
#  }

#  ------------------------------------------------------
#  2: appName + service + username
set sspec "!!myApp|imap|john@example.com"

CkSecrets_SecretSpecToJson $secrets $sspec $json
puts [CkJsonObject_emit $json]

#  Result:
#  {
#    "appName": "myApp",
#    "service": "imap",
#    "username": "john@example.com"
#  }

#  ------------------------------------------------------
#  3: service + domain + username
set sspec "!!|imap|imap.example.com|john"

CkSecrets_SecretSpecToJson $secrets $sspec $json
puts [CkJsonObject_emit $json]

#  Result:
#  {
#    "service": "imap",
#    "domain": "imap.example.com",
#    "username": "john"
#  }

#  ------------------------------------------------------
#  4: appName + service + domain + username
set sspec "!!myApp|imap|imap.example.com|john"

CkSecrets_SecretSpecToJson $secrets $sspec $json
puts [CkJsonObject_emit $json]

#  Result:
#  {
#    "appName": "myApp",
#    "service": "imap",
#    "domain": "imap.example.com",
#    "username": "john"
#  }

delete_CkSecrets $secrets
delete_CkJsonObject $json