From cdc0b1dd7783f77d7deb2f02d35a3d3f2a7b60d1 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Wed, 31 May 2023 20:29:05 +0200
Subject: [PATCH] tools/remove-recordings.pl: support more audio file
 extensions

---
 tools/remove-recordings.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/remove-recordings.pl b/tools/remove-recordings.pl
index f6c58eb..6ea112c 100644
--- a/tools/remove-recordings.pl
+++ b/tools/remove-recordings.pl
@@ -25,7 +25,8 @@ 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")) {
+for my $file (sort glob("$dir/*")) {
+    next if $file !~ /\.(mp3|wav|flac|aac|ogg|m4a|aiff|aif|opus|aac)$/i; 
     next if -M $file < 14;
     my $filename = normalize($file);
     unless (exists $paths{$filename}) {