nsmcp::FileLogSource method appendText (protected)

 <instance of nsmcp::FileLogSource> appendText event text

Defined in /usr/local/ns/tcl/nsmcp/lib/log-source.tcl

Parameters:

event (required)

text (required)

Testcases:

No testcase defined.

Source code:

set message [dict get $event message]
# Limit retained UTF-8 bytes; a clipped codepoint is replacement-decoded.
set remaining [expr {max(0, ${:maxMessageBytes} - [string length [encoding convertto utf-8 $message]])}]
set bytes [encoding convertto utf-8 $text]
if {[string length $bytes] > $remaining} {
    set bytes [string range $bytes 0 [expr {$remaining-1}]]
    dict set event truncated true
}
set text [encoding convertfrom utf-8 $bytes]
while {[string length [encoding convertto utf-8 $text]] > $remaining} {
    set text [string range $text 0 end-1]
}
append message $text
dict set event message $message
return $event

XQL Not present:

Generic, PostgreSQL, Oracle