citadel/modules/funambol/serv_funambol.c

   1 /*
   2  * This module implements a notifier for Funambol push email.
   3  * Based on bits of serv_spam, serv_smtp
   4  */
   5
   6 #define FUNAMBOL_WS       "/funambol/services/admin"
   7 #include "sysdep.h"
   8 #include <stdlib.h>
   9 #include <unistd.h>
  10 #include <stdio.h>
  11 #include <fcntl.h>
  12 #include <signal.h>
  13 #include <pwd.h>
  14 #include <errno.h>
  15 #include <sys/types.h>
  16
  17 #if TIME_WITH_SYS_TIME
  18 # include <sys/time.h>
  19 # include <time.h>
  20 #else
  21 # if HAVE_SYS_TIME_H
  22 #  include <sys/time.h>
  23 # else
  24 #  include <time.h>
  25 # endif
  26 #endif
  27
  28 #include <sys/wait.h>
  29 #include <string.h>
  30 #include <limits.h>
  31 #include <sys/socket.h>
  32 #include "citadel.h"
  33 #include "server.h"
  34 #include "citserver.h"
  35 #include "support.h"
  36 #include "config.h"
  37 #include "control.h"
  38 #include "room_ops.h"
  39 #include "user_ops.h"
  40 #include "database.h"
  41 #include "msgbase.h"
  42 #include "tools.h"
  43 #include "internet_addressing.h"
  44 #include "domain.h"
  45 #include "clientsocket.h"
  46
  47 #include "serv_funambol.h"
  48 #include "serv_pager.h"
  49
  50
  51 #include "ctdl_module.h"
  52
  53 #define FUNAMBOL_CONFIG_TEXT "funambol"
  54
  55 /*
  56  * Create the notify message queue
  57  */
  58 void create_notify_queue(void) {
  59         struct ctdlroom qrbuf;
  60
  61         create_room(FNBL_QUEUE_ROOM, 3, "", 0, 1, 0, VIEW_MAILBOX);
  62
  63         /*
  64          * Make sure it's set to be a "system room" so it doesn't show up
  65          * in the <K>nown rooms list for Aides.
  66          */
  67         if (lgetroom(&qrbuf, FNBL_QUEUE_ROOM) == 0) {
  68                 qrbuf.QRflags2 |= QR2_SYSTEM;
  69                 lputroom(&qrbuf);
  70         }
  71 }
  72 void do_notify_queue(void) {
  73         static int doing_queue = 0;
  74
  75         /*
  76          * This is a simple concurrency check to make sure only one queue run
  77          * is done at a time.  We could do this with a mutex, but since we
  78          * don't really require extremely fine granularity here, we'll do it
  79          * with a static variable instead.
  80          */
  81         if (doing_queue) return;
  82         doing_queue = 1;
  83
  84         /*
  85          * Go ahead and run the queue
  86          */
  87         lprintf(CTDL_INFO, "serv_funambol: processing notify queue\n");
  88
  89         if (getroom(&CC->room, FNBL_QUEUE_ROOM) != 0) {
  90                 lprintf(CTDL_ERR, "Cannot find room <%s>\n", FNBL_QUEUE_ROOM);
  91                 return;
  92         }
  93         CtdlForEachMessage(MSGS_ALL, 0L, NULL,
  94                 SPOOLMIME, NULL, notify_funambol, NULL);
  95
  96         lprintf(CTDL_INFO, "serv_funambol: queue run completed\n");
  97         doing_queue = 0;
  98 }
  99
 100 /*
 101  * Connect to the Funambol server and scan a message.
 102  */
 103 void notify_funambol(long msgnum, void *userdata) {
 104         struct CtdlMessage *msg;
 105         int sock = (-1);
 106         char buf[SIZ];
 107         char SOAPHeader[SIZ];
 108         char SOAPData[SIZ];
 109         char port[SIZ];
 110         /* W means 'Wireless'... */
 111         msg = CtdlFetchMessage(msgnum, 1);
 112         if ( msg->cm_fields['W'] == NULL) {
 113                 goto nuke;
 114         }
 115         long configMsgNum = pager_getConfigMessage(msg->cm_fields['W']);
 116         int allowed = funambol_isAllowedByPrefs(configMsgNum);
 117         if (allowed != 0) {
 118                 return;
 119         }
 120         /* Are we allowed to push? */
 121         if (IsEmptyStr(config.c_funambol_host)) {
 122                 return;
 123         } else {
 124                 lprintf(CTDL_INFO, "Push enabled\n");
 125         }
 126         // Does the user want it?
 127         sprintf(port, "%d", config.c_funambol_port);
 128                 lprintf(CTDL_INFO, "Connecting to Funambol at <%s>\n", config.c_funambol_host);
 129                 sock = sock_connect(config.c_funambol_host, port, "tcp");
 130                 if (sock >= 0) lprintf(CTDL_DEBUG, "Connected!\n");
 131
 132         if (sock < 0) {
 133                 /* If the service isn't running, pass for now */
 134                 goto nuke;
 135         }
 136
 137         /* Build a SOAP message, delicately, by hand */
 138         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\">");
 139         strcat(SOAPData, "<soapenv:Body><sendNotificationMessages soapenv:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\">");
 140         strcat(SOAPData, "<arg0 xsi:type=\"soapenc:string\" xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\">");
 141         strcat(SOAPData, msg->cm_fields['W']);
 142         strcat(SOAPData, "</arg0>");
 143         strcat(SOAPData, "<arg1 xsi:type=\"soapenc:string\" xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\">&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;\r\n");
 144         strcat(SOAPData, "&lt;java version=&quot;1.5.0_10&quot; class=&quot;java.beans.XMLDecoder&quot;&gt; \r\n");
 145         strcat(SOAPData, " &lt;array class=&quot;com.funambol.framework.core.Alert&quot; length=&quot;1&quot;&gt;\r\n");
 146         strcat(SOAPData, "  &lt;void index=&quot;0&quot;&gt;\r\n");
 147         strcat(SOAPData, "   &lt;object class=&quot;com.funambol.framework.core.Alert&quot;&gt;\r\n");
 148         strcat(SOAPData, "    &lt;void property=&quot;cmdID&quot;>\r\n");
 149         strcat(SOAPData, "     &lt;object class=&quot;com.funambol.framework.core.CmdID&quot;/&gt;\r\n");
 150         strcat(SOAPData, "    &lt;/void&gt;");
 151         strcat(SOAPData, "    &lt;void property=&quot;data&quot;&gt;\r\n");
 152         strcat(SOAPData, "     &lt;int&gt;210&lt;/int&gt;\r\n");
 153         strcat(SOAPData, "    &lt;/void&gt;\r\n");
 154         strcat(SOAPData, "    &lt;void property=&quot;items&quot;&gt;\r\n");
 155         strcat(SOAPData, "     &lt;void method=&quot;add&quot;&gt;\r\n");
 156         strcat(SOAPData, "      &lt;object class=&quot;com.funambol.framework.core.Item&quot;&gt;\r\n");
 157         strcat(SOAPData, "       &lt;void property=&quot;meta&quot;&gt;\r\n");
 158         strcat(SOAPData, "        &lt;object class=&quot;com.funambol.framework.core.Meta&quot;&gt;\r\n");
 159         strcat(SOAPData, "         &lt;void property=&quot;metInf&quot;&gt;\r\n");
 160         strcat(SOAPData, "          &lt;void property=&quot;type&quot;&gt;\r\n");
 161         strcat(SOAPData, "           &lt;string&gt;application/vnd.omads-email+xml&lt;/string&gt;\r\n");
 162         strcat(SOAPData, "          &lt;/void&gt;\r\n");
 163         strcat(SOAPData, "         &lt;/void&gt;\r\n");
 164         strcat(SOAPData, "        &lt;/object&gt;\r\n");
 165         strcat(SOAPData, "       &lt;/void&gt;\r\n");
 166         strcat(SOAPData, "       &lt;void property=&quot;target&quot;&gt;\r\n");
 167         strcat(SOAPData, "        &lt;object class=&quot;com.funambol.framework.core.Target&quot;&gt;\r\n");
 168         strcat(SOAPData, "         &lt;void property=&quot;locURI&quot;&gt;\r\n");
 169         strcat(SOAPData, "          &lt;string&gt;");
 170         strcat(SOAPData, config.c_funambol_source);
 171         strcat(SOAPData, "&lt;/string&gt;\r\n");
 172         strcat(SOAPData, "         &lt;/void&gt;\r\n");
 173         strcat(SOAPData, "        &lt;/object&gt;\r\n");
 174         strcat(SOAPData, "       &lt;/void&gt;\r\n");
 175         strcat(SOAPData, "      &lt;/object&gt;\r\n");
 176         strcat(SOAPData, "     &lt;/void&gt;\r\n");
 177         strcat(SOAPData, "    &lt;/void&gt;\r\n");
 178         strcat(SOAPData, "   &lt;/object&gt;\r\n");
 179         strcat(SOAPData, "  &lt;/void&gt;\r\n");
 180         strcat(SOAPData, " &lt;/array&gt;\r\n");
 181         strcat(SOAPData, "&lt;/java&gt;");
 182         strcat(SOAPData,"</arg1><arg2 href=\"#id0\"/></sendNotificationMessages><multiRef id=\"id0\" soapenc:root=\"0\"\r\n");
 183         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>");
 184
 185         /* Command */
 186         lprintf(CTDL_DEBUG, "Transmitting command\n");
 187         sprintf(SOAPHeader, "POST %s HTTP/1.0\r\nContent-type: text/xml; charset=utf-8\r\n",
 188                 FUNAMBOL_WS);
 189         strcat(SOAPHeader,"Accept: application/soap+xml, application/dime, multipart/related, text/*\r\n");
 190         sprintf(buf, "User-Agent: %s/%d\r\nHost: %s:%d\r\nCache-control: no-cache\r\n",
 191                 "Citadel",
 192                 REV_LEVEL,
 193                 config.c_funambol_host,
 194                 config.c_funambol_port
 195                 );
 196                 strcat(SOAPHeader,buf);
 197         strcat(SOAPHeader,"Pragma: no-cache\r\nSOAPAction: \"\"\r\n");
 198         sprintf(buf, "Content-Length: " SIZE_T_FMT "\r\n",
 199                 strlen(SOAPData));
 200         strcat(SOAPHeader, buf);
 201         sprintf(buf, "Authorization: Basic %s\r\n\r\n",
 202                 config.c_funambol_auth);
 203         strcat(SOAPHeader, buf);
 204
 205         sock_write(sock, SOAPHeader, strlen(SOAPHeader));
 206         sock_write(sock, SOAPData, strlen(SOAPData));
 207         sock_shutdown(sock, SHUT_WR);
 208
 209         /* Response */
 210         lprintf(CTDL_DEBUG, "Awaiting response\n");
 211         if (sock_getln(sock, buf, sizeof buf) < 0) {
 212                 goto bail;
 213         }
 214         lprintf(CTDL_DEBUG, "<%s\n", buf);
 215         if (strncasecmp(buf, "HTTP/1.1 200 OK", strlen("HTTP/1.1 200 OK"))) {
 216
 217                 goto bail;
 218         }
 219         lprintf(CTDL_DEBUG, "Funambol notified\n");
 220         /* We should allow retries here but for now purge after one go */
 221         bail:
 222         close(sock);
 223         nuke:
 224         CtdlFreeMessage(msg);
 225         long todelete[1];
 226         todelete[0] = msgnum;
 227         CtdlDeleteMessages(FNBL_QUEUE_ROOM, todelete, 1, "");
 228 }
 229
 230 int funambol_isAllowedByPrefs(long configMsgNum) {
 231         // Do a simple string search to see if 'funambol' is selected as the
 232         // type. This string would be at the very top of the message contents.
 233         if (configMsgNum == -1) {
 234                 return -1;
 235         }
 236         struct CtdlMessage *prefMsg;
 237         prefMsg = CtdlFetchMessage(configMsgNum, 1);
 238         char *msgContents = prefMsg->cm_fields['M'];
 239         return strncasecmp(msgContents, FUNAMBOL_CONFIG_TEXT, strlen(FUNAMBOL_CONFIG_TEXT));
 240 }
 241
 242 CTDL_MODULE_INIT(funambol)
 243 {
 244         create_notify_queue();
 245         CtdlRegisterSessionHook(do_notify_queue, EVT_TIMER);
 246
 247         /* return our Subversion id for the Log */
 248         return "$Id$";
 249 }