Add support for WebAdmin Menu System

Author: badlop

mod_muc_log_http/src/mod_muc_log_http.erl

@@ -14,6 +14,8 @@
 
 -export([process/2]).
 
+-export([web_menu_system/3]).
+
 -include_lib("xmpp/include/xmpp.hrl").
 -include("ejabberd_http.hrl").
 -include("mod_muc_room.hrl").
@@ -236,7 +238,7 @@ last_modified(FileName) ->
 %%%----------------------------------------------------------------------
 
 start(_Host, _Opts) ->
-    ok.
+    {ok, [{hook, webadmin_menu_system_post, web_menu_system, 1000-$m, global}]}.
 
 stop(_Host) ->
     ok.
@@ -281,3 +283,11 @@ find_handler_port_path(Tls, Module) ->
               end;
          (_) -> false
       end, ets:tab2list(ejabberd_listener)).
+
+%%----------------------------------------------------------------------
+%% WebAdmin
+%%----------------------------------------------------------------------
+
+web_menu_system(Result, _Request, _Level) ->
+    Els = ejabberd_web_admin:make_menu_system(?MODULE, "💬", "MUC Log", ""),
+    Els ++ Result.

mod_webpresence/src/mod_webpresence.erl

@@ -32,6 +32,8 @@
 %% API
 -export([start_link/0]).
 
+-export([web_menu_system/3]).
+
 -include_lib("xmpp/include/xmpp.hrl").
 -include("logger.hrl").
 -include("translate.hrl").
@@ -51,6 +53,7 @@ start_link() ->
     gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
 
 start(Host, Opts) ->
+    ejabberd_hooks:add(webadmin_menu_system_post, global, ?MODULE, web_menu_system, 1000-$p),
     Dir = case gen_mod:get_opt(pixmaps_path, Opts) of
               auto ->
                   Package = atom_to_list(?MODULE),
@@ -71,6 +74,7 @@ start(Host, Opts) ->
     end.
 
 stop(Host) ->
+    ejabberd_hooks:delete(webadmin_menu_system_post, global, ?MODULE, web_menu_system, 1000-$p),
     Proc = gen_mod:get_module_proc(Host, ?MODULE),
     gen_server:call(Proc, stop),
     gen_mod:stop_child(?MODULE, Host),
@@ -960,8 +964,12 @@ serve_web_presence(TypeURL, User, Server, Tail, #request{lang = Lang1, q = Q}) -
 %%%% Web Admin
 %%%% ---------------------
 
+web_menu_system(Result, _Request, _Level) ->
+    Els = ejabberd_web_admin:make_menu_system(?MODULE, "👁️", "Presence Web", ""),
+    Els ++ Result.
+
 web_menu_host(Acc, _Host, Lang) ->
-    [{<<"webpresence">>, translate:translate(Lang, ?T("Web Presence"))} | Acc].
+    [{<<"webpresence">>, translate:translate(Lang, ?T("Presence Web"))} | Acc].
 
 web_page_host(_, _Host,
 	      #request{path = [<<"webpresence">>],