From ca604063d888a50587da084e3e4e0737f33b0301 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Tue, 15 Dec 2020 13:00:09 +0100
Subject: [PATCH] audio-recordings.cgi: allow more audio formats

---
 website/agenda/planung/audio-recordings.cgi | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/website/agenda/planung/audio-recordings.cgi b/website/agenda/planung/audio-recordings.cgi
index d80692b..9c9485f 100755
--- a/website/agenda/planung/audio-recordings.cgi
+++ b/website/agenda/planung/audio-recordings.cgi
@@ -361,11 +361,15 @@ sub uploadFile {
     $time =~ s/\s/\_/g;
     $time =~ s/[^a-zA-Z0-9\.\-\_]//g;
 
-    $filename =~ s/\.(mp3)$//g;
-    $filename = join( '-', ( $time, 'id' . $eventId, $userName, $filename ) ) . '.mp3';
-    $filename =~ s/[^a-zA-Z0-9\.\-\_]//g;
+    my $extension =~ ( split( ".", $filename) ) [-1];
+    $filename =~ s/\.$extension$//;
+    $extension =~ s/[^a-zA-Z0-9\.\-\_]//g;
 
-    my $tempFile = $targetDir . '/' . $filename;
+    $filename = join( '-', ( $time, 'id' . $eventId, $userName, $filename ) );
+    $filename =~ s/[^a-zA-Z0-9\.\-\_]//g;
+    $filename .= $extension;
+
+    my $tempFile = "$targetDir/$filename";
     print STDERR "tempFile=$tempFile\n";
 
     my $start = time();