用于 CORBA 命名服务组映射的 Jython 或 JACL

Question

我正在使用 IBM WebSphere 7.0。

我想将 CORBA 命名服务组 EVERYONE 映射到 Cos Naming Write 和 Cos Naming Read 角色。如何使用 Jython 或 JACL 做到这一点？请提供一些线索、代码 sn-p 或大量 Jython 文档的链接。

Answer 1

这不是很安全，所以我假设您这样做是为了开发或在某种防火墙后面。这个 Jacl sn-p 应该做你想做的事：

# 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 {}
    }
  }
}