mirror of
https://github.com/munin-monitoring/contrib.git
synced 2025-07-25 10:28:36 +00:00
0602fba8ac
Sometimes a digit column is blank and thus fails to be grabbed by the old regex. Just grab all of them and index as such.
194 lines
5.1 KiB
Perl
Executable file
194 lines
5.1 KiB
Perl
Executable file
#! /usr/bin/env perl
|
|
|
|
|
|
=head1 NAME
|
|
|
|
modem-nvg510 - Plugin to monitor Motorola/Arris NVG510 DSL modem stats (AT&T ADSL2+)
|
|
|
|
=head1 CONFIGURATION
|
|
|
|
[modem-nvg510]
|
|
env.url http://192.168.1.254/cgi-bin/dslstatistics.ha
|
|
|
|
=head1 MAGIC MARKERS
|
|
|
|
#%# family=auto
|
|
#%# capabilities=autoconf
|
|
|
|
=head1 AUTHOR
|
|
|
|
Samuel Smith <esaym (snail) cpan.org>
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use warnings;
|
|
use HTTP::Tiny;
|
|
|
|
|
|
|
|
use constant {
|
|
down_rate => 2,
|
|
up_rate => 3,
|
|
sn_down => 23,
|
|
sn_up => 24,
|
|
line_attn_down => 25,
|
|
line_attn_up => 26,
|
|
power_down => 27,
|
|
power_up => 28,
|
|
err_sec_down => 29,
|
|
err_sec_up => 30,
|
|
los_down => 31,
|
|
los_up => 32,
|
|
lof_down => 33,
|
|
lof_up => 34,
|
|
fec_down => 35,
|
|
fec_up => 36,
|
|
crc_down => 37,
|
|
crc_up => 38,
|
|
};
|
|
|
|
|
|
if(defined $ARGV[0] and $ARGV[0] eq 'autoconf'){
|
|
my $url = $ENV{url} || "http://192.168.1.254/cgi-bin/dslstatistics.ha";
|
|
my $html = HTTP::Tiny->new(timeout => 1 )->get($url);
|
|
|
|
if($html->{success} && $html->{content} =~ m{Broadband Status}){
|
|
print "yes\n";
|
|
}
|
|
else{
|
|
print "no\n";
|
|
}
|
|
|
|
exit 0;
|
|
}
|
|
|
|
if(defined $ARGV[0] and $ARGV[0] eq "config"){
|
|
print q|multigraph nvg510_speed
|
|
graph_args --base 1000
|
|
graph_category network
|
|
graph_info This graph show modem upload and download speeds in kilo bits per second
|
|
graph_title Modem Link Speed
|
|
graph_vlabel Kbits per ${graph_period}
|
|
down_rate.label downstream kbps
|
|
down_rate.info Link downstream speed (kbits/second)
|
|
down_rate.type GAUGE
|
|
up_rate.label upstream kbps
|
|
up_rate.info Link upload speed (kbits/second)
|
|
up_rate.type GAUGE
|
|
|
|
multigraph nvg510_line_quality
|
|
graph_args --base 1000
|
|
graph_category network
|
|
graph_info This graph shows modem line quality statistics like attenuation and noise ratios.
|
|
graph_title Modem Line Quality
|
|
graph_vlabel Line Statistics
|
|
sn_down.label sn_down
|
|
sn_down.info Downstream signal to noise margin, in decibels (dB)
|
|
sn_down.type GAUGE
|
|
sn_up.label sn_up
|
|
sn_up.info Upstream signal to noise margin, in decibels (dB)
|
|
sn_up.type GAUGE
|
|
line_attn_down.label line_attn_down
|
|
line_attn_down.info Downstream reduction in signal strength, in decibels (dB)
|
|
line_attn_down.type GAUGE
|
|
line_attn_up.label line_attn_up
|
|
line_attn_up.info Upstream reduction in signal strength, in decibels (dB)
|
|
line_attn_up.type GAUGE
|
|
power_down.label power_down
|
|
power_down.info Downstream power output to one milliwatt (dBm)
|
|
power_down.type GAUGE
|
|
power_up.label power_up
|
|
power_up.info Upstream power output to one milliwatt (dBm)
|
|
power_up.type GAUGE
|
|
|
|
multigraph nvg510_error_counts
|
|
graph_args --base 1000
|
|
graph_category network
|
|
graph_info This graph shows internal error counters of the modem.
|
|
graph_title Modem Errors
|
|
graph_vlabel Modem Errors per ${graph_period}
|
|
fec_down.label fec_down
|
|
fec_down.info Downstream Forwarded Error Correction: Number of times received errored packets were fixed without a retry.
|
|
fec_down.type DERIVE
|
|
fec_down.min 0
|
|
fec_up.label fec_up
|
|
fec_up.info Upstream Forwarded Error Correction: Number of times received errored packets were fixed without a retry.
|
|
fec_up.type DERIVE
|
|
fec_up.min 0
|
|
crc_down.label crc_down
|
|
crc_down.info Downstream number of times data packets have had to be resent due to errors
|
|
crc_down.type DERIVE
|
|
crc_down.min 0
|
|
crc_up.label crc_up
|
|
crc_up.info Upstream number of times data packets have had to be resent due to errors
|
|
crc_up.type DERIVE
|
|
crc_up.min 0
|
|
err_sec_down.label err_sec_down
|
|
err_sec_down.info The number of unconnected seconds after being down for seven consecutive seconds
|
|
err_sec_down.type DERIVE
|
|
err_sec_down.min 0
|
|
err_sec_up.label err_sec_up
|
|
err_sec_up.info The number of unconnected seconds after being down for seven consecutive seconds
|
|
err_sec_up.type DERIVE
|
|
err_sec_up.min 0
|
|
los_down.label los_down
|
|
los_down.info Loss of signal: Number of times for any reason, the signal is lost
|
|
los_down.type DERIVE
|
|
los_down.min 0
|
|
los_up.label los_up
|
|
los_up.info Loss of signal: Number of times for any reason, the signal is lost
|
|
los_up.type DERIVE
|
|
los_up.min 0
|
|
lof_down.label lof_down
|
|
lof_down.info Loss of frame: Number of times the signal is detected, but cannot sync
|
|
lof_down.type DERIVE
|
|
lof_down.min 0
|
|
lof_up.label lof_up
|
|
lof_up.info Loss of frame: Number of times the signal is detected, but cannot sync
|
|
lof_up.type DERIVE
|
|
lof_up.min 0
|
|
|;
|
|
|
|
exit 0;
|
|
}
|
|
|
|
|
|
|
|
|
|
########################## MAIN #############################
|
|
|
|
my $url = $ENV{url} || "http://192.168.1.254/cgi-bin/dslstatistics.ha";
|
|
my $html = HTTP::Tiny->new(timeout => 1 )->get($url);
|
|
die "Couldn't fetch $url" unless $html->{success};
|
|
my @stats = $html->{content} =~ m{<td class="col2">(.*?)</td>}sg;
|
|
|
|
chomp(@stats);
|
|
|
|
print qq|multigraph nvg510_speed
|
|
down_rate.value $stats[down_rate]
|
|
up_rate.value $stats[up_rate]
|
|
|
|
multigraph nvg510_line_quality
|
|
sn_down.value $stats[sn_down]
|
|
sn_up.value $stats[sn_up]
|
|
line_attn_down.value $stats[line_attn_down]
|
|
line_attn_up.value $stats[line_attn_up]
|
|
power_down.value $stats[power_down]
|
|
power_up.value $stats[power_up]
|
|
|
|
multigraph nvg510_error_counts
|
|
fec_down.value $stats[fec_down]
|
|
fec_up.value $stats[fec_up]
|
|
crc_down.value $stats[crc_down]
|
|
crc_up.value $stats[crc_up]
|
|
err_sec_down.value $stats[err_sec_down]
|
|
err_sec_up.value $stats[err_sec_up]
|
|
los_down.value $stats[los_down]
|
|
los_up.value $stats[los_up]
|
|
lof_down.value $stats[lof_down]
|
|
lof_up.value $stats[lof_up]
|
|
|
|
|;
|
|
|
|
|