51 lines
1.3 KiB
Perl
Executable File
51 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# (C) Alex Dekker <me@ale.cx>
|
|
# License is GPL
|
|
|
|
use strict;
|
|
|
|
my ($Args) = @ARGV;
|
|
|
|
my $expecter = "/path/to/beboxstats.expect";
|
|
|
|
if ($Args) {
|
|
|
|
# work out line to grab
|
|
if ($Args eq 'autoconf') {
|
|
# Check the expect script that polls the router exists
|
|
unless ( -e $expecter ) {
|
|
print "no (Can't find expect script. Check value of \$expecter: $expecter)\n";
|
|
} else {
|
|
print "yes\n";
|
|
}
|
|
} elsif ($Args eq 'config') { # print out plugin parameters
|
|
printf("
|
|
graph_title bebox sync stats
|
|
graph_vlabel ATM kbps
|
|
graph_category network
|
|
graph_info This graph shows line sync speed
|
|
syncdownstream.label Downstream Sync Speed
|
|
syncupstream.label Upstream Sync Speed
|
|
syncdownstream.type GAUGE
|
|
syncupstream.type GAUGE
|
|
");
|
|
# .label is the Key on the graph
|
|
} else {
|
|
printf("Usage: $0
|
|
No arguments: print line stats
|
|
autoconf: print 'yes'
|
|
config: print config info for Munin\n");
|
|
}
|
|
|
|
} else {
|
|
# if no arguments, just fetch the data and print it out
|
|
|
|
my @insplitted = split(' ', `$expecter | grep stream`);
|
|
|
|
print "syncdownstream.value $insplitted[3]\n";
|
|
print "syncupstream.value $insplitted[7]\n";
|
|
}
|
|
|
|
|