From a93a09e5545c0684d78eba638215c594b035be23 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Tue, 21 Mar 2023 22:22:03 +0100
Subject: [PATCH] Remove past recordings

This commit adds a tool that removes all recordings that have been
played out in the past. The tool scans the database for recordings that
have a play time in the past and removes them from the system to free up
storage space and prevent outdated recordings from being played again.
This helps to ensure that only current and relevant recordings are
available for playback.
---
 tools/remove-recordings.pl | 42 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 tools/remove-recordings.pl

diff --git a/tools/remove-recordings.pl b/tools/remove-recordings.pl
new file mode 100644
index 0000000..f6c58eb
--- /dev/null
+++ b/tools/remove-recordings.pl
@@ -0,0 +1,42 @@
+#! /usr/bin/perl
+
+use warnings;
+use strict;
+use Data::Dumper;
+use List::Util qw();
+
+use FindBin qw($Bin);
+use lib "$Bin/../lib/calcms";
+use config;
+use time;
+use db;
+use File::Basename qw(basename);
+my $config = config::get(pop @ARGV);
+my $delete = grep {$_ eq "--delete"} @ARGV;
+
+my $dbh   = db::connect($config);
+my $query = qq{
+    select start, path
+    from calcms_events e, calcms_audio_recordings r
+    where e.id = r.event_id
+    and e.start > date_add(now(), INTERVAL -14 DAY)
+};
+my $entries = db::get($dbh, $query);
+my %paths   = map {normalize($_->{path}) => $_->{start}} @$entries;
+
+my $dir = $config->{locations}->{local_audio_recordings_dir};
+for my $file (sort glob("$dir/*m4a")) {
+    next if -M $file < 14;
+    my $filename = normalize($file);
+    unless (exists $paths{$filename}) {
+        print "                    --- $filename\n";
+        unlink $file or die $! if $delete;
+    }
+}
+
+sub normalize {
+    my $s = shift;
+    $s = basename $s;
+    $s =~ s/\.master(\.\w+)$/$1/;
+    return $s;
+}