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