Perl 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. 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"
#  }