Set the Optional JWS Unprotected Header

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetUnprotectedHeader, which sets the optional unprotected header for a signature.

use strict;
use warnings;
use Chilkat2;

my $jws = Chilkat2::Jws->new;

# Protected header specifying HMAC-SHA256.
my $header = Chilkat2::JsonObject->new;
$header->UpdateString('alg', 'HS256');
my $success = $jws->SetProtectedHeader(0, $header);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Set the optional unprotected header for signature 0.  Unlike the protected header, it is not
# covered by the signature.  It is carried in the JSON serialization forms of a JWS.
my $unprotected = Chilkat2::JsonObject->new;
$unprotected->UpdateString('kid', 'signer-key-1');
$success = $jws->SetUnprotectedHeader(0, $unprotected);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

my $bIncludeBom = 0;
$success = $jws->SetPayload('This is the content to sign.', 'utf-8', $bIncludeBom);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

my $base64Key = 'YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=';
$success = $jws->SetMacKey(0, $base64Key, 'base64');
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Because an unprotected header is present, the JWS is produced in a JSON serialization form.
my $jwsJson = $jws->CreateJws();
if (!$jws->LastMethodSuccess) {
    print $jws->LastErrorText, "\n";
    exit;
}

print $jwsJson, "\n";