Class ::nsmcp::LogCorrelation
::nsmcp::LogCorrelation
create ... \
[ -accessSearches (default "") ] \
[ -parser (default "::nsmcp::logRecordParser") ] \
[ -systemSearch:required systemSearch:required ]
Defined in /usr/local/ns/tcl/nsmcp/lib/log-record.tclClass Relations
- class: ::nx::Class
![[i]](/resources/acs-subsite/ZoomIn16.gif)
- superclass: ::nx::Object
![[i]](/resources/acs-subsite/ZoomIn16.gif)
::nx::Class create ::nsmcp::LogCorrelation \
-superclass ::nx::Object
Methods (to be applied on instances)
entries (scripted, public)
<instance of nsmcp::LogCorrelation
> entries level
- Parameters:
- level (required)
- Testcases:
-
No testcase defined.
if {![regexp {^[A-Za-z][A-Za-z0-9_()-]*$} $level]} {
error "expected a log severity name"
}
return [${:systemSearch} search "${level}:" $level]errors (scripted, public)
<instance of nsmcp::LogCorrelation
> errors
- Testcases:
-
No testcase defined.
return [:entries Error]
<instance of nsmcp::LogCorrelation
> requestContext identifier
- Parameters:
- identifier (required)
- Testcases:
-
No testcase defined.
if {![${:parser} validRequestIdentifier $identifier]} {
error "expected a complete dash-delimited NaviServer log-thread identifier"
}
set access {}
if {[${:parser} validConnectionIdentifier $identifier]} {
foreach source ${:accessSearches} {
dict set access $source [$source search $identifier {} access]
}
}
return [dict create requestIdentifier $identifier system [${:systemSearch} search $identifier {} system] access $access]results (scripted, public)
<instance of nsmcp::LogCorrelation
> results handle [ cursor ] \
[ limit ]
- Parameters:
- handle (required)
- cursor (optional, defaults to
"0")
- limit (optional, defaults to
"20")
- Testcases:
-
No testcase defined.
foreach source [list ${:systemSearch} {*}${:accessSearches}] {
try {return [$source results $handle $cursor $limit]} trap {NSMCP RESULT UNKNOWN} {} {
}
}
return -code error -errorcode {NSMCP RESULT UNKNOWN} "unknown or expired result handle"