Ticket #1872: 1872.patch
File 1872.patch, 2.0 KB (added by , 16 years ago) |
---|
-
editor/filemanager/connectors/perl/commands.pl
140 140 $sErrorNumber = '201'; 141 141 } else { 142 142 copy("$img_dir/$new_fname","$sFilePath"); 143 chmod(0777,$sFilePath); 143 if ($CHMOD_ON_UPLOAD) { 144 chmod($CHMOD_ON_UPLOAD,$sFilePath); 145 } 144 146 unlink("$img_dir/$new_fname"); 145 147 last; 146 148 } -
editor/filemanager/connectors/perl/io.pl
89 89 if(!(-e $folderPath)) { 90 90 umask(000); 91 91 mkdir("$folderPath",0777); 92 chmod(0777,"$folderPath"); 92 if ($CHMOD_ON_FOLDER_CREATE) { 93 chmod($CHMOD_ON_FOLDER_CREATE,"$folderPath"); 94 } 93 95 return(0); 94 96 } else { 95 97 return(1); -
editor/filemanager/connectors/perl/upload_fck.pl
28 28 # File size max(unit KB) 29 29 $MAX_CONTENT_SIZE = 30000; 30 30 31 # After file is uploaded, sometimes it is required to change its permissions 32 # so that it was possible to access it at the later time. 33 # If possible, it is recommended to set more restrictive permissions, like 0755. 34 # Set to 0 to disable this feature. 35 $CHMOD_ON_UPLOAD = 0777; 36 37 # See comments above. 38 # Used when creating folders that does not exist. 39 $CHMOD_ON_FOLDER_CREATE = 0777; 40 31 41 # Filelock (1=use,0=not use) 32 42 $PM{'flock'} = '1'; 33 43 … … 126 136 127 137 128 138 mkdir($img_dir,0777); 129 chmod(0777,$img_dir); 139 if ($CHMOD_ON_FOLDER_CREATE) { 140 chmod($CHMOD_ON_FOLDER_CREATE,$img_dir); 141 } 130 142 131 143 undef $img_data_exists; 132 144 undef @NEWFNAMES;