From 655e8d15f85077a773f289807eba62e60c8fdaee Mon Sep 17 00:00:00 2001
From: Rohit Yadav <rohit.yadav@wingify.com>
Date: Wed, 22 May 2013 15:27:49 +0530
Subject: [PATCH] Use sed instead of perl to do the text processing while
 printing values

Signed-off-by: Rohit Yadav <rohit.yadav@wingify.com>
---
 rabbitmq_consumers               | 4 +---
 rabbitmq_messages                | 4 +---
 rabbitmq_messages_unacknowledged | 5 ++---
 rabbitmq_messages_uncommitted    | 4 +---
 rabbitmq_queue_memory            | 4 +---
 5 files changed, 6 insertions(+), 15 deletions(-)

diff --git a/rabbitmq_consumers b/rabbitmq_consumers
index 3b603d0..11b02f5 100755
--- a/rabbitmq_consumers
+++ b/rabbitmq_consumers
@@ -70,6 +70,4 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-HOME=$HOME rabbitmqctl list_queues -p $VHOST name consumers| \
-	grep -v "^Listing" | grep -v "done.$" | \
-    perl -nle'($q, $s) = split; $q =~ s/[.=-]/_/g; print("$q.value $s")'
+HOME=$HOME rabbitmqctl list_queues -p $VHOST name consumers| grep -v "^Listing" | grep -v "done.$" | grep -v "\.\.\." | sed "s/[\t]/.value /g"
diff --git a/rabbitmq_messages b/rabbitmq_messages
index 68a37da..436c203 100755
--- a/rabbitmq_messages
+++ b/rabbitmq_messages
@@ -70,6 +70,4 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-HOME=$HOME rabbitmqctl list_queues -p $VHOST | \
-	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; $q =~ s/[.=-]/_/g; print("$q.value $s")'
+HOME=$HOME rabbitmqctl list_queues -p $VHOST | grep -v "^Listing" | grep -v "done.$" | grep -v "\.\.\." | sed "s/[\t]/.value /g"
diff --git a/rabbitmq_messages_unacknowledged b/rabbitmq_messages_unacknowledged
index 62bbcc7..a8d0a92 100755
--- a/rabbitmq_messages_unacknowledged
+++ b/rabbitmq_messages_unacknowledged
@@ -70,6 +70,5 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-HOME=$HOME rabbitmqctl list_queues -p $VHOST name messages_unacknowledged | \
-	grep -v "^Listing" | grep -v "done.$" | \
-    perl -nle'($q, $s) = split; $q =~ s/[.=-]/_/g; print("$q.value $s")'
+
+HOME=$HOME rabbitmqctl list_queues -p $VHOST name messages_unacknowledged | grep -v "^Listing" | grep -v "done.$" | sed "s/[\t]/.value /g"
diff --git a/rabbitmq_messages_uncommitted b/rabbitmq_messages_uncommitted
index 5081bc0..b2869d1 100755
--- a/rabbitmq_messages_uncommitted
+++ b/rabbitmq_messages_uncommitted
@@ -70,6 +70,4 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-HOME=$HOME rabbitmqctl list_channels -p $VHOST name messages_uncommitted | \
-	grep -v "^Listing" | grep -v "done.$" | \
-    perl -nle'($q, $s) = split; $q =~ s/[.=-]/_/g; print("$q.value $s")'
+HOME=$HOME rabbitmqctl list_channels -p $VHOST name messages_uncommitted | grep -v "^Listing" | grep -v "done.$" | sed "s/[\t]/.value /g"
diff --git a/rabbitmq_queue_memory b/rabbitmq_queue_memory
index 554e098..c0b3d83 100755
--- a/rabbitmq_queue_memory
+++ b/rabbitmq_queue_memory
@@ -70,6 +70,4 @@ fi
 # real work - i.e. display the data. Almost always this will be
 # "value" subfield for every data field.
 
-HOME=$HOME rabbitmqctl list_queues -p $VHOST name memory | \
-	grep -v "^Listing" | grep -v "done.$" | \
-    perl -nle'($q, $s) = split; $q =~ s/[.=-]/_/g; print("$q.value $s")'
+HOME=$HOME rabbitmqctl list_queues -p $VHOST name memory | grep -v "^Listing" | grep -v "done.$" | sed "s/[\t]/.value /g"