(PowerBuilder) 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.

Note: This example requires Chilkat v11.5.0 or greater.

For more information, see https://www.chilkatsoft.com/secret_specification_strings.asp

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Secrets
oleobject loo_Json
string ls_Sspec

li_Success = 0

loo_Secrets = create oleobject
li_rc = loo_Secrets.ConnectToNewObject("Chilkat.Secrets")
if li_rc < 0 then
    destroy loo_Secrets
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.EmitCompact = 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
ls_Sspec = "!!imap|john@example.com"

loo_Secrets.SecretSpecToJson(ls_Sspec,loo_Json)
Write-Debug loo_Json.Emit()

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

// ------------------------------------------------------
// 2: appName + service + username
ls_Sspec = "!!myApp|imap|john@example.com"

loo_Secrets.SecretSpecToJson(ls_Sspec,loo_Json)
Write-Debug loo_Json.Emit()

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

// ------------------------------------------------------
// 3: service + domain + username
ls_Sspec = "!!|imap|imap.example.com|john"

loo_Secrets.SecretSpecToJson(ls_Sspec,loo_Json)
Write-Debug loo_Json.Emit()

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

// ------------------------------------------------------
// 4: appName + service + domain + username
ls_Sspec = "!!myApp|imap|imap.example.com|john"

loo_Secrets.SecretSpecToJson(ls_Sspec,loo_Json)
Write-Debug loo_Json.Emit()

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


destroy loo_Secrets
destroy loo_Json