allowing for filenames with spaces to be uploaded

diff --git a/presenter/uploadFiles.pl b/presenter/uploadFiles.pl
index abf8caf1f20c27b5ad0dacc90218ca97da861d01..a65737ad8ec89b494987283a30baba65a446f26d 100755 (executable)
--- 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\"");
   }