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::accessIngestionStatus {} {
set key nsmcp:access-writer:[ns_info server]
set empty [dict create available false running false currentPhase idle currentPhaseMs 0 currentRunMs 0 currentParsedBytes 0 currentPhaseMilliseconds {} lastRun {}]
if {![nsv_exists $key state]} {return $empty}
set state [nsv_get $key state]
dict set empty available true
dict set empty lastRun [dict get $state lastRun]
if {[dict exists $state lastBatch]} {dict set empty lastBatch [dict get $state lastBatch]}
if {![dict get $state running]} {return $empty}
set now [clock clicks -milliseconds]
set phaseMs [expr {max(0,$now-[dict get $state phaseTicks])}]
set times [dict get $state phaseMilliseconds]
dict incr times [dict get $state phase] $phaseMs
foreach field {records requestRecords malformedRecords oversizedRecords committedBatches} {
if {[dict exists $state $field]} {dict set empty current[string toupper [string index $field 0]][string range $field 1 end] [dict get $state $field]}
}
set elapsed [expr {max(0,$now-[dict get $state startedTicks])}]
dict set empty currentRecordsPerSecond [expr {$elapsed>0 && [dict exists $state records] ? 1000.0*[dict get $state records]/$elapsed : {}}]
return [dict replace $empty running true currentPhase [dict get $state phase] currentPhaseMs $phaseMs currentRunMs [expr {max(0,$now-[dict get $state startedTicks])}] currentParsedBytes [dict get $state parsedBytes] currentPhaseMilliseconds $times]
}
