1# 2# @(#) Test whether members of domain groups all have domain names 3# 4 5load_lib util-defs.exp 6 7set group_list [split [util_start "getent group" ""] "\n"] 8set failed 0 9 10foreach { group } $group_list { 11 set group_entry [split $group ":"] 12 13 set group_name [lindex $group_entry 0] 14 set group_members [split [lindex $group_entry 3] ","] 15 16 if { [regexp {^[^/]+/} $group_name] } { 17 18 verbose "group $group_name has members $group_members" 19 20 foreach { user } $group_members { 21 if { ![regexp {^[^/]+/} $user] } { 22 fail "group $group has non-domain user $user" 23 set failed 1 24 } 25 } 26 } else { 27 verbose "ignoring non-domain group $group_name" 28 } 29} 30 31if { !$failed } { 32 pass "domain groups contain only domain members" 33} 34