122e27d7f4f91da4c9e6812cb57aa321ae819914
[asterisk/asterisk.git] / res / res_sorcery_astdb.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 2013, Digium, Inc.
5  *
6  * Joshua Colp <jcolp@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 Sorcery Astdb Object Wizard
23  *
24  * \author Joshua Colp <jcolp@digium.com>
25  */
26
27 /*** MODULEINFO
28         <support_level>core</support_level>
29  ***/
30
31 #include "asterisk.h"
32
33 ASTERISK_REGISTER_FILE()
34
35 #include <regex.h>
36
37 #include "asterisk/module.h"
38 #include "asterisk/sorcery.h"
39 #include "asterisk/astdb.h"
40 #include "asterisk/json.h"
41
42 static void *sorcery_astdb_open(const char *data);
43 static int sorcery_astdb_create(const struct ast_sorcery *sorcery, void *data, void *object);
44 static void *sorcery_astdb_retrieve_id(const struct ast_sorcery *sorcery, void *data, const char *type, const char *id);
45 static void *sorcery_astdb_retrieve_fields(const struct ast_sorcery *sorcery, void *data, const char *type, const struct ast_variable *fields);
46 static void sorcery_astdb_retrieve_multiple(const struct ast_sorcery *sorcery, void *data, const char *type, struct ao2_container *objects,
47                                              const struct ast_variable *fields);
48 static void sorcery_astdb_retrieve_regex(const struct ast_sorcery *sorcery, void *data, const char *type, struct ao2_container *objects, const char *regex);
49 static int sorcery_astdb_update(const struct ast_sorcery *sorcery, void *data, void *object);
50 static int sorcery_astdb_delete(const struct ast_sorcery *sorcery, void *data, void *object);
51 static void sorcery_astdb_close(void *data);
52
53 static struct ast_sorcery_wizard astdb_object_wizard = {
54         .name = "astdb",
55         .open = sorcery_astdb_open,
56         .create = sorcery_astdb_create,
57         .retrieve_id = sorcery_astdb_retrieve_id,
58         .retrieve_fields = sorcery_astdb_retrieve_fields,
59         .retrieve_multiple = sorcery_astdb_retrieve_multiple,
60         .retrieve_regex = sorcery_astdb_retrieve_regex,
61         .update = sorcery_astdb_update,
62         .delete = sorcery_astdb_delete,
63         .close = sorcery_astdb_close,
64 };
65
66 /*! \brief Helper function which converts from a sorcery object set to a json object */
67 static struct ast_json *sorcery_objectset_to_json(const struct ast_variable *objectset)
68 {
69         struct ast_json *json = ast_json_object_create();
70         const struct ast_variable *field;
71
72         for (field = objectset; field; field = field->next) {
73                 struct ast_json *value = ast_json_string_create(field->value);
74
75                 if (!value) {
76                         ast_json_unref(json);
77                         return NULL;
78                 } else if (ast_json_object_set(json, field->name, value)) {
79                         ast_json_unref(json);
80                         return NULL;
81                 }
82         }
83
84         return json;
85 }
86
87 /*! \brief Helper function which converts a json object to a sorcery object set */
88 static struct ast_variable *sorcery_json_to_objectset(struct ast_json *json)
89 {
90         struct ast_json_iter *field;
91         struct ast_variable *objset = NULL;
92
93         for (field = ast_json_object_iter(json); field; field = ast_json_object_iter_next(json, field)) {
94                 struct ast_json *value = ast_json_object_iter_value(field);
95                 struct ast_variable *variable = ast_variable_new(ast_json_object_iter_key(field), ast_json_string_get(value), "");
96
97                 if (!variable) {
98                         ast_variables_destroy(objset);
99                         return NULL;
100                 }
101
102                 variable->next = objset;
103                 objset = variable;
104         }
105
106         return objset;
107 }
108
109 /*! \brief Helper function which compares two json objects and sees if they are equal, but only looks at the criteria provided */
110 static int sorcery_json_equal(struct ast_json *object, struct ast_json *criteria)
111 {
112         struct ast_json_iter *field;
113
114         for (field = ast_json_object_iter(criteria); field; field = ast_json_object_iter_next(criteria, field)) {
115                 struct ast_json *object_field = ast_json_object_get(object, ast_json_object_iter_key(field));
116
117                 if (!object_field || !ast_json_equal(object_field, ast_json_object_iter_value(field))) {
118                         return 0;
119                 }
120         }
121
122         return 1;
123 }
124
125 static int sorcery_astdb_create(const struct ast_sorcery *sorcery, void *data, void *object)
126 {
127         RAII_VAR(struct ast_json *, objset, ast_sorcery_objectset_json_create(sorcery, object), ast_json_unref);
128         RAII_VAR(char *, value, NULL, ast_json_free);
129         const char *prefix = data;
130         char family[strlen(prefix) + strlen(ast_sorcery_object_get_type(object)) + 2];
131
132         if (!objset || !(value = ast_json_dump_string(objset))) {
133                 return -1;
134         }
135
136         snprintf(family, sizeof(family), "%s/%s", prefix, ast_sorcery_object_get_type(object));
137
138         return ast_db_put(family, ast_sorcery_object_get_id(object), value);
139 }
140
141 /*! \brief Internal helper function which retrieves an object, or multiple objects, using fields for criteria */
142 static void *sorcery_astdb_retrieve_fields_common(const struct ast_sorcery *sorcery, void *data, const char *type, const struct ast_variable *fields, struct ao2_container *objects)
143 {
144         const char *prefix = data;
145         char family[strlen(prefix) + strlen(type) + 2];
146         RAII_VAR(struct ast_db_entry *, entries, NULL, ast_db_freetree);
147         RAII_VAR(struct ast_json *, criteria, NULL, ast_json_unref);
148         struct ast_db_entry *entry;
149
150         snprintf(family, sizeof(family), "%s/%s", prefix, type);
151
152         if (!(entries = ast_db_gettree(family, NULL)) || (fields && !(criteria = sorcery_objectset_to_json(fields)))) {
153                 return NULL;
154         }
155
156         for (entry = entries; entry; entry = entry->next) {
157                 const char *key = entry->key + strlen(family) + 2;
158                 RAII_VAR(struct ast_json *, json, NULL, ast_json_unref);
159                 struct ast_json_error error;
160                 RAII_VAR(struct ast_variable *, objset, NULL, ast_variables_destroy);
161                 void *object = NULL;
162
163                 if (!(json = ast_json_load_string(entry->data, &error))) {
164                         return NULL;
165                 } else if (criteria && !sorcery_json_equal(json, criteria)) {
166                         continue;
167                 } else if (!(objset = sorcery_json_to_objectset(json)) ||
168                         !(object = ast_sorcery_alloc(sorcery, type, key)) ||
169                         ast_sorcery_objectset_apply(sorcery, object, objset)) {
170                         ao2_cleanup(object);
171                         return NULL;
172                 }
173
174                 if (!objects) {
175                         return object;
176                 }
177
178                 ao2_link(objects, object);
179                 ao2_cleanup(object);
180         }
181
182         return NULL;
183 }
184
185 static void *sorcery_astdb_retrieve_fields(const struct ast_sorcery *sorcery, void *data, const char *type, const struct ast_variable *fields)
186 {
187         return sorcery_astdb_retrieve_fields_common(sorcery, data, type, fields, NULL);
188 }
189
190 static void *sorcery_astdb_retrieve_id(const struct ast_sorcery *sorcery, void *data, const char *type, const char *id)
191 {
192         const char *prefix = data;
193         char family[strlen(prefix) + strlen(type) + 2];
194         RAII_VAR(char *, value, NULL, ast_free_ptr);
195         RAII_VAR(struct ast_json *, json, NULL, ast_json_unref);
196         struct ast_json_error error;
197         RAII_VAR(struct ast_variable *, objset, NULL, ast_variables_destroy);
198         void *object = NULL;
199
200         snprintf(family, sizeof(family), "%s/%s", prefix, type);
201
202         if (ast_db_get_allocated(family, id, &value) || !(json = ast_json_load_string(value, &error)) ||
203                 !(objset = sorcery_json_to_objectset(json)) || !(object = ast_sorcery_alloc(sorcery, type, id)) ||
204                 ast_sorcery_objectset_apply(sorcery, object, objset)) {
205                 ao2_cleanup(object);
206                 return NULL;
207         }
208
209         return object;
210 }
211
212 static void sorcery_astdb_retrieve_multiple(const struct ast_sorcery *sorcery, void *data, const char *type, struct ao2_container *objects, const struct ast_variable *fields)
213 {
214         sorcery_astdb_retrieve_fields_common(sorcery, data, type, fields, objects);
215 }
216
217 /*!
218  * \internal
219  * \brief Convert regex prefix pattern to astDB prefix pattern if possible.
220  *
221  * \param tree astDB prefix pattern buffer to fill.
222  * \param regex Extended regular expression with the start anchor character '^'.
223  *
224  * \note Since this is a helper function, the tree buffer is
225  * assumed to always be large enough.
226  *
227  * \retval 0 on success.
228  * \retval -1 on error.  regex is invalid.
229  */
230 static int make_astdb_prefix_pattern(char *tree, const char *regex)
231 {
232         const char *src;
233         char *dst;
234
235         for (dst = tree, src = regex + 1; *src; ++src) {
236                 if (*src == '\\') {
237                         /* Escaped regex char. */
238                         ++src;
239                         if (!*src) {
240                                 /* Invalid regex.  The caller escaped the string terminator. */
241                                 return -1;
242                         }
243                 } else if (*src == '$') {
244                         if (!src[1]) {
245                                 /* Remove the tail anchor character. */
246                                 *dst = '\0';
247                                 return 0;
248                         }
249                 } else if (strchr(".?*+{[(|", *src)) {
250                         /*
251                          * The regex is not a simple prefix pattern.
252                          *
253                          * XXX With more logic, it is possible to simply
254                          * use the current prefix pattern.  The last character
255                          * needs to be removed if possible when the current regex
256                          * token is "?*{".  Also the rest of the regex pattern
257                          * would need to be checked for subgroup/alternation.
258                          * Subgroup/alternation is too complex for a simple prefix
259                          * match.
260                          */
261                         dst = tree;
262                         break;
263                 }
264                 *dst++ = *src;
265         }
266         if (dst != tree) {
267                 *dst++ = '%';
268         }
269         *dst = '\0';
270         return 0;
271 }
272
273 static void sorcery_astdb_retrieve_regex(const struct ast_sorcery *sorcery, void *data, const char *type, struct ao2_container *objects, const char *regex)
274 {
275         const char *prefix = data;
276         char family[strlen(prefix) + strlen(type) + 2];
277         char tree[strlen(regex) + 1];
278         RAII_VAR(struct ast_db_entry *, entries, NULL, ast_db_freetree);
279         regex_t expression;
280         struct ast_db_entry *entry;
281
282         snprintf(family, sizeof(family), "%s/%s", prefix, type);
283
284         if (regex[0] == '^') {
285                 /*
286                  * For performance reasons, try to create an astDB prefix
287                  * pattern from the regex to reduce the number of entries
288                  * retrieved from astDB for regex to then match.
289                  */
290                 if (make_astdb_prefix_pattern(tree, regex)) {
291                         return;
292                 }
293         } else {
294                 tree[0] = '\0';
295         }
296
297         if (!(entries = ast_db_gettree(family, tree))
298                 || regcomp(&expression, regex, REG_EXTENDED | REG_NOSUB)) {
299                 return;
300         }
301
302         for (entry = entries; entry; entry = entry->next) {
303                 /* The key in the entry includes the family, so we need to strip it out for regex purposes */
304                 const char *key = entry->key + strlen(family) + 2;
305                 RAII_VAR(struct ast_json *, json, NULL, ast_json_unref);
306                 struct ast_json_error error;
307                 RAII_VAR(void *, object, NULL, ao2_cleanup);
308                 RAII_VAR(struct ast_variable *, objset, NULL, ast_variables_destroy);
309
310                 if (regexec(&expression, key, 0, NULL, 0)) {
311                         continue;
312                 } else if (!(json = ast_json_load_string(entry->data, &error)) ||
313                         !(objset = sorcery_json_to_objectset(json)) ||
314                         !(object = ast_sorcery_alloc(sorcery, type, key)) ||
315                         ast_sorcery_objectset_apply(sorcery, object, objset)) {
316                         regfree(&expression);
317                         return;
318                 }
319
320                 ao2_link(objects, object);
321         }
322
323         regfree(&expression);
324 }
325
326 static int sorcery_astdb_update(const struct ast_sorcery *sorcery, void *data, void *object)
327 {
328         const char *prefix = data;
329         char family[strlen(prefix) + strlen(ast_sorcery_object_get_type(object)) + 2], value[2];
330
331         snprintf(family, sizeof(family), "%s/%s", prefix, ast_sorcery_object_get_type(object));
332
333         /* It is okay for the value to be truncated, we are only checking that it exists */
334         if (ast_db_get(family, ast_sorcery_object_get_id(object), value, sizeof(value))) {
335                 return -1;
336         }
337
338         /* The only difference between update and create is that for update the object must already exist */
339         return sorcery_astdb_create(sorcery, data, object);
340 }
341
342 static int sorcery_astdb_delete(const struct ast_sorcery *sorcery, void *data, void *object)
343 {
344         const char *prefix = data;
345         char family[strlen(prefix) + strlen(ast_sorcery_object_get_type(object)) + 2];
346         char value[2];
347
348         snprintf(family, sizeof(family), "%s/%s", prefix, ast_sorcery_object_get_type(object));
349
350         if (ast_db_get(family, ast_sorcery_object_get_id(object), value, sizeof(value))) {
351                 return -1;
352         }
353
354         return ast_db_del(family, ast_sorcery_object_get_id(object));
355 }
356
357 static void *sorcery_astdb_open(const char *data)
358 {
359         /* We require a prefix for family string generation, or else stuff could mix together */
360         if (ast_strlen_zero(data)) {
361                 return NULL;
362         }
363
364         return ast_strdup(data);
365 }
366
367 static void sorcery_astdb_close(void *data)
368 {
369         ast_free(data);
370 }
371
372 static int load_module(void)
373 {
374         if (ast_sorcery_wizard_register(&astdb_object_wizard)) {
375                 return AST_MODULE_LOAD_DECLINE;
376         }
377
378         return AST_MODULE_LOAD_SUCCESS;
379 }
380
381 static int unload_module(void)
382 {
383         ast_sorcery_wizard_unregister(&astdb_object_wizard);
384         return 0;
385 }
386
387 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_GLOBAL_SYMBOLS | AST_MODFLAG_LOAD_ORDER, "Sorcery Astdb Object Wizard",
388         .support_level = AST_MODULE_SUPPORT_CORE,
389         .load = load_module,
390         .unload = unload_module,
391         .load_pri = AST_MODPRI_REALTIME_DRIVER,
392 );