Take a java core dump from a running server. Identify the working directory where the file will be placed.
Tcl, 135 lines
Download
Copy to clipboard1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | ####################################################################
# 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 ***"
}
|
Tags: websphere
