Мониторинг DWL-2100AP с помощью munin через telnet

За основу взят скрипт микротика

Приступаем, ставим пакет.
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

Ну в общем все, чуть чуть ждем и получаем шоколадку.