2 * This module implements a notifier for Funambol push email.
3 * Based on bits of serv_spam, serv_smtp
6 #define FUNAMBOL_WS "/funambol/services/admin"
15 #include <sys/types.h>
17 #if TIME_WITH_SYS_TIME
18 # include <sys/time.h>
22 # include <sys/time.h>
31 #include <sys/socket.h>
34 #include "sysdep_decls.h"
35 #include "citserver.h"
39 #include "serv_extensions.h"
46 #include "internet_addressing.h"
48 #include "clientsocket.h"
49 #include "serv_funambol.h"
51 * Create the notify message queue
53 void create_notify_queue(void) {
54 struct ctdlroom qrbuf;
56 create_room(FNBL_QUEUE_ROOM, 3, "", 0, 1, 0, VIEW_MAILBOX);
59 * Make sure it's set to be a "system room" so it doesn't show up
60 * in the <K>nown rooms list for Aides.
62 if (lgetroom(&qrbuf, FNBL_QUEUE_ROOM) == 0) {
63 qrbuf.QRflags2 |= QR2_SYSTEM;
68 * Connect to the Funambol server and scan a message.
70 int notify_funambol(long msgnum, void *userdata) {
71 struct CtdlMessage *msg;
77 /* W means 'Wireless'... */
78 msg = CtdlFetchMessage(msgnum, 1);
79 if ( msg->cm_fields['W'] == NULL) {
82 /* Are we allowed to push? */
83 if ( strlen(config.c_funambol_host) == 0) {
86 lprintf(CTDL_INFO, "Push enabled\n");
89 sprintf(port, "%d", config.c_funambol_port);
90 lprintf(CTDL_INFO, "Connecting to Funambol at <%s>\n", config.c_funambol_host);
91 sock = sock_connect(config.c_funambol_host, port, "tcp");
92 if (sock >= 0) lprintf(CTDL_DEBUG, "Connected!\n");
95 /* If the service isn't running, pass for now */
99 /* Build a SOAP message, delicately, by hand */
100 sprintf(SOAPData, "<?xml version=\"1.0\" encoding=\"UTF-8\"?><soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\">");
101 strcat(SOAPData, "<soapenv:Body><sendNotificationMessages soapenv:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\">");
102 strcat(SOAPData, "<arg0 xsi:type=\"soapenc:string\" xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\">");
103 strcat(SOAPData, msg->cm_fields['W']);
104 strcat(SOAPData, "</arg0>");
105 strcat(SOAPData, "<arg1 xsi:type=\"soapenc:string\" xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\"><?xml version="1.0" encoding="UTF-8"?>\r\n");
106 strcat(SOAPData, "<java version="1.5.0_10" class="java.beans.XMLDecoder"> \r\n");
107 strcat(SOAPData, " <array class="com.funambol.framework.core.Alert" length="1">\r\n");
108 strcat(SOAPData, " <void index="0">\r\n");
109 strcat(SOAPData, " <object class="com.funambol.framework.core.Alert">\r\n");
110 strcat(SOAPData, " <void property="cmdID">\r\n");
111 strcat(SOAPData, " <object class="com.funambol.framework.core.CmdID"/>\r\n");
112 strcat(SOAPData, " </void>");
113 strcat(SOAPData, " <void property="data">\r\n");
114 strcat(SOAPData, " <int>210</int>\r\n");
115 strcat(SOAPData, " </void>\r\n");
116 strcat(SOAPData, " <void property="items">\r\n");
117 strcat(SOAPData, " <void method="add">\r\n");
118 strcat(SOAPData, " <object class="com.funambol.framework.core.Item">\r\n");
119 strcat(SOAPData, " <void property="meta">\r\n");
120 strcat(SOAPData, " <object class="com.funambol.framework.core.Meta">\r\n");
121 strcat(SOAPData, " <void property="metInf">\r\n");
122 strcat(SOAPData, " <void property="type">\r\n");
123 strcat(SOAPData, " <string>application/vnd.omads-email+xml</string>\r\n");
124 strcat(SOAPData, " </void>\r\n");
125 strcat(SOAPData, " </void>\r\n");
126 strcat(SOAPData, " </object>\r\n");
127 strcat(SOAPData, " </void>\r\n");
128 strcat(SOAPData, " <void property="target">\r\n");
129 strcat(SOAPData, " <object class="com.funambol.framework.core.Target">\r\n");
130 strcat(SOAPData, " <void property="locURI">\r\n");
131 strcat(SOAPData, " <string>");
132 strcat(SOAPData, config.c_funambol_source);
133 strcat(SOAPData, "</string>\r\n");
134 strcat(SOAPData, " </void>\r\n");
135 strcat(SOAPData, " </object>\r\n");
136 strcat(SOAPData, " </void>\r\n");
137 strcat(SOAPData, " </object>\r\n");
138 strcat(SOAPData, " </void>\r\n");
139 strcat(SOAPData, " </void>\r\n");
140 strcat(SOAPData, " </object>\r\n");
141 strcat(SOAPData, " </void>\r\n");
142 strcat(SOAPData, " </array>\r\n");
143 strcat(SOAPData, "</java>");
144 strcat(SOAPData,"</arg1><arg2 href=\"#id0\"/></sendNotificationMessages><multiRef id=\"id0\" soapenc:root=\"0\"\r\n");
145 strcat(SOAPData,"soapenv:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\" xsi:type=\"soapenc:int\" xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\">1</multiRef></soapenv:Body></soapenv:Envelope>");
148 lprintf(CTDL_DEBUG, "Transmitting command\n");
149 sprintf(buf, "POST %s HTTP/1.0\r\nContent-type: text/xml; charset=utf-8\r\n",
151 strcat(SOAPHeader,buf);
152 strcat(SOAPHeader,"Accept: application/soap+xml, application/dime, multipart/related, text/*\r\n");
153 sprintf(buf, "User-Agent: %s/%d\r\nHost: %s:%d\r\nCache-control: no-cache\r\n",
156 config.c_funambol_host,
157 config.c_funambol_port
159 strcat(SOAPHeader,buf);
160 strcat(SOAPHeader,"Pragma: no-cache\r\nSOAPAction: \"\"\r\n");
161 sprintf(buf, "Content-Length: %d\r\n",
163 strcat(SOAPHeader, buf);
164 sprintf(buf, "Authorization: Basic %s\r\n\r\n",
165 config.c_funambol_auth);
166 strcat(SOAPHeader, buf);
168 sock_write(sock, SOAPHeader, strlen(SOAPHeader));
169 sock_write(sock, SOAPData, strlen(SOAPData));
170 sock_shutdown(sock, SHUT_WR);
173 lprintf(CTDL_DEBUG, "Awaiting response\n");
174 if (sock_gets(sock, buf) < 0) {
177 lprintf(CTDL_DEBUG, "<%s\n", buf);
178 if (strncasecmp(buf, "HTTP/1.1 200 OK", strlen("HTTP/1.1 200 OK"))) {
182 lprintf(CTDL_DEBUG, "Funambol notified\n");
183 /* We should allow retries here but for now purge after one go */
185 CtdlFreeMessage(msg);
187 todelete[0] = msgnum;
188 CtdlDeleteMessages(FNBL_QUEUE_ROOM, todelete, 1, "");
194 void do_notify_queue(void) {
195 static int doing_queue = 0;
198 * This is a simple concurrency check to make sure only one queue run
199 * is done at a time. We could do this with a mutex, but since we
200 * don't really require extremely fine granularity here, we'll do it
201 * with a static variable instead.
203 if (doing_queue) return;
207 * Go ahead and run the queue
209 lprintf(CTDL_INFO, "serv_funambol: processing notify queue\n");
211 if (getroom(&CC->room, FNBL_QUEUE_ROOM) != 0) {
212 lprintf(CTDL_ERR, "Cannot find room <%s>\n", FNBL_QUEUE_ROOM);
215 CtdlForEachMessage(MSGS_ALL, 0L, NULL,
216 SPOOLMIME, NULL, notify_funambol, NULL);
218 lprintf(CTDL_INFO, "serv_funambol: queue run completed\n");
223 char *serv_funambol_init(void)
225 create_notify_queue();
226 CtdlRegisterSessionHook(do_notify_queue, EVT_TIMER);
227 return "$Id: serv_funambol.c $";