audio-recordings.cgi: fix split

This commit is contained in:
Milan
2022-07-13 14:12:35 +02:00
parent 563deb0d7f
commit 15379adeaa

View File

@@ -366,7 +366,7 @@ sub uploadFile {
$time =~ s/\s/\_/g;
$time =~ s/[^a-zA-Z0-9\.\-\_]//g;
my $extension =~ ( split( ".", $filename) ) [-1];
my $extension =~ ( split( /\./, $filename) ) [-1];
$filename =~ s/\.$extension$//;
$extension =~ s/[^a-zA-Z0-9\.\-\_]//g;