Stasis/ARI: Fix off-nominal path json memory leaks.
[asterisk/asterisk.git] / res / stasis / messaging.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 2014, Digium, Inc.
5  *
6  * Matt Jordan <mjordan@digium.com>
7  *
8  * See http://www.asterisk.org for more information about
9  * the Asterisk project. Please do not directly contact
10  * any of the maintainers of this project for assistance;
11  * the project provides a web site, mailing lists and IRC
12  * channels for your use.
13  *
14  * This program is free software, distributed under the terms of
15  * the GNU General Public License Version 2. See the LICENSE file
16  * at the top of the source tree.
17  */
18
19 /*!
20  * \file
21  *
22  * \brief Stasis out-of-call text message support
23  *
24  * \author Matt Jordan <mjordan@digium.com>
25  */
26
27 #include "asterisk.h"
28
29 #include "asterisk/message.h"
30 #include "asterisk/endpoints.h"
31 #include "asterisk/astobj2.h"
32 #include "asterisk/vector.h"
33 #include "asterisk/lock.h"
34 #include "asterisk/utils.h"
35 #include "asterisk/test.h"
36 #include "messaging.h"
37
38 /*!
39  * \brief Subscription to all technologies
40  */
41 #define TECH_WILDCARD "__AST_ALL_TECH"
42
43 /*!
44  * \brief Number of buckets for the \ref endpoint_subscriptions container
45  */
46 #define ENDPOINTS_NUM_BUCKETS 127
47
48 /*! \brief Storage object for an application */
49 struct application_tuple {
50         /*! ao2 ref counted private object to pass to the callback */
51         void *pvt;
52         /*! The callback to call when this application has a message */
53         message_received_cb callback;
54         /*! The name (key) of the application */
55         char app_name[];
56 };
57
58 /*! \brief A subscription to some endpoint or technology */
59 struct message_subscription {
60         /*! The applications that have subscribed to this endpoint or tech */
61         AST_VECTOR(, struct application_tuple *) applications;
62         /*! The name of this endpoint or tech */
63         char token[];
64 };
65
66 /*! \brief The subscriptions to endpoints */
67 static struct ao2_container *endpoint_subscriptions;
68
69 /*!
70  * \brief The subscriptions to technologies
71  *
72  * \note These are stored separately from standard endpoints, given how
73  * relatively few of them there are.
74  */
75 static AST_VECTOR(,struct message_subscription *) tech_subscriptions;
76
77 /*! \brief RWLock for \c tech_subscriptions */
78 static ast_rwlock_t tech_subscriptions_lock;
79
80 /*! \internal \brief Destructor for \c application_tuple */
81 static void application_tuple_dtor(void *obj)
82 {
83         struct application_tuple *tuple = obj;
84
85         ao2_cleanup(tuple->pvt);
86 }
87
88 /*! \internal \brief Constructor for \c application_tuple */
89 static struct application_tuple *application_tuple_alloc(const char *app_name, message_received_cb callback, void *pvt)
90 {
91         struct application_tuple *tuple;
92         size_t size = sizeof(*tuple) + strlen(app_name) + 1;
93
94         ast_assert(callback != NULL);
95
96         tuple = ao2_alloc_options(size, application_tuple_dtor, AO2_ALLOC_OPT_LOCK_NOLOCK);
97         if (!tuple) {
98                 return NULL;
99         }
100
101         strcpy(tuple->app_name, app_name); /* Safe */
102         tuple->pvt = ao2_bump(pvt);
103         tuple->callback = callback;
104
105         return tuple;
106 }
107
108 /*! \internal \brief Destructor for \ref message_subscription */
109 static void message_subscription_dtor(void *obj)
110 {
111         struct message_subscription *sub = obj;
112         int i;
113
114         for (i = 0; i < AST_VECTOR_SIZE(&sub->applications); i++) {
115                 struct application_tuple *tuple = AST_VECTOR_GET(&sub->applications, i);
116
117                 ao2_cleanup(tuple);
118         }
119         AST_VECTOR_FREE(&sub->applications);
120 }
121
122 /*! \internal \brief Constructor for \ref message_subscription */
123 static struct message_subscription *message_subscription_alloc(const char *token)
124 {
125         struct message_subscription *sub;
126         size_t size = sizeof(*sub) + strlen(token) + 1;
127
128         sub = ao2_alloc_options(size, message_subscription_dtor, AO2_ALLOC_OPT_LOCK_RWLOCK);
129         if (!sub) {
130                 return NULL;
131         }
132         strcpy(sub->token, token); /* Safe */
133
134         return sub;
135 }
136
137 /*! AO2 hash function for \ref message_subscription */
138 static int message_subscription_hash_cb(const void *obj, const int flags)
139 {
140         const struct message_subscription *sub;
141         const char *key;
142
143         switch (flags & OBJ_SEARCH_MASK) {
144         case OBJ_SEARCH_KEY:
145                 key = obj;
146                 break;
147         case OBJ_SEARCH_OBJECT:
148                 sub = obj;
149                 key = sub->token;
150                 break;
151         default:
152                 /* Hash can only work on something with a full key. */
153                 ast_assert(0);
154                 return 0;
155         }
156         return ast_str_hash(key);
157 }
158
159 /*! AO2 comparison function for \ref message_subscription */
160 static int message_subscription_compare_cb(void *obj, void *arg, int flags)
161 {
162         const struct message_subscription *object_left = obj;
163         const struct message_subscription *object_right = arg;
164         const char *right_key = arg;
165         int cmp;
166
167         switch (flags & OBJ_SEARCH_MASK) {
168         case OBJ_SEARCH_OBJECT:
169                 right_key = object_right->token;
170                 /* Fall through */
171         case OBJ_SEARCH_KEY:
172                 cmp = strcmp(object_left->token, right_key);
173                 break;
174         case OBJ_SEARCH_PARTIAL_KEY:
175                 /*
176                  * We could also use a partial key struct containing a length
177                  * so strlen() does not get called for every comparison instead.
178                  */
179                 cmp = strncmp(object_left->token, right_key, strlen(right_key));
180                 break;
181         default:
182                 /*
183                  * What arg points to is specific to this traversal callback
184                  * and has no special meaning to astobj2.
185                  */
186                 cmp = 0;
187                 break;
188         }
189         if (cmp) {
190                 return 0;
191         }
192         /*
193          * At this point the traversal callback is identical to a sorted
194          * container.
195          */
196         return CMP_MATCH;
197 }
198
199 /*! \internal \brief Convert a \c ast_msg To/From URI to a Stasis endpoint name */
200 static void msg_to_endpoint(const struct ast_msg *msg, char *buf, size_t len)
201 {
202         const char *endpoint = ast_msg_get_endpoint(msg);
203
204         snprintf(buf, len, "%s%s%s", ast_msg_get_tech(msg),
205                 ast_strlen_zero(endpoint) ? "" : "/",
206                 S_OR(endpoint, ""));
207 }
208
209 /*! \internal
210  * \brief Callback from the \c message API that determines if we can handle
211  * this message
212  */
213 static int has_destination_cb(const struct ast_msg *msg)
214 {
215         struct message_subscription *sub;
216         int i;
217         char buf[256];
218
219         msg_to_endpoint(msg, buf, sizeof(buf));
220
221         ast_rwlock_rdlock(&tech_subscriptions_lock);
222         for (i = 0; i < AST_VECTOR_SIZE(&tech_subscriptions); i++) {
223                 sub = AST_VECTOR_GET(&tech_subscriptions, i);
224
225                 if (!sub) {
226                         continue;
227                 }
228
229                 if (!strcmp(sub->token, TECH_WILDCARD)
230                     || !strncasecmp(sub->token, buf, strlen(sub->token))
231                     || !strncasecmp(sub->token, buf, strlen(sub->token))) {
232                         ast_rwlock_unlock(&tech_subscriptions_lock);
233                         goto match;
234                 }
235
236         }
237         ast_rwlock_unlock(&tech_subscriptions_lock);
238
239         sub = ao2_find(endpoint_subscriptions, buf, OBJ_SEARCH_KEY);
240         if (sub) {
241                 ao2_ref(sub, -1);
242                 goto match;
243         }
244
245         ast_debug(1, "No subscription found for %s\n", buf);
246         return 0;
247
248 match:
249         return 1;
250 }
251
252 static struct ast_json *msg_to_json(struct ast_msg *msg)
253 {
254         struct ast_json *json_obj;
255         struct ast_json *json_vars;
256         struct ast_msg_var_iterator *it_vars;
257         const char *name;
258         const char *value;
259
260         it_vars = ast_msg_var_iterator_init(msg);
261         if (!it_vars) {
262                 return NULL;
263         }
264
265         json_vars = ast_json_array_create();
266         if (!json_vars) {
267                 ast_msg_var_iterator_destroy(it_vars);
268                 return NULL;
269         }
270
271         while (ast_msg_var_iterator_next(msg, it_vars, &name, &value)) {
272                 struct ast_json *json_tuple;
273
274                 json_tuple = ast_json_pack("{s: s}", name, value);
275                 if (!json_tuple) {
276                         ast_json_unref(json_vars);
277                         ast_msg_var_iterator_destroy(it_vars);
278                         return NULL;
279                 }
280
281                 ast_json_array_append(json_vars, json_tuple);
282                 ast_msg_var_unref_current(it_vars);
283         }
284         ast_msg_var_iterator_destroy(it_vars);
285
286         json_obj = ast_json_pack("{s: s, s: s, s: s, s: o}",
287                 "from", ast_msg_get_from(msg),
288                 "to", ast_msg_get_to(msg),
289                 "body", ast_msg_get_body(msg),
290                 "variables", json_vars);
291
292         return json_obj;
293 }
294
295 static int handle_msg_cb(struct ast_msg *msg)
296 {
297         struct message_subscription *sub;
298         int i;
299         char buf[256];
300         const char *endpoint_name;
301         struct ast_json *json_msg;
302
303         msg_to_endpoint(msg, buf, sizeof(buf));
304
305         ast_rwlock_rdlock(&tech_subscriptions_lock);
306         for (i = 0; i < AST_VECTOR_SIZE(&tech_subscriptions); i++) {
307                 sub = AST_VECTOR_GET(&tech_subscriptions, i);
308
309                 if (!sub) {
310                         continue;
311                 }
312
313                 if (!strcmp(sub->token, TECH_WILDCARD)
314                     || !strncasecmp(sub->token, buf, strlen(sub->token))) {
315                         ast_rwlock_unlock(&tech_subscriptions_lock);
316                         ao2_bump(sub);
317                         endpoint_name = buf;
318                         goto match;
319                 }
320         }
321         ast_rwlock_unlock(&tech_subscriptions_lock);
322
323         sub = ao2_find(endpoint_subscriptions, buf, OBJ_SEARCH_KEY);
324         if (sub) {
325                 endpoint_name = buf;
326                 goto match;
327         }
328
329         return -1;
330
331 match:
332         ast_debug(3, "Dispatching message for %s\n", endpoint_name);
333
334         json_msg = msg_to_json(msg);
335         if (!json_msg) {
336                 ao2_ref(sub, -1);
337                 return -1;
338         }
339
340         for (i = 0; i < AST_VECTOR_SIZE(&sub->applications); i++) {
341                 struct application_tuple *tuple = AST_VECTOR_GET(&sub->applications, i);
342
343                 tuple->callback(endpoint_name, json_msg, tuple->pvt);
344         }
345
346         ast_json_unref(json_msg);
347         ao2_ref(sub, -1);
348         return 0;
349 }
350
351 struct ast_msg_handler ari_msg_handler = {
352         .name = "ari",
353         .handle_msg = handle_msg_cb,
354         .has_destination = has_destination_cb,
355 };
356
357 static int messaging_subscription_cmp(struct message_subscription *sub, const char *key)
358 {
359         return !strcmp(sub->token, key) ? 1 : 0;
360 }
361
362 static int application_tuple_cmp(struct application_tuple *item, const char *key)
363 {
364         return !strcmp(item->app_name, key) ? 1 : 0;
365 }
366
367 static int is_app_subscribed(struct message_subscription *sub, const char *app_name)
368 {
369         int i;
370
371         for (i = 0; i < AST_VECTOR_SIZE(&sub->applications); i++) {
372                 struct application_tuple *tuple;
373
374                 tuple = AST_VECTOR_GET(&sub->applications, i);
375                 if (tuple && !strcmp(tuple->app_name, app_name)) {
376                         return 1;
377                 }
378         }
379
380         return 0;
381 }
382
383 static struct message_subscription *get_subscription(struct ast_endpoint *endpoint)
384 {
385         struct message_subscription *sub = NULL;
386
387         if (endpoint && !ast_strlen_zero(ast_endpoint_get_resource(endpoint))) {
388                 sub = ao2_find(endpoint_subscriptions, endpoint, OBJ_SEARCH_KEY);
389         } else {
390                 int i;
391
392                 ast_rwlock_rdlock(&tech_subscriptions_lock);
393                 for (i = 0; i < AST_VECTOR_SIZE(&tech_subscriptions); i++) {
394                         sub = AST_VECTOR_GET(&tech_subscriptions, i);
395
396                         if (sub && !strcmp(sub->token, endpoint ? ast_endpoint_get_tech(endpoint) : TECH_WILDCARD)) {
397                                 ao2_bump(sub);
398                                 break;
399                         }
400                 }
401                 ast_rwlock_unlock(&tech_subscriptions_lock);
402         }
403
404         return sub;
405 }
406
407 void messaging_app_unsubscribe_endpoint(const char *app_name, const char *endpoint_id)
408 {
409         RAII_VAR(struct message_subscription *, sub, NULL, ao2_cleanup);
410         RAII_VAR(struct ast_endpoint *, endpoint, NULL, ao2_cleanup);
411
412         endpoint = ast_endpoint_find_by_id(endpoint_id);
413         sub = get_subscription(endpoint);
414         if (!sub) {
415                 return;
416         }
417
418         ao2_lock(sub);
419         if (!is_app_subscribed(sub, app_name)) {
420                 ao2_unlock(sub);
421                 return;
422         }
423
424         AST_VECTOR_REMOVE_CMP_UNORDERED(&sub->applications, app_name, application_tuple_cmp, ao2_cleanup);
425         if (AST_VECTOR_SIZE(&sub->applications) == 0) {
426                 if (endpoint && !ast_strlen_zero(ast_endpoint_get_resource(endpoint))) {
427                         ao2_unlink(endpoint_subscriptions, sub);
428                 } else {
429                         ast_rwlock_wrlock(&tech_subscriptions_lock);
430                         AST_VECTOR_REMOVE_CMP_UNORDERED(&tech_subscriptions, endpoint ? ast_endpoint_get_id(endpoint) : TECH_WILDCARD,
431                                 messaging_subscription_cmp, AST_VECTOR_ELEM_CLEANUP_NOOP);
432                         ast_rwlock_unlock(&tech_subscriptions_lock);
433                 }
434         }
435         ao2_unlock(sub);
436         ao2_ref(sub, -1);
437
438         ast_debug(3, "App '%s' unsubscribed to messages from endpoint '%s'\n", app_name, endpoint ? ast_endpoint_get_id(endpoint) : "-- ALL --");
439         ast_test_suite_event_notify("StasisMessagingSubscription", "SubState: Unsubscribed\r\nAppName: %s\r\nToken: %s\r\n",
440                 app_name, endpoint ? ast_endpoint_get_id(endpoint) : "ALL");
441 }
442
443 static struct message_subscription *get_or_create_subscription(struct ast_endpoint *endpoint)
444 {
445         struct message_subscription *sub = get_subscription(endpoint);
446
447         if (sub) {
448                 return sub;
449         }
450
451         sub = message_subscription_alloc(endpoint ? ast_endpoint_get_id(endpoint) : TECH_WILDCARD);
452         if (!sub) {
453                 return NULL;
454         }
455
456         if (endpoint && !ast_strlen_zero(ast_endpoint_get_resource(endpoint))) {
457                 ao2_link(endpoint_subscriptions, sub);
458         } else {
459                 ast_rwlock_wrlock(&tech_subscriptions_lock);
460                 AST_VECTOR_APPEND(&tech_subscriptions, ao2_bump(sub));
461                 ast_rwlock_unlock(&tech_subscriptions_lock);
462         }
463
464         return sub;
465 }
466
467 int messaging_app_subscribe_endpoint(const char *app_name, struct ast_endpoint *endpoint, message_received_cb callback, void *pvt)
468 {
469         RAII_VAR(struct message_subscription *, sub, NULL, ao2_cleanup);
470         struct application_tuple *tuple;
471
472         sub = get_or_create_subscription(endpoint);
473         if (!sub) {
474                 return -1;
475         }
476
477         ao2_lock(sub);
478         if (is_app_subscribed(sub, app_name)) {
479                 ao2_unlock(sub);
480                 return 0;
481         }
482
483         tuple = application_tuple_alloc(app_name, callback, pvt);
484         if (!tuple) {
485                 ao2_unlock(sub);
486                 return -1;
487         }
488         AST_VECTOR_APPEND(&sub->applications, tuple);
489         ao2_unlock(sub);
490
491         ast_debug(3, "App '%s' subscribed to messages from endpoint '%s'\n", app_name, endpoint ? ast_endpoint_get_id(endpoint) : "-- ALL --");
492         ast_test_suite_event_notify("StasisMessagingSubscription", "SubState: Subscribed\r\nAppName: %s\r\nToken: %s\r\n",
493                 app_name, endpoint ? ast_endpoint_get_id(endpoint) : "ALL");
494
495         return 0;
496 }
497
498
499 int messaging_cleanup(void)
500 {
501         ast_msg_handler_unregister(&ari_msg_handler);
502         ao2_ref(endpoint_subscriptions, -1);
503         AST_VECTOR_FREE(&tech_subscriptions);
504         ast_rwlock_destroy(&tech_subscriptions_lock);\
505
506         return 0;
507 }
508
509 int messaging_init(void)
510 {
511         endpoint_subscriptions = ao2_t_container_alloc_hash(AO2_ALLOC_OPT_LOCK_RWLOCK, 0,
512                 ENDPOINTS_NUM_BUCKETS, message_subscription_hash_cb, NULL,
513                 message_subscription_compare_cb, "Endpoint messaging subscription container creation");
514         if (!endpoint_subscriptions) {
515                 return -1;
516         }
517
518         if (AST_VECTOR_INIT(&tech_subscriptions, 4)) {
519                 ao2_ref(endpoint_subscriptions, -1);
520                 return -1;
521         }
522
523         if (ast_rwlock_init(&tech_subscriptions_lock)) {
524                 ao2_ref(endpoint_subscriptions, -1);
525                 AST_VECTOR_FREE(&tech_subscriptions);
526                 return -1;
527         }
528
529         if (ast_msg_handler_register(&ari_msg_handler)) {
530                 ao2_ref(endpoint_subscriptions, -1);
531                 AST_VECTOR_FREE(&tech_subscriptions);
532                 ast_rwlock_destroy(&tech_subscriptions_lock);
533                 return -1;
534         }
535
536         return 0;
537 }