2016年5月アーカイブ

キャットタワーとつながったキャットウォークが完成。

元気な黒猫ちゃん、クローゼットに逃げ込んで高い所でくつろぐことが多いので、ついついキャットタワー買っちゃいました。

• 05/03 RT @tomokoandou: 没ネタ供養。理由は「雑誌的にちょっと」だそうでげす。 http://twitter.com/tomokoandou/status/72...
• 05/02 RT @DCT_STAFF: DREAMS COME TRUE「あなたのように」 配信スタート！http://dreamscometrue.com/anatano/
• 05/02 RT @DCT_STAFF: いよいよ明日から「あなたのように」の配信がスタートです＾＾曲が完成して初めて聴いた時に、制作ディレクターが涙したほど、曲の温度が体に伝わってくる感動的な新曲。ドリの名曲としてずっとずっと愛されていく名曲の予感です。B https://t.co/w3…
• 04/30 RT @fukuibmc: 【体育祭】
  エール交換とデコレ紹介が終わりました！
  
  エール交換は
  1位 白組
  2位 赤組、黄組
  4位 青組
  5位 緑組
  という結果になりました。
  
  午前の競技は「尻尾取り」「クラス対抗リレー」です。
  競技に出る皆さんは頑張ってください！
  
  次の応援…

iTunes

• 05/02 あれ？パソコンの #iTunes で局を買おうと、多重認証のメッセージで送られてきた数字4桁入れても NG になったぞ。なんで？ ま、携帯で購入手続きしたけどさ...

この記事は@TohruSaitohのつぶやきのまとめです。

自宅の光通信化により、新しいルータが入ったが、パケット流量測定の ための 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 ;
        }
    }
}

先日、OneDriveに更新があったようで、 OneDrive単体で、Office365のビジネスアカウントのOneDriveも 利用できるようになっている。OneDriveとOneDrive for Business とほぼ同じアプリを２つ動かさなくていい。

ただ、デスクトップマシンでは、これが使えるようになったけど、 Surface 機では、この機能が使えなかった。Windows Update を かけても"仕事用アカウントの追加"の機能が出てこない。

改めて確認すると、バージョンが 17.3.6386.0412が最新。

Windows Update かけても、最新がインストールされていない？ どうすれば、最新が使えるのか...と思ったけど、 MicrosoftのダウンロードセンターでOneDriveをインストールしたら、 最新が入って、無事"仕事用アカウントの追加"が表示された。

OneDriveって 標準機能 だから、Windows Updateで最新になると思っていたんだけど、違うんだな...