|
|
|
@ -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.
|
|
|
|
|