Chapril
/
xmpp.chapril.org-ejabberd
mirror of https://github.com/processone/ejabberd.git
24
1
Fork 0
Code Releases Activity

Improve support to stop external modules written in Elixir

This commit is contained in:
Badlop 2023-07-13 13:32:24 +02:00
parent 8d9ee8e35b
commit 78f81de252
1 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/ext_mod.erl
View File

@ -236,8 +236,9 @@ install(Package, Config) when is_binary(Package) ->
code:add_pathsz([module_ebin_dir(Module)|module_deps_dirs(Module)]),
ejabberd_config_reload(Config),
copy_commit_json(Package, Attrs),
case erlang:function_exported(Module, post_install, 0) of
true -> Module:post_install();
ModuleRuntime = get_runtime_module_name(Module),
case erlang:function_exported(ModuleRuntime, post_install, 0) of
true -> ModuleRuntime:post_install();
_ -> ok
end;
Error ->
@ -260,14 +261,15 @@ uninstall(Package) when is_binary(Package) ->
case installed(Package) of
true ->
Module = misc:binary_to_atom(Package),
case erlang:function_exported(Module, pre_uninstall, 0) of
true -> Module:pre_uninstall();
ModuleRuntime = get_runtime_module_name(Module),
case erlang:function_exported(ModuleRuntime, pre_uninstall, 0) of
true -> ModuleRuntime:pre_uninstall();
_ -> ok
end,
[catch gen_mod:stop_module(Host, Module)
[catch gen_mod:stop_module(Host, ModuleRuntime)
|| Host <- ejabberd_option:hosts()],
code:purge(Module),
code:delete(Module),
code:purge(ModuleRuntime),
code:delete(ModuleRuntime),
[code:del_path(PathDelete) || PathDelete <- [module_ebin_dir(Module)|module_deps_dirs(Module)]],
delete_path(module_lib_dir(Module)),
ejabberd_config:reload();
@ -1019,6 +1021,26 @@ get_module_status(Module) ->
unknown
end.
%% When a module named mod_whatever in ejabberd-modules
%% is written in Elixir, its runtime name is 'Elixir.ModWhatever'
get_runtime_module_name(Module) ->
case is_elixir_module(Module) of
true -> elixir_module_name(Module);
false -> Module
end.
is_elixir_module(Module) ->
LibDir = module_src_dir(Module),
Lib = filename:join(LibDir, "lib"),
Src = filename:join(LibDir, "src"),
case {filelib:wildcard(Lib++"/*.{ex}"),
filelib:wildcard(Src++"/*.{erl}")} of
{[_ | _], []} ->
true;
{[], [_ | _]} ->
false
end.
%% Converts mod_some_thing to Elixir.ModSomeThing
elixir_module_name(ModAtom) ->
list_to_atom("Elixir." ++ elixir_module_name("_" ++ atom_to_list(ModAtom), [])).