後日追記: 全部 perl で書き換えました→
こちら
－－－－－－
某所で Aipo というグループウェアが使用されていて，他の人はこれで予定を管理している人が多いんだけど，個人的には Android で予定管理したいので Google カレンダーに予定を入れている．で，Aipo に入れた予定を自動的に Google カレンダーに反映したいんだけど，それらしいことを一発でできるソリューションは今のとこ無いみたい．
で，ふと思いついたのは，Aipo に予定を入れると関係する人にメールが飛ぶようになっているので，このメールをトリガに Google カレンダーに予定を追加できるんじゃね? と思って，自作プログラムから Google カレンダーを操作できる API を探してみたら，本家 Google が API・ライブラリ等を公開してた．
だけど今回は，もっと手軽にコマンドラインから Google カレンダーを操作できる gcalcli というプログラムを使ってみた．
iCal というスケジュール内容が記述されたファイルを gcalcil に食わせれば Google カレンダーに予定が追加できる．あとは，メール内容から iCal を生成するスクリプトを作成し，Aipo メールを受信したらメーラからそのスクリプトを kick すればよい．
gcalcil は python スクリプトなので，cygwin 上で動作させることにする．
gcalcil 以外に python モジュールの gdata.calendar.service, dateutil.tz, setuptools もインストールした (ここは適宜怒られたら足りないものをインストールする)．
iCal 生成スクリプトはこんな感じ．
#!/usr/bin/perl -w
use jcode;
use Time::Local;
# 必要なら適当に python 用 proxy の設定．
$ENV{ 'http_proxy' } = 'http://hoge.hoge:8080';
$ENV{ 'https_proxy' } = 'https://hoge.hoge:8080';
# stdin を全部読み込んでいったん EUC に変換
$_ = join( '', <> );
Jcode::convert( \$_, 'euc' );
@_ = split( /\x0D*\x0A/, $_ );
# メールのパース
$Summery =
$Location =
$Description = '';
$DateStart = $DateEnd = ':';
while( $#_ >= 0 ){
$_ = shift( @_ );
if( $_ eq '[予定]' ){
$Summery = shift( @_ );
}elsif( $_ eq '[日時]' ){
$_ = shift( @_ );
if( m#(\d+)/(\d+)/(\d+)\s+(\d+):(\d+)～(\d+):(\d+)# ){
# 時間指定あり
$DateStart = timelocal(
0, $5, $4,
$3, $2 - 1, $1
);
( $Sec, $Min, $Hour, $Day, $Mon, $Year ) =
localtime( $DateStart - 9 * 3600 );
$DateStart = sprintf(
":%4d%02d%02dT%02d%02d%02dZ",
$Year + 1900, $Mon + 1, $Day, $Hour, $Min, $Sec
);
$DateEnd = timelocal(
0, $7, $6,
$3, $2 - 1, $1
);
( $Sec, $Min, $Hour, $Day, $Mon, $Year ) =
localtime( $DateEnd - 9 * 3600 );
$DateEnd = sprintf(
":%4d%02d%02dT%02d%02d%02dZ",
$Year + 1900, $Mon + 1, $Day, $Hour, $Min, $Sec
);
}elsif( m#(\d+)/(\d+)/(\d+)# ){
# 時間指定なし
$DateStart = sprintf( ";VALUE=DATE:%04d%02d%02d", $1, $2, $3 );
$DateEnd = timelocal(
0, 0, 0,
$3, $2 - 1, $1
);
( undef, undef, undef, $Day, $Mon, $Year ) =
localtime( $DateEnd + 24 * 3600 );
$DateEnd = sprintf(
";VALUE=DATE:%04d%02d%02d",
$Year + 1900, $Mon + 1, $Day
);
}else{
# よくわからない時間指定，とりあえず無視
}
}elsif( $_ eq '[場所]' ){
$Location = shift( @_ );
}elsif( $_ eq '[内容]' ){
while( $#_ >= 0 ){
$_ = shift( @_ );
last if( $_ =~ /^\[/ );
$Description .= '\n' if( $Description ne '' );
$Description .= $_;
}
}
}
# iCalender 本文
$_ = << "EOF";
BEGIN:VCALENDAR
VERSION:2.0
BEGIN:VEVENT
DTSTART$DateStart
DTEND$DateEnd
DESCRIPTION:$Description
LOCATION:$Location
SEQUENCE:0
STATUS:CONFIRMED
SUMMARY:$Summery
TRANSP:OPAQUE
END:VEVENT
END:VCALENDAR
EOF
Jcode::convert( \$_, 'utf8' );
s/\x0A/\x0D\x0A/g;
$TmpFile = "/tmp/aipo2gcal$$.ics";
open( fpOut, "> $TmpFile" );
print fpOut $_;
close( fpOut );
system( "/home/hoge/bin/gcalcli import $TmpFile" );
unlink( $TmpFile );
メーラのフィルタリング設定等で，Aipo メールがきたらこのスクリプトを kick するよう設定することで，Aipo スケジュールが Google カレンダーに自動的に追加されるようになった．
…とおもったら，色々と問題が．
Aipo に自分で予定を入れると，自分にはメールが飛ばない仕様なので，人が入れた予定しか自分の Google カレンダーに反映できないw これに関しては，メアドが自分と同じ別のアカウントをもう一人作ってもらい，その人もスケジュールのメンバに加えることで解決．
あと Aipo で予定を修正する毎に Google カレンダーに予定が追加されていくw これはスクリプトを改良すれば何とかなるかもしれない．
