nDiki : 2008年02月25日

2008年2月25日 (月)

■ 今日のさえずり - 「きりちんぽ」いいな

@ 2008年02月23日

11:11 [photo] キッチンレンジボードがきた http://tinyurl.com/3dxh24
20:32 今日は確かに花粉を感じた。朝薬を飲み忘れたので今飲んだ。[mb]

@ 2008年02月24日

14:31 [photo] キッチンレンジボード設置 http://tinyurl.com/yvohm8

@ 2008年02月25日

09:21 今日からマスクをして出社。[mb]
09:50 DS でポピュラスでるのか。この間会社で往年のポピュラスの話したけど誰も知らなかった。[mb]
11:38 P3 を 2.53 にアップデートして起動。アップロードの際に設定ファイルを移さなくてよくなったのはやはり大助かり。
13:44 Skype for Linux を 1.3.0.53 から 2.0.0.43 にアップデート。
15:21 Adobe AIR 1.0 でたけどやはり Linux 版はないな。
16:41 @zapa Linux 対応は Adobe AIR 1.5 ですか。もう少し待つことにします。
17:06 「きりちんぽ」いいな。送ってもらうか。
20:05 初めて SO905iCS で通話した。[mb]

スポンサードリンク

[ permalink ]

今日のさえずり - 除虫菊を栽培していただきます (2008-08-05)
Twitter を使い始めて1年 (2008-04-06)
Twitter への書き込みを自動的に Skype ムードメッセージに設定... (2008-08-05)
Skype for Linux 1.2.0.11 (2005-08-19)
Flickr::UploadでLinuxから画像アップロード (2005-04-22)

■ Twitter への書き込みを自動的に Skype ムードメッセージに設定する

Linux for Skype の Skype API は D-Bus を使ってアクセスすることができる。 Debian GNU/Linux sid 上の Skype for Linux 2.0.0.43 で、Perl スクリプトから自動的にムードメッセージを更新するようにしてみた。

Skype が起動している状態で以下のスクリプトを実行する。

 #!/usr/bin/perl

 use strict;
 use warnings;
 use Net::DBus;
 use URI::Fetch;
 use XML::RSS;
 use Date::Parse;

 my $id = '自分の Twitter ID';

 my $time = time;
 my $fetch_response
   = URI::Fetch->fetch(
               "http://twitter.com/statuses/user_timeline/$id.rss?dummy=$time")
   or die URI::Fetch->errstr;
 my $rss = XML::RSS->new;
 $rss->parse($fetch_response->content);
 die 'no items' if @{$rss->{items}} == 0;
 my $item = $rss->{items}->[0];
 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
   = localtime(str2time($item->{pubDate}));
 my $title = $item->{title};

 my $mood
   = sprintf("[%02d/%02d %02d:%02d] $title", $mon + 1, $mday, $hour, $min);
 my $bus      = Net::DBus->session;
 my $service  = $bus->get_service('com.Skype.API') or die;
 my $invoker  = $service->get_object('/com/Skype') or die;
 my $response = $invoker->Invoke('NAME twitter2skypemood');
 die $response if $response ne 'OK';
 $response = $invoker->Invoke('PROTOCOL 5');
 die $response if $response ne 'PROTOCOL 5';
 $response = $invoker->Invoke("SET PROFILE MOOD_TEXT $mood");

image:nDiki/2008/02/Skype-API-auth.png