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