nsmcp::UnifiedAccessAnalytics method retireLegacy (protected)

 <instance of nsmcp::UnifiedAccessAnalytics> retireLegacy

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

Testcases:

No testcase defined.

Source code:

if {[:dict getdef ${:settings} partitionInterval 0]>0} {
    return
}
if {${:legacyDatabase} eq {} || ![nsf::object::exists ${:legacyDatabase}]} {
    return
}
ns_db withhandle -pool [${:legacyDatabase} cget -pool] -timeout 2s handle {
    set db [${:legacyDatabase} session $handle]
    try {
        if {[$db scalar {SELECT count(*) FROM sqlite_master WHERE type='table' AND name='nsmcp_access_requests'}]} {
            set cutoff [expr {[clock seconds]-min(86400,[dict get ${:settings} peerRetention])}]
            $db execute {DELETE FROM nsmcp_access_requests WHERE rowid IN(SELECT rowid FROM nsmcp_access_requests WHERE start<:cutoff LIMIT 10000)}
        }
    } finally {
        $db close
    }
}

XQL Not present:

Generic, PostgreSQL, Oracle