Fix host-group member deletion

Referer to: NethServer/dev#6735
federicoballarini · Mar 16, 2023 · b438844 · b438844
1 parent 3710062
commit b438844
Showing 1 changed file with 3 additions and 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
@@ -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;
     }
 }