From d88a8b9e9e263c8a5c7587f419f07e8f4c8d78e2 Mon Sep 17 00:00:00 2001
From: Leo Butler <nb0yjxtr@sdf.org>
Date: Tue, 27 Apr 2021 11:42:08 -0500
Subject: [PATCH] use the new code in ffmpeg-myth.scm to cull old files

---
 myth-clean-recordings.sh | 18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

diff --git a/myth-clean-recordings.sh b/myth-clean-recordings.sh
index feeaff8..2f69157 100755
--- a/myth-clean-recordings.sh
+++ b/myth-clean-recordings.sh
@@ -1,20 +1,6 @@
 #!/bin/bash
 set -aex
-recordingsdir=${recordingsdir:-"/var/lib/mythtv/recordings/"}
-rm=${rm:-"/bin/rm -f"}
-cutoff=$(date --date='-2 weeks' +%s)
-echo cutoff is $cutoff 
 
-cd "$recordingsdir"
-cleanables=$(for f in *mkv; do ls ${f/.mkv/}.{ts,mpg,ts.png,mpg.png} 2>/dev/null; done | sed 's/\n/ /g;')
+/usr/local/bin/ffmpeg-myth.scm myth-clean-recordings-update-deleted-ltbtranscodedtobedeleted # 1 '"echo "' '(lambda(x) x)'
+exit 0
 
-d=0
-for f in ${cleanables}; do
-    Z=$(stat --format="%Z" $f)
-    if test $Z -lt $cutoff; then
-	$rm $f
-	d=$((d+1))
-    fi
-done
-
-echo Deleted $d files. Done.