prowlで現在のwlan0のIPアドレスを通知する

prowl_notify_ipaddr.pl

#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use URI::Escape;
binmode(STDOUT,':utf8');

my %cnf=(
	name        => 'prowl_notify_wifi_addr',
	curl        => '/usr/bin/curl',
	application => 'Edison',
	event       => 'wlan0がUPしました',
	dev         => 'wlan0',
	apikey      => ''
);

if(my $kid=fork) {
	print "$cnf{name} start PID:$kid\n";

} else {
    open(STDIN, '<','/dev/null') || die $!;
    open(STDOUT,'| logger -t '.$cnf{name}) || die $!;
    open(STDERR,'| logger -t '.$cnf{name}) || die $!;

	print "START $cnf{name}\n";

	# 時計が合うのを待つ
	# 時計が合っていないとSSL証明書が機能せずエラーになる
	while(1) {
		last if( time > 1420038000 ); # 2015/1/1 00:00:00
		sleep(1);
	}

	# IPアドレス取得
	my $ipaddr;
	if(`ip addr show $cnf{dev}` =~/inet ([0-9.\/]+) brd/m) { $ipaddr=$1 }
	exit unless $ipaddr;

	# prowl通知
	$cnf{event}.="($ARGV[0])" if $ARGV[0];
	$cnf{description}="ADDR: $ipaddr";

	while(my($key,$val)=each %cnf) {
		next if $key eq 'apikey';
		print 'prowl: '.uc($key).": $val\n";
	}

	# 必須: apikey, application, event, description, curl
	my @queries;
	foreach(qw(apikey application event description priority url providerkey)) {
		push @queries,"$_=".uri_escape_utf8($cnf{$_}) if $cnf{$_};
	}
	my $url="https://prowlapp.com/publicapi/add?".join('&',@queries);
	exec($cnf{curl},$url);

}