Fix incorrectly constructed query list to restore purging completed entries

A constant list included an item that needed to be evaluated.
This commit is contained in:
df 2021-05-19 09:25:34 +00:00
parent b1e39a2e6e
commit aaf9b3dcdd

View File

@ -147,7 +147,7 @@ proc {queue dbqueryl} {query_list {txn_mode ""}} {
proc {queue startup} {{days 7}} {
if {$days == 0} { set days 7 }
return [queue dbqueryl { { {
return [queue dbqueryl [list { {
update queue
set status = 'INTERRUPTED',
log = 'Job will be retried automatically.',
@ -164,12 +164,12 @@ proc {queue startup} {{days 7}} {
update queue
set status = 'PENDING'
where status = 'DEFER'
} } { {
} } [list {
delete from queue
where status in ('COMPLETE', 'FAILED')
and submitted < %s
} [expr [clock seconds] - 86400 * $days]
} } ]
] ] ]
}
proc {queue fetch} {file action} {