39 lines
1002 B
Tcl
39 lines
1002 B
Tcl
fileeval util/check/query_sics.tcl
|
|
proc checksobj {} {
|
|
global sobj_sicstype_list
|
|
|
|
foreach sicstype $sobj_sicstype_list {
|
|
global ${sicstype}_attlist
|
|
clientput "Check $sicstype"
|
|
foreach sobj [tolower_sicslist type $sicstype] {
|
|
array unset sobj_attarray
|
|
array set sobj_attarray [attlist $sobj]
|
|
|
|
# Skip it if privilege is missing or set to "internal"
|
|
if {[info exists sobj_attarray(privilege)]} {
|
|
if {$sobj_attarray(privilege) == "internal"} {
|
|
continue
|
|
}
|
|
} else {
|
|
continue
|
|
}
|
|
|
|
foreach {att v} [set ${sicstype}_attlist] {
|
|
foreach a $att {
|
|
set attlist "$a @missing"
|
|
if {[query_attval $sobj $attlist]} {
|
|
clientput "$sobj: $a is missing"
|
|
continue
|
|
}
|
|
set attlist "$a \{$v\}"
|
|
if {![query_attval $sobj $attlist]} {
|
|
clientput "$sobj: $a should be one of ($v) not [getatt $sobj $a]"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
publish checksobj user
|