From: Jan Michel <j.michel@gsi.de>
Date: Fri, 17 Jul 2015 12:58:52 +0000 (+0200)
Subject: allowing for filenames with spaces to be uploaded
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=4146a49cf4378eb5245616396a654304184fde72;p=labtools.git

allowing for filenames with spaces to be uploaded
---

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\"");
   }