diff options
Diffstat (limited to 'lib/nss_wrapper/nss_wrapper.pl')
| -rw-r--r-- | lib/nss_wrapper/nss_wrapper.pl | 109 |
1 files changed, 105 insertions, 4 deletions
diff --git a/lib/nss_wrapper/nss_wrapper.pl b/lib/nss_wrapper/nss_wrapper.pl index dbb7f85dc4..88fdc7bca6 100644 --- a/lib/nss_wrapper/nss_wrapper.pl +++ b/lib/nss_wrapper/nss_wrapper.pl @@ -41,9 +41,8 @@ sub usage($;$) --path <path> Path of the 'passwd' or 'group' file. - --type <type> Only 'passwd' is supported yet, - but 'group' and maybe 'member' will be added - in future. + --type <type> Only 'passwd' and 'group' are supported yet, + maybe 'member' will be added in future. --action <action> 'add' or 'delete'. @@ -125,6 +124,30 @@ sub passwd_load($) return $passwd; } +sub group_add_entry($$); + +sub group_load($) +{ + my ($path) = @_; + my @lines; + my $group = undef; + + open(GROUP, "<$path") or die("Unable to open '$path' for read"); + @lines = <GROUP>; + close(GROUP); + + $group->{array} = (); + $group->{name} = {}; + $group->{gid} = {}; + $group->{path} = $path; + + foreach my $line (@lines) { + group_add_entry($group, $line); + } + + return $group; +} + sub passwd_lookup_name($$) { my ($passwd, $name) = @_; @@ -134,6 +157,15 @@ sub passwd_lookup_name($$) return $passwd->{name}{$name}; } +sub group_lookup_name($$) +{ + my ($group, $name) = @_; + + return undef unless defined($group->{name}{$name}); + + return $group->{name}{$name}; +} + sub passwd_lookup_uid($$) { my ($passwd, $uid) = @_; @@ -143,6 +175,15 @@ sub passwd_lookup_uid($$) return $passwd->{uid}{$uid}; } +sub group_lookup_gid($$) +{ + my ($group, $gid) = @_; + + return undef unless defined($group->{gid}{$gid}); + + return $group->{gid}{$gid}; +} + sub passwd_get_free_uid($) { my ($passwd) = @_; @@ -155,6 +196,18 @@ sub passwd_get_free_uid($) return $uid; } +sub group_get_free_gid($) +{ + my ($group) = @_; + my $gid = 1000; + + while (group_lookup_gid($group, $gid)) { + $gid++; + } + + return $gid; +} + sub passwd_add_entry($$) { my ($passwd, $str) = @_; @@ -167,6 +220,18 @@ sub passwd_add_entry($$) $passwd->{uid}{$e[2]} = \@e; } +sub group_add_entry($$) +{ + my ($group, $str) = @_; + + chomp $str; + my @e = split(':', $str); + + push(@{$group->{array}}, \@e); + $group->{name}{$e[0]} = \@e; + $group->{gid}{$e[2]} = \@e; +} + sub passwd_remove_entry($$) { my ($passwd, $eref) = @_; @@ -201,6 +266,29 @@ sub passwd_save($) rename($tmppath, $path) or die("Unable to rename $tmppath => $path"); } +sub group_save($) +{ + my ($group) = @_; + my @lines = (); + my $path = $group->{path}; + my $tmppath = $path.$$; + + foreach my $eref (@{$group->{array}}) { + next unless defined($eref); + + my $line = join(':', @{$eref}); + if (scalar(@{$eref}) == 3) { + $line .= ":"; + } + push(@lines, $line); + } + + open(GROUP, ">$tmppath") or die("Unable to open '$tmppath' for write"); + print GROUP join("\n", @lines)."\n"; + close(GROUP); + rename($tmppath, $path) or die("Unable to rename $tmppath => $path"); +} + sub passwd_add($$) { my ($path, $name) = @_; @@ -248,7 +336,20 @@ sub group_add($$) #print "group_add: '$name' in '$path'\n"; - die("group_add: not implemented yet!"); + my $group = group_load($path); + + my $e = group_lookup_name($group, $name); + die("group[$name] already exists in '$path'") if defined($e); + + my $gid = group_get_free_gid($group); + + my $gwent = $name.":x:".$gid.":".""; #no members yet + + group_add_entry($group, $gwent); + + group_save($group); + + #printf("%d\n", $gid); return 0; } |