nsmcp::AccessRecordStoreSQLite method samples (public)

 <instance of nsmcp::AccessRecordStoreSQLite[i]> samples selected \
    files redactor

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

Parameters:
selected (required)
files (required)
redactor (required)

Testcases:
No testcase defined.
Source code:
set samples {}; set successes {}
foreach {field extra} {samples {} successSamples { AND status<400}} {
    set entries {}
    foreach row [${:db} execute "SELECT fid,off,t,status,path,method,pool,source,driver,auth,phase,label,clipped,hex(agent) AS agent,identifier,lower(hex(score)) AS score FROM temp.nsmcp_record_window WHERE $selected $extra ORDER BY score,fid,off LIMIT 5"] {
        set file {}; foreach entry $files {if {[dict exists $entry archiveFid] && [dict get $entry archiveFid] eq [dict get $row fid]} {set file $entry; break}}
        if {$file eq {}} continue
        set item [dict create path [dict get $row path] method [dict get $row method] status [dict get $row status] pool [dict get $row pool] authenticationState [dict get $row auth] startTime [dict get $row t] recordSource [dict get $row source] driver [dict get $row driver] requestIdentifier [dict get $row identifier] requestIdentifierUnique [expr {[dict get $row source] eq "connection"}] phaseTimingAvailable [dict get $row phase] phaseTimingReason [expr {[dict get $row phase] ? "logged-worker-phases" : ([dict get $row source] eq "driver" ? "driver-synthetic-phases" : "no-phase-counters")}]]
        if {[dict get $row agent] ne {}} {dict set item userAgent [dict get $row label]}
        set sample [accessScanSample $item $file [dict get $row off] $redactor]
        if {[dict get $row clipped]} {
            set index [lsearch -exact $sample userAgentTruncated]
            if {$index>=0} {lset sample [expr {$index+2}] true}
        }
        lappend entries [list [dict get $row score] $sample]
    }
    if {$field eq "samples"} {set samples $entries} else {set successes $entries}
}
return [list $samples $successes]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: