nsmcp::AccessAnalytics method ingestLocked (protected)

 <instance of nsmcp::AccessAnalytics> ingestLocked from \
    allowHistory

Defined in /usr/local/ns/tcl/nsmcp/lib/access-analytics.tcl

Parameters:

from (required)

allowHistory (required)

Testcases:

No testcase defined.

Source code:

set :db [${:database} connect]
set :batchRows 0
set :loggedRejects 0
try {
    ${:db} execute {BEGIN IMMEDIATE}
    :peerSchema ${:db}
    set :rowCount [${:db} scalar {SELECT value FROM nsmcp_access_metadata WHERE key='rowCount'}]
    if {${:rowCount} eq ""} {set :rowCount [${:db} scalar {SELECT count(*) FROM nsmcp_access_requests}]}
    :maintain
    set result [next]
    if {${:loggedRejects}>5} {ns_log warning "nsmcp: suppressed [expr {${:loggedRejects}-5}] additional malformed access-record samples from ${:path}"}
    ${:db} execute {COMMIT}
    return $result
} on error {message options} {
    catch {${:db} execute {ROLLBACK}}
    return -options $options $message
} finally {${:db} close; unset -nocomplain :db :batchRows :rowCount :loggedRejects}

XQL Not present:

Generic, PostgreSQL, Oracle