Make directory creation more robust

diff --git a/src/mod_muc_log.erl b/src/mod_muc_log.erl
index ac6bea4fadb628820fbb8d6b1441e69c8ad40b53..bdaafd1974ee9727ea0723815ea74cee7696bd59 100644 (file)
--- a/src/mod_muc_log.erl
+++ b/src/mod_muc_log.erl
@@ -571,16 +571,7 @@ get_dateweek(Date, Lang) ->
       end).
 
 make_dir_rec(Dir) ->
-    DirS = binary_to_list(Dir),
-    case file:read_file_info(DirS) of
-      {ok, _} -> ok;
-      {error, enoent} ->
-         DirL = [list_to_binary(F) || F <- filename:split(DirS)],
-         DirR = lists:sublist(DirL, length(DirL) - 1),
-         make_dir_rec(fjoin(DirR)),
-         file:make_dir(DirS),
-         file:change_mode(DirS, 8#00755) % -rwxr-xr-x
-    end.
+    filelib:ensure_dir(<<Dir/binary, $/>>).
 
 %% {ok, F1}=file:open("valid-xhtml10.png", [read]).
 %% {ok, F1b}=file:read(F1, 1000000).