Это не очень безопасно, поэтому я предполагаю, что вы делаете это для разработки или за каким-то брандмауэром.Этот фрагмент кода Jacl должен делать то, что вы хотите:
# Loop over all role assignments
foreach roleAssignmentExt [$AdminConfig list RoleAssignmentExt] {
set role [$AdminConfig showAttribute $roleAssignmentExt role]
set roleName [$AdminConfig showAttribute $role roleName]
# Look for the interesting roles.
if {$roleName == "CosNamingWrite" || $roleName == "CosNamingRead"} {
# Create an assignment of Everyone isn't already assigned.
set everyoneRoles [$AdminConfig list EveryoneExt $roleAssignmentExt]
if {[string length $everyoneRoles] == 0} {
puts "Adding EveryoneExt to $roleAssignmentExt"
$AdminConfig create EveryoneExt $roleAssignmentExt {}
}
}
}