#01-01 モンスターハンターハンター
今日はモンハンポータブル3の発売日なので、ヨドバシに300人近く並んでいた。ハンターおそろしす。
#03-01 [BUY,COMICS]チャンネルはそのまま!(3)/鉄腕バーディーEVOLUTION(6)
|
|
#08-01 [iPhone,hack]Boxcarでpush通知するときの開発用メモ
忘れそうなのでメモっておく。User のほうはどこかに誘導リンクあるのかな…?
いつの間にかメッセージ一覧に表示されるアイコンの指定とかできるようになってるし。更新したらちゃんと blog に書いてください!!(苦笑)
#09-01 [DD]新曲 All You Need Is Now が iTS でリリース開始
“All You Need is Now” is Here!という記事でリリースを知り、さっそく iTS にアクセス。……日本では 150円。UK/US では Free。もちろん以下略。
All You Need Is Now - Single by Duran Duran
iTS では 12/21 にアルバムが出るそうだが、物理CDは来年2月。んー。
#10-01 [iPhone,perl]Boxcar User APIを使ってiPhoneに任意のメッセージを送信するスクリプト
machine boxcar.io login さっきのEmail Address password さっきのPasswordと書く。chmod 600 ~/.netrc もしておく。
#!/usr/bin/perl use strict; use Net::Netrc; use LWP::UserAgent; use HTTP::Request::Common qw(POST); my $BOXCAR_DOMAIN = 'boxcar.io'; my $boxcar = Net::Netrc->lookup($BOXCAR_DOMAIN); my %formdata = ( 'notification[from_screen_name]' => $ARGV[0], 'notification[message]' => $ARGV[1], 'notification[from_remote_service_id]' => time, ); my $postURI = "https://$BOXCAR_DOMAIN/notifications"; my $req = POST($postURI, [%formdata]); $req->authorization_basic($boxcar->login, $boxcar->password); my $ua = LWP::UserAgent->new(timeout => 10); my $res = $ua->request($req); if (! $res->is_success) { print $res->message . "\n"; }実行してみる
$ boxcar-growl `hostname -s` "This is test."
2208 accesses since 2010/12/01. (C)ROSSO INDEX K.K. / HUDSON SOFT All right reserved. 株式会社ロッソインデックス及び株式会社ハドソンの著作権を侵害する行為は禁止されています。