Set PMI Request Metrics on. Required for RPA.
Tcl, 227 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 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 | #
# Set PMI Request metrics on.
#
#####################################################################
# Patrick Finnegan 21/10/2005. V1.
#####################################################################
#####################################################################
# Get current PMI details.
####################################################################
proc getPMI { } {
puts "\n getPMI \n "
global AdminConfig
set PMIRequestMetricsI [ $AdminConfig list PMIRequestMetrics ]
# get current PMI settings.
set msg "Current PMI Settings are:\n"
set enable [ $AdminConfig showAttribute $PMIRequestMetricsI enable ]
set enableARM [ $AdminConfig showAttribute $PMIRequestMetricsI enableARM ]
set traceLevel [ $AdminConfig showAttribute $PMIRequestMetricsI traceLevel ]
set filtersList [ split [ $AdminConfig showAttribute $PMIRequestMetricsI filters ] ]
puts [ format "%-5s %s" " " $msg ]
puts [ format "%-10s %-20s %-40s" " " "PMI Enabled:" $enable ]
puts [ format "%-10s %-20s %-40s" " " enableARM $enableARM ]
puts [ format "%-10s %-20s %-40s" " " traceLevel $traceLevel ]
# filter list is not properly quoted
# strip trailing bracket off last element.
set lastElement [ string trim [ lindex $filtersList end ] \} ]
set filtersList [ lreplace $filtersList end end $lastElement ]
foreach i $filtersList {
#puts [ format "\n%-15s %-20s %-40s" " " "filter is" $i ]
set type [ $AdminConfig showAttribute $i type ]
set enableF [ $AdminConfig showAttribute $i enable ]
set filterValues [ split [ $AdminConfig showAttribute $i filterValues ] ]
puts [ format "\n%-10s %-20s %-40s" " " "Filter Type" $type ]
puts [ format "%-10s %-20s %-40s" " " "Filter Setting" $enableF ]
puts [ format "%-15s %-20s" " " "Filter Details" ]
# filterValues list is not properly quoted
# strip trailing bracket off last element.
set lastElement [ string trim [ lindex $filterValues end ] \} ]
set filterValues [ lreplace $filterValues end end $lastElement ]
foreach i $filterValues {
set value [ $AdminConfig showAttribute $i value ]
set enableV [ $AdminConfig showAttribute $i enable ]
puts [ format "%-20s %-10s %-10s" " " value $value ]
puts [ format "%-20s %-10s %-10s" " " enable $enableV ]
}
}
}
####################################################################
# Set New PMI Parms.
# Switch on PMI and add new URIs to URI list.
####################################################################
proc setPMI { uriList } {
puts "\n setPMI \n "
global AdminConfig
# modify request metrics.
set PMIRequestMetricsI [ $AdminConfig list PMIRequestMetrics ]
set enable [ list enable true ]
set enableARM [ list enableARM false ]
set traceLevel [ list traceLevel HOPS ]
set attrs [ list $enable $enableARM $traceLevel ]
puts "\n Modify PMIRequestMetrics with attributes $attrs \n"
$AdminConfig modify $PMIRequestMetricsI $attrs
# modify URI filter
set filtersList [ split [ $AdminConfig showAttribute $PMIRequestMetricsI filters ] ]
# filter list is not properly quoted
# strip trailing bracket off last element.
set lastElement [ string trim [ lindex $filtersList end ] \} ]
set filtersList [ lreplace $filtersList end end $lastElement ]
#get uri filter id.
foreach filterId $filtersList {
set type [ $AdminConfig showAttribute $filterId type ]
if { [ string match $type "URI" ] == 1 } {
#enable URI filter
set enable [ list enable true ]
set attrs [ list $enable ]
puts "\n Modify PMIRMFilter URI with $attrs \n"
$AdminConfig modify $filterId $attrs
#set new filter values
set filterValues [ split [ $AdminConfig showAttribute $filterId filterValues ] ]
# filter value list is not properly quoted
# strip trailing bracket.
set lastElement [ string trim [ lindex $filterValues end ] \} ]
set filterValues [ lreplace $filterValues end end $lastElement ]
# check whether any of the new URIs already exist in the filter value list
# if so delete from the update list.
foreach i $filterValues {
set value [ $AdminConfig showAttribute $i value ]
catch { lsearch -glob $uriList $value } r
if { $r == -1 } {
set continue true
} else {
set uriList [ lreplace $uriList $r $r ]
}
}
foreach i $uriList {
set value [ list value $i ]
set enable [ list enable true ]
set attrList [ list $value $enable ]
puts "\n Create PMIRMFilterValue with attributes $attrList \n"
$AdminConfig create PMIRMFilterValue $filterId $attrList
}
}
}
}
####################################################################
# Main Control.
####################################################################
# Assume one cell, one deployment manager node and one application node.
set cellId [ lindex [ $AdminConfig list Cell ] 0 ]
set nodes [ $AdminConfig list Node ]
# delete the manager node from the list.
set manIndex [ lsearch -glob $nodes *Manager* ]
set nodeId [ lindex [ lreplace $nodes $manIndex $manIndex ] 0 ]
# get name attribute for cell and application node
set cellName [ $AdminConfig showAttribute $cellId name ]
set nodeName [ $AdminConfig showAttribute $nodeId name ]
# set URI list.
lappend uriList /contextRoot1
lappend uriList /contextRoot2
lappend uriList /contextroot3
lappend uriList /contextroot4
lappend uriList /contextroot5
####################################################################
# setPMIOn
####################################################################
if { [ catch { getPMI } r ] == 0 } {
if { [ catch { setPMI $uriList } r ] == 0 } {
puts "\n************************************"
puts "Performance monitoring set successfully"
puts "************************************\n"
puts "\n###### Admin Config Save ######\n"
$AdminConfig save
} else {
puts "\n************************************"
puts "\nFailed to apply Performance Monitoring settings\n"
puts $r
puts "************************************\n"
}
} else {
puts "\n************************************"
puts "\nFailed to apply Performance Monitoring settings\n"
puts $r
puts "************************************\n"
}
|
Tags: websphere
