This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc ::nsmcp::warningOriginFields {stats capacity} {
set auth {}
dict for {name count} [dict get $stats authenticationStates] {lappend auth $name number $count}
set ordered {}
dict for {agent entry} [dict get $stats agents] {lappend ordered [list [dict get $entry count] $agent $entry]}
set rows {}; set index 0; set omittedGroups 0; set omittedRanked 0
foreach pair [lsort -integer -decreasing -index 0 $ordered] {
lassign $pair count agent entry
if {$index >= 10} {incr omittedGroups; incr omittedRanked $count; continue}
set states {}
dict for {name n} [dict get $entry authenticationStates] {lappend states $name number $n}
lappend rows $index object [list userAgent string $agent count number $count authenticationStates object $states truncatedRecords number [dict get $entry truncatedRecords] userAgentMayBeTruncated boolean [expr {[dict get $entry truncatedRecords] > 0}]]
incr index
}
set result [list recordCount number [dict get $stats recordCount] authenticationStates object $auth userAgentCounts array $rows userAgentCapacity number $capacity userAgentOutputLimit number 10 omittedUserAgentGroups number $omittedGroups omittedRankedUserAgentRecords number $omittedRanked]
foreach name {unknownUserAgentRecords omittedUserAgentRecords truncatedUserAgentRecords} {lappend result $name number [dict get $stats $name]}
set aggregationComplete [expr {[dict get $stats unknownUserAgentRecords] == 0
&& [dict get $stats omittedUserAgentRecords] == 0 && [dict get $stats truncatedUserAgentRecords] == 0}]
set rankingComplete [expr {$aggregationComplete && $omittedRanked == 0}]
lappend result userAgentAggregationComplete boolean $aggregationComplete userAgentRankingComplete boolean $rankingComplete userAgentCountsComplete boolean $rankingComplete
return $result
}
