Tcl

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