sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-25 17:57:42 +03:00
Code

nsswrapper: implement group_del() in nss_wrapper.pl.

Browse Source 
Guenther
This commit is contained in:
Günther Deschner 2009-05-20 02:10:12 +02:00
parent b3cc01fd68
commit 3bd360c73d
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lib/nss_wrapper/nss_wrapper.pl
View File

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