File 2268-ssh-Host-and-Profile-info-returned-in-ssh-daemon_inf.patch of Package erlang

From 1af346afd2d8cabc48bf9673dc62672e36b7b8a2 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Mon, 6 Mar 2017 16:24:03 +0100
Subject: [PATCH 1/2] ssh: Host and Profile info returned in ssh:daemon_info

---
 lib/ssh/src/ssh.erl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/ssh/src/ssh.erl b/lib/ssh/src/ssh.erl
index 53aba1445..e2a289d73 100644
--- a/lib/ssh/src/ssh.erl
+++ b/lib/ssh/src/ssh.erl
@@ -200,11 +200,13 @@ daemon(Host0, Port, UserOptions0) ->
 daemon_info(Pid) ->
     case catch ssh_system_sup:acceptor_supervisor(Pid) of
 	AsupPid when is_pid(AsupPid) ->
-	    [Port] =
-		[Prt || {{ssh_acceptor_sup,_,Prt,_},
+	    [{ListenAddr,Port,Profile}] =
+		[{LA,Prt,Prf} || {{ssh_acceptor_sup,LA,Prt,Prf},
 			 _WorkerPid,worker,[ssh_acceptor]} <- supervisor:which_children(AsupPid)],
-	    {ok, [{port,Port}]};
-
+	    {ok, [{port,Port},
+                  {listen_address,ListenAddr},
+                  {profile,Profile}
+                 ]};
 	_ ->
 	    {error,bad_daemon_ref}
     end.
-- 
2.12.2