###
### get_Security.jacl
###
###
### Generate JACL configuration code by reading
### from an existing configuration
###
### From xmi:type fields in resources.xml
###
###
proc get_Security {cname} {
global AdminConfig global AdminControl
set securityid [$AdminConfig getid /Cell:$cname/Security:/]
set abc [$AdminConfig showall $securityid]
puts $abc
}
###
### Main
###
###
if { !($argc == 1) } {
puts ""
puts "Usage: "
puts " "
puts "wsadmin.sh -username system -password password -f get_Security.jacl cellname"
puts " "
} else {
set xcell [lindex $argv 0]
get_Security $xcell
}