nsmcp::UnifiedAccessAnalytics method refresh (public)

 <instance of nsmcp::UnifiedAccessAnalytics> refresh

Defined in /usr/local/ns/tcl/nsmcp/log-traffic-unified.tcl

Testcases:

No testcase defined.

Source code:

set gate nsmcp:unified-writer:[ns_info server]
if {[nsv_incr $gate busy]!=1} {nsv_incr $gate busy -1; return {busy true}}
try {
    set result [accessRecordRetry ${:settings} [list :refreshLocked]]
    if {![dict exists $result busy]} {nsv_unset -nocomplain nsmcp:access-store:[ns_info server] lastFailure}
    return $result
} on error {message options} {
    # Do not emit raw log bodies, peers or SQL. Keep the committed
    # checkpoint and expose a bounded error class to subsequent reads.
    set code [lrange [dict get $options -errorcode] 0 2]
    set failedAt [clock seconds]
    set key nsmcp:access-store:[ns_info server]
    if {![nsv_exists $key lastFailure] || $failedAt-[dict get [nsv_get $key lastFailure] at]>=60} {
        ns_log warning "nsmcp: continuous access ingestion paused ($code)"
    }
    nsv_set $key lastFailure [dict create at $failedAt code $code]
    return [dict create failed true code [lrange [dict get $options -errorcode] 0 2]]
} finally {nsv_incr $gate busy -1}

XQL Not present:

Generic, PostgreSQL, Oracle