From 4146a49cf4378eb5245616396a654304184fde72 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Fri, 17 Jul 2015 14:58:52 +0200
Subject: [PATCH] allowing for filenames with spaces to be uploaded

---
 presenter/uploadFiles.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/presenter/uploadFiles.pl b/presenter/uploadFiles.pl
index abf8caf..a65737a 100755
--- a/presenter/uploadFiles.pl
+++ b/presenter/uploadFiles.pl
@@ -18,6 +18,7 @@ if (!($room =~ /^[a-zA-Z0-9]+$/) || !(-d "store/$room")) {
 
 my $basename = GetBasename($upfile);
 $basename =~ s-/--;
+$basename =~ s-\s--;
 
 my $fh = $cgi->upload('upfile'); 
 
@@ -36,11 +37,11 @@ while ( $nBytes = read($upfile, $buffer, 1024) ) {
 }
 close(OUTFILE);
 
-if($basename =~ /.pdf$/) {
+if($basename =~ /\.pdf$/) {
   my $b = $basename;
   $b =~ s/.pdf//;
-  system("cd store/$room;../../convert.sh $basename $b");
-  system("rm store/$room/$basename");
+  system("cd store/$room;../../convert.sh \"$basename\" \"$b\"");
+  system("rm \"store/$room/$basename\"");
   }
 
 
-- 
2.43.0