%% %% %CopyrightBegin% %% %% Copyright Ericsson AB 2008-2015. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in %% compliance with the License. You should have received a copy of the %% Erlang Public License along with this software. If not, it can be %% retrieved online at http://www.erlang.org/. %% %% Software distributed under the License is distributed on an "AS IS" %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See %% the License for the specific language governing rights and limitations %% under the License. %% %% %CopyrightEnd% %% %% %%---------------------------------------------------------------------- %% Purpose: Print some info of a running ssh aplication. %%---------------------------------------------------------------------- -module(ssh_info). -compile(export_all). print() -> print(user). print(D) -> try supervisor:which_children(ssh_sup) of _ -> io:nl(D), print_general(D), io:nl(D), underline(D, "Client part", $=), print_clients(D), io:nl(D), underline(D, "Server part", $=), print_servers(D), io:nl(D), %% case os:type() of %% {unix,_} -> %% io:nl(), %% underline("Linux part", $=), %% underline("Listening"), %% catch io:format(os:cmd("netstat -tpln")), %% io:nl(), %% underline("Other"), %% catch io:format(os:cmd("netstat -tpn")); %% _ -> ok %% end, underline(D, "Supervisors", $=), walk_sups(D, ssh_sup), io:nl(D) catch _:_ -> io:format(D,"Ssh not found~n",[]) end. %%%================================================================ print_general(D) -> {_Name, Slogan, Ver} = lists:keyfind(ssh,1,application:which_applications()), underline(D, io_lib:format("~s ~s", [Slogan, Ver]), $=), io:format(D, 'This printout is generated ~s. ~n',[datetime()]). %%%================================================================ print_clients(D) -> PrintClient = fun(X) -> print_client(D,X) end, try lists:foreach(PrintClient, supervisor:which_children(sshc_sup)) catch C:E -> io:format(D, '***FAILED: ~p:~p~n',[C,E]) end. print_client(D, {undefined,Pid,supervisor,[ssh_connection_handler]}) -> {{Local,Remote},_Str} = ssh_connection_handler:get_print_info(Pid), io:format(D, " Local=~s Remote=~s~n",[fmt_host_port(Local),fmt_host_port(Remote)]); print_client(D, Other) -> io:format(D, " [[Other 1: ~p]]~n",[Other]). %%%================================================================ print_servers(D) -> PrintServer = fun(X) -> print_server(D,X) end, try lists:foreach(PrintServer, supervisor:which_children(sshd_sup)) catch C:E -> io:format(D, '***FAILED: ~p:~p~n',[C,E]) end. print_server(D, {{server,ssh_system_sup,LocalHost,LocalPort},Pid,supervisor,[ssh_system_sup]}) when is_pid(Pid) -> io:format(D, 'Local=~s (~p children)~n',[fmt_host_port({LocalHost,LocalPort}), ssh_acceptor:number_of_connections(Pid)]), PrintSystemSup = fun(X) -> print_system_sup(D,X) end, lists:foreach(PrintSystemSup, supervisor:which_children(Pid)); print_server(D, Other) -> io:format(D, " [[Other 2: ~p]]~n",[Other]). print_system_sup(D, {Ref,Pid,supervisor,[ssh_subsystem_sup]}) when is_reference(Ref), is_pid(Pid) -> PrintChannels = fun(X) -> print_channels(D,X) end, lists:foreach(PrintChannels, supervisor:which_children(Pid)); print_system_sup(D, {{ssh_acceptor_sup,LocalHost,LocalPort}, Pid,supervisor, [ssh_acceptor_sup]}) when is_pid(Pid) -> io:format(D, " [Acceptor for ~s]~n",[fmt_host_port({LocalHost,LocalPort})]); print_system_sup(D, Other) -> io:format(D, " [[Other 3: ~p]]~n",[Other]). print_channels(D, {{server,ssh_channel_sup,_,_},Pid,supervisor,[ssh_channel_sup]}) when is_pid(Pid) -> PrintChannel = fun(X) -> print_channel(D,X) end, lists:foreach(PrintChannel, supervisor:which_children(Pid)); print_channels(D, Other) -> io:format(D, " [[Other 4: ~p]]~n",[Other]). print_channel(D, {Ref,Pid,worker,[ssh_channel]}) when is_reference(Ref), is_pid(Pid) -> {{ConnManager,ChannelID}, Str} = ssh_channel:get_print_info(Pid), {{Local,Remote},StrM} = ssh_connection_handler:get_print_info(ConnManager), io:format(D, ' ch ~p: ~s ~s',[ChannelID, StrM, Str]), io:format(D, " Local=~s Remote=~s~n",[fmt_host_port(Local),fmt_host_port(Remote)]); print_channel(D, Other) -> io:format(D, " [[Other 5: ~p]]~n",[Other]). %%%================================================================ -define(inc(N), (N+4)). walk_sups(D, StartPid) -> io:format(D, "Start at ~p, ~s.~n",[StartPid,dead_or_alive(StartPid)]), walk_sups(D, children(StartPid), _Indent=?inc(0)). walk_sups(D, [H={_,Pid,SupOrWorker,_}|T], Indent) -> indent(D, Indent), io:format(D, '~200p ~p is ~s~n',[H,Pid,dead_or_alive(Pid)]), case SupOrWorker of supervisor -> walk_sups(D, children(Pid), ?inc(Indent)); _ -> ok end, walk_sups(D, T, Indent); walk_sups(_D, [], _) -> ok. dead_or_alive(Name) when is_atom(Name) -> case whereis(Name) of undefined -> "**UNDEFINED**"; Pid -> dead_or_alive(Pid) end; dead_or_alive(Pid) when is_pid(Pid) -> case process_info(Pid) of undefined -> "**DEAD**"; _ -> "alive" end. indent(D, I) -> io:format(D,'~*c',[I,$ ]). children(Pid) -> Parent = self(), Helper = spawn(fun() -> Parent ! {self(),supervisor:which_children(Pid)} end), receive {Helper,L} when is_list(L) -> L after 2000 -> catch exit(Helper, kill), [] end. %%%================================================================ underline(D, Str) -> underline(D, Str, $-). underline(D, Str, LineChar) -> Len = lists:flatlength(Str), io:format(D, '~s~n',[Str]), line(D,Len,LineChar). line(D, Len, Char) -> io:format(D, '~*c~n', [Len,Char]). datetime() -> {{YYYY,MM,DD}, {H,M,S}} = calendar:now_to_universal_time(now()), lists:flatten(io_lib:format('~4w-~2..0w-~2..0w ~2..0w:~2..0w:~2..0w UTC',[YYYY,MM,DD, H,M,S])). fmt_host_port({{A,B,C,D},Port}) -> io_lib:format('~p.~p.~p.~p:~p',[A,B,C,D,Port]); fmt_host_port({Host,Port}) -> io_lib:format('~s:~p',[Host,Port]). nyi(D) -> io:format(D,'Not yet implemented~n',[]), nyi.