listrunningapps.jacl

 

  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 "Number of running servers on node $nname: [llength $servs]"
       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 "  $sname ($ptype) has pid $pid; state: $state; on $osname"

           set apps [$AdminControl queryNames type=Application,cell=$cname,node=$nname,process=$sname,*]
           puts "  Number of applications running on $sname: [llength $apps]"
           foreach app $apps {
              set aname [$AdminControl getAttribute $app name]
              puts "    $aname" 
           }
           puts "----------------------------------------------------"           
           puts ""

        } 
     }
  }