nb0yjxtr
/
ffmpeg-mythtv
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add wildcard to end of expired filename 

To ensure that associated pngs, etc, are also deleted.
This commit is contained in:
Leo Butler 2021-04-28 06:30:17 -05:00
parent b5cead5760
commit e7f256468e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ffmpeg-myth.scm
View File

@ -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 ()