From e36f16cb9af2a3f65114068b6b5940b3f9f24cf3 Mon Sep 17 00:00:00 2001
From: Antoine Durand-Gasselin <adg@crans.org>
Date: Tue, 21 Apr 2009 18:15:17 +0200
Subject: [PATCH] [munin/sockets] on ajoute sockets qui compte le nombre de
 connexions

darcs-hash:20090421161517-bd074-ff1b313d2eb3a23519a6e93da346815d807040a2.gz
---
 munin/sockets | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100755 munin/sockets

diff --git a/munin/sockets b/munin/sockets
new file mode 100755
index 00000000..1ae7a28f
--- /dev/null
+++ b/munin/sockets
@@ -0,0 +1,63 @@
+#!/bin/sh
+#
+# # Parameters:
+#
+# 	config   (required)
+# 	autoconf (optional - used by munin-config)
+# 	suggest  (optional - used by munin-config)
+#
+
+#. $MUNIN_LIBDIR/plugins/plugin.sh
+
+myname="connexions"
+
+name="${name-\<$myname\>}"
+REGEX="${regex-\<$name\>}"
+
+if [ "$1" = "autoconf" ]; then
+	echo yes
+	exit 0
+fi
+
+if [ "$1" = "suggest" ]; then
+	exit 0
+fi
+
+if [ "$1" = "config" ]; then
+
+	echo graph_title Number of $myname
+	echo 'graph_args --base 1000 --vertical-label connexions -l 0'
+	echo 'graph_category network'
+	echo "imap.label Connexions imap"
+	echo "ssh.label Connexions ssh"
+	echo "http.label Connexions web"
+	echo "other.label Connexions diverses"
+	echo "in.label Connexions entrantes"
+	echo "out.label Connexions sortantes"
+	exit 0
+fi
+
+ip=`ifconfig | perl -ne 'print ${^MATCH} if /10\.231\.136\.\d+/p'`
+ips=${IP/10/}
+TMP=`mktemp -t sockets.XXXXXX`
+trap "rm $TMP* 2>/dev/null" 0
+
+/sbin/ss > $TMP
+
+printf "imap.value "
+grep "$ips:imap" $TMP | wc -l
+
+printf "ssh.value "
+grep "$ips:ssh" $TMP | wc -l
+
+printf "http.value "
+grep "$ips:http" $TMP | wc -l
+
+printf "other.label "
+perl -ne "print if ! /$ips:(imap|ssh|http)/" $TMP | wc -l
+
+printf "in.label "
+perl -ne "print if ! /$ips:\d{5}/" $TMP | wc -l
+
+printf "out.label "
+perl -ne "print if /$ips:\d{5}/" $TMP | wc -l