diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index a072b4b..60e3339 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -508,7 +508,7 @@ (concat (simple-format #f "ffconcat version 1.0\nfile ~a/~a\nfile ~a/~a\n" recordings-directory bn1 recordings-directory bn2)) (port (mkstemp! (mythconverg-input-file-name))) (tmpfile (port-filename port)) - (cmd (simple-format #f "~a -y -safe 0 -f concat -i ~a -codec copy -map 0 ~a/~a && touch --reference='~a/~a' ~a/~a && mv ~a/~a ~a/~a.premerge && mv ~a/~a ~a/." ffmpeg-bin tmpfile working-directory bn1 recordings-directory bn1 working-directory bn1 recordings-directory bn1 recordings-directory bn1 working-directory bn1 recordings-directory))) + (cmd (simple-format #f "~a -y -safe 0 -f concat -i ~a -codec copy -map 0 -map -0:d ~a/~a && touch --reference='~a/~a' ~a/~a && mv ~a/~a ~a/~a.premerge && mv ~a/~a ~a/." ffmpeg-bin tmpfile working-directory bn1 recordings-directory bn1 working-directory bn1 recordings-directory bn1 recordings-directory bn1 working-directory bn1 recordings-directory))) (simple-format port concat) (force-output port) (close-port port) (shell-command-to-string cmd) (mythutil-rebuild (re-create-record-data (list (cons 'chanid chanid) (cons 'starttime starttime))))