nsmcp::AccessDiagnosticTool method trafficTriples (protected)

 <instance of nsmcp::AccessDiagnosticTool> trafficTriples state \
    duration complete

Defined in /usr/local/ns/tcl/nsmcp/traffic-tools.tcl

Parameters:

state (required)

duration (required)

complete (required)

Testcases:

No testcase defined.

Source code:

set fields [list scope string examined-selected-records windowComplete boolean false scanComplete boolean $complete]
foreach key {requestCount status503Count successfulCount successfulTimingCount successfulRunTotal unknownPeerCount untrackedSourceRecords unknownUserAgentCount untrackedUserAgentRecords} {
    lappend fields $key number [dict get $state $key]
}
set authentication {}
if {[dict exists $state authenticationStates]} {
    dict for {name row} [dict get $state authenticationStates] {
        set entry {}
        dict for {key value} $row {
            lappend entry $key number $value
        }
        lappend authentication $name object $entry
    }
}
lappend fields authenticationStates object $authentication
set requests [dict get $state requestCount]
lappend fields durationSeconds number $duration requestRate number [expr {$requests/double($duration)}]  successfulTimingMissingCount number [expr {[dict get $state successfulCount]-[dict get $state successfulTimingCount]}]
set peerReasons {}
if {[dict get $state unknownPeerCount]} {
    lappend peerReasons 0 string missing-or-invalid-peer-fields
}
if {[dict get $state untrackedSourceRecords]} {
    lappend peerReasons 1 string source-cardinality-limit
}
set uaReasons {}
if {[dict get $state unknownUserAgentCount]} {
    lappend uaReasons 0 string missing-user-agent-fields
}
if {[dict get $state untrackedUserAgentRecords]} {
    lappend uaReasons 1 string user-agent-cardinality-or-length-limit
}
set counts [lsort -integer -decreasing [dict values [dict get $state sources]]]
set known [dict size [dict get $state sources]]
lappend fields distinctKnownSources number $known  observedPeerCountsComplete boolean [expr {$peerReasons eq ""}] peerCountsIncompleteReasons array $peerReasons  observedUserAgentCountsComplete boolean [expr {$uaReasons eq ""}] userAgentCountsIncompleteReasons array $uaReasons  sourceLimit number ${:maxAggregateSources} userAgentLimit number ${:maxAggregateUserAgents}
if {$peerReasons eq ""} {
    lappend fields distinctSources number $known
} else {
    lappend fields distinctSources null {}
}
set buckets {1 0 2-5 0 6-10 0 11-100 0 101-1000 0 1001+ 0}
foreach count $counts {
    set bucket [expr {$count==1 ? "1" : ($count<=5 ? "2-5" : ($count<=10 ? "6-10" : ($count<=100 ? "11-100" : ($count<=1000 ? "101-1000" : "1001+"))))}]
    dict incr buckets $bucket
}
set histogram {}
dict for {key count} $buckets {
    lappend histogram $key number $count
}
lappend fields sourcesByRequestCount object $histogram
set top {}
set rank 0
set sum 0
foreach count [lrange $counts 0 9] {
    incr sum $count
    lappend top $rank object [list rank number [expr {$rank+1}] requestCount number $count  requestRate number [expr {$count/double($duration)}] share number [expr {$requests ? $count/double($requests) : 0.0}]]
    incr rank
}
lappend fields topSources array $top topTenSourceShare number [expr {$requests ? $sum/double($requests) : 0.0}]
set rankings {}
foreach {label metric} {byRequests requestCount by503 status503Count bySuccessfulRuntime successfulRunTotal} {
    set ordered {}
    dict for {ua row} [dict get $state agents] {
        lappend ordered [list [dict get $row $metric] $ua $row]
    }
    set output {}
    set i 0
    foreach item [lrange [lsort -real -decreasing -index 0 $ordered] 0 19] {
        lassign $item value ua row
        set entry [list userAgent string $ua]
        dict for {key count} $row {
            lappend entry $key number $count
        }
        lappend output $i object $entry
        incr i
    }
    lappend rankings $label array $output
}
lappend fields userAgents object $rankings distinctKnownUserAgents number [dict size [dict get $state agents]]  rankingLimit number 20 omittedRankedUserAgents number [expr {max(0,[dict size [dict get $state agents]]-20)}]  limitations string {Counts cover examined records selected by window, path and category, before evidence truncation. Rankings cover tracked redacted User-Agents, not verified bots. Source keys and addresses are never disclosed. Unknown fields and cardinality limits make observed distributions partial. Seek assumptions and rotations still limit time-window coverage; observed completeness is not window completeness. Rates use the requested window duration, not a rolling burst. Successful runtime is summed 2xx handler time, not CPU time.}
return $fields

XQL Not present:

Generic, PostgreSQL, Oracle