mirror of
https://github.com/samba-team/samba.git
synced 2024-12-22 13:34:15 +03:00
a3f96dd229
(This used to be commit 99071c45d0
)
39 lines
923 B
Plaintext
39 lines
923 B
Plaintext
#
|
|
# @(#) Test that all users are members of the Domain Users group.
|
|
#
|
|
# Note that this isn't necessarily true all the time but you have to
|
|
# explicitly move people out of that group so it should be OK for te
|
|
#
|
|
|
|
load_lib util-defs.exp
|
|
load_lib $srcdir/lib/nsswitch-config.exp
|
|
|
|
# Get list of users and stick usernames in a hash
|
|
|
|
set user_list [util_start "getent" "passwd" ""]
|
|
|
|
foreach { user } [split $user_list "\n"] {
|
|
set user_elts [split $user ":"]
|
|
set users([lindex $user_elts 0]) 1
|
|
}
|
|
|
|
# Get list of groups
|
|
|
|
set group_list [util_start "getent" "group" ""]
|
|
|
|
foreach { group } [split $group_list "\n"] {
|
|
set group_elts [split $group ":"]
|
|
|
|
# Look for domain users group
|
|
|
|
if { ![regexp "Domain Users" [lindex $group_elts 0]] } {
|
|
continue
|
|
}
|
|
|
|
# Check each member of group was found in getent passwd
|
|
|
|
foreach { mem } [split [lindex $group_elts 3] ","] {
|
|
set mems($mem) 1
|
|
}
|
|
}
|