From b56333712a7a6ebe4aca8fd89ad05709acfd335d Mon Sep 17 00:00:00 2001
From: Dmitri Minaev <minaev@gmail.com>
Date: Mon, 17 Jan 2011 11:22:20 +0100
Subject: [PATCH] Initial version

---
 plugins/other/rabbitmq_list_queues | 34 ++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 plugins/other/rabbitmq_list_queues

diff --git a/plugins/other/rabbitmq_list_queues b/plugins/other/rabbitmq_list_queues
new file mode 100755
index 00000000..119a0ee5
--- /dev/null
+++ b/plugins/other/rabbitmq_list_queues
@@ -0,0 +1,34 @@
+#!/usr/bin/tclsh
+
+proc clean_fieldname arg {
+    return [regsub -all {[^A-Za-z]} $arg "_"]
+}
+
+proc main {argc argv} {
+    set queues [exec /usr/sbin/rabbitmqctl list_queues -q]
+    if {$argc > 0} {
+	switch [lindex $argv 0] {
+	    "config" {
+		puts "graph_title Number of messages in RabbitMQ queues"
+		puts "graph_vlabel messages"
+		puts "graph_category RabbitMQ"
+		foreach {q m} $queues {
+		    set clean [clean_fieldname $q]
+		    puts "$clean.label $q"
+		    puts "$clean.draw LINE3"
+		}
+	    }
+	    "autoconf" {
+		puts "yes"
+	    }
+	}
+    } else {
+	foreach {q m} $queues {
+	    set clean [clean_fieldname $q]
+	    puts "$clean.value $m"
+	}
+    }
+}
+
+main $argc $argv
+