enhance tomcat jmx

This commit is contained in:
qgarnier 2017-11-23 15:25:37 +01:00
parent de5df7d4ad
commit 5cbcd6efb9
3 changed files with 7 additions and 3 deletions

View File

@ -197,7 +197,8 @@ sub manage_selection {
$self->{tomcatconnector} = {};
foreach my $key (keys %$result) {
$key =~ /name=(.*?),type=(.*)/;
my ($connector, $type) = ($1, $2);
my ($connector, $type) = ($1, $2); # double quote nivo du name si existe
$connector =~ s/^"(.*)"$/$1/g;
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
$connector !~ /$self->{option_results}->{filter_name}/) {

View File

@ -168,9 +168,11 @@ sub manage_selection {
$key =~ /(?:[:,])host=(.*?)(?:,|$)/;
my $ds_name = $1;
$key =~ /(?:[:,])(?:path|context)=(.*?)(?:,|$)/;
$ds_name .= '.' . $1;
$key =~ /(?:[:,])name=(.*?)(?:,|$)/;
$ds_name .= '.' . $1;
$key =~ /(?:[:,])name=(.*?)(?:,|$)/; # double quote a virer
my $tmp_name = $1;
$tmp_name =~ s/^"(.*)"$/$1/;
$ds_name .= '.' . $tmp_name;
if (defined($self->{option_results}->{filter_name}) && $self->{option_results}->{filter_name} ne '' &&
$ds_name !~ /$self->{option_results}->{filter_name}/) {

View File

@ -61,6 +61,7 @@ sub manage_selection {
my $path = $1;
$mbean =~ /(?:[:,])name=(.*?)(?:,|$)/;
my $name = $1;
$name =~ s/^"(.*)"$/$1/;
if (defined($self->{option_results}->{filter_host}) && $self->{option_results}->{filter_host} ne '' &&
$host !~ /$self->{option_results}->{filter_host}/) {