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 {${:legacyDatabase} eq {} || ![nsf::object::exists ${:legacyDatabase}]} {return}
set db [${:legacyDatabase} connect]
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