tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix(aws/health): events mode - limit issue with paws (#2732)

This commit is contained in:
qgarnier 2021-04-23 09:37:07 +02:00 committed by GitHub
parent 373b91c86e
commit a8378aa1cb
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
centreon-plugins/cloud/aws/custom/paws.pm
View File

@ -619,11 +619,9 @@ sub health_describe_affected_entities {
eval {
my $lwp_caller = new Paws::Net::LWPCaller();
my $health = Paws->service('Health', caller => $lwp_caller, region => $self->{option_results}->{region});
my $health_options = { Filter => {} };
if (defined($options{filter_event_arns})) {
$health_options->{Filter}->{EventArns} = $options{filter_event_arns};
}
while (my @events = splice(@{$options{filter_event_arns}}, 0, 10)) {
my $health_options = { Filter => { EventArns => \@events } };
while ((my $entities = $health->DescribeAffectedEntities(%$health_options))) {
foreach (@{$entities->{Entities}}) {
push @$entities_results, {
@ -639,6 +637,7 @@ sub health_describe_affected_entities {
last if (!defined($entities->{NextToken}));
$health_options->{NextToken} = $entities->{NextToken};
}
}
};
if ($@) {
$self->{output}->add_option_msg(short_msg => "error: $@");