version 1.21, 2017/02/08 16:31:55 |
version 1.22, 2017/02/08 17:34:23 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $AFresh1: check_bioctl,v 1.20 2014/06/27 18:59:56 andrew Exp $ |
# $AFresh1: check_bioctl,v 1.21 2017/02/08 16:31:55 andrew Exp $ |
######################################################################## |
######################################################################## |
# check_bioctl *** A nagios check for OpenBSD bioctl |
# check_bioctl *** A nagios check for OpenBSD bioctl |
# |
# |
|
|
|
|
my $PROGNAME = 'check_bioctl'; |
my $PROGNAME = 'check_bioctl'; |
my $BIOCTL = '/sbin/bioctl'; |
my $BIOCTL = '/sbin/bioctl'; |
my $DOAS = '/usr/bin/doas'; |
my @DOAS = ( '/usr/bin/doas', '-n' ); |
|
|
use POSIX; |
use POSIX; |
my $PREFIX; |
my $PREFIX; |
|
|
my %volumes; |
my %volumes; |
|
|
foreach my $d ( @{$devices} ) { |
foreach my $d ( @{$devices} ) { |
open my $bioctl, q{-|}, $DOAS, $BIOCTL, $d |
open my $bioctl, q{-|}, @DOAS, $BIOCTL, $d |
or die "Couldn't open bioctl: $!\n"; |
or die "Couldn't open bioctl: $!\n"; |
LINE: while ( my $line = <$bioctl> ) { |
LINE: while ( my $line = <$bioctl> ) { |
my ( $i, $item ) = parse_bioctl_line($line); |
my ( $i, $item ) = parse_bioctl_line($line); |