За основу взят скрипт
микротика
Приступаем, ставим пакет.
sudo apt-get install libnet-telnet-cisco-perl
создаем фаил под рутом, даем права
# touch /usr/share/munin/plugins/wifi_most_base
# chown +x /usr/share/munin/plugins/wifi_most_base
открываем на редактирование
# nano /usr/share/munin/plugins/wifi_most_base
#!/usr/bin/perl
use diagnostics;
use Net::Telnet::Cisco;
use strict;
use warnings;
my $TelnetPort = "23";
my $TelnetUser = "admin";
my $TelnetPass = "12345";
## Determine Hostname
my $Host = "192.168.1.50";
###############################################################################
## Initiate Telnet Session
my $MT = Net::Telnet::Cisco->new(Host => $Host,
Port => $TelnetPort,
Prompt => '/[\>\#] $/',
Timeout => 30);
###############################################################################
## Configuration
if ($ARGV[0] && $ARGV[0] eq "config") {
# print "host_name Base_station\n";
print "graph_args -l 0 --lower-limit -110 --upper-limit 110\n";
print "graph_title Wireless Interface Quality Base Station\n";
print "graph_vlabel Comms Quality\n";
print "graph_category Wireless\n";
print "graph_info This graph shows the wireless interface statistics\n";
print "graph_order data_rate local_rssi remote_rssi nf\n";
print "graph_scale no\n";
print "data_rate.label RX Rate (Mbps)\n";
print "local_rssi.label Local RSSI level (dBm)\n";
print "remote_rssi.label Remote RSSI level (dBm)\n";
print "nf.label Noise Floor (dBm)\n";
exit;
}
###############################################################################
## Execution
if (!defined($MT->login($TelnetUser , $TelnetPass))) {
die "Croaking: $MT->error";
} else {
# get station (RSSI)
my @Output = $MT->cmd("get sta");
my $data_rate = substr ($Output[8], 13, 3);
my $local_rssi = substr ($Output[8], 35, 4);
my $remote_rssi = substr ($Output[8], 63, 4);
# get nf
@Output = $MT->cmd("get nf");
my $nf = substr ($Output[0], 7, 4);
##### VALUE #####
print ("data_rate.value " . $data_rate . "\n" );
print ("local_rssi.value " . $local_rssi . "\n" );
print ("remote_rssi.value" . $remote_rssi . "\n" );
print ("nf.value " . $nf . "\n");
exit;
}
меняем graph_title, ip и пароль.
создаем сим линк
ln /usr/share/munin/plugins/wifi_most_base /etc/munin/plugins/wifi_most_base
рестартим мунин
#service munin-node restart
Ну в общем все, чуть чуть ждем и получаем шоколадку.
