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 (required)

the full command as executed by Tcl

op (required)

the trace operation

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

Testcases:

thread_destroy_after_cache_cleanup

Source code:

        # Blueprint replacement can finalize NX caches before XOTcl
        # destructors log their notices. Interpreter deletion also need not
        # preserve request services. Never initialize tracing parameters or
        # developer-support state after these dependencies have disappeared.
        if {[info commands ::acs::per_request_cache] eq ""
            || [info commands ::parameter::get_from_package_key] eq ""} {
            return
        }
        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