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
}
