mirror of
https://github.com/samba-team/samba.git
synced 2025-01-06 13:18:07 +03:00
34 lines
738 B
Plaintext
34 lines
738 B
Plaintext
|
#
|
||
|
|
# @(#) Test whether members of domain groups all have domain names
|
||
|
|
#
|
||
|
|
|
||
|
|
load_lib util-defs.exp
|
||
|
|
|
||
|
|
set group_list [split [util_start "getent group" ""] "\n"]
|
||
|
|
set failed 0
|
||
|
|
|
||
|
|
foreach { group } $group_list {
|
||
|
|
set group_entry [split $group ":"]
|
||
|
|
|
||
|
|
set group_name [lindex $group_entry 0]
|
||
|
|
set group_members [split [lindex $group_entry 3] ","]
|
||
|
|
|
||
|
|
if { [regexp {^[^/]+/} $group_name] } {
|
||
|
|
|
||
|
|
verbose "group $group_name has members $group_members"
|
||
|
|
|
||
|
|
foreach { user } $group_members {
|
||
|
|
if { ![regexp {^[^/]+/} $user] } {
|
||
|
|
fail "group $group has non-domain user $user"
|
||
|
|
set failed 1
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
verbose "ignoring non-domain group $group_name"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if { !$failed } {
|
||
|
|
pass "domain groups contain only domain members"
|
||
|
|
}
|