Perl

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. Perl

use chilkat();

$success = 0;

$secrets = chilkat::CkSecrets->new();
$json = chilkat::CkJsonObject->new();
$json->put_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
$sspec = '!!imap|john@example.com';

$secrets->SecretSpecToJson($sspec,$json);
print $json->emit() . "\r\n";

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

# ------------------------------------------------------
# 2: appName + service + username
$sspec = '!!myApp|imap|john@example.com';

$secrets->SecretSpecToJson($sspec,$json);
print $json->emit() . "\r\n";

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

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

$secrets->SecretSpecToJson($sspec,$json);
print $json->emit() . "\r\n";

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

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

$secrets->SecretSpecToJson($sspec,$json);
print $json->emit() . "\r\n";

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