From f43f1e540f508f197ec18362c489d98c483dae7c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20D=C5=82ugosz?=
 <pawel.dlugosz@erlang-solutions.com>
Date: Wed, 9 Nov 2022 12:57:21 +0100
Subject: [PATCH] Refactored hook handlers in mod_keystore

---
 src/mod_keystore.erl   | 24 ++++++++++++------------
 src/mongoose_hooks.erl |  5 ++++-
 2 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/src/mod_keystore.erl b/src/mod_keystore.erl
index 0256b00e6f..eae522ba75 100644
--- a/src/mod_keystore.erl
+++ b/src/mod_keystore.erl
@@ -10,7 +10,7 @@
 -export([config_spec/0]).
 
 %% Hook handlers
--export([get_key/2]).
+-export([get_key/3]).
 
 -export([process_key/1]).
 
@@ -21,8 +21,6 @@
               key_name/0,
               raw_key/0]).
 
--ignore_xref([get_key/2]).
-
 -include("mod_keystore.hrl").
 -include("mongoose.hrl").
 -include("mongoose_config_spec.hrl").
@@ -53,18 +51,19 @@ start(HostType, Opts) ->
     create_keystore_ets(),
     mod_keystore_backend:init(HostType, Opts),
     init_keys(HostType, Opts),
-    ejabberd_hooks:add(hooks(HostType)),
+    gen_hook:add_handlers(hooks(HostType)),
     ok.
 
 -spec stop(mongooseim:host_type()) -> ok.
 stop(HostType) ->
-    ejabberd_hooks:delete(hooks(HostType)),
+    gen_hook:delete_handlers(hooks(HostType)),
     clear_keystore_ets(HostType),
     ok.
 
+-spec hooks(mongooseim:host_type()) -> gen_hook:hook_list().
 hooks(HostType) ->
     [
-     {get_key, HostType, ?MODULE, get_key, 50}
+     {get_key, HostType, fun ?MODULE:get_key/3, #{}, 50}
     ].
 
 -spec supported_features() -> [atom()].
@@ -105,12 +104,12 @@ process_key(#{name := Name, type := ram}) ->
 %% Hook handlers
 %%
 
--spec get_key(HandlerAcc, KeyID) -> Result when
+-spec get_key(HandlerAcc, Params, Extra) -> {ok, HandlerAcc} when
       HandlerAcc :: key_list(),
-      KeyID :: key_id(),
-      Result :: key_list().
-get_key(HandlerAcc, KeyID) ->
-    try
+      Params :: #{key_id := key_id()},
+      Extra :: gen_hook:extra().
+get_key(HandlerAcc, #{key_id := KeyID}, _) ->
+    NewAcc = try
         %% This is OK, because the key is
         %% EITHER stored in ETS
         %% OR stored in BACKEND,
@@ -124,7 +123,8 @@ get_key(HandlerAcc, KeyID) ->
             ?LOG_ERROR(#{what => get_key_failed,
                          error => E, reason => R, stacktrace => S}),
             HandlerAcc
-    end.
+    end,
+    {ok, NewAcc}.
 
 %%
 %% Internal functions
diff --git a/src/mongoose_hooks.erl b/src/mongoose_hooks.erl
index 4f20076214..95bae30f7f 100644
--- a/src/mongoose_hooks.erl
+++ b/src/mongoose_hooks.erl
@@ -319,7 +319,10 @@ extend_inbox_message(MongooseAcc, InboxRes, IQ) ->
     KeyName :: atom(),
     Result :: mod_keystore:key_list().
 get_key(HostType, KeyName) ->
-    run_hook_for_host_type(get_key, HostType, [], [{KeyName, HostType}]).
+    Params = #{key_id => {KeyName, HostType}},
+    Args = [{KeyName, HostType}],
+    ParamsWithLegacyArgs = ejabberd_hooks:add_args(Params, Args),
+    run_hook_for_host_type(get_key, HostType, [], ParamsWithLegacyArgs).
 
 -spec packet_to_component(Acc, From, To) -> Result when
     Acc :: mongoose_acc:t(),