### ### List Objects ### ### list_objs.jacl ### ### ### proc list_objs {cname nname sname} { ### ### set up globals ### global AdminConfig global AdminControl global AdminApp set xyz [$AdminConfig list Server] puts " " puts "Objects" puts " " puts "$xyz" puts " " } ### ### Main ### if { !($argc == 3) } { puts "" puts "Usage: " puts " " puts "wsadmin.sh -username system -password password -f list_objs.jacl cellname nodename servername" puts "" puts "For example: " puts " " puts "wsadmin.sh -username was -password acme@ -f list_objs.jacl hostnameNetwork hostname ops_1_1" } else { set xcell [lindex $argv 0] set xnode [lindex $argv 1] set xserver [lindex $argv 2] list_objs $xcell $xnode $xserver }