Perl

Get a JWS Unprotected Header

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetUnprotectedH, which copies the optional unprotected header of a signature into a JsonObject.

Background. The unprotected header is present only in JSON serialization forms that carry one. It is not covered by the signature.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# Load the JWS compact serialization.
my $jwsCompact = 'eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>';
my $success = $jws->LoadJws($jwsCompact);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

# Copy the optional unprotected header of signature 0 into a JsonObject.  This applies to JWS in a
# JSON serialization form that carries an unprotected header.
my $json = Chilkat2::JsonObject->new;
$success = $jws->GetUnprotectedH(0, $json);
if (!$success) {
    print $jws->LastErrorText, "\n";
    exit;
}

$json->EmitCompact(0);
print $json->Emit(), "\n";