From e7f256468edaccfa152202c62e19d622983e7ca8 Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Wed, 28 Apr 2021 06:30:17 -0500 Subject: [PATCH] add wildcard to end of expired filename To ensure that associated pngs, etc, are also deleted. --- ffmpeg-myth.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index 76a4991..a072b4b 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -482,7 +482,7 @@ '()) (#t (simple-format #t "myth-clean-recording-directory: removing transcoded files\n~a\n" (string-join expired-recordings ",")) - (let ((cmd (simple-format #f "~a ~a" shell-cmd (string-join (map (lambda(s) (string-concatenate (list recordings-directory "/" s))) expired-recordings) " ")))) + (let ((cmd (simple-format #f "~a ~a" shell-cmd (string-join (map (lambda(s) (string-concatenate (list recordings-directory "/" s "*"))) expired-recordings) " ")))) (catch 'error-in-shell-command-to-string ;; thunk - return expired-recordings list (lambda ()