diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm index f8798ff..6d485f5 100755 --- a/ffmpeg-myth.scm +++ b/ffmpeg-myth.scm @@ -456,7 +456,7 @@ (tr-filesize (assv-ref (recording-recorded-table tr-rec) 'filesize))) ;; change timestamp on transcoded file to original timestamp and move it to recordings directory (if mv? (shell-command-to-string (simple-format #f "touch --reference='~a' '~a' && mv '~a' '~a'" input-file input-tr-file input-tr-file recordings-directory))) - (mysql-commit (simple-format #f "update recorded set cutlist=0, commflagged=0, bookmark=0, transcoded=1, filesize=~a, basename=\"~a\" where chanid=~a and starttime=~a;" tr-filesize tr-basename chanid starttime)))) + (mysql-commit (simple-format #f "update recorded set autoexpire=0, preserve=1, cutlist=0, commflagged=0, bookmark=0, transcoded=1, filesize=~a, basename=\"~a\" where chanid=~a and starttime=~a;" tr-filesize tr-basename chanid starttime)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; MYTH-CLEAN-RECORDINGS