Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:24
erlang
4291-Also-list-connected-hidden-nodes-in-observ...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 4291-Also-list-connected-hidden-nodes-in-observer-nodes-l.patch of Package erlang
From 546b645f3fcd932c6fd5b7ecf8906e88e3f828b0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?P=C3=A9ter=20G=C3=B6m=C3=B6ri?= <gomoripeti@gmail.com> Date: Mon, 30 May 2022 00:40:08 +0200 Subject: [PATCH 1/2] Also list connected, hidden nodes in observer nodes list menu --- lib/observer/src/observer_wx.erl | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lib/observer/src/observer_wx.erl b/lib/observer/src/observer_wx.erl index d83b51dd3d..dea7e07db0 100644 --- a/lib/observer/src/observer_wx.erl +++ b/lib/observer/src/observer_wx.erl @@ -747,17 +747,20 @@ get_nodes() -> Nodes0 = case erlang:is_alive() of false -> []; true -> - case net_adm:names() of - {error, _} -> nodes(); - {ok, Names} -> - epmd_nodes(Names) ++ nodes() - end + case net_adm:names() of + {error, _} -> []; + {ok, Names} -> epmd_nodes(Names) + end + ++ + nodes(connected) end, Nodes = lists:usort(Nodes0), + WarningText = "WARNING: connecting to non-erlang nodes may crash them", {_, Menues} = lists:foldl(fun(Node, {Id, Acc}) when Id < ?LAST_NODES_MENU_ID -> {Id + 1, [#create_menu{id=Id + ?FIRST_NODES_MENU_ID, - text=atom_to_list(Node)} | Acc]} + text=atom_to_list(Node), + help=WarningText} | Acc]} end, {1, []}, Nodes), {Nodes, lists:reverse(Menues)}. -- 2.35.3
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor