nsmcp::QuestionService method cleanup (protected)

 <instance of nsmcp::QuestionService> cleanup

Defined in /usr/local/ns/tcl/nsmcp/question-service.tcl

Testcases:

No testcase defined.

Source code:

foreach path [glob -nocomplain -directory ${:evidenceDirectory} *] {
    set handle [file tail $path]
    if {![regexp {^[a-f0-9]{64}$} $handle]} {continue}
    if {![nsv_exists ${:store} $handle]} {file delete -force $path; continue}
    set record [nsv_get ${:store} $handle]
    if {[dict get $record expires]<=[clock seconds] && [dict get $record status] ni {queued running cancelling}} {:drop $handle}
}

XQL Not present:

Generic, PostgreSQL, Oracle