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

use strict;
use warnings;
use Chilkat2;

my $success = 0;

my $secrets = Chilkat2::Secrets->new;
my $json = Chilkat2::JsonObject->new;
$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
my $sspec = '!!imap|john@example.com';

$secrets->SecretSpecToJson($sspec, $json);
print $json->Emit(), "\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(), "\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(), "\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(), "\n";

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