nagios/check_openbgpd/check_openbgpd - diff

Return to check_openbgpd CVS log

Up to [local] / nagios / check_openbgpd

version 1.7, 2015/03/25 03:19:28

version 1.10, 2015/03/26 04:44:15

Line 1

#!/usr/bin/perl -T

# $RedRiver: check_openbgpd,v 1.4 2009/11/19 21:22:01 andrew Exp $

# $AFresh1: check_openbgpd,v 1.9 2015/03/26 03:42:23 andrew Exp $

########################################################################

# check_openbgpd *** A nagios check for OpenBSD bgpd

Line 9

use warnings;

use 5.010;

use if $] >= 5.016, experimental => 'switch';

local %ENV = ();

Line 263

Line 264

state( $w, $c );

my $opt = shift @argv;

given ($opt) {

for ($opt) {

when ( '-V' || '--version' ) {

print_revision( $PROGNAME, '$Revision$ ' );

exit $ERRORS{'OK'}

Line 274

Line 275

when (/^-?-c(?:ritical)?/xms) { $c = parse_check( shift @argv ) }

when (/^-?-u(?:nknown)?/xms) {

$checks{_UNKNOWN} = {

WARNING => $w,

CRITICAL => $c,

}

};

}

when (/^-?-n(?:eighbor)?/xms) {

while ( @argv && $argv[0] !~ /^-/xms ) {

$checks{ shift @argv } = {

WARNING => $w,

CRITICAL => $c,

}

};

}

default { print_help(); exit $ERRORS{'UNKNOWN'} }