Lines Matching refs:group
52 --group_path <path> Path of the 'group' file.
54 --type <type> 'passwd', 'group' and 'member' are supported.
85 usage(1, "missing: --type [passwd|group|member]");
95 } elsif ($opt_type eq "group") {
101 $opt_fullpath_group = check_path($opt_group_path, "group");
103 usage(1, "invalid: --type [passwd|group]: '$opt_type'")
162 my $group = undef;
168 $group->{array} = ();
169 $group->{name} = {};
170 $group->{gid} = {};
171 $group->{path} = $path;
174 group_add_entry($group, $line);
177 return $group;
191 my ($group, $name) = @_;
193 return undef unless defined($group->{name}{$name});
195 return $group->{name}{$name};
209 my ($group, $gid) = @_;
211 return undef unless defined($group->{gid}{$gid});
213 return $group->{gid}{$gid};
230 my ($group) = @_;
233 while (group_lookup_gid($group, $gid)) {
254 my ($group, $str) = @_;
259 push(@{$group->{array}}, \@e);
260 $group->{name}{$e[0]} = \@e;
261 $group->{gid}{$e[2]} = \@e;
280 my ($group, $eref) = @_;
282 for (my $i = 0; defined($group->{array}[$i]); $i++) {
283 if ($eref == $group->{array}[$i]) {
284 $group->{array}[$i] = undef;
288 delete $group->{name}{${$eref}[0]};
289 delete $group->{gid}{${$eref}[2]};
294 my ($group, $eref, $username) = @_;
312 group_remove_entry($group, $eref);
314 group_add_entry($group, $gwent);
319 my ($group, $eref, $username) = @_;
343 group_remove_entry($group, $eref);
345 group_add_entry($group, $gwent);
370 my ($group) = @_;
372 my $path = $group->{path};
375 foreach my $eref (@{$group->{array}}) {
438 my $group = group_load($path);
440 my $e = group_lookup_name($group, $name);
441 die("group[$name] already exists in '$path'") if defined($e);
443 my $gid = group_get_free_gid($group);
447 group_add_entry($group, $gwent);
449 group_save($group);
462 my $group = group_load($path);
464 my $e = group_lookup_name($group, $name);
465 die("group[$name] does not exists in '$path'") unless defined($e);
467 group_remove_entry($group, $e);
469 group_save($group);
480 my $group = group_load($group_path);
482 my $g = group_lookup_name($group, $groupname);
483 die("group[$groupname] does not exists in '$group_path'") unless defined($g);
490 group_add_member($group, $g, $username);
492 group_save($group);
503 my $group = group_load($group_path);
505 my $g = group_lookup_name($group, $groupname);
506 die("group[$groupname] does not exists in '$group_path'") unless defined($g);
513 group_delete_member($group, $g, $username);
515 group_save($group);