From 3bd360c73de77559593e11301d247fd53c4ce128 Mon Sep 17 00:00:00 2001
From: Günther Deschner <gd@samba.org>
Date: Wed, 20 May 2009 02:10:12 +0200
Subject: nsswrapper: implement group_del() in nss_wrapper.pl.

Guenther
---
 lib/nss_wrapper/nss_wrapper.pl | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

(limited to 'lib/nss_wrapper/nss_wrapper.pl')

diff --git a/lib/nss_wrapper/nss_wrapper.pl b/lib/nss_wrapper/nss_wrapper.pl
index 88fdc7bca6..cfd3206c2a 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;
 }
-- 
cgit