From b438844a241c316233da9412faade5750e4081b8 Mon Sep 17 00:00:00 2001
From: Federico Ballarini <fed.ballarini@gmail.com>
Date: Thu, 16 Mar 2023 23:09:03 +0100
Subject: [PATCH] Fix host-group member deletion

Referer to: https://github.com/NethServer/dev/issues/6735
---
 .../validators/actions/fwobject-hostgroup-remove-member       | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/root/etc/e-smith/validators/actions/fwobject-hostgroup-remove-member b/root/etc/e-smith/validators/actions/fwobject-hostgroup-remove-member
index 3cd08337..9cb98293 100755
--- a/root/etc/e-smith/validators/actions/fwobject-hostgroup-remove-member
+++ b/root/etc/e-smith/validators/actions/fwobject-hostgroup-remove-member
@@ -30,9 +30,11 @@ my $hostKey = shift || die("Missing host key argument");
 my $hdb = esmith::HostsDB->open();
 
 my @groups = ();
+my @members = ();
 
 foreach my $record ($hdb->get_all_by_prop('type' => 'host-group')) {
-    if(($record->prop('Members') || '') eq $hostKey) {
+    @members = split ',', $record->prop('Members');
+    if (grep(/^$hostKey$/, @members)) {
 	push @groups, $record->key;
     }
 }