Ticket #1872: 1872.patch

editor/filemanager/connectors/perl/commands.pl

@@ -140 +140 @@
                                 $sErrorNumber = '201';
                         } else {
                                 copy("$img_dir/$new_fname","$sFilePath");
-                                chmod(0777,$sFilePath);
+                                if ($CHMOD_ON_UPLOAD) {
+                                        chmod($CHMOD_ON_UPLOAD,$sFilePath);
+                                }
                                 unlink("$img_dir/$new_fname");
                                 last;
                         }

editor/filemanager/connectors/perl/io.pl

@@ -89 +89 @@
         if(!(-e $folderPath)) {
                 umask(000);
                 mkdir("$folderPath",0777);
-                chmod(0777,"$folderPath");
+                if ($CHMOD_ON_FOLDER_CREATE) {
+                        chmod($CHMOD_ON_FOLDER_CREATE,"$folderPath");
+                }
                 return(0);
         } else {
                 return(1);

editor/filemanager/connectors/perl/upload_fck.pl

@@ -28 +28 @@
 # File size max(unit KB)
 $MAX_CONTENT_SIZE =  30000;
 
+# After file is uploaded, sometimes it is required to change its permissions
+# so that it was possible to access it at the later time.
+# If possible, it is recommended to set more restrictive permissions, like 0755.
+# Set to 0 to disable this feature.
+$CHMOD_ON_UPLOAD = 0777;
+
+# See comments above.
+# Used when creating folders that does not exist.
+$CHMOD_ON_FOLDER_CREATE = 0777;
+
 # Filelock (1=use,0=not use)
 $PM{'flock'}            = '1';
 
@@ -126 +136 @@
 
 
         mkdir($img_dir,0777);
-        chmod(0777,$img_dir);
+        if ($CHMOD_ON_FOLDER_CREATE) {
+                chmod($CHMOD_ON_FOLDER_CREATE,$img_dir);
+        }
 
         undef $img_data_exists;
         undef @NEWFNAMES;