Back Forward Return

#01-01 ねこみみ
風邪を引いて朝からずーっと寝ていた。具合悪い…

#02-01 [PC]あさ〜
まだ本調子ではないが出勤。少し雪が積もって歩きやすくなってる。

• iTunes
• Skype

#02-02 今日から身軽
いくらInterLinkとはいえ重いので、USBメモリも手に入れたことだしウェストポーチだけで出勤してみた。

持ち運んでいるものはこんな感じ。

• PSP
• UMD×5
• CLIE
• ケーブル類
• 携帯

#02-03 シンクロ
塩兄ちゃん、五反田さん、あらいさめが上陸しているので顔出してみた。

サッポロビール園。諸事情によりあらいさめにごちそうになる。うう、ありがとうございます。

途中でへかりんが乱入。なんだ、間に合ってるじゃん(ぉぃ) 21時過ぎないとダメなのかと思ってたよ。

そしてみなさんは汗を流しに苗穂駅前温泉蔵ノ湯へ。スーパー銭湯イイネ!!

三人が苗穂から電車に乗ったのを確認して、へかりんに家まで送ってもらう。落ち着いたら呑みにいこうぜー。

#03-01 [WORK]午前
お腹の調子が悪くて40分ぐらい遅れた。

サーバダウンの警報が上がってきたのでデータセンターへ。滞在時間15分くらい。

午前中の作業終了 orz

#03-02 [PSP]頭文字Dハング
土坂を走っていたらハング。けっこう止まるよな…。いろは坂でも一瞬止まるし。うーん。

#05-01 寝倒す
20時間くらい寝て、こんな時間に起きている。

#05-02 [PSP]頭文字D表クリア
とりあえずエンディング。チューンアップ6枚。ホントに出ないな…。14:40で59.45%。文太はえー。

隠しモード登場。こっちが本番か…。

文太速すぎ。これはストレスたまるぅ。

#06-01 [でじこ]ヴぉだほんが買収されたら
新端末としてHTC Universalが採用されるといいなあ…。もちろん日本語化済みで。

#06-02 ねもい
精神科の薬が劇的に変わったせいか、日中眠くてたまらん。

先生に訴えたら多少変わったものの、やっぱりねもねも。うう、辛い。月曜ってせいもあるんだろうか?

#06-03 [でじこ]Origamiほすい
もうこれで決まりかな。

Origami Project

#06-04 [でじこ]バスはどこだ

KDDI 会社情報: ニュースリリース > 「EZナビウォーク」におけるバスルート検索の開始について

今後、全国各地域および他のバス会社にも拡大していく予定です。

冬にバス待ってると、もういっちゃったのかまだなのかって情報はとても重要なんだよなあ。

#06-05 [BUY]夜ゲ
ひさびさに旭屋。

	でりつま 山名 沢湖 双葉社 (2006/02/25)
	ロケハン 陽気婢 小学館 (2002/03/19)

「でりつま」はようやくゲット。陽気婢さんのは見かけたので保護。(←……)

#07-01 やっぱねもい
今日のは寝付けなくて3時くらいに寝たからなんだが。さくっと起きれてその後も気分爽快になるには、早寝しないと ダメかなあ。

#07-02 [hack]WinampからPLAYLOGへ投稿
直接じゃないけど。DoSomething pluginを使って webサーバ経由でPLAYLOGへ投稿するスクリプトの雛型。

#!/usr/bin/perl

use strict;
use Jcode;
use LWP::UserAgent;
use HTTP::Request;
use Digest::SHA1 qw(sha1 sha1_base64);
use MIME::Base64;

############################################################

my $user_name = 'playlogID';
my $user_pass = 'password';

############################################################

my $USER_AGENT = 'winamp2playlog/0.1 (NetBSD; ja-JP; http://sharl.hauN.org/) Winamp/5.2';
my $HOST_DOMAIN = 'mss.playlog.jp';
my $PLAYLOG_ENDPOINT = "http://$HOST_DOMAIN/playlog";

my $now = time;

my $created;
{
    my @t = localtime($now);
    $created = sprintf("%d-%02d-%02dT%02d:%02d:%02dZ", $t[5] + 1900, $t[4] + 1, $t[3], $t[2], $t[1], $t[0]);
}
my $nonce      = sha1(time . rand());
my $nonce_enc  = encode_base64($nonce);
my $hashedpass = encode_base64(sha1($nonce . $created . $user_pass), "");
my $wsse = qq|UsernameToken Username="$user_name", PasswordDigest="$hashedpass", Nonce="$nonce_enc", Created="$created"|;

my $xml = <<EOC;
<entry xmlns="http://purl.org/atom/ns#" xmlns:otolog="http://otolog.org/ns/music#">
<otolog:artist>テストartist</otolog:artist>
<otolog:album>テストalbum</otolog:album>
<otolog:track>テストtrack</otolog:track>
<otolog:duration>360</otolog:duration>
<otolog:date>$created</otolog:date>
</entry>
EOC
;
my $content = jcode($xml)->utf8;

my $ua = LWP::UserAgent->new(keep_alive => 1);
$ua->agent($USER_AGENT);
$ua->timeout(10);

my $req = HTTP::Request->new(POST => $PLAYLOG_ENDPOINT);
$req->header('User-Agent', $USER_AGENT);
$req->header('Authorization', 'WSSE profile="UsernameToken"');
$req->header('X-WSSE', $wsse);
$req->header('Host', $HOST_DOMAIN);
$req->header('Content-Length', length($content));
$req->content($content);

#print $req->as_string() . "\n";

my $res = $ua->request($req);
my $text = $res->status_line;

print "Status: $text\n\n";

中の人、Winampのplugin作ってくれないかなあ…。

これでlast.fmとPLAYLOGと自分の日記に投稿できるようになったので個人的に満足。

#09-01 くふぅ
昨日は風邪で倒れていた。ほとんど何もできなかったなあ。

起きたら雪が積もっているし。啓蟄過ぎたからあったかくなったかと思ったのに。

#09-02 左手小指損傷
連日ひたすらキーボードを叩いているので、左手小指のCTRLキーに当たるところが勝手に削れて、とても痛い。

タイピング速度が遅くなっているような気がする。

#10-01 [でじこ]Origami is UMPC
正体はわかっていたけど、ふたを開けたら$500は無理っぽいって…あ、あのー

#10-02 [FT]ふられた
妻が買い物に中央まできているので、昼飯に誘ったら「いかねえ」といわれたのでがっくり orz

#10-03 [BUY]ヨドむ
QUXの人がV904Tに機種変するのを眺めつつ

	ELECOM 極細USB延長ケーブル 0.3m ブラック USB-XE03BK エレコム (2006/01/18)
	GH-USBRC グリーンハウス

をゲット。前者はスイッチングハブの電源延長用、後者は持ち歩き用に。これはいいものだ。

6734 accesses since 2006/03/01.