Fix feature: Add support to generate link to room page

badlop · Jun 6, 2024 · 30ff6c8 · 30ff6c8
1 parent f5b0771
commit 30ff6c8
Showing 1 changed file with 19 additions and 2 deletions.
diff --git a/src/ejabberd_web_admin.erl b/src/ejabberd_web_admin.erl
@@ -1661,7 +1661,7 @@ when
         | {result_links, [
             {
                 ResultName :: atom(),
-                LinkType :: host | node | user | arg_host | paragraph,
+                LinkType :: host | node | user | room | arg_host | paragraph,
                 Level :: integer(),
                 Append :: binary()
             }
@@ -1701,7 +1701,7 @@ when
         | {result_links, [
             {
                 ResultName :: atom(),
-                LinkType :: host | node | user | arg_host | paragraph,
+                LinkType :: host | node | user | room | arg_host | paragraph,
                 Level :: integer(),
                 Append :: binary()
             }
@@ -2262,6 +2262,23 @@ make_result(Binary, ElementName, _ArgumentsUsed, [{ResultName, user, Level, Appe
         false ->
             ?C(Binary)
     end;
+make_result(Binary, ElementName, _ArgumentsUsed, [{ResultName, room, Level, Append}]) when
+    (ElementName == ResultName) or (ElementName == unknown_element_name)
+->
+    Jid = jid:decode(Binary),
+    {Roomname, Service, _} = jid:split(Jid),
+    Host = ejabberd_router:host_of_route(Service),
+    case lists:member(Host, ejabberd_config:get_option(hosts)) of
+        true ->
+            UrlBinary = replace_url_elements(
+                [<<"server/">>, host, <<"/muc/rooms/room/">>, room, <<"/">>, Append],
+                [{room, misc:url_encode(Roomname)}, {host, Host}],
+                Level
+            ),
+            ?AC(UrlBinary, Binary);
+        false ->
+            ?C(Binary)
+    end;
 make_result(Binary, ElementName, _ArgumentsUsed, [{ResultName, shared_roster, Level, Append}]) when
     (ElementName == ResultName) or (ElementName == unknown_element_name)
 ->