-
Notifications
You must be signed in to change notification settings - Fork 9
/
busy_dist_port_monitor.erl
30 lines (25 loc) · 1 KB
/
busy_dist_port_monitor.erl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
%% @copyright Geoff Cant 2010
%% @author Geoff Cant <[email protected]>
%% @version {@vsn}, {@date} {@time}
%% @doc Erlang shell code to watch for busy dist port messages
%% @end
f(GL).
GL=group_leader().
f(Loop).
Loop = fun () ->
erlang:system_monitor(self(), [busy_dist_port]),
lists:foldl(fun (N, Acc) ->
receive
{monitor, _,_,_} = M ->
io:format(GL, "~p monitor: ~p~n",
[{calendar:local_time(), M}]),
Acc
after 1000 ->
Acc
end
end,
[],
lists:seq(1,30)),
io:format(GL, "Monitoring complete.~n", [])
end.
spawn(Loop).