nsswrapper: implement group_del() in nss_wrapper.pl.

Guenther
(cherry picked from commit 3bd360c73de77559593e11301d247fd53c4ce128)
(cherry picked from commit 28ed6d144647c4f0181e9a2650cabba91eb56f3e)

1 files changed, 22 insertions, 1 deletions

diff --git a/lib/nss_wrapper/nss_wrapper.pl b/lib/nss_wrapper/nss_wrapper.pl
index 88fdc7bca60..cfd3206c2ae 100644
--- a/lib/nss_wrapper/nss_wrapper.pl
+++ b/lib/nss_wrapper/nss_wrapper.pl
@@ -246,6 +246,20 @@ sub passwd_remove_entry($$)
 	delete $passwd->{uid}{${$eref}[2]};
 }
 
+sub group_remove_entry($$)
+{
+	my ($group, $eref) = @_;
+
+	for (my $i = 0; defined($group->{array}[$i]); $i++) {
+		if ($eref == $group->{array}[$i]) {
+			$group->{array}[$i] = undef;
+		}
+	}
+
+	delete $group->{name}{${$eref}[0]};
+	delete $group->{gid}{${$eref}[2]};
+}
+
 sub passwd_save($)
 {
 	my ($passwd) = @_;
@@ -360,7 +374,14 @@ sub group_delete($$)
 
 	#print "group_delete: '$name' in '$path'\n";
 
-	die("group_delete: not implemented yet!");
+	my $group = group_load($path);
+
+	my $e = group_lookup_name($group, $name);
+	die("group[$name] does not exists in '$path'") unless defined($e);
+
+	group_remove_entry($group, $e);
+
+	group_save($group);
 
 	return 0;
 }