tcltrace::before-ns_log (private)

 tcltrace::before-ns_log cmd op

Defined in packages/acs-tcl/tcl/tcltrace-procs.tcl

Execute this proc before ns_log is called

Parameters:

cmd - the full command as executed by Tcl
op - the trace operation

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

Testcases:

No testcase defined.

Source code:

    set msg [join [lassign $cmd cmdname severity]]
    set severity [string totitle $severity]
    if {![info exists ::__log_severities]} {
        set ::__log_severities [::parameter::get_from_package_key  -package_key acs-tcl  -parameter TclTraceLogSeverities  -default ""]
    }
    if {$severity in $::__log_severities} {
        # we do not want i18n raw strings substituted via ds_comment.
        # Maybe we should add this substitution there....
        regsub -all -- {\#([a-zA-Z0-9._-]+)\#} $msg {\#\1\#} msg
        catch {ds_comment "$cmdname $severity $msg"}
    } else {
        #catch {ds_comment "ignore $severity $msg"}
    }

XQL Not present:

Generic, PostgreSQL, Oracle