version 1.11, 2024/06/09 23:34:58 |
version 1.12, 2024/06/10 00:02:37 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
# $AFresh1: check_openbgpd,v 1.10 2015/03/26 03:44:15 andrew Exp $ |
# $AFresh1: check_openbgpd,v 1.11 2024/06/09 22:34:58 afresh1 Exp $ |
######################################################################## |
######################################################################## |
# check_openbgpd *** A nagios check for OpenBSD bgpd |
# check_openbgpd *** A nagios check for OpenBSD bgpd |
# |
# |
|
|
} |
} |
push @cmd, 'show', 'summary'; |
push @cmd, 'show', 'summary'; |
|
|
#open my $fh, '<', 'output' # XXX |
#open my $fh, '<', 'output' or die $!; # XXX |
open my $fh, '-|', @cmd or die "Couldn't open bgpctl: $!\n"; |
open my $fh, '-|', @cmd or die "Couldn't open bgpctl: $!\n"; |
while (<$fh>) { |
while (<$fh>) { |
chomp; |
chomp; |