Tcl

Get the JWS Payload into a StringBuilder

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.GetPayloadSb, which writes the payload of a loaded JWS as text into a StringBuilder, decoded using the given charset.

Tcl

load ./chilkat.dll

set success 0

set jws [new_CkJws]

#  Load the JWS compact serialization.
set jwsCompact "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>"
set success [CkJws_LoadJws $jws $jwsCompact]
if {$success == 0} then {
    puts [CkJws_lastErrorText $jws]
    delete_CkJws $jws
    exit
}

#  Get the JWS payload as text into a StringBuilder, decoded using the given charset.
set sbPayload [new_CkStringBuilder]

set success [CkJws_GetPayloadSb $jws "utf-8" $sbPayload]
if {$success == 0} then {
    puts [CkJws_lastErrorText $jws]
    delete_CkJws $jws
    delete_CkStringBuilder $sbPayload
    exit
}

puts [CkStringBuilder_getAsString $sbPayload]

delete_CkJws $jws
delete_CkStringBuilder $sbPayload