tyler.durden/centreon-plugins
1
0
Fork 0
mirror of https://github.com/centreon/centreon-plugins.git synced 2025-07-27 07:34:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

add proxyurl option in aws paws custommode

Browse Source
This commit is contained in:
Colin Gagnaire 2019-09-10 14:44:13 +02:00
parent 3f730bb64c
commit 222b7b8ea6
2 changed files with 33 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cloud/aws/custom/awscli.pm
View File

@ -531,6 +531,10 @@ Command path (Default: none).
Command options (Default: none). Command options (Default: none).
=item B<--proxyurl>
Proxy URL if any
=back =back
=head1 DESCRIPTION =head1 DESCRIPTION

38
cloud/aws/custom/paws.pm
View File

@ -23,6 +23,7 @@ package cloud::aws::custom::paws;
use strict; use strict;
use warnings; use warnings;
use Paws; use Paws;
use Paws::Net::LWPCaller;
use DateTime; use DateTime;
sub new { sub new {
@ -48,6 +49,7 @@ sub new {
"period:s" => { name => 'period' }, "period:s" => { name => 'period' },
"statistic:s@" => { name => 'statistic' }, "statistic:s@" => { name => 'statistic' },
"zeroed" => { name => 'zeroed' }, "zeroed" => { name => 'zeroed' },
"proxyurl:s" => { name => 'proxyurl' },
}); });
} }
$options{options}->add_help(package => __PACKAGE__, sections => 'PAWS OPTIONS', once => 1); $options{options}->add_help(package => __PACKAGE__, sections => 'PAWS OPTIONS', once => 1);
@ -83,6 +85,11 @@ sub set_defaults {
sub check_options { sub check_options {
my ($self, %options) = @_; my ($self, %options) = @_;
if (defined($self->{option_results}->{proxyurl}) && $self->{option_results}->{proxyurl} ne '') {
$ENV{HTTP_PROXY} = $self->{option_results}->{proxyurl};
$ENV{HTTPS_PROXY} = $self->{option_results}->{proxyurl};
}
if (defined($self->{option_results}->{aws_secret_key}) && $self->{option_results}->{aws_secret_key} ne '') { if (defined($self->{option_results}->{aws_secret_key}) && $self->{option_results}->{aws_secret_key} ne '') {
$ENV{AWS_SECRET_KEY} = $self->{option_results}->{aws_secret_key}; $ENV{AWS_SECRET_KEY} = $self->{option_results}->{aws_secret_key};
} }
@ -112,7 +119,8 @@ sub cloudwatch_get_metrics {
my $metric_results = {}; my $metric_results = {};
eval { eval {
my $cw = Paws->service('CloudWatch', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $cw = Paws->service('CloudWatch', caller => $lwp_caller, region => $options{region});
my $start_time = DateTime->now->subtract(seconds => $options{timeframe})->iso8601; my $start_time = DateTime->now->subtract(seconds => $options{timeframe})->iso8601;
my $end_time = DateTime->now->iso8601; my $end_time = DateTime->now->iso8601;
@ -169,7 +177,8 @@ sub cloudwatch_get_alarms {
my $alarm_results = []; my $alarm_results = [];
eval { eval {
my $cw = Paws->service('CloudWatch', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $cw = Paws->service('CloudWatch', caller => $lwp_caller, region => $options{region});
my $alarms = $cw->DescribeAlarms(); my $alarms = $cw->DescribeAlarms();
foreach my $alarm (@{$alarms->{MetricAlarms}}) { foreach my $alarm (@{$alarms->{MetricAlarms}}) {
push @$alarm_results, { push @$alarm_results, {
@ -193,7 +202,8 @@ sub cloudwatch_list_metrics {
my $metric_results = []; my $metric_results = [];
eval { eval {
my $cw = Paws->service('CloudWatch', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $cw = Paws->service('CloudWatch', caller => $lwp_caller, region => $options{region});
my %cw_options = (); my %cw_options = ();
$cw_options{Namespace} = $options{namespace} if (defined($options{namespace})); $cw_options{Namespace} = $options{namespace} if (defined($options{namespace}));
$cw_options{MetricName} = $options{metric} if (defined($options{metric})); $cw_options{MetricName} = $options{metric} if (defined($options{metric}));
@ -227,7 +237,8 @@ sub ec2_get_instances_status {
my $instance_results = {}; my $instance_results = {};
eval { eval {
my $ec2 = Paws->service('EC2', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $ec2 = Paws->service('EC2', caller => $lwp_caller, region => $options{region});
my $instances = $ec2->DescribeInstanceStatus(DryRun => 0, IncludeAllInstances => 1); my $instances = $ec2->DescribeInstanceStatus(DryRun => 0, IncludeAllInstances => 1);
foreach (@{$instances->{InstanceStatuses}}) { foreach (@{$instances->{InstanceStatuses}}) {
@ -248,7 +259,8 @@ sub ec2_list_resources {
my $resource_results = []; my $resource_results = [];
eval { eval {
my $ec2 = Paws->service('EC2', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $ec2 = Paws->service('EC2', caller => $lwp_caller, region => $options{region});
my $list_instances = $ec2->DescribeInstances(DryRun => 0); my $list_instances = $ec2->DescribeInstances(DryRun => 0);
foreach my $reservation (@{$list_instances->{Reservations}}) { foreach my $reservation (@{$list_instances->{Reservations}}) {
@ -291,7 +303,8 @@ sub asg_get_resources {
my $autoscaling_groups = {}; my $autoscaling_groups = {};
eval { eval {
my $asg = Paws->service('AutoScaling', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $asg = Paws->service('AutoScaling', caller => $lwp_caller, region => $options{region});
$autoscaling_groups = $asg->DescribeAutoScalingGroups(); $autoscaling_groups = $asg->DescribeAutoScalingGroups();
}; };
if ($@) { if ($@) {
@ -307,7 +320,8 @@ sub rds_get_instances_status {
my $instance_results = {}; my $instance_results = {};
eval { eval {
my $rds = Paws->service('RDS', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $rds = Paws->service('RDS', caller => $lwp_caller, region => $options{region});
my $instances = $rds->DescribeDBInstances(); my $instances = $rds->DescribeDBInstances();
foreach (@{$instances->{DBInstances}}) { foreach (@{$instances->{DBInstances}}) {
$instance_results->{$_->{DBInstanceIdentifier}} = { state => $_->{DBInstanceStatus} }; $instance_results->{$_->{DBInstanceIdentifier}} = { state => $_->{DBInstanceStatus} };
@ -326,7 +340,8 @@ sub rds_list_instances {
my $instance_results = []; my $instance_results = [];
eval { eval {
my $rds = Paws->service('RDS', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $rds = Paws->service('RDS', caller => $lwp_caller, region => $options{region});
my $list_instances = $rds->DescribeDBInstances(); my $list_instances = $rds->DescribeDBInstances();
foreach my $instance (@{$list_instances->{DBInstances}}) { foreach my $instance (@{$list_instances->{DBInstances}}) {
@ -352,7 +367,8 @@ sub rds_list_clusters {
my $cluster_results = []; my $cluster_results = [];
eval { eval {
my $rds = Paws->service('RDS', region => $options{region}); my $lwp_caller = new Paws::Net::LWPCaller();
my $rds = Paws->service('RDS', caller => $lwp_caller, region => $options{region});
my $list_clusters = $rds->DescribeDBClusters(); my $list_clusters = $rds->DescribeDBClusters();
foreach my $cluster (@{$list_clusters->{DBClusters}}) { foreach my $cluster (@{$list_clusters->{DBClusters}}) {
@ -417,6 +433,10 @@ Set cloudwatch statistics (Can be: 'minimum', 'maximum', 'average', 'sum').
Set metrics value to 0 if none. Usefull when CloudWatch Set metrics value to 0 if none. Usefull when CloudWatch
does not return value when not defined. does not return value when not defined.
=item B<--proxyurl>
Proxy URL if any
=back =back
=head1 DESCRIPTION =head1 DESCRIPTION