From affc83805d6a31b8ac66361ce2d198e7f8a44fea Mon Sep 17 00:00:00 2001
From: dormando <dormando@f67b2e87-0811-0410-a7e0-dd94e48410d6>
Date: Sun, 19 Sep 2010 06:22:39 +0000
Subject: [PATCH] improve mogadm rebalance output.

git-svn-id: http://code.sixapart.com/svn/mogilefs/trunk@1496 f67b2e87-0811-0410-a7e0-dd94e48410d6
---
 mogadm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/mogadm b/mogadm
index 44c4aba..ac4960c 100755
--- a/mogadm
+++ b/mogadm
@@ -945,11 +945,11 @@ sub cmd_rebalance_test {
     my $s = $mogadm->server_settings;
     print "Policy: ", $s->{rebal_policy}, "\n\n";
     print "Source devices:\n";
-    for my $dev (split /,/, $res->{sdevs}) {
+    for my $dev (sort split /,/, $res->{sdevs}) {
         print " - ", $dev, "\n";
     }
     print "Destination devices:\n";
-    for my $dev (split /,/, $res->{ddevs}) {
+    for my $dev (sort split /,/, $res->{ddevs}) {
         print " - ", $dev, "\n";
     }
 }
@@ -957,9 +957,15 @@ sub cmd_rebalance_test {
 sub cmd_rebalance_status {
     my $mogadm = mogadm();
 
+    my $ss  = $mogadm->server_settings or fail ($mogadm->errstr);
     my $res = $mogadm->rebalance_status or fail ($mogadm->errstr);
+    if ($ss->{rebal_host}) {
+        print "Rebalance is running\n";
+    } else {
+        print "Rebalance is stopped\n";
+    }
     print "Rebalance status:\n";
-    for my $o (split /\s+/, $res->{state}) {
+    for my $o (sort split /\s+/, $res->{state}) {
         my ($k, $v) = split /=/, $o;
         printf("%25s = %-s\n", $k, $v);
     }