(Tcl) Extract XML from FatturaPA .p7m

Demonstrates how to verify the signature and extract the XML from a FatturaPA .p7m file.

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 bd [new_CkBinData]

set success [CkBinData_LoadFile $bd "qa_data/p7m/IT01879020517_abc.xml.p7m"]
if {$success != 1} then {
    puts "Failed to load the .p7m file"
    delete_CkBinData $bd
    exit
}

set crypt [new_CkCrypt2]

# Verify and extrct the payload contained within the .p7m.
# In this case, the payload is the FatturaPA XML.
# If successful, the resulting bd will contain only the XML.
set bVerified [CkCrypt2_OpaqueVerifyBd $crypt $bd]
if {$bVerified != 1} then {
    puts [CkCrypt2_lastErrorText $crypt]
    puts "Failed to extract and verify."
    delete_CkBinData $bd
    delete_CkCrypt2 $crypt
    exit
}

# Save the XML to a file.
CkBinData_WriteFile $bd "qa_output/zIT01879020517_abc.xml"

# Alternatively, load into an XML object and emit.
set xml [new_CkXml]

CkXml_LoadXml $xml [CkBinData_getString $bd "utf-8"]

puts [CkXml_getXml $xml]

delete_CkBinData $bd
delete_CkCrypt2 $crypt
delete_CkXml $xml