Fix user/group info when use with samba module

This commit is contained in:
Nawawi Jamili
2013-11-26 08:43:16 +08:00
parent aff9f05673
commit eff104ff3d
2 changed files with 14 additions and 2 deletions

View File

@@ -33,7 +33,13 @@ if ($in{'multi'}) {
for($i=0; $i<$len; $i++) {
print "sel[$i] = \"".
&quote_escape($ul[$i], '"')."\";\n";
@ginfo = getgrnam($ul[$i]);
# samba valid system group can start with @ + &
$gn = $ul[$i];
$gn =~ s/^(@|\+|&)+//g;
@ginfo = getgrnam($gn);
#@ginfo = getgrnam($ul[$i]);
if (@ginfo) {
@mems = &unique( split(/ /, $ginfo[3]),
@{$members{$ginfo[2]}} );

View File

@@ -26,7 +26,13 @@ if ($in{'multi'}) {
for($i=0; $i<$len; $i++) {
print "sel[$i] = \"".
&quote_escape($ul[$i], '"')."\";\n";
@uinfo = getpwnam($ul[$i]);
# samba valid system user can start with @ + &
$gn = $ul[$i];
$gn =~ s/^(@|\+|&)+//g;
@uinfo = getpwnam($gn);
#@uinfo = getpwnam($ul[$i]);
if (@uinfo) {
print "selr[$i] = \"".
&quote_escape($uinfo[6])."\";\n";