[iPhone]Boxcarでアバウトな時報を実装する(2)ブロードキャストプッシュ成功

#26-01 [iPhone]Boxcarでアバウトな時報を実装する(2)ブロードキャストプッシュ成功

前回に引き続き実験。

ふにふにして、ようやく broadcast できるようになった。協力してくれたにらん、まいちゃんありがとう。

Review 通らなくても、10人までなら動作確認するのに登録ができるようなので、参加してみたい人は boxcar://provider/219 を iPhoneにMMSかなにかで送って URI を開くとサービスが登録できます。

参考にならないかもしれない実装コード

#!/usr/bin/perl

use strict;
use utf8;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $DEBUG = (-f '.debug') ? 1 : 0;

my $APIsecret = 'jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj';
my $APIkey = 'kkkkkkkkkkkkkkkkkkkk';
my $postURI = "http://boxcar.io/devices/providers/$APIkey/notifications/broadcast";

my $message = sprintf($DEBUG ? "%d時頃(debug)" : "%d時頃", (localtime(time))[2]);
utf8::decode($message);

my %formdata = (
    'secret' => $APIsecret,
    'notification[from_screen_name]' => "だいたい",
    'notification[message]' => $message,
    'notification[from_remote_service_id]' => time,
    );
my $req = POST($postURI, [%formdata]);

my $ua = LWP::UserAgent->new(timeout => 10);
my $res = $ua->request($req);
if ($DEBUG && ! $res->is_success) {
    print $res->message . "\n";
}