diff options
author | Alexandru Scvortov <alexandru@rabbitmq.com> | 2011-09-06 15:05:32 +0100 |
---|---|---|
committer | Alexandru Scvortov <alexandru@rabbitmq.com> | 2011-09-06 15:05:32 +0100 |
commit | e1d210bbe5bc29badde94c64e2d7165599c1adbc (patch) | |
tree | db5b72fb25d38506dc55ff0b7d210dca6059f31b | |
parent | 27f2f8ee52ce634519b17310c26cc93fc5dad516 (diff) | |
download | rabbitmq-server-e1d210bbe5bc29badde94c64e2d7165599c1adbc.tar.gz |
use the recurisve delete from rabbit_misc
-rw-r--r-- | src/rabbit_prelaunch.erl | 36 |
1 files changed, 4 insertions, 32 deletions
diff --git a/src/rabbit_prelaunch.erl b/src/rabbit_prelaunch.erl index e567c304..2c095aaa 100644 --- a/src/rabbit_prelaunch.erl +++ b/src/rabbit_prelaunch.erl @@ -136,38 +136,10 @@ determine_version(App) -> {App, Vsn}. delete_recursively(Fn) -> - case filelib:is_dir(Fn) of - true -> - case file:list_dir(Fn) of - {ok, Files} -> - case lists:foldl(fun ( Fn1, ok) -> delete_recursively( - Fn ++ "/" ++ Fn1); - (_Fn1, Err) -> Err - end, ok, Files) of - ok -> case file:del_dir(Fn) of - ok -> ok; - {error, E} -> {error, - {cannot_delete, Fn, E}} - end; - Err -> Err - end; - {error, E} -> - {error, {cannot_list_files, Fn, E}} - end; - false -> - case filelib:is_file(Fn) of - true -> case file:delete(Fn) of - ok -> ok; - {error, E} -> {error, {cannot_delete, Fn, E}} - end; - false -> ok - end - end. - -is_symlink(Name) -> - case file:read_link(Name) of - {ok, _} -> true; - _ -> false + case rabbit_misc:recursive_delete([Fn]) of + ok -> ok; + {error, {Path, E}} -> {error, {cannot_delete, Path, E}}; + Error -> Error end. unpack_ez_plugins(SrcDir, DestDir) -> |