src/v2l_main.c

   1 /*
   2  *  This program is free software; you can redistribute it and/or modify
   3  *  it under the terms of the GNU General Public License as published by
   4  *  the Free Software Foundation; either version 2 of the License, or
   5  *  (at your option) any later version.
   6  *
   7  *  This program is distributed in the hope that it will be useful,
   8  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  *  GNU General Public License for more details.
  11  *
  12  *  You should have received a copy of the GNU General Public License
  13  *  along with this program; if not, write to the Free Software
  14  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  15  */
  16
  17 #include <stdlib.h>
  18 #include <stdio.h>
  19 #include <jabberd.h>
  20 #include <v2l_config.h>
  21 #include <v2l_conn.h>
  22 #include <v2l_vcard.h>
  23
  24 #if LDAP_VENDOR_VERSION <= 20130
  25 #include <sasl/sasl.h>
  26 #endif
  27
  28 #define LOG_ERROR_MEM log_error(ZONE, "Unable to allocate memory")
  29
  30 static result _v2l_packets_handler (instance i, dpacket p, void *args);
  31 static short _v2l_check_attr_value (xmlnode node, char *attr_name,
  32   char *attr_value);
  33 static void _v2l_shutdown (void *arg);
  34
  35 /*
  36  * xdb_v2l (), module entry point.
  37  */
  38 #ifdef __cplusplus
  39 extern "C"
  40 #endif
  41 void xdb_v2l (instance i, xmlnode x)
  42 {
  43   xdbcache xc = NULL;    /* for config request */
  44   v2l_Config *self = NULL;
  45
  46   log_debug (ZONE, "Loading xdb_v2l");
  47
  48   self = (v2l_Config *) pmalloco (i->p, sizeof (*self));
  49
  50   if (self == NULL)
  51     {
  52       return;
  53     }
  54
  55   self->poolref = i->p;
  56
  57   /* Load config from xdb */
  58   xc = xdb_cache (i);
  59   self->config = xdb_get (xc, jid_new (xmlnode_pool (x), "config@-internal"),
  60         "jabberd:xdb_v2l:config");
  61
  62   /* Parse config */
  63   if (!v2l_config_init (self, self->config))
  64     {
  65       /* do no try to go on with a badly configured ldap component */
  66       exit (1);
  67     }
  68
  69   register_phandler (i, o_DELIVER, _v2l_packets_handler, (void *) self);
  70   register_shutdown (_v2l_shutdown, (void *) self);
  71
  72   log_debug (ZONE, "xdb_v2l has been successfully initialized");
  73 }
  74
  75 static void
  76 _v2l_shutdown (void *arg)
  77 {
  78   v2l_Config *self = (v2l_Config *) arg;
  79
  80   v2l_free_allconn ();
  81
  82   /* free admin connection */
  83   ldap_unbind (self->master_conn->ld);
  84   pool_free (self->master_conn->p);
  85 #if LDAP_VENDOR_VERSION <= 20130
  86   sasl_done ();
  87 #endif
  88 }
  89
  90 /*
  91  * Main callback. Handle xdb packets
  92  */
  93 static result
  94 _v2l_packets_handler (instance i, dpacket p, void *args)
  95 {
  96   v2l_Config *self = (v2l_Config *) args;
  97   v2l_LdapConn *user_conn;
  98   dpacket dp;
  99
 100   if ((p == NULL) || (p->x == NULL) || (p->id == NULL))
 101     {
 102       log_error (ZONE, "malformed xdb packet");
 103       return r_ERR;
 104     }
 105
 106   if (_v2l_check_attr_value (p->x, "type", "error"))
 107     {
 108       xmlnode_free (p->x);
 109       log_warn (ZONE, "xdb_v2l received an error packet");
 110       return r_DONE;
 111     }
 112
 113   if (!_v2l_check_attr_value (p->x, "ns", NS_VCARD))
 114     {
 115       log_warn (ZONE,
 116         "xdb_v2l received a packet for other namespace than NS_VCARD");
 117       return r_PASS;
 118     }
 119
 120   user_conn = v2l_get_conn (self, p->id->user);
 121
 122   if (user_conn == NULL)
 123     {
 124       log_error (ZONE, "Unable to create connection for \"%s\" user",
 125         p->id->user);
 126       return r_ERR;
 127     }
 128
 129   if (_v2l_check_attr_value (p->x, "type", "set"))
 130     {
 131       xmlnode child = xmlnode_get_firstchild (p->x);
 132
 133       if (v2l_vcard_set (self, user_conn, child) != 1)
 134         {
 135           return r_ERR;
 136         }
 137     }
 138   else
 139     {
 140       xmlnode data = v2l_vcard_get (self, user_conn);
 141
 142       if (data)
 143         {
 144           xmlnode_insert_tag_node (p->x, data);
 145           xmlnode_free (data);
 146         }
 147     }
 148
 149   /* making XML reply */
 150   xmlnode_put_attrib (p->x, "type", "result");
 151   xmlnode_put_attrib (p->x, "to", xmlnode_get_attrib (p->x, "from"));
 152   xmlnode_put_attrib (p->x, "from", jid_full (p->id));
 153
 154   dp = dpacket_new (p->x);
 155
 156   if (dp == NULL)
 157     {
 158       LOG_ERROR_MEM;
 159       return r_ERR;
 160     }
 161
 162   deliver (dp, NULL);
 163
 164   return r_DONE;
 165 }
 166
 167 static short
 168 _v2l_check_attr_value (xmlnode node, char *attr_name, char *value)
 169 {
 170   if ((node == NULL) || (attr_name == NULL) || (value == NULL))
 171     {
 172       log_debug (ZONE, "_v2l_check_attr_value() parameters are not valid");
 173       return 0;
 174     }
 175
 176   return strncmp (xmlnode_get_attrib (node, attr_name), value,
 177       sizeof (char) * strlen (value)) == 0;
 178 }