From f3c0d86d71a6cdd3311e775f5e65aa9e82b11e89 Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Thu, 7 Jan 2021 20:28:10 -0600 Subject: [PATCH] filter out any recordings in the Deleted group Do not transcode a recording in the Deleted group. --- ffmpeg-myth.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index 04b2292..7bca51b 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -434,7 +434,7 @@ (map rebuild '(skiplist cutlist)))) (define* (mythconverg-pending-jobs #:optional (days 7)) - (let ((basenames (mythconverg-execute+parse (simple-format #f "select basename from recorded where cutlist=1 and lastmodified>=now() - interval ~a day;" days)))) + (let ((basenames (mythconverg-execute+parse (simple-format #f "select basename from recorded where cutlist=1 and lastmodified>=now() - interval ~a day and not(recgroup = 'Deleted');" days)))) (define (parse-basename bn) (read-from-string (string-split (car (string-split (car bn) #\.)) #\_))) (cond ((null? basenames)