get_JVM.jacl


 

###
### get_JVM.jacl
###
### Get Java process Definition parameters from 
### an existing application. Use to generate
### code for $AdminApp install on another 
### WAS domain
###
 proc get_JVM {snames} {


###
### set up globals
###
 global AdminConfig global AdminControl global AdminApp

 set cells [$AdminConfig list Cell]
 foreach cell $cells {

     set cname [$AdminConfig showAttribute $cell name]
     set nodes [$AdminConfig list Node $cell]

     foreach node $nodes {

        set nname [$AdminConfig showAttribute $node name]

        foreach sname $snames {

            set serverid [$AdminConfig getid /Cell:$cname/Node:$nname/Server:$sname/]

            if {[llength $serverid] == 0} {
               continue 
            }


            ### 
            ### Identify the Java Process Definition service belonging to the server 
            ### and assign it to the jpd variable: 
            ### 

            set jpd [$AdminConfig list JavaProcessDef $serverid]

            #puts "jpd: $jpd" 


            ### 
            ### Display attributes of jvmEntries for this MLS
            ### 

            set jvmEntries [$AdminConfig showall $jpd jvmEntries]

            #puts $jvmEntries


            foreach jvmEntry $jvmEntries {

                #puts " "
                puts $jvmEntry

            }
            
        }
    }
}


}



###
### Main
###
### Test servers: nap_1_1 nap_2_1 
###

 if { !($argc == 1) } {
   puts ""
   puts "Usage: , "
   puts " "
   puts "wsadmin.sh -username system -password password -f get_JVM.jacl \"server1 server2 ...\""
} else { 
   set xservers      [lindex $argv 0]  
   get_JVM $xservers 
}