####################################################################
# List Servers
###################################################################
set cells [$AdminConfig list Cell ]
foreach cell $cells {
set nodes [$AdminConfig list Node $cell ]
foreach node $nodes {
set cname [$AdminConfig showAttribute $cell name ]
set nname [$AdminConfig showAttribute $node name ]
set servs [$AdminControl queryNames type=Server,cell=$cname,node=$nname,*]
puts "\nNumber of running servers on node $nname:[llength $servs ]\n"
foreach server $servs {
set sname [$AdminControl getAttribute $server name ]
set ptype [$AdminControl getAttribute $server processType ]
set pid [$AdminControl getAttribute $server pid ]
set state [$AdminControl getAttribute $server state ]
set jvm [$AdminControl queryNames type=JVM,cell=$cname,node=$nname,process=$sname,*]
set osname [$AdminControl invoke $jvm getProperty os.name ]
puts "\n $sname ($ptype)has pid $pid; state:$state;on $osname\n"
set apps [$AdminControl queryNames type=Application,cell=$cname,node=$nname,process=$sname,*]
puts "\n Number of applications running on $sname:[llength $apps ]\n"
foreach app $apps { set aname [$AdminControl getAttribute $app name ]
puts " $aname"
}
puts "\n -------\n"
}
}
}
