mime::getheader (public)

 mime::getheader token [ key ]

Defined in packages/acs-tcl/tcl/tcllib-doc-procs.tcl

Read headers of a Tcllib MIME token. Repeated headers can have multiple values.

Parameters:

token (required)

MIME token to inspect.

key (optional)

Header name, -names for header names, or empty for all headers.

Returns:

Matching header values, header names, or header name/value pairs.

See Also:

• https://core.tcl-lang.org/tcllib/doc/trunk/embedded/md/tcllib/files/modules/mime/mime.md

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    # FRINK: nocheck
    variable $token
    upvar 0 $token state

    array set header $state(header)
    switch -- $key {
        {} {
            set result {}
            foreach lower $state(lowerL) mixed $state(mixedL) {
                lappend result $mixed $header($lower)
            }
            return $result
        }

        -names {
            return $state(mixedL)
        }

        default {
            set lower [string tolower [set mixed $key]]

            if {![info exists header($lower)]} {
                error "key $mixed not in header"
            }
            return $header($lower)
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle