From: Christophe Romain <christophe.romain@process-one.net>
Date: Mon, 28 Nov 2016 16:15:57 +0000 (+0100)
Subject: Adds optional post_install and pre_uninstall hooks (thanks Igor Manturov Jr.)(#1300)
X-Git-Tag: 16.12~24^2~5
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=fc7e52df71b0b02fb2a0f34fcb5db03e04cfac22;p=ejabberd

Adds optional post_install and pre_uninstall hooks (thanks Igor Manturov Jr.)(#1300)
---

diff --git a/src/ext_mod.erl b/src/ext_mod.erl
index 071fb827c..5b970623b 100644
--- a/src/ext_mod.erl
+++ b/src/ext_mod.erl
@@ -170,7 +170,10 @@ install(Package) when is_binary(Package) ->
                 ok ->
                     code:add_patha(module_ebin_dir(Module)),
                     ejabberd_config:reload_file(),
-                    ok;
+                    case erlang:function_exported(Module, post_install, 0) of
+                        true -> Module:post_install();
+                        _ -> ok
+                    end;
                 Error ->
                     delete_path(module_lib_dir(Module)),
                     Error
@@ -183,6 +186,10 @@ uninstall(Package) when is_binary(Package) ->
     case installed(Package) of
         true ->
             Module = jlib:binary_to_atom(Package),
+            case erlang:function_exported(Module, pre_uninstall, 0) of
+                true -> Module:pre_uninstall();
+                _ -> ok
+            end,
             [catch gen_mod:stop_module(Host, Module)
              || Host <- ejabberd_config:get_myhosts()],
             code:purge(Module),