Merged revisions 329614 via svnmerge from
[asterisk/asterisk.git] / cdr / cdr_sqlite3_custom.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 1999 - 2007, Digium, Inc.
5  *
6  * Mark Spencer <markster@digium.com> and others.
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  * \brief Custom SQLite3 CDR records.
22  *
23  * \author Adapted by Alejandro Rios <alejandro.rios@avatar.com.co> and
24  *  Russell Bryant <russell@digium.com> from
25  *  cdr_mysql_custom by Edward Eastman <ed@dm3.co.uk>,
26  *      and cdr_sqlite by Holger Schurig <hs4233@mail.mn-solutions.de>
27  *
28  *
29  * \arg See also \ref AstCDR
30  *
31  *
32  * \ingroup cdr_drivers
33  */
34
35 /*** MODULEINFO
36         <depend>sqlite3</depend>
37         <support_level>extended</support_level>
38  ***/
39
40 #include "asterisk.h"
41
42 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
43
44 #include <sqlite3.h>
45
46 #include "asterisk/paths.h"     /* use ast_config_AST_LOG_DIR */
47 #include "asterisk/channel.h"
48 #include "asterisk/cdr.h"
49 #include "asterisk/module.h"
50 #include "asterisk/config.h"
51 #include "asterisk/pbx.h"
52 #include "asterisk/utils.h"
53 #include "asterisk/cli.h"
54 #include "asterisk/app.h"
55
56 AST_MUTEX_DEFINE_STATIC(lock);
57
58 static const char config_file[] = "cdr_sqlite3_custom.conf";
59
60 static const char desc[] = "Customizable SQLite3 CDR Backend";
61 static const char name[] = "cdr_sqlite3_custom";
62 static sqlite3 *db = NULL;
63
64 static char table[80];
65 static char *columns;
66
67 struct values {
68         AST_LIST_ENTRY(values) list;
69         char expression[1];
70 };
71
72 static AST_LIST_HEAD_STATIC(sql_values, values);
73
74 static void free_config(int reload);
75
76 static int load_column_config(const char *tmp)
77 {
78         char *col = NULL;
79         char *cols = NULL, *save = NULL;
80         char *escaped = NULL;
81         struct ast_str *column_string = NULL;
82
83         if (ast_strlen_zero(tmp)) {
84                 ast_log(LOG_WARNING, "Column names not specified. Module not loaded.\n");
85                 return -1;
86         }
87         if (!(column_string = ast_str_create(1024))) {
88                 ast_log(LOG_ERROR, "Out of memory creating temporary buffer for column list for table '%s.'\n", table);
89                 return -1;
90         }
91         if (!(save = cols = ast_strdup(tmp))) {
92                 ast_log(LOG_ERROR, "Out of memory creating temporary buffer for column list for table '%s.'\n", table);
93                 ast_free(column_string);
94                 return -1;
95         }
96         while ((col = strsep(&cols, ","))) {
97                 col = ast_strip(col);
98                 escaped = sqlite3_mprintf("%q", col);
99                 if (!escaped) {
100                         ast_log(LOG_ERROR, "Out of memory creating entry for column '%s' in table '%s.'\n", col, table);
101                         ast_free(column_string);
102                         ast_free(save);
103                         return -1;
104                 }
105                 ast_str_append(&column_string, 0, "%s%s", ast_str_strlen(column_string) ? "," : "", escaped);
106                 sqlite3_free(escaped);
107         }
108         if (!(columns = ast_strdup(ast_str_buffer(column_string)))) {
109                 ast_log(LOG_ERROR, "Out of memory copying columns string for table '%s.'\n", table);
110                 ast_free(column_string);
111                 ast_free(save);
112                 return -1;
113         }
114         ast_free(column_string);
115         ast_free(save);
116
117         return 0;
118 }
119
120 static int load_values_config(const char *tmp)
121 {
122         char *vals = NULL, *save = NULL;
123         struct values *value = NULL;
124         int i;
125         AST_DECLARE_APP_ARGS(val,
126                 AST_APP_ARG(ues)[200]; /* More than 200 columns in this CDR?  Yeah, right... */
127         );
128
129         if (ast_strlen_zero(tmp)) {
130                 ast_log(LOG_WARNING, "Values not specified. Module not loaded.\n");
131                 return -1;
132         }
133         if (!(save = vals = ast_strdup(tmp))) {
134                 ast_log(LOG_ERROR, "Out of memory creating temporary buffer for value '%s'\n", tmp);
135                 return -1;
136         }
137         AST_STANDARD_RAW_ARGS(val, vals);
138         for (i = 0; i < val.argc; i++) {
139                 /* Strip the single quotes off if they are there */
140                 char *v = ast_strip_quoted(val.ues[i], "'", "'");
141                 value = ast_calloc(sizeof(char), sizeof(*value) + strlen(v));
142                 if (!value) {
143                         ast_log(LOG_ERROR, "Out of memory creating entry for value '%s'\n", v);
144                         ast_free(save);
145                         return -1;
146                 }
147                 strcpy(value->expression, v); /* SAFE */
148                 AST_LIST_INSERT_TAIL(&sql_values, value, list);
149         }
150         ast_free(save);
151
152         return 0;
153 }
154
155 static int load_config(int reload)
156 {
157         struct ast_config *cfg;
158         struct ast_flags config_flags = { reload ? CONFIG_FLAG_FILEUNCHANGED : 0 };
159         struct ast_variable *mappingvar;
160         const char *tmp;
161
162         if ((cfg = ast_config_load(config_file, config_flags)) == CONFIG_STATUS_FILEMISSING || cfg == CONFIG_STATUS_FILEINVALID) {
163                 ast_log(LOG_WARNING, "Failed to %sload configuration file. %s\n", reload ? "re" : "", reload ? "" : "Module not activated.");
164                 return -1;
165         } else if (cfg == CONFIG_STATUS_FILEUNCHANGED) {
166                 return 0;
167         }
168
169         if (reload) {
170                 free_config(1);
171         }
172
173         if (!(mappingvar = ast_variable_browse(cfg, "master"))) {
174                 /* Nothing configured */
175                 ast_config_destroy(cfg);
176                 return -1;
177         }
178
179         /* Mapping must have a table name */
180         if (!ast_strlen_zero(tmp = ast_variable_retrieve(cfg, "master", "table"))) {
181                 ast_copy_string(table, tmp, sizeof(table));
182         } else {
183                 ast_log(LOG_WARNING, "Table name not specified.  Assuming cdr.\n");
184                 strcpy(table, "cdr");
185         }
186
187         /* Columns */
188         if (load_column_config(ast_variable_retrieve(cfg, "master", "columns"))) {
189                 ast_config_destroy(cfg);
190                 free_config(0);
191                 return -1;
192         }
193
194         /* Values */
195         if (load_values_config(ast_variable_retrieve(cfg, "master", "values"))) {
196                 ast_config_destroy(cfg);
197                 free_config(0);
198                 return -1;
199         }
200
201         ast_verb(3, "cdr_sqlite3_custom: Logging CDR records to table '%s' in 'master.db'\n", table);
202
203         ast_config_destroy(cfg);
204
205         return 0;
206 }
207
208 static void free_config(int reload)
209 {
210         struct values *value;
211
212         if (!reload && db) {
213                 sqlite3_close(db);
214                 db = NULL;
215         }
216
217         if (columns) {
218                 ast_free(columns);
219                 columns = NULL;
220         }
221
222         while ((value = AST_LIST_REMOVE_HEAD(&sql_values, list))) {
223                 ast_free(value);
224         }
225 }
226
227 static int write_cdr(struct ast_cdr *cdr)
228 {
229         int res = 0;
230         char *error = NULL;
231         char *sql = NULL;
232         int count = 0;
233
234         if (db == NULL) {
235                 /* Should not have loaded, but be failsafe. */
236                 return 0;
237         }
238
239         ast_mutex_lock(&lock);
240
241         { /* Make it obvious that only sql should be used outside of this block */
242                 char *escaped;
243                 char subst_buf[2048];
244                 struct values *value;
245                 struct ast_channel *dummy;
246                 struct ast_str *value_string = ast_str_create(1024);
247
248                 dummy = ast_dummy_channel_alloc();
249                 if (!dummy) {
250                         ast_log(LOG_ERROR, "Unable to allocate channel for variable subsitution.\n");
251                         ast_free(value_string);
252                         ast_mutex_unlock(&lock);
253                         return 0;
254                 }
255                 dummy->cdr = ast_cdr_dup(cdr);
256                 AST_LIST_TRAVERSE(&sql_values, value, list) {
257                         pbx_substitute_variables_helper(dummy, value->expression, subst_buf, sizeof(subst_buf) - 1);
258                         escaped = sqlite3_mprintf("%q", subst_buf);
259                         ast_str_append(&value_string, 0, "%s'%s'", ast_str_strlen(value_string) ? "," : "", escaped);
260                         sqlite3_free(escaped);
261                 }
262                 sql = sqlite3_mprintf("INSERT INTO %q (%s) VALUES (%s)", table, columns, ast_str_buffer(value_string));
263                 ast_debug(1, "About to log: %s\n", sql);
264                 ast_channel_release(dummy);
265                 ast_free(value_string);
266         }
267
268         /* XXX This seems awful arbitrary... */
269         for (count = 0; count < 5; count++) {
270                 res = sqlite3_exec(db, sql, NULL, NULL, &error);
271                 if (res != SQLITE_BUSY && res != SQLITE_LOCKED) {
272                         break;
273                 }
274                 usleep(200);
275         }
276
277         if (error) {
278                 ast_log(LOG_ERROR, "%s. SQL: %s.\n", error, sql);
279                 sqlite3_free(error);
280         }
281
282         if (sql) {
283                 sqlite3_free(sql);
284         }
285
286         ast_mutex_unlock(&lock);
287
288         return res;
289 }
290
291 static int unload_module(void)
292 {
293         ast_cdr_unregister(name);
294
295         free_config(0);
296
297         return 0;
298 }
299
300 static int load_module(void)
301 {
302         char *error;
303         char filename[PATH_MAX];
304         int res;
305         char *sql;
306
307         if (load_config(0)) {
308                 return AST_MODULE_LOAD_DECLINE;
309         }
310
311         /* is the database there? */
312         snprintf(filename, sizeof(filename), "%s/master.db", ast_config_AST_LOG_DIR);
313         res = sqlite3_open(filename, &db);
314         if (res != SQLITE_OK) {
315                 ast_log(LOG_ERROR, "Could not open database %s.\n", filename);
316                 free_config(0);
317                 return AST_MODULE_LOAD_DECLINE;
318         }
319
320         /* is the table there? */
321         sql = sqlite3_mprintf("SELECT COUNT(AcctId) FROM %q;", table);
322         res = sqlite3_exec(db, sql, NULL, NULL, NULL);
323         sqlite3_free(sql);
324         if (res != SQLITE_OK) {
325                 /* We don't use %q for the column list here since we already escaped when building it */
326                 sql = sqlite3_mprintf("CREATE TABLE %q (AcctId INTEGER PRIMARY KEY, %s)", table, columns);
327                 res = sqlite3_exec(db, sql, NULL, NULL, &error);
328                 sqlite3_free(sql);
329                 if (res != SQLITE_OK) {
330                         ast_log(LOG_WARNING, "Unable to create table '%s': %s.\n", table, error);
331                         sqlite3_free(error);
332                         free_config(0);
333                         return AST_MODULE_LOAD_DECLINE;
334                 }
335         }
336
337         res = ast_cdr_register(name, desc, write_cdr);
338         if (res) {
339                 ast_log(LOG_ERROR, "Unable to register custom SQLite3 CDR handling\n");
340                 free_config(0);
341                 return AST_MODULE_LOAD_DECLINE;
342         }
343
344         return AST_MODULE_LOAD_SUCCESS;
345 }
346
347 static int reload(void)
348 {
349         int res = 0;
350
351         ast_mutex_lock(&lock);
352         res = load_config(1);
353         ast_mutex_unlock(&lock);
354
355         return res;
356 }
357
358 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_LOAD_ORDER, "SQLite3 Custom CDR Module",
359         .load = load_module,
360         .unload = unload_module,
361         .reload = reload,
362         .load_pri = AST_MODPRI_CDR_DRIVER,
363 );