nsmcp::AccessAnalytics method peerSchema (protected)

 <instance of nsmcp::AccessAnalytics[i]> peerSchema db

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

Additive migration also works after definition reload on a live object.

Parameters:
db (required)

Testcases:
No testcase defined.
Source code:
set found 0
$db execute {SELECT name FROM pragma_table_info('nsmcp_access_requests')} row {
    if {$row(name) eq "peer"} {set found 1}
}
if {!$found} {
    $db execute {ALTER TABLE nsmcp_access_requests ADD COLUMN peer TEXT NOT NULL DEFAULT ''}
}
$db execute {
    CREATE INDEX IF NOT EXISTS nsmcp_access_requests_peer_time ON nsmcp_access_requests(peer,start);
    INSERT OR REPLACE INTO nsmcp_access_metadata VALUES('schemaVersion','3');
}
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: