Perl
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
use chilkat();
$success = 0;
$jws = chilkat::CkJws->new();
# Load the JWS compact serialization.
$jwsCompact = "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>";
$success = $jws->LoadJws($jwsCompact);
if ($success == 0) {
print $jws->lastErrorText() . "\r\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.
$json = chilkat::CkJsonObject->new();
$success = $jws->GetUnprotectedH(0,$json);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";