(Tcl) Extract XML from FatturaPA .p7m
Demonstrates how to verify the signature and extract the XML from a FatturaPA .p7m file.
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
|
