File Coverage

blib/lib/Nagios/Plugin/CheckHost/Ping.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	49	50	98.0

package Nagios::Plugin::CheckHost::Ping;

use strict;
use warnings;

use base 'Nagios::Plugin::CheckHost';
use Monitoring::Plugin::Threshold;
use Nagios::Plugin::Threshold::Group;

sub _initialize {
    my $self = shift;

    $self->{check} = 'ping';

    my $np = $self->_initialize_nagios(shortname => 'CHECKHOST-PING');

    $np->add_arg(
        spec     => 'host|H=s',
        help     => 'host to check',
        required => 1,
    );

    $self->{total_pings} = 4;
    $np->add_arg(
        spec     => 'loss_threshold_critical|ltc=s',
        help     => 'maximum percentage of ping loss '
            . 'outside of which a critical code '
            . 'will be generated for a node (default %s).',
        default  => 50,
        required => 1,
    );
    $np->add_arg(
        spec     => 'loss_threshold_warning|ltw=s',
        help     => 'maximum percentage of ping loss '
            . 'outside of which a warning code '
            . 'will be generated for a node (default %s).',
        default  => 25,
        required => 1,
    );

    $np->add_arg(
        spec     => 'max_nodes|n=i',
        help     => 'max amount of nodes used for the check (default %s)',
        default  => 3,
        required => 1,
    );

    $np->add_arg(
        spec => 'warning|w=i',
        help => 'maximum number of nodes that failed '
          . 'threshold check with any code, '
          . 'outside of which a warning will be generated. '
          . 'Default %s.',
        default => 0,
    );

    $np->add_arg(
        spec => 'critical|c=i',
        help => 'maximum number of nodes that failed '
          . 'threshold check with a critical code, '
          . 'outside of which a critical will be generated. '
          . 'Default %s.',
        default => 1,
    );

    $self;
}

sub process_check_result {
    my ($self, $result) = @_;

    my $np   = $self->{nagios};
    my $opts = $np->opts;

    my @losses = ();

    foreach my $node ($result->nodes) {
        my $loss = $result->calc_loss($node);
        $loss = int($loss * 100);

        $np->add_perfdata(
            label => "loss-" . $node->shortname,
            value => $loss,
            uom   => '%',
        );

        push @losses, $loss;

        if (my ($avg) = $result->calc_rtt($node)) {
            $np->add_perfdata(
                label => "avg-" . $node->shortname,
                value => int(1000 * $avg),
                uom   => 'ms',
            );
        }
    }

    my $loss_threshold = Nagios::Plugin::Threshold::Group->new(
        group_threshold => Monitoring::Plugin::Threshold->new(
            critical => $opts->get('critical'),
            warning  => $opts->get('warning'),
        ),
        single_threshold => Monitoring::Plugin::Threshold->new(
            critical => $opts->get('loss_threshold_critical'),
            warning  => $opts->get('loss_threshold_warning'),
        ),
    );

    my $code = $loss_threshold->get_status(\@losses);

    $np->nagios_exit($code, "report " . $self->report_url);
}

1;