####################################################################
# take a java core dump from a running server. ####################################################################
proc dumpThreads { serverName } {
global AdminConfig
global AdminControl
putsLog "[ lindex [ info proc ] 0 ]"
foreach i [ info args dumpThreads ] {
upvar 0 $i ilocal
set propertiesArray($i) $ilocal
}
putsLog "properties are.................."
foreach { a b } [ array get propertiesArray ] {
putsLog [ format "%-25s %s" "$a" "$b" ]
}
set serverId [ $AdminConfig getid /Server:$serverName ]
#set serverId [$AdminControl completeObjectName type=JVM,process=$serverName,*]
if { [ string length $serverId ] == 0 } {
putsLog "ERROR: $serverName does not exist"
return -code error
}
# get the location of the working directory from the process definition child of the server object.
#set processDefinitionId [ lindex [ $AdminConfig showAttribute $serverId processDefinitions ] 0 ]
set processDefinitionId [ lindex [ $AdminConfig showAttribute $serverId processDefinition ] 0 ]
set workingDirectory [ $AdminConfig showAttribute $processDefinitionId workingDirectory ]
# if the working directory value is a variable rather than a physical directory get the value of the variable from the node variable map.
if { [ file isfile $workingDirectory ] == 1 } {
# get the node name by parsing the server object id string
putsLog "find the variable"
set x [ expr [ string first "nodes/" $serverId ] + 6 ]
set y [ expr { [ string first "/" $serverId $x ] -1 } ]
set nodeName [ string range $serverId $x $y ]
set nodeVarMapId [ $AdminConfig getid /Node:$nodeName/VariableMap:/ ]
set entriesId [ $AdminConfig showAttribute $nodeVarMapId entries ]
# sort and print the variables
foreach i [ lindex $entriesId 0 ] {
lappend varList [ list [ $AdminConfig showAttribute $i symbolicName ] [ $AdminConfig showAttribute $i value ] $i ]
}
set varList [ lsort -index 0 $varList ]
putsLog "variable list is......................."
foreach e $varList { putsLog [ format "%-30s %-s" "[ lindex $e 0 ]" "[ lindex $e 1 ]" ] }
# strip the $ and braces off the variable.
set workDirVar [ string trimright [string trimleft "\$\{USER_INSTALL_ROOT\}" "\$\{"] "\}" ]
# look for a match.
foreach i $varList {
if { [ string match $workDirVar [ lindex [ lindex $i 0 ] 0 ] ] == 1 } {
putsLog "match............."
putsLog "working directory is [ lindex [ lindex $i 0 ] 0 ] [ lindex [ lindex $i 1 ] 0 ]"
break
}
}
} else {
putsLog "working directory is $workingDirectory"
}
# dump the threads
# The server must be running. Get the mbean.
if { [ catch { $AdminControl completeObjectName type=JVM,process=$serverName,* } r ] == 0 } {
if { [ string length $r ] == {} } {
putsLog " $serverName not running"
return -code error
} else {
set jvmId $r
putsLog "dumping threads....................."
if { [ catch { $AdminControl invoke $jvmId dumpThreads } r ] == 0 } {
putsLog "$serverName - threads dumped successfully"
} else {
return -code error $r
}
}
} else {
putsLog $r
return -code error $r
}
putsLog "*** the End ***"
}
