nsmcp::CachedLogSearch method encodeEvent (protected)

 <instance of nsmcp::CachedLogSearch[i]> encodeEvent event

Defined in /usr/local/ns/tcl/nsmcp/log-summary.tcl

Parameters:
event (required)

Testcases:
No testcase defined.
Source code:
set event [dict merge $event [${:recordParser} metadata [dict get $event message]]]
set triples {}
foreach key {timestamp processThread logThread severity requestIdentifier peerAddress method url protocol recordType} {
    lappend triples $key string [dict get $event $key]
}
foreach key {mutexName mutexOperation mutexMetric} {
    if {[dict exists $event $key]} {lappend triples $key string [dict get $event $key]}
}
if {[dict exists $event mutexDurationSeconds]} {
    lappend triples mutexDurationSeconds number [dict get $event mutexDurationSeconds]
}
foreach key {status responseBytes} {
    set value [dict get $event $key]
    lappend triples $key [expr {$value eq "" ? "string" : "number"}] $value
}
foreach key {offset endOffset} {lappend triples $key number [dict get $event $key]}
lappend triples message string [dict get $event message]
foreach key {complete truncated orphanContinuation} {
    lappend triples $key boolean [dict get $event $key]
}
return [ns_json value -type object -- $triples]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: