Clojure：两步发送iOS推送通知（apns）

转载于 2014-08-14 09:46:00 发布 · 62 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ilovewindy/p/3910815.html

本文介绍如何在项目中引入notnoop类库并利用其功能发送Apple Push Notification Service (APNs)推送消息。包括配置证书、导入类库、定义发送消息的方法以及调用示例。

首先在project.clj中，添加对notnoop 类库的引用：[com.notnoop.apns/apns "0.2.3"]

然后使用如下方法就可以发送推送消息了：

 1 (ns demo.apns
 2   (:import (com.notnoop.apns APNS)))
 3 
 4 (defn send-push-notification
 5   [device-tokens message]
 6   (loop [rest-device-tokens device-tokens
 7          sent-count 0]
 8     (if (empty? rest-device-tokens)
 9       sent-count
10       (do
11         (let [service (.build (.withSandboxDestination
12                                 (.withCert (APNS/newService)
13                                            "resources/demo.p12"
14                                            "password")))
15               payload (.build (.alertBody (APNS/newPayload) message))]
16           (.push service (first rest-device-tokens) payload))
17         (recur (rest rest-device-tokens) (inc sent-count))))))