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