===================================================================
RCS file: /cvs/nagios/check_openbgpd/check_openbgpd,v
retrieving revision 1.4
retrieving revision 1.13
diff -u -r1.4 -r1.13
--- nagios/check_openbgpd/check_openbgpd	2009/11/19 21:22:01	1.4
+++ nagios/check_openbgpd/check_openbgpd	2024/06/10 00:09:20	1.13
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-# $RedRiver: check_openbgpd,v 1.3 2009/11/19 19:52:51 andrew Exp $
+# $AFresh1: check_openbgpd,v 1.12 2024/06/09 23:02:37 afresh1 Exp $
 ########################################################################
 # check_openbgpd *** A nagios check for OpenBSD bgpd
 #
@@ -9,13 +9,14 @@
 use warnings;
 
 use 5.010;
+use if $] >= 5.016, experimental => 'switch';
 
 local %ENV = ();
 
 my $NAGIOS_OUTPUT = 1;
 
 my $LICENSE = <<'EOL';
-Copyright (c) 2009 Andrew Fresh <andrew@afresh1.com>
+Copyright (c) 2009-2024 Andrew Fresh <andrew@afresh1.com>
 Permission to use, copy, modify, and distribute this software for any
 purpose with or without fee is hereby granted, provided that the above
 copyright notice and this permission notice appear in all copies.
@@ -56,7 +57,7 @@
     exit $ERRORS{'OK'};
 }
 
-my @STATUS = read_status();
+my @STATUS = read_status( $CHECKS{_SOCKET} );
 my %STATES = check_status( \@STATUS, \%CHECKS );
 
 my $have_results = 0;
@@ -89,12 +90,17 @@
 exit $ERRORS{$state};
 
 sub read_status {
-    my ($status) = @_;
+    my ($socket) = @_;
     my @S;
 
-    #open my $fh, '<', 'output'    # XXX
-    open my $fh, '-|', $BGPCTL, 'show', 'summary'
-        or die "Couldn't open bgpctl: $!\n";
+    my @cmd = ($BGPCTL);
+    if ($socket) {
+        push @cmd, '-s', $socket;
+    }
+    push @cmd, 'show', 'summary';
+
+    #open my $fh, '<', 'output' or die $!; # XXX
+    open my $fh, '-|', @cmd or die "Couldn't open bgpctl: $!\n";
     while (<$fh>) {
         chomp;
         push @S, parse_line($_);
@@ -128,7 +134,11 @@
 sub parse_check {
     my $check = shift;
 
-    return { match => [] } unless $check;
+    unless ($check) {
+        print_help();
+        exit $ERRORS{'OK'}
+    }
+
     my @values = split /,\s*/xms, $check;
 
     my %c = ( match => [] );
@@ -157,14 +167,14 @@
     my ( $S, $C ) = @_;
 
     my %states;
-    my %neighbors = ( UNKNOWN => $C->{UNKNOWN} );
+    my %neighbors = map { $_ => $C->{$_} } qw( _SOCKET _UNKNOWN );
 STATE: foreach my $s ( @{$S} ) {
         my $n = $s->{neighbor};
         $neighbors{$n} = $s;
 
         my $result;
 
-        if ( my $c = $C->{$n} || $C->{UNKNOWN} ) {
+        if ( my $c = $C->{$n} || $C->{_UNKNOWN} ) {
         CODE: foreach my $code ( 'CRITICAL', 'WARNING' ) {
                 next CODE if ( ref $c->{$code} ne 'HASH' );
                 my $data = $s->{state};
@@ -215,7 +225,7 @@
             return 'State (' . $d . ') is not numeric';
         }
 
-    DIRECTION: foreach my $dir qw( low high ) {
+    DIRECTION: foreach my $dir (qw( low high )) {
             if ( !$c->{$dir} ) { next DIRECTION; }
 
             my $check = $c->{$dir};
@@ -258,29 +268,33 @@
         state( $w, $c );
 
         my $opt = shift @argv;
-        given ($opt) {
-            when ( '-V' || '--version' ) {
-                print_revision( $PROGNAME, '$Revision: 1.4 $ ' );
+        for ($opt) {
+            if ( $_ eq '-V' || $_ eq '--version' ) {
+                print_revision( $PROGNAME, '$Revision: 1.13 $ ' );
                 exit $ERRORS{'OK'}
             }
-            when (/^-?-h(?:elp)?/xms) { print_help(); exit $ERRORS{'OK'} }
-            when (/^-?-w(?:arning)?/xms)  { $w = parse_check( shift @argv ) }
-            when (/^-?-c(?:ritical)?/xms) { $c = parse_check( shift @argv ) }
-            when (/^-?-u(?:nknown)?/xms) {
-                $checks{UNKNOWN} = {
-                    WARNING      => $w,
-                        CRITICAL => $c,
-                }
+            elsif (/^-?-h(?:elp)?\Z/xms) { print_help(); exit $ERRORS{'OK'} }
+            elsif (/^-?-s(?:ocket)?\Z/xms) {
+                $checks{_SOCKET} = shift @argv
+                    || do { print_help(); exit $ERRORS{'OK'} }
             }
-            when (/^-?-n(?:eighbor)?/xms) {
+            elsif (/^-?-w(?:arning)?\Z/xms)  { $w = parse_check( shift @argv ) }
+            elsif (/^-?-c(?:ritical)?\Z/xms) { $c = parse_check( shift @argv ) }
+            elsif (/^-?-u(?:nknown)?\Z/xms) {
+                $checks{_UNKNOWN} = {
+                    WARNING  => $w,
+                    CRITICAL => $c,
+                };
+            }
+            elsif (/^-?-n(?:eighbor)?\Z/xms) {
                 while ( @argv && $argv[0] !~ /^-/xms ) {
                     $checks{ shift @argv } = {
-                        WARNING      => $w,
-                            CRITICAL => $c,
-                    }
+                        WARNING  => $w,
+                        CRITICAL => $c,
+                    };
                 }
             }
-            default { print_help(); exit $ERRORS{'UNKNOWN'} }
+            else { print_help(); exit $ERRORS{'UNKNOWN'} }
         }
     }
     return %checks;
@@ -289,9 +303,11 @@
 sub print_help {
     print <<"EOL";
 $PROGNAME - checks status of OpenBGPd peers
-    $PROGNAME [ -w ENTRY ][ -c ENTRY ]( -u | -n NEIGHBOR )
+    $PROGNAME [ -s SOCKET ][ -w ENTRY ][ -c ENTRY ]( -u | -n NEIGHBOR )
 
 Usage:
+    -s, --socket SOCKET
+        Path to bgpd socket to use. See -r in bgpd(8).
     -w, --warning RANGE or single ENTRY
         Exit with WARNING status if outside of RANGE or if != ENTRY
         May be entered multiple times.
@@ -361,7 +377,7 @@
 
 EOL
 
-    print_revision( $PROGNAME, '$Revision: 1.4 $' );
+    print_revision( $PROGNAME, '$Revision: 1.13 $' );
 
     print $LICENSE;