[pve-devel] [PATCH ha-manager 5/7] sim: allow deleting service via GUI

[Thomas Lamprecht]

Add a delete button to each service entry row. This allows deleting a
service on runtime.

Signed-off-by: Thomas Lamprecht <t.lamprecht at proxmox.com>
---
 src/PVE/HA/Sim/RTHardware.pm | 52 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/src/PVE/HA/Sim/RTHardware.pm b/src/PVE/HA/Sim/RTHardware.pm
index 0e7c622..d086fcb 100644
--- a/src/PVE/HA/Sim/RTHardware.pm
+++ b/src/PVE/HA/Sim/RTHardware.pm
@@ -354,6 +354,26 @@ sub create_node_control {
     return $ngrid;
 }
 
+sub show_service_delete_dialog {
+    my ($self, $sid) = @_;
+
+    my $win = $self->{main_window};
+    my $flags = [qw( modal destroy-with-parent )];
+
+    my $dialog = Gtk3::MessageDialog->new($win, $flags, 'warning', 'yes_no', "Delete Service '$sid'?");
+
+    $dialog->set_title("Delete $sid");
+
+    my $res = $dialog->run();
+
+    $dialog->destroy();
+
+    if (defined($res) && $res eq 'yes') {
+	$self->sim_hardware_cmd("service $sid delete", 'command');
+	$self->delete_service_from_gui($sid);
+    }
+}
+
 sub show_migrate_dialog {
     my ($self, $sid) = @_;
 
@@ -412,6 +432,30 @@ sub show_migrate_dialog {
     }
 }
 
+sub delete_service_from_gui {
+    my ($self, $sid) = @_;
+
+    my $sgrid = $self->{service_grid};
+
+    die "service grid not initialised yet" if !defined($sgrid);
+
+    die "service '$sid' has no entry in service_gui table"
+	if !defined($self->{service_gui}->{$sid});
+
+    delete $self->{service_gui}->{$sid};
+
+    my $row = 1;
+
+    while (my $label = $sgrid->get_child_at(0, $row)) {
+	if ($sid eq $label->get_text()) {
+	    $sgrid->remove_row($row);
+	    last;
+	}
+
+	$row++;
+    }
+}
+
 sub create_service_control {
     my ($self) = @_;
 
@@ -420,6 +464,8 @@ sub create_service_control {
     $sgrid->set_column_spacing(5);
     $sgrid->set('margin', 5);
 
+    $self->{service_grid} = $sgrid;
+
     my $w = Gtk3::Label->new('Service ID');
     $sgrid->attach($w, 0, 0, 1, 1);
     $w = Gtk3::Label->new('Request State');
@@ -469,6 +515,12 @@ sub create_service_control {
 	$sgrid->attach($w, 4, $row, 1, 1);
 	$self->{service_gui}->{$sid}->{status_label} = $w;
 
+	$w = Gtk3::Button->new_from_icon_name('edit-delete', 1);
+	$sgrid->attach($w, 5, $row, 1, 1);
+	$w->signal_connect(clicked => sub {
+	    $self->show_service_delete_dialog($sid);
+	});
+
 	$row++;
     }
 
-- 
2.1.4