自宅の光通信化により、新しいルータが入ったが、パケット流量測定の ための Munin プラグインを作成してみた。

ルータのデータ取得のため、ルータの「LAN状態」のページのHTMLを観察しながら、 Cookieによるセッションを扱いながらパケット流量のデータを取るPerlスクリプトを記述。 Perl でのセッションをまたがったデータ取得プログラムのいい練習になったかな。

ルータからは、Packets* と Bytes* が取得できるけど、 Bytes だと、Muninの測定周期5分で、簡単に 2^32 を超えちゃうようで、 使い物にならないみたい。BPS が直感的だから、Bytes…に変更したけど、 すぐに元に戻す。

#!/usr/bin/perl
#%# family=auto
#%# capabilities=autoconf
use LWP::UserAgent ;
use HTTP::Cookies ;
# ルータ情報
my $router = "http://192.168.1.254" ;
my $auth = [ 'name' => "userAdmin" ,
'pswd' => "xxxxxxxxxxxx" ] ;
# Munin のグラフ情報の設定用処理
if ( defined($ARGV[0]) and $ARGV[0] eq "config" ) {
# グラフの基本情報
print "graph_title FTTH GPON network statics\n" ;
print "graph_category network\n" ;
print "graph_vlabel packet/sec (-)send / (+)recv\n" ;
print "graph_args --base 1024\n" ;
print "graph_printf %4.1lf\n" ;
# LAN1..LAN4
for( my $i = 1 ; $i <= 4 ; $i++ ) {
foreach my $sr ( "Sent" , "Received" ) {
print "LAN$i$sr.label LAN$i pkt\n" ;
print "LAN$i$sr.type COUNTER\n" ;
if ( $sr eq "Sent" ) {
print "LAN$i$sr.graph no\n" ;
} else {
print "LAN$i$sr.draw LINE2\n" ;
print "LAN$i$sr.negative LAN${i}Sent\n" ;
}
print "LAN$i$sr.max 1000000\n" ;
}
}
exit 0 ;
}
# ルータに login
my $ua = LWP::UserAgent->new ;
my $cookie = new HTTP::Cookies() ;
$ua->cookie_jar( $cookie ) ;
my $res = $ua->post( "$router/login.cgi" , $auth ) ;
if ( $res->is_redirect ) {
# LAN情報を取得
$res = $ua->get( "$router/lan_status.cgi?lan" ) ;
my $flag = 0 ;
my $lan_id = 0 ;
foreach my $line( split( /\n/ , $res->content ) ) {
if ( $line =~ /^\s+var\s+lan_ether=/ ) {
# "var lan_ether="を探す
$flag = 1 ;
} elsif ( $flag && $line =~ /^(|,)(\d+):\{/ ) {
# LAN番号を取得
$lan_id = $2 ;
} elsif ( $flag && $line =~ /^Packets(Sent|Received):(\d+),$/ ) {
# PacketsSent / PacketsReceived
print "LAN$lan_id$1.value $2\n" ;
} elsif ( $flag && $line =~ /^;$/ ) {
last ;
}
}
}

自宅サーバのネットワーク監視では、 ping の反応速度を 計測している。 先日、丹南ケーブルテレビの接続の契約を、"光ハイブリッド120コース"から、 光ファイバへの切り替え工事をして、"光インターネット nextr 2G"に変更したけど、 効果が出ているみたい。

テレビ好きの私にしてみりゃ、 地上デジタルTV回線にBSテレビを一緒に配信してくれたことも うれしいけどね。

そういえば、うちの奥さんが、CATVのセットトップボックスを交換したのに、 今頃気づいた。