nsmcp::SmtpLogTool method recordTriples (protected)

 <instance of nsmcp::SmtpLogTool> recordTriples record

Defined in /usr/local/ns/tcl/nsmcp/smtp-tools.tcl

Parameters:

record (required)

Testcases:

No testcase defined.

Source code:

set triples {}
dict for {key value} $record {
    if {$key in {timestampSeconds offset endOffset transaction destinationPort elapsedSeconds sentBytes metadataFieldsOmitted}} {
        lappend triples $key number $value
    } elseif {$key eq "redacted"} {
        lappend triples $key boolean $value
    } elseif {$key eq "targets"} {
        set array {}
        set index 0
        foreach target $value {
            lappend array $index string $target
            incr index
        }
        lappend triples $key array $array
    } elseif {$key eq "metadata"} {
        set fields {}
        dict for {name item} $value {lappend fields $name string $item}
        lappend triples $key object $fields
    } else {lappend triples $key string $value}
}
return $triples

XQL Not present:

Generic, PostgreSQL, Oracle