jacob.eva
/
ejabberd-contrib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mod_http_upload: Set mode bits of all directories 

When the "dir_mode" option is specified and the file root/a/b/file.png
is uploaded, make sure the permissions of the "a" directory are also
set.
This commit is contained in:
Holger Weiss 2015-09-14 00:55:38 +02:00
parent f3bf402e7a
commit a6c7dc9b8a
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
mod_http_upload/src/mod_http_upload.erl
View File

@ -661,16 +661,19 @@ store_file(Path, Data, FileMode, DirMode) ->
{ok, Io} = file:open(Path, [write, exclusive, raw]), {ok, Io} = file:open(Path, [write, exclusive, raw]),
Ok = file:write(Io, Data), Ok = file:write(Io, Data),
ok = file:close(Io), ok = file:close(Io),
ok = if is_integer(FileMode) -> if is_integer(FileMode) ->
file:change_mode(Path, FileMode); ok = file:change_mode(Path, FileMode);
FileMode == undefined -> FileMode == undefined ->
ok ok
end, end,
ok = if is_integer(DirMode) -> if is_integer(DirMode) ->
file:change_mode(filename:dirname(Path), DirMode); RandDir = filename:dirname(Path),
DirMode == undefined -> UserDir = filename:dirname(RandDir),
ok ok = file:change_mode(RandDir, DirMode),
end, ok = file:change_mode(UserDir, DirMode);
DirMode == undefined ->
ok
end,
ok = Ok % Raise an exception if file:write/2 failed. ok = Ok % Raise an exception if file:write/2 failed.
catch catch
_:{badmatch, {error, Error}} -> _:{badmatch, {error, Error}} ->