ネットワークに接続切断したタイミングでスクリプトをキックする

2011/09/19

OSX ネットワーク

t f B! P L

OS Xで無線LANに接続したことを検出するscript。引数に インタフェース名,起動するコマンド と指定すると、接続/切断したタイミングでコマンドを起動する。 この時、引数-s status -e ESSIDをつける。
stausは、接続時 TRUE/切断時 FALSEとなる。 ESSIDは接続したネットワークのESSID。

公衆無線LANで使うには、Hotspot Connector を呼び出すwrapperを用意するといいかも。

#!/usr/bin/perl --
#
# $Id$
#
# Command line options are set of interface and command, they are
# separated by ",".
# The command is launched with parameters:
#  -s status
#	Linkup:   TRUE
#	Linkdown: FALSE
#  -e ESSID
#
#
#
# New BSD License
#
# Copyright (c) 2011  Hiroaki Abe <hiroaki0404@gmail.com>
# All rights reserved.

# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.


use strict;
use FileHandle;
use IPC::Open2;
use POSIX qw(SIGALRM);

my $if;
my $cmd;
my $arg;
my %launch;

foreach $arg(@ARGV) {
    ($if, $cmd) = split(/,/, $arg);
    $launch{"$if"} = "$cmd";
}

my $pid = open2(*Reader, *Writer, "scutil");

POSIX::sigaction(SIGALRM,
		 POSIX::SigAction->new(sub { print Writer "n.cancel\n" }))
    or die "Error setting SIGALRM handler: $!\n";

foreach $if(keys(%launch)) {
    print Writer "n.add State:/Network/Interface/$if/Link\n";
}
print Writer "n.watch\n";

while(<Reader>){
    foreach $if(keys(%launch)) {
	if (/$if/){
	    my $strStatus = `echo "show State:/Network/Interface/$if/Link" | scutil | awk '/Active/{print $3;}'`;
	    my $ESSID = `echo "show State:/Network/Interface/$if/AirPort" | scutil | awk '/SSID_STR/{print $3;exit;}'`;
	    system($launch{"$if"} "-s" "$strStatus" "-e" "$ESSID");
	}
    }
}
print Writer "n.cancel\n";
close Writer;
close Reader;

__END__


楽天で探す
楽天市場
にほんブログ村 IT技術ブログへ

人気の投稿

ブログ アーカイブ

自己紹介

SREチームがなくなって、開発・運用のメンバーといっしょのDevOpsチームになりました。

アフィリエイト

  • 当ブログ「Hiroaki's blog」は、amazon.co.jpを宣伝しリンクすることによってサイトが紹介料を獲得できる手段を提供することを目的に設定されたアフィリエイト宣伝プログラムである、Amazonアソシエイト・プログラムの参加者です。
  • 当ブログでは、第三者配信による広告サービスを利用しています。このような広告配信事業者は、ユーザーの興味に応じた商品やサービスの広告を表示するため、当サイトや他サイトへのアクセスに関する情報 (氏名、住所、メール アドレス、電話番号は含まれません) を使用することがあります。このプロセスの詳細やこのような情報が広告配信事業者に使用されないようにする方法については、ここをクリックしてください。
  • アクセストレードアフィリエイトプログラムに参加しています。
  • A8.netアフィリエイトプログラムに参加しています。
  • バリューコマースアフィリエイトプログラムに参加しています。
  • もしもアフィリエイトプログラムに参加しています。

プライバシーポリシー

当サイトにアクセスされる場合、IPアドレスなどの情報または閲覧状況に関するデータが機械的に生成され、場合によっては個人情報と関連付けられる可能性があります。プライバシー保護に関する適用法に準じて、これらの通信および閲覧に関するデータを収集、処理、および利用することがあります。
当サイトにアクセスされる場合、非個人情報(ブラウザの種類、OSの種類、ドメイン名、訪問数、平均滞在時間、ページ・ビューなど個人を特定できない情報)が自動収集される場合があります。当サイトのパフォーマンスやコンテンツを改善する目的で、これらの情報を利用する場合があります。
アフィリエイトでは成果を把握するためにcookie等を利用しています。それ以外の目的で使用されることはありません。詳しくは各社のページにて確認してください。
本サイトに掲載する情報に関しては、正しいものを提供することを務めていますが、掲載内容から、いかなる損失や損害などの被害が発生しても、当ブログでは責任を追いかねます。

QooQ