From d92adb6296c6b983194b13bc30e8bfb1eee4ed7c Mon Sep 17 00:00:00 2001
From: Ask Solem <askh@opera.com>
Date: Tue, 16 Feb 2010 11:16:24 +0100
Subject: [PATCH] Allow "." in queue names

---
 rabbitmq-consumers               | 2 +-
 rabbitmq-messages                | 2 +-
 rabbitmq-messages_unacknowledged | 2 +-
 rabbitmq-messages_uncommitted    | 2 +-
 rabbitmq-queue_memory            | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/rabbitmq-consumers b/rabbitmq-consumers
index 7369b0f..52ee6fe 100755
--- a/rabbitmq-consumers
+++ b/rabbitmq-consumers
@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name consumers| \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'
diff --git a/rabbitmq-messages b/rabbitmq-messages
index eecdf67..95a6f76 100755
--- a/rabbitmq-messages
+++ b/rabbitmq-messages
@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+	perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'
diff --git a/rabbitmq-messages_unacknowledged b/rabbitmq-messages_unacknowledged
index eda6486..c6ec429 100755
--- a/rabbitmq-messages_unacknowledged
+++ b/rabbitmq-messages_unacknowledged
@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name messages_unacknowledged | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'
diff --git a/rabbitmq-messages_uncommitted b/rabbitmq-messages_uncommitted
index 93c9584..49b1adb 100755
--- a/rabbitmq-messages_uncommitted
+++ b/rabbitmq-messages_uncommitted
@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name messages_uncommitted | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'
diff --git a/rabbitmq-queue_memory b/rabbitmq-queue_memory
index da7c4b9..1cb300e 100755
--- a/rabbitmq-queue_memory
+++ b/rabbitmq-queue_memory
@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name memory | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'