Adopt code that uses parse_listener_portip after result change

diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl
index 28edf9453dd2f5ad759933a08f67bb07a5cf0382..54bc877ccf7eb8580773c7e6d0800d2ea0854d9e 100644 (file)
--- a/src/ejabberd_listener.erl
+++ b/src/ejabberd_listener.erl
@@ -350,7 +350,7 @@ stop_listener({_, _, Transport} = PortIP, Module) ->
     end.
 
 add_listener(PortIP, Module, Opts) ->
-    {Port, IPT, _, _, Proto, _} = parse_listener_portip(PortIP, Opts),
+    {Port, IPT, _, Proto, _} = parse_listener_portip(PortIP, Opts),
     PortIP1 = {Port, IPT, Proto},
     case start_listener(PortIP1, Module, Opts) of
        {ok, _Pid} ->
@@ -373,7 +373,7 @@ delete_listener(PortIP, Module) ->
 %%      Module = atom()
 %%      Opts = [term()]
 delete_listener(PortIP, Module, Opts) ->
-    {Port, IPT, _, _, Proto, _} = parse_listener_portip(PortIP, Opts),
+    {Port, IPT, _, Proto, _} = parse_listener_portip(PortIP, Opts),
     PortIP1 = {Port, IPT, Proto},
     stop_listener(PortIP1, Module).
 

diff --git a/src/ejabberd_web_admin.erl b/src/ejabberd_web_admin.erl
index 7f031dce0017f61b9ec2899ab62514ee952f2902..46c957330b5d0cb6a91f88ddbe265a6bcf23b414 100644 (file)
--- a/src/ejabberd_web_admin.erl
+++ b/src/ejabberd_web_admin.erl
@@ -2242,8 +2242,9 @@ make_netprot_html(NetProt) ->
                    [<<"tcp">>, <<"udp">>]))).
 
 get_port_data(PortIP, Opts) ->
-    {Port, IPT, IPS, _IPV, NetProt, OptsClean} =
+    {Port, IPT, _IPV, NetProt, OptsClean} =
        ejabberd_listener:parse_listener_portip(PortIP, Opts),
+    IPS = misc:ip_to_list(IPT),
     SPort = integer_to_binary(Port),
     SSPort = list_to_binary(
                lists:map(fun (N) ->