ha-manager status: include service state

diff --git a/src/ha-manager b/src/ha-manager
index 524a7b0dcae2357b3003881384bd25b0ac983d67..e207bac7c442e3d1a32b64c913b32a1f61621e9f 100755 (executable)
--- a/src/ha-manager
+++ b/src/ha-manager
@@ -116,7 +116,6 @@ __PACKAGE__->register_method ({
        print "last_update: $time_str\n";
        
        foreach my $node (sort keys %{$status->{node_status}}) {
-           my $d = $status->{node_status}->{node};
            my $lrm_status = $haenv->read_lrm_status($node);
            $verbose_data->{lrm_status}->{$node} = $lrm_status;
            if (!$lrm_status->{timestamp}) {
@@ -128,6 +127,11 @@ __PACKAGE__->register_method ({
            }
        }
 
+       foreach my $sid (sort keys %{$status->{service_status}}) {
+           my $d = $status->{service_status}->{$sid};
+           print "service_state: $sid (node $d->{node}, $d->{state})\n"; 
+       }
+       
        if ($param->{verbose}) {
            print "full cluster state:\n";
            print to_json($verbose_data, { pretty => 1, canonical => 1} );