Perl で Google Cloud Messaging ｻｰﾊﾞﾌﾟﾛｸﾞﾗﾑを書いてみた[ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ]
(2013-05-15 01:28:41) by shinoda
Android 端末へのﾒｯｾｰｼﾞのﾌﾟｯｼｭをする場合のﾌﾟﾛｸﾞﾗﾑね｡
GCM ｻｰﾋﾞｽを使うための API ｷｰの入手の手順とかは､
を参照｡(日本語訳です)
で､Google が用意しているｻﾝﾌﾟﾙﾌﾟﾛｸﾞﾗﾑをｸﾗｲｱﾝﾄで動かして､ﾒｯｾｰｼﾞを実際に端末に向けてﾌﾟｯｼｭするところまでﾃｽﾄしてみたんだけど､ざっとｸﾞｸﾞってみたところ､ｻｰﾊﾞ側のﾌﾟﾛｸﾞﾗﾑを Perl で書いてる例が無かったので､簡単なものを作ってみた｡
まず､ｸﾗｲｱﾝﾄ(Android 端末上のｱﾌﾟﾘ)から regID を取得するﾌﾟﾛｸﾞﾗﾑ｡
(ｸﾗｲｱﾝﾄで､SERVER_URL にｾｯﾄしている URL)
･･･っても､POSTで送られてくるﾃﾞｰﾀをﾌｧｲﾙに書き出してるだけだけどな｡
#!/usr/bin/perl
#
# gcm_demo.cgi
#
read (STDIN, $postdata, $ENV{'CONTENT_LENGTH'});
open OUT, ">>/tmp/gcm_test.txt";
print OUT "POST $postdata\n";
close(OUT);
print "Content-type: text/html;charset=UTF-8\n\n";
print "DEMO";
exit();
これで､Android 側でｸﾗｲｱﾝﾄを実行すると､
# cat /tmp/gcm_test.txt
POST regId=APA91bHi1fbAcCk1qwCMu6jO4IlJuAtXXXXXXXX_hhyK7atS6i6G_GuhtprPGroMnZkNQvKTWuAPxXXXXXXXXTLv-mKpIi_Ek9CpDPWvJQ79IZjmyXXXXXXXXttIgKOcf-GTcHRC8VmND3UpXXXXXXXXvfC4bw5hJw
という具合に regID(端末識別番号みたいなもん)が取得出来る｡
regID が取得出来たらﾒｯｾｰｼﾞ送信ﾌﾟﾛｸﾞﾗﾑにｾｯﾄ｡
#!/usr/bin/perl
#
# gcm_message_send.pl
#
use LWP;
$ua = LWP::UserAgent->new;
$res = $ua->post(
"https://android.googleapis.com/gcm/send",
{
'registration_id' => "APA91bHi1fbAcCk1qwCMu6jO4IlJuAtXXXXXXXX_hhyK7atS6i6G_GuhtprPGroMnZkNQvKTWuAPxXXXXXXXXTLv-mKpIi_Ek9CpDPWvJQ79IZjmyXXXXXXXXttIgKOcf-GTcHRC8VmND3UpXXXXXXXXvfC4bw5hJw",
'collapse_key' => 'update',
'data.message' => "これはｻｰﾊﾞからのﾃｽﾄﾒｯｾｰｼﾞです",
},
"User-Agent" => "NAF Perl Program/0.1",
"Authorization" => "key=AIzaSyDsXXXXXXXX9Lyazw0NYRVrXXXXXXXXHk",
"Content-Type" => "application/x-www-form-urlencoded;charset=UTF-8"
);
print $res->content;
これを実行したら､
$ ./gcm_message_send.pl
id=0:13685xxxxxxxx632%921cxxxxxxxx38c9
という具合に､https://android.googleapis.com/gcm/send がちゃんとﾒｯｾｰｼﾞ ID を返してくるので､ばっちりだろう｡
必要最小限の一番ｼﾝﾌﾟﾙな例ってことで(笑)
Perl 使いの皆様へ｡参考まで｡
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る
Powered by
MT4i 3.0.8