From 99a42cafd61f12be36fc70ab6cdd1c208c95589f Mon Sep 17 00:00:00 2001
From: Artem Sheremet <dot.doom@gmail.com>
Date: Wed, 19 Aug 2015 17:55:00 +0200
Subject: [PATCH] Add "process links" graph to ejabberd_resources

---
 .../ejabberd_resources_/ejabberd_resources_     | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/plugins/ejabberd/ejabberd_resources_/ejabberd_resources_ b/plugins/ejabberd/ejabberd_resources_/ejabberd_resources_
index 4621a5e7..e04b0090 100755
--- a/plugins/ejabberd/ejabberd_resources_/ejabberd_resources_
+++ b/plugins/ejabberd/ejabberd_resources_/ejabberd_resources_
@@ -1,7 +1,5 @@
 #!/usr/bin/env bash
 
-# ejabberd_resources_ revision 4 (Mar 2015)
-#
 # Tested with ejabberd 2.1.x
 #
 # This plugin is capable to show:
@@ -206,6 +204,20 @@ function ejabberd_report_mnesia_recs() {
 	ejabberd_report_mnesia "$1" recs
 }
 
+function ejabberd_report_process_links() {
+	ejabberd_exec "
+		lists:filtermap(
+			fun(Name) ->
+				case whereis(Name) of
+					Pid when is_pid(Pid) ->
+						{links, Links} = erlang:process_info(Pid, links),
+						{true, {Name, length(Links)}};
+					_ ->
+						false
+			end,
+			registered())"
+}
+
 function open_files_counter_util() {
 	if hash lsof &>/dev/null; then
 		echo lsof
@@ -281,6 +293,7 @@ case $1 in
 memory
 processes
 ports
+process_links
 online_users
 registered_users
 mnesia_recs