ns::stats::SQLiteHistory method historyDrop (protected)

 <instance of ns::stats::SQLiteHistory> historyDrop db where \
    reason

Defined in /usr/local/ns/lib/nsf2.5.0/lib/nx-traits.tcl

Parameters:

db (required)

where (required)

reason (required)

Testcases:

No testcase defined.

Source code:

set stats [lindex [:sql $db  "SELECT count(*) AS n,coalesce(min(at),0) AS first,coalesce(max(at),0) AS last FROM ns_stats_samples WHERE $where"] 0]
set n [dict get $stats n]
if {!$n} {
    return
}
set first [dict get $stats first]
set last [dict get $stats last]
set now [clock microseconds]
:sql $db "DELETE FROM ns_stats_samples WHERE $where"
:sql $db {DELETE FROM ns_stats_topology WHERE id NOT IN (SELECT DISTINCT topology FROM ns_stats_samples)}
:sql $db "INSERT INTO ns_stats_events(at,first,last,n,reason) VALUES($now,$first,$last,$n,[ns_dbquotevalue $reason])"
set prior [:scalar $db {SELECT value FROM ns_stats_meta WHERE key='droppedThrough'}]
set through [expr {$prior eq "" ? $last : max($last,$prior)}]
:sql $db "INSERT OR REPLACE INTO ns_stats_meta VALUES('droppedThrough','$through')"

XQL Not present:

Generic, PostgreSQL, Oracle