From: Günther Deschner <gd@samba.org>
Date: Wed, 20 May 2009 00:10:12 +0000 (+0200)
Subject: nsswrapper: implement group_del() in nss_wrapper.pl.
X-Git-Tag: tdb-1.1.5~466
X-Git-Url: http://git.samba.org/samba.git/?p=ira%2Fwip.git;a=commitdiff_plain;h=3bd360c73de77559593e11301d247fd53c4ce128

nsswrapper: implement group_del() in nss_wrapper.pl.

Guenther
---

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;
 }