nsmcp::AccessRecordStoreSQLite method disconnect (protected)

 <instance of nsmcp::AccessRecordStoreSQLite> disconnect

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

Testcases:

No testcase defined.

Source code:

if {${:db} ne {}} {
    if {${:querying} || [${:db} inTransaction]} {catch {${:db} execute ROLLBACK}; set :querying false}
    catch {${:db} execute {PRAGMA query_only=OFF}}
    catch {${:db} execute {DROP VIEW IF EXISTS temp.nsmcp_record_window; DROP TABLE IF EXISTS temp.nsmcp_record_scope; DROP TABLE IF EXISTS temp.nsmcp_ingest_batch; DROP VIEW IF EXISTS temp.nsmcp_access_requests; DROP VIEW IF EXISTS temp.nsmcp_access_metadata; DROP VIEW IF EXISTS temp.nsmcp_access_evictions}}
    if {${:attached}} {catch {${:db} execute {DETACH DATABASE nsmcp_records}}}
    if {${:prior} ne {}} {
        set busy [dict get ${:prior} busy]; set temp [dict get ${:prior} temp]
        set queryOnly [expr {[dict exists ${:prior} queryOnly] ? [dict get ${:prior} queryOnly] : 0}]
        catch {${:db} execute "PRAGMA busy_timeout=$busy; PRAGMA temp_store=$temp; PRAGMA query_only=$queryOnly"}
    }
    ${:db} close; set :handle {}
} elseif {${:handle} ne {}} {catch {ns_db releasehandle ${:handle}}}

XQL Not present:

Generic, PostgreSQL, Oracle