Tcl

Check if a MIME Part is XML

Demonstrates the Chilkat Mime.IsXml method, which returns true only for text/xml or application/xml. It takes no arguments and applies to the current part.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: Identifying an XML part matters in machine-to-machine messaging — SOAP, EDI, structured data payloads — where you want to hand the body to an XML parser. Note it matches only the two canonical XML media types and not structured-suffix types like application/xhtml+xml, so check the exact type when those are relevant.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Mime.IsXml method, which returns whether the Content-Type is text/xml or application/xml.  It takes no arguments and applies to the current
#  part.  This example iterates the parts of a multipart message and reports which ones match.

set mime [new_CkMime]

set success [CkMime_LoadMimeFile $mime "qa_data/multipart_message.eml"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

set n [CkMime_get_NumParts $mime]
set part [new_CkMime]

for {set i 0} {$i <= [expr $n - 1]} {incr i} {
    set success [CkMime_PartAt $mime $i $part]
    if {$success == 0} then {
        puts [CkMime_lastErrorText $mime]
        delete_CkMime $mime
        delete_CkMime $part
        exit
    }

    if {CkMime_IsXml $part} then {
        puts "Part $i ([CkMime_contentType $part]) is XML."
    }

}

delete_CkMime $mime
delete_CkMime $part