kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

audio-recordings.cgi: allow more audio formats

Browse Source
This commit is contained in:
Milan
2020-12-15 13:00:09 +01:00
parent efad2c9103
commit ca604063d8
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
website/agenda/planung/audio-recordings.cgi
View File

@@ -361,11 +361,15 @@ sub uploadFile {
$time =~ s/\s/\_/g; $time =~ s/\s/\_/g;
$time =~ s/[^a-zA-Z0-9\.\-\_]//g; $time =~ s/[^a-zA-Z0-9\.\-\_]//g;
$filename =~ s/\.(mp3)$//g; my $extension =~ ( split( ".", $filename) ) [-1];
$filename = join( '-', ( $time, 'id' . $eventId, $userName, $filename ) ) . '.mp3'; $filename =~ s/\.$extension$//;
$filename =~ s/[^a-zA-Z0-9\.\-\_]//g; $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"; print STDERR "tempFile=$tempFile\n";
my $start = time(); my $start = time();