概要
タイトルの通りです
ニフティクラウドモバイルバックエンド (以下、NCMB) にプッシュ通知を登録する Perl スクリプトを作成してみました
環境
- CentOS 6.7 64bit
- Perl 5.10.1
- Cpanm 1.7039
Cpanm のインストール
- cd /var/tmp
wget https://cpanmin.us -O install_cpanm.plperl install_cpanm.pl - --sudo App::cpanminus
ライブラリのインストール
cpanm を使って LWP で https をコールするために必要なライブラリをインストールします
- cpanm Crypt::SSLeay
- cpanm Mozilla::CA
Crypt::SSLeay をインストールするときに「Building and testing Net-HTTP-6.09 …」のフェーズで結構時間がかかりました
登録用スクリプト
スクリプト全体は以下の通りです
スクリプト冒頭の $ak, $ck は各自が作成したアプリケーションキーとクライアントキーを指定してください
- vim send_push.pl
#! /usr/bin/perl
use warnings;
use strict;
use autodie;
use LWP::UserAgent;
use DateTime;
use Digest::SHA qw(hmac_sha256_base64);
my $ak = 'Please input your application key';
my $ck = 'Please input your client key';
my $endpoint = 'mb.api.cloud.nifty.com';
my $version = '2013-09-01';
my $path = 'push';
my $method = 'POST';
my $uri = "https://${endpoint}/${version}/${path}";
print $uri, "\n";
my $req = HTTP::Request->new( $method, $uri );
$req->header( 'Content-Type' => 'application/json' );
$req->header( 'X-NCMB-Application-Key' => $ak );
my $timestamp = &getTimestamp;
my $sig = &getSignature($method, $endpoint, "/${version}/${path}", "", $ak, $ck, $timestamp);
$req->header( 'X-NCMB-Signature' => $sig );
$req->header( 'X-NCMB-Timestamp' => $timestamp );
my $json = '{"immediateDeliveryFlag":true,"target":["ios"],"message":"test"}';
$req->content( $json );
my $lwp = LWP::UserAgent->new();
my $res = $lwp->request( $req );
print $res->content, "\n";
sub getTimestamp {
my $dt = DateTime->now( time_zone=>'local' );
return $dt->strftime('%Y-%m-%dT%H:%M:%S.456Z');
}
sub getSignature {
my $method = $_[0];
my $endpoint = $_[1];
my $path = $_[2];
my $queryString = $_[3];
my $ak = $_[4];
my $ck = $_[5];
my $timestamp = $_[6];
my $sigMethod = 'HmacSHA256';
my $sigVer = '2';
my %headers;
$headers{'SignatureMethod'} = 'HmacSHA256';
$headers{'SignatureVersion'} = '2';
$headers{'X-NCMB-Application-Key'} = $ak;
$headers{'X-NCMB-Timestamp'} = $timestamp;
my $strh = '';
foreach my $key (sort keys %headers) {
$strh = $strh . '&' . $key . '=' . $headers{$key};
}
$strh = substr($strh, 1);
my $strToSign = $method . "\n" . $endpoint . "\n" . $path . "\n" . $strh;
print $strToSign . "\n";
my $sig = hmac_sha256_base64($strToSign, $ck);
while (length($sig) % 4) {
$sig .= '=';
}
print $sig , "\n";
return $sig;
}実行は
- perl send_push.pl
で OK です
プッシュ通知の内容は my $json で指定しているので適宜変更してください
とりあえずライブラリが正常にインストールされて、NCMB 側でプッシュ通知が送信できる準備ができていれば問題なく登録できるはずです
最後に
とりあえずプッシュ通知が登録できる Perl スクリプトを作成してみました
Perl 標準でインストールされている LWP を使っています
POST の部分を GET に変更すればプッシュの一覧を取得できるのは確認しています
他の API も $path 部分を変更すればコールできると思います ( 動作確認は実施していません )
全然 SDK っぽくないので、ちゃんと作るなら Cpan で配布できるようにモジュール化しないとダメだと思います
