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::accessRetentionStatus {} {
set key nsmcp:access-retention:[ns_info server]
set result [dict create available false running false currentPhase idle currentPhaseMs 0 currentRunMs 0 currentPhaseMilliseconds {} deleted {} lastRun {}]
if {![nsv_exists $key state]} {
return $result
}
set state [nsv_get $key state]
dict set result available true
dict set result lastRun [dict get $state lastRun]
foreach key {nextDelaySeconds nextRunAt} {
if {[dict exists $state $key]} {
dict set result $key [dict get $state $key]
}
}
if {![dict get $state running]} {
return $result
}
set now [clock clicks -milliseconds]
set times [expr {[dict exists $state phaseMilliseconds] ? [dict get $state phaseMilliseconds] : {}}]
dict incr times [dict get $state phase] [expr {max(0,$now-[dict get $state phaseTicks])}]
return [dict replace $result running true currentPhase [dict get $state phase] currentPhaseMilliseconds $times currentPhaseMs [expr {max(0,$now-[dict get $state phaseTicks])}] currentRunMs [expr {max(0,$now-[dict get $state startedTicks])}] deleted [dict get $state deleted]]
}
