(Tcl) Examine the Contents of a .p7m by Converting to XML

Examines the contents of a .p7m signature by converting it to XML.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set asn [new_CkAsn]

set success [CkAsn_LoadBinaryFile $asn "qa_data/p7m/a.p7m"]
if {$success != 1} then {
    puts [CkAsn_lastErrorText $asn]
    delete_CkAsn $asn
    exit
}

# Convert to XML.
set strXml [CkAsn_asnToXml $asn]

# The XML returned by AsnToXml will be compact.
# To get the XML indented in human-readable form, load
# into the Chilkat XML object and emit..
set xml [new_CkXml]

CkXml_LoadXml $xml $strXml

puts [CkXml_getXml $xml]
CkXml_SaveXml $xml "qa_output/a.xml"

# -----------------------------------------------------------------------------------------
# Also see Chilkat's online tool to examine a .p7m and generate code to duplicate the .p7m
# -----------------------------------------------------------------------------------------

delete_CkAsn $asn
delete_CkXml $xml