Changeset 1626 for FCKeditor/trunk/editor/filemanager/connectors/perl/io.pl

Timestamp:

2008-02-25 17:17:51 (9 months ago)

Author:

wwalc

Message:

Fix for #1872. Permissions applied with chmod commmand are now configurable (perl).

Files:

• FCKeditor/trunk/editor/filemanager/connectors/perl/io.pl (modified) (1 diff)

FCKeditor/trunk/editor/filemanager/connectors/perl/io.pl

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