Back Forward Return

#01-01 モンスターハンターハンター

今日はモンハンポータブル3の発売日なので、ヨドバシに300人近く並んでいた。ハンターおそろしす。

#03-01 [BUY,COMICS]チャンネルはそのまま!(3)/鉄腕バーディーEVOLUTION(6)

チャンネルはそのまま!(3) 佐々木 倫子 小学館 (2010-11-30)

鉄腕バーディーEVOLUTION(6) ゆうき まさみ 小学館 (2010-11-30)

#08-01 [iPhone,hack]Boxcarでpush通知するときの開発用メモ

忘れそうなのでメモっておく。User のほうはどこかに誘導リンクあるのかな…?

• User API
• Provider API

#09-01 [DD]新曲 All You Need Is Now が iTS でリリース開始

“All You Need is Now” is Here!

All You Need Is Now - Single by Duran Duran

iTS では 12/21 にアルバムが出るそうだが、物理CDは来年2月。んー。

#10-01 [iPhone,perl]Boxcar User APIを使ってiPhoneに任意のメッセージを送信するスクリプト

1. Boxcar を起動して Sign Up もしくは Sign in。ここで使った Email Address と Password はあとで使います。
2. Boxcar の「Add a Service」から「Growl」を選んで Advanced Settings を Alert: Full Message に。 ほかはお好みで。
3. ~/.netrc に

   machine boxcar.io
           login    さっきのEmail Address
           password さっきのPassword
   

   と書く。chmod 600 ~/.netrc もしておく。
4. 次のスクリプトに適当な名前(boxcar-growlとか)をつけて (Crypt::SSLeay モジュールが必要です)

   #!/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."
   

2198 accesses since 2010/12/01. （C）ROSSO INDEX K.K. / HUDSON SOFT All right reserved. 株式会社ロッソインデックス及び株式会社ハドソンの著作権を侵害する行為は禁止されています。