From 7d8fa3c88075b598a0bf636285c736bc94fc8266 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 5 Aug 2022 16:10:25 +0200
Subject: [PATCH] ext_mod: Support managing remote nodes in the cluster

---
 src/ext_mod.erl | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/src/ext_mod.erl b/src/ext_mod.erl
index 8ff4015d5..3b9db2940 100644
--- a/src/ext_mod.erl
+++ b/src/ext_mod.erl
@@ -36,7 +36,7 @@
          config_dir/0, get_commands_spec/0]).
 -export([modules_configs/0, module_ebin_dir/1]).
 -export([compile_erlang_file/2, compile_elixir_file/2]).
--export([web_menu_node/3, web_page_node/5]).
+-export([web_menu_node/3, web_page_node/5, get_page/3]).
 
 %% gen_server callbacks
 -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
@@ -858,6 +858,12 @@ web_menu_node(Acc, _Node, Lang) ->
     Acc ++ [{<<"contrib">>, translate:translate(Lang, ?T("Contrib Modules"))}].
 
 web_page_node(_, Node, [<<"contrib">>], Query, Lang) ->
+    Res = rpc:call(Node, ?MODULE, get_page, [Node, Query, Lang]),
+    {stop, Res};
+web_page_node(Acc, _, _, _, _) ->
+    Acc.
+
+get_page(Node, Query, Lang) ->
     QueryRes = list_modules_parse_query(Query),
     Title = ?H1GL(translate:translate(Lang, ?T("Contrib Modules")),
                   <<"../../developer/extending-ejabberd/modules/#ejabberd-contrib">>,
@@ -867,10 +873,7 @@ web_page_node(_, Node, [<<"contrib">>], Query, Lang) ->
                  ok -> [?XREST(?T("Submitted"))];
                  nothing -> []
              end,
-    Res = Title ++ Result ++ Contents,
-    {stop, Res};
-web_page_node(Acc, _, _, _, _) ->
-    Acc.
+    Title ++ Result ++ Contents.
 
 get_module_home(Module, Attrs) ->
     case element(2, lists:keyfind(home, 1, Attrs)) of