Lines Matching refs:group
26 # group dump and populate Unix groups
27 # Reads group dump on stdin
39 my ($group, $mb) = @_;
42 if (!(@members = group_get_members($group))) {
53 print "recursive group not added : $gname\n";
60 # given a group dn and a list of members, update the group
63 my ($group, $dn_line, @members, $recgroup) = @_;
72 print "recursive group not added : $gname\n";
75 print "recursive group not added : $gname\n";
83 # new_mb contains flat members from group dump
85 push @new_mb, group_get_members($group);
92 print STDERR "Group $group now has $nmb member(s)\n";
110 die "$0: error while modifying group $group\n"
117 my ($group, @members) = @_;
119 print "Group name $group\n";
134 my ($group, @members, $nocreate, $noupdate, $recgroup) = @_;
137 if (!defined($dn_line = get_group_dn($group))) {
138 # group not found, create it ?
140 system "/usr/local/sbin/smbldap-groupadd \"$group\"; sleep 5";
141 if (!defined($dn_line = get_group_dn($group))) {
144 modify_group($group, $dn_line, @members, $recgroup);
148 display_group($group, @members);
151 # group found, update it ?
153 modify_group($group, $dn_line, @members, $recgroup);
157 display_group($group, @members);
169 print " -C don't create group if it doesn't exist\n";
170 print " -U don't update group if it exists\n";