display service status

diff --git a/PVE/HA/Sim/RTHardware.pm b/PVE/HA/Sim/RTHardware.pm
index ba34d93fed0f27acbf4e2df60aa097518884cbd5..c1a45763a6a594d33f3c7f57c3f90d85ec7528b0 100644 (file)
--- a/PVE/HA/Sim/RTHardware.pm
+++ b/PVE/HA/Sim/RTHardware.pm
@@ -423,6 +423,7 @@ sub create_main_window {
        $w = Gtk3::Label->new('-');
        $w->set_alignment (0, 0.5);
        $sgrid->attach($w, 4, $row, 1, 1);
+       $self->{service_gui}->{$sid}->{status_label} = $w;
 
        $row++;
     }
@@ -451,8 +452,7 @@ sub run {
        my $node_status = $mstatus->{node_status} || {};
 
        foreach my $node (@nodes) {
-           my $ns = $node_status->{$node};
-           next if !$ns;
+           my $ns = $node_status->{$node} || '-';
            my $d = $self->{nodes}->{$node};
            next if !$d;
            my $sl = $d->{node_status_label};
@@ -465,6 +465,20 @@ sub run {
            }
        }
 
+       my $service_status = $mstatus->{service_status} || {};
+       my @services = sort keys %{$self->{service_config}};
+
+       foreach my $sid (@services) {
+           my $ss = $service_status->{$sid};
+           my $sgui = $self->{service_gui}->{$sid};
+           next if !$sgui;
+           my $sl = $sgui->{status_label};
+           next if !$sl;
+
+           my $text = ($ss && $ss->{state}) ? $ss->{state} : '-';
+           $sl->set_text($text);
+       }
+
        print Dumper($mstatus);
 
        #$d->{node_status_label}