Don't reload a configuration file if nothing has changed.
[asterisk/asterisk.git] / res / res_config_sqlite.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 2006, Proformatique
5  *
6  * Written by Richard Braun <rbraun@proformatique.com>
7  *
8  * Based on res_sqlite3 by Anthony Minessale II, 
9  * and res_config_mysql by Matthew Boehm
10  *
11  * See http://www.asterisk.org for more information about
12  * the Asterisk project. Please do not directly contact
13  * any of the maintainers of this project for assistance;
14  * the project provides a web site, mailing lists and IRC
15  * channels for your use.
16  *
17  * This program is free software, distributed under the terms of
18  * the GNU General Public License Version 2. See the LICENSE file
19  * at the top of the source tree.
20  */
21
22 /*!
23  * \page res_config_sqlite
24  * 
25  * \section intro_sec Presentation
26  * 
27  * res_config_sqlite is a module for the Asterisk Open Source PBX to 
28  * support SQLite 2 databases. It can be used to fetch configuration 
29  * from a database (static configuration files and/or using the Asterisk 
30  * RealTime Architecture - ARA).
31  * It can also be used to log CDR entries. Finally, it can be used for simple
32  * queries in the Dialplan. Note that Asterisk already comes with a module
33  * named cdr_sqlite. There are two reasons for including it in res_sqlite:
34  * the first is that rewriting it was a training to learn how to write a
35  * simple module for Asterisk, the other is to have the same database open for
36  * all kinds of operations, which improves reliability and performance.
37  * 
38  * There is already a module for SQLite 3 (named res_sqlite3) in the Asterisk
39  * addons. res_sqlite was developed because we, at Proformatique, are using
40  * PHP 4 in our embedded systems, and PHP 4 has no stable support for SQLite 3
41  * at this time. We also needed RealTime support.
42  * 
43  * \section conf_sec Configuration
44  * 
45  * The main configuration file is res_config_sqlite.conf. It must be readable or
46  * res_sqlite will fail to start. It is suggested to use the sample file
47  * in this package as a starting point. The file has only one section
48  * named <code>general</code>. Here are the supported parameters :
49  * 
50  * <dl>
51  *      <dt><code>dbfile</code></dt>
52  *      <dd>The absolute path to the SQLite database (the file can be non existent,
53  *                      res_sqlite will create it if is has the appropriate rights)</dd>
54  *      <dt><code>config_table</code></dt>
55  *      <dd>The table used for static configuration</dd>
56  *      <dt><code>cdr_table</code></dt>
57  *      <dd>The table used to store CDR entries (if ommitted, CDR support is
58  *                      disabled)</dd>
59  * </dl>
60  * 
61  * To use res_sqlite for static and/or RealTime configuration, refer to the
62  * Asterisk documentation. The file tables.sql can be used to create the
63  * needed tables.
64  * 
65  * The SQLITE() application is very similar to the MYSQL() application. You
66  * can find more details at
67  * <a href="http://voip-info.org/wiki/view/Asterisk+cmd+MYSQL">http://voip-info.org/wiki/view/Asterisk+cmd+MYSQL</a>.
68  * The main difference is that you cannot choose your database - it's the
69  * file set in the <code>dbfile</code> parameter. As a result, there is no
70  * Connect or Disconnect command, and there is no connid variable.
71  * 
72  * \section status_sec Driver status
73  * 
74  * The CLI command <code>show sqlite status</code> returns status information
75  * about the running driver. One information is more important than others:
76  * the number of registered virtual machines. A SQLite virtual machine is
77  * created each time a SQLITE() query command is used. If the number of
78  * registered virtual machines isn't 0 (or near 0, since one or more SQLITE()
79  * commands can be running when requesting the module status) and increases
80  * over time, this probably means that you're badly using the application
81  * and you're creating resource leaks. You should check your Dialplan and
82  * reload res_sqlite (by unloading and then loading again - reloading isn't
83  * supported)
84  * 
85  * \section credits_sec Credits
86  * 
87  * res_config_sqlite was developed by Richard Braun at the Proformatique company.
88  */
89
90 /*!
91  * \file 
92  * \brief res_sqlite module.
93  */
94
95 /*** MODULEINFO
96         <depend>sqlite</depend>
97  ***/
98
99 #include "asterisk.h"
100
101 #include <stdio.h>
102 #include <stdarg.h>
103 #include <stdlib.h>
104 #include <string.h>
105 #include <sqlite.h>
106
107 #include "asterisk/pbx.h"
108 #include "asterisk/cdr.h"
109 #include "asterisk/cli.h"
110 #include "asterisk/lock.h"
111 #include "asterisk/config.h"
112 #include "asterisk/logger.h"
113 #include "asterisk/module.h"
114 #include "asterisk/options.h"
115 #include "asterisk/linkedlists.h"
116
117 #define RES_SQLITE_NAME "res_sqlite"
118 #define RES_SQLITE_DRIVER "sqlite"
119 #define RES_SQLITE_APP_DRIVER "SQLITE"
120 #define RES_SQLITE_DESCRIPTION "Resource Module for SQLite 2"
121 #define RES_SQLITE_CONF_FILE "res_config_sqlite.conf"
122 #define RES_SQLITE_APP_SYNOPSIS "Dialplan access to SQLite 2"
123 #define RES_SQLITE_APP_DESCRIPTION \
124 "SQLITE(): " RES_SQLITE_APP_SYNOPSIS "\n"
125 #define RES_SQLITE_STATUS_SUMMARY \
126 "Show status information about the SQLite 2 driver"
127 #define RES_SQLITE_STATUS_USAGE \
128 "Usage: show sqlite status\n" \
129 "       " RES_SQLITE_STATUS_SUMMARY "\n"
130
131 enum {
132         RES_SQLITE_CONFIG_ID,
133         RES_SQLITE_CONFIG_COMMENTED,
134         RES_SQLITE_CONFIG_FILENAME,
135         RES_SQLITE_CONFIG_CATEGORY,
136         RES_SQLITE_CONFIG_VAR_NAME,
137         RES_SQLITE_CONFIG_VAR_VAL,
138         RES_SQLITE_CONFIG_COLUMNS,
139 };
140
141 /*!
142  * Limit the number of maximum simultaneous registered SQLite VMs to avoid
143  * a denial of service attack.
144  */
145 #define RES_SQLITE_VM_MAX 1024
146
147 #define SET_VAR(config, to, from) \
148 do \
149         { \
150                 int __error; \
151                 __error = set_var(&to, #to, from->value); \
152                 if (__error) \
153                         { \
154                                 ast_config_destroy(config); \
155                                 unload_config(); \
156                                 return 1; \
157                         } \
158         } \
159 while (0)
160
161 /*!
162  * Maximum number of loops before giving up executing a query. Calls to
163  * sqlite_xxx() functions which can return SQLITE_BUSY or SQLITE_LOCKED
164  * are enclosed by RES_SQLITE_BEGIN and RES_SQLITE_END, e.g.
165  * <pre>
166  * char *errormsg;
167  * int error;
168  * 
169  * RES_SQLITE_BEGIN
170  *       error = sqlite_exec(db, query, NULL, NULL, &errormsg);
171  * RES_SQLITE_END(error)
172  * 
173  * if (error)
174  *       ...;
175  * </pre>
176  */
177 #define RES_SQLITE_MAX_LOOPS 10
178
179 /*!
180  * Macro used before executing a query.
181  * 
182  * \see RES_SQLITE_MAX_LOOPS.
183  */
184 #define RES_SQLITE_BEGIN \
185 { \
186         int __i; \
187         for (__i = 0; __i < RES_SQLITE_MAX_LOOPS; __i++) \
188                 {
189
190 /*!
191  * Macro used after executing a query.
192  * 
193  * \see RES_SQLITE_MAX_LOOPS.
194  */
195 #define RES_SQLITE_END(error) \
196                         if (error != SQLITE_BUSY && error != SQLITE_LOCKED) \
197                                 break; \
198                         usleep(1000); \
199                 } \
200 }
201
202 /*!
203  * Structure sent to the SQLite callback function for static configuration.
204  * 
205  * \see add_cfg_entry()
206  */
207 struct cfg_entry_args {
208         struct ast_config *cfg;
209         struct ast_category *cat;
210         char *cat_name;
211 };
212
213 /*!
214  * Structure sent to the SQLite callback function for RealTime configuration.
215  * 
216  * \see add_rt_cfg_entry()
217  */
218 struct rt_cfg_entry_args {
219         struct ast_variable *var;
220         struct ast_variable *last;
221 };
222
223 /*!
224  * Structure sent to the SQLite callback function for RealTime configuration
225  * (realtime_multi_handler()).
226  * 
227  * \see add_rt_multi_cfg_entry()
228  */
229 struct rt_multi_cfg_entry_args {
230         struct ast_config *cfg;
231         char *initfield;
232 };
233
234 /*!
235  * \brief Allocate a variable.
236  * \param var the address of the variable to set (it will be allocated)
237  * \param name the name of the variable (for error handling)
238  * \param value the value to store in var
239  * \retval 0 on success
240  * \retval 1 if an allocation error occurred
241  */
242 static int set_var(char **var, char *name, char *value);
243
244 /*!
245  * \brief Load the configuration file.
246  * \see unload_config()
247  * 
248  * This function sets dbfile, config_table, and cdr_table. It calls
249  * check_vars() before returning, and unload_config() if an error occurred.
250  * 
251  * \retval 0 on success
252  * \retval 1 if an error occurred
253  */
254 static int load_config(void);
255
256 /*!
257  * \brief Free resources related to configuration.
258  * \see load_config()
259  */
260 static void unload_config(void);
261
262 /*!
263  * \brief Asterisk callback function for CDR support.
264  * \param cdr the CDR entry Asterisk sends us
265  * 
266  * Asterisk will call this function each time a CDR entry must be logged if
267  * CDR support is enabled.
268  * 
269  * \retval 0 on success
270  * \retval 1 if an error occurred
271  */
272 static int cdr_handler(struct ast_cdr *cdr);
273
274 /*!
275  * \brief SQLite callback function for static configuration.
276  * 
277  * This function is passed to the SQLite engine as a callback function to
278  * parse a row and store it in a struct ast_config object. It relies on
279  * resulting rows       being sorted by category.
280  * 
281  * \param arg a pointer to a struct cfg_entry_args object
282  * \param argc number of columns
283  * \param argv values in the row
284  * \param columnNames names and types of the columns
285  * \retval 0 on success
286  * \retval 1 if an error occurred
287  * \see cfg_entry_args
288  * \see sql_get_config_table
289  * \see config_handler()
290  */
291 static int add_cfg_entry(void *arg, int argc, char **argv, char **columnNames);
292
293 /*!
294  * \brief Asterisk callback function for static configuration.
295  * 
296  * Asterisk will call this function when it loads its static configuration,
297  * which usually happens at startup and reload.
298  * 
299  * \param database the database to use (ignored)
300  * \param table the table to use
301  * \param file the file to load from the database
302  * \param cfg the struct ast_config object to use when storing variables
303  * \param flags Optional flags.  Not used.
304  * \retval cfg object
305  * \retval NULL if an error occurred
306  * \see add_cfg_entry()
307  */
308 static struct ast_config * config_handler(const char *database,
309         const char *table, const char *file,
310         struct ast_config *cfg, struct ast_flags flags);
311
312 /*!
313  * \brief Helper function to parse a va_list object into 2 dynamic arrays of
314  * strings, parameters and values.
315  * 
316  * ap must have the following format : param1 val1 param2 val2 param3 val3 ...
317  * arguments will be extracted to create 2 arrays:
318  * 
319  * <ul>
320  *      <li>params : param1 param2 param3 ...</li>
321  *      <li>vals : val1 val2 val3 ...</li>
322  * </ul>
323  * 
324  * The address of these arrays are stored in params_ptr and vals_ptr. It
325  * is the responsibility of the caller to release the memory of these arrays.
326  * It is considered an error that va_list has a null or odd number of strings.
327  * 
328  * \param ap the va_list object to parse
329  * \param params_ptr where the address of the params array is stored
330  * \param vals_ptr where the address of the vals array is stored
331  * \retval the number of elements in the arrays (which have the same size).
332  * \retval 0 if an error occurred.
333  */
334 static size_t get_params(va_list ap, const char ***params_ptr,
335         const char ***vals_ptr);
336
337 /*!
338  * \brief SQLite callback function for RealTime configuration.
339  * 
340  * This function is passed to the SQLite engine as a callback function to
341  * parse a row and store it in a linked list of struct ast_variable objects.
342  * 
343  * \param arg a pointer to a struct rt_cfg_entry_args object
344  * \param argc number of columns
345  * \param argv values in the row
346  * \param columnNames names and types of the columns
347  * \retval 0 on success.
348  * \retval 1 if an error occurred.
349  * \see rt_cfg_entry_args
350  * \see realtime_handler()
351  */
352 static int add_rt_cfg_entry(void *arg, int argc, char **argv,
353         char **columnNames);
354
355 /*!
356  * Asterisk callback function for RealTime configuration.
357  * 
358  * Asterisk will call this function each time it requires a variable
359  * through the RealTime architecture. ap is a list of parameters and
360  * values used to find a specific row, e.g one parameter "name" and
361  * one value "123" so that the SQL query becomes <code>SELECT * FROM
362  * table WHERE name = '123';</code>.
363  * 
364  * \param database the database to use (ignored)
365  * \param table         the table to use
366  * \param ap                     list of parameters and values to match
367  *
368  * \retval a linked list of struct ast_variable objects
369  * \retval NULL if an error occurred
370  * \see add_rt_cfg_entry()
371  */
372 static struct ast_variable * realtime_handler(const char *database,
373         const char *table, va_list ap);
374
375 /*!
376  * \brief SQLite callback function for RealTime configuration.
377  * 
378  * This function performs the same actions as add_rt_cfg_entry() except
379  * that the rt_multi_cfg_entry_args structure is designed to store
380  * categories in addition of variables.
381  * 
382  * \param arg a pointer to a struct rt_multi_cfg_entry_args object
383  * \param argc number of columns
384  * \param argv values in the row
385  * \param columnNames names and types of the columns
386  * \retval 0 on success.
387  * \retval 1 if an error occurred.
388  * \see rt_multi_cfg_entry_args
389  * \see realtime_multi_handler()
390  */
391 static int add_rt_multi_cfg_entry(void *arg, int argc, char **argv,
392         char **columnNames);
393
394 /*!
395  * \brief Asterisk callback function for RealTime configuration.
396  * 
397  * This function performs the same actions as realtime_handler() except
398  * that it can store variables per category, and can return several
399  * categories.
400  * 
401  * \param database the database to use (ignored)
402  * \param table the table to use
403  * \param ap list of parameters and values to match
404  * \retval a struct ast_config object storing categories and variables.
405  * \retval NULL if an error occurred.
406  *
407  * \see add_rt_multi_cfg_entry()
408  */
409 static struct ast_config * realtime_multi_handler(const char *database,
410         const char *table,
411         va_list ap);
412
413 /*!
414  * \brief Asterisk callback function for RealTime configuration (variable
415  * update).
416  * 
417  * Asterisk will call this function each time a variable has been modified
418  * internally and must be updated in the backend engine. keyfield and entity
419  * are used to find the row to update, e.g. <code>UPDATE table SET ... WHERE
420  * keyfield = 'entity';</code>. ap is a list of parameters and values with the
421  * same format as the other realtime functions.
422  * 
423  * \param database the database to use (ignored)
424  * \param table the table to use
425  * \param keyfield the column of the matching cell
426  * \param entity the value of the matching cell
427  * \param ap list of parameters and new values to update in the database
428  * \retval the number of affected rows.
429  * \retval -1 if an error occurred.
430  */
431 static int realtime_update_handler(const char *database, const char *table,
432         const char *keyfield, const char *entity,
433         va_list ap);
434
435 /*!
436  * \brief Asterisk callback function for the CLI status command.
437  * 
438  * \param fd file descriptor provided by Asterisk to use with ast_cli()
439  * \param argc number of arguments
440  * \param argv arguments list
441  * \return RESULT_SUCCESS
442  */
443 static int cli_status(int fd, int argc, char *argv[]);
444
445 /*! The SQLite database object. */
446 static sqlite *db;
447
448 /*! Set to 1 if CDR support is enabled. */
449 static int use_cdr;
450
451 /*! Set to 1 if the CDR callback function was registered. */
452 static int cdr_registered;
453
454 /*! Set to 1 if the CLI status command callback function was registered. */
455 static int cli_status_registered;
456
457 /*! The path of the database file. */
458 static char *dbfile;
459
460 /*! The name of the static configuration table. */
461 static char *config_table;
462
463 /*! The name of the table used to store CDR entries. */
464 static char *cdr_table;
465
466 /*! The number of registered virtual machines. */
467 static int vm_count;
468
469 /*!
470  * The structure specifying all callback functions used by Asterisk for static
471  * and RealTime configuration.
472  */
473 static struct ast_config_engine sqlite_engine =
474 {
475         .name = RES_SQLITE_DRIVER,
476         .load_func = config_handler,
477         .realtime_func = realtime_handler,
478         .realtime_multi_func = realtime_multi_handler,
479         .update_func = realtime_update_handler
480 };
481
482 /*!
483  * The mutex used to prevent simultaneous access to the SQLite database.
484  * SQLite isn't always compiled with thread safety.
485  */
486 AST_MUTEX_DEFINE_STATIC(mutex);
487
488 /*!
489  * Structure containing details and callback functions for the CLI status
490  * command.
491  */
492 static struct ast_cli_entry cli_status_cmd =
493 {
494         .cmda = {"show", "sqlite", "status", NULL},
495         .handler = cli_status,
496         .summary = RES_SQLITE_STATUS_SUMMARY,
497         .usage = RES_SQLITE_STATUS_USAGE
498 };
499
500 /*
501  * Taken from Asterisk 1.2 cdr_sqlite.so.
502  */
503
504 /*! SQL query format to create the CDR table if non existent. */
505 static char *sql_create_cdr_table =
506 "CREATE TABLE '%q' ("
507 "       id              INTEGER PRIMARY KEY,"
508 "       clid            VARCHAR(80) NOT NULL DEFAULT '',"
509 "       src             VARCHAR(80) NOT NULL DEFAULT '',"
510 "       dst             VARCHAR(80) NOT NULL DEFAULT '',"
511 "       dcontext        VARCHAR(80) NOT NULL DEFAULT '',"
512 "       channel         VARCHAR(80) NOT NULL DEFAULT '',"
513 "       dstchannel      VARCHAR(80) NOT NULL DEFAULT '',"
514 "       lastapp         VARCHAR(80) NOT NULL DEFAULT '',"
515 "       lastdata        VARCHAR(80) NOT NULL DEFAULT '',"
516 "       start           CHAR(19) NOT NULL DEFAULT '0000-00-00 00:00:00',"
517 "       answer          CHAR(19) NOT NULL DEFAULT '0000-00-00 00:00:00',"
518 "       end             CHAR(19) NOT NULL DEFAULT '0000-00-00 00:00:00',"
519 "       duration        INT(11) NOT NULL DEFAULT '0',"
520 "       billsec         INT(11) NOT NULL DEFAULT '0',"
521 "       disposition     INT(11) NOT NULL DEFAULT '0',"
522 "       amaflags        INT(11) NOT NULL DEFAULT '0',"
523 "       accountcode     VARCHAR(20) NOT NULL DEFAULT '',"
524 "       uniqueid        VARCHAR(32) NOT NULL DEFAULT '',"
525 "       userfield       VARCHAR(255) NOT NULL DEFAULT ''"
526 ");";
527
528 /*! SQL query format to insert a CDR entry. */
529 static char *sql_add_cdr_entry =
530 "INSERT INTO '%q' ("
531 "                        clid,"
532 "       src,"
533 "       dst,"
534 "       dcontext,"
535 "       channel,"
536 "       dstchannel,"
537 "       lastapp,"
538 "       lastdata,"
539 "       start,"
540 "       answer,"
541 "       end,"
542 "       duration,"
543 "       billsec,"
544 "       disposition,"
545 "       amaflags,"
546 "       accountcode,"
547 "       uniqueid,"
548 "       userfield"
549 ") VALUES ("
550 "       '%q',"
551 "       '%q',"
552 "       '%q',"
553 "       '%q',"
554 "       '%q',"
555 "       '%q',"
556 "       '%q',"
557 "       '%q',"
558 "       datetime(%d,'unixepoch'),"
559 "       datetime(%d,'unixepoch'),"
560 "       datetime(%d,'unixepoch'),"
561 "       '%ld',"
562 "       '%ld',"
563 "       '%ld',"
564 "       '%ld',"
565 "       '%q',"
566 "       '%q',"
567 "       '%q'"
568 ");";
569
570 /*!
571  * SQL query format to fetch the static configuration of a file.
572  * Rows must be sorted by category.
573  * 
574  * \see add_cfg_entry()
575  */
576 static char *sql_get_config_table =
577 "SELECT *"
578 "       FROM '%q'"
579 "       WHERE filename = '%q' AND commented = 0"
580 "       ORDER BY category;";
581
582 static int set_var(char **var, char *name, char *value)
583 {
584         if (*var)
585                 ast_free(*var);
586
587         *var = ast_strdup(value);
588
589         if (!*var) {
590                 ast_log(LOG_WARNING, "Unable to allocate variable %s\n", name);
591                 return 1;
592         }
593
594         return 0;
595 }
596
597 static int check_vars(void)
598 {
599         if (!dbfile) {
600                 ast_log(LOG_ERROR, "Undefined parameter %s\n", dbfile);
601                 return 1;
602         }
603
604         use_cdr = (cdr_table != NULL);
605
606         return 0;
607 }
608
609 static int load_config(void)
610 {
611         struct ast_config *config;
612         struct ast_variable *var;
613         int error;
614         struct ast_flags config_flags = { 0 };
615
616         config = ast_config_load(RES_SQLITE_CONF_FILE, config_flags);
617
618         if (!config) {
619                 ast_log(LOG_ERROR, "Unable to load " RES_SQLITE_CONF_FILE "\n");
620                 return 1;
621         }
622
623         for (var = ast_variable_browse(config, "general"); var; var = var->next) {
624                 if (!strcasecmp(var->name, "dbfile"))
625                         SET_VAR(config, dbfile, var);
626                 else if (!strcasecmp(var->name, "config_table"))
627                         SET_VAR(config, config_table, var);
628                 else if (!strcasecmp(var->name, "cdr_table"))
629                         SET_VAR(config, cdr_table, var);
630                 else
631                         ast_log(LOG_WARNING, "Unknown parameter : %s\n", var->name);
632         }
633
634         ast_config_destroy(config);
635         error = check_vars();
636
637         if (error) {
638                 unload_config();
639                 return 1;
640         }
641
642         return 0;
643 }
644
645 static void unload_config(void)
646 {
647         ast_free(dbfile);
648         dbfile = NULL;
649         ast_free(config_table);
650         config_table = NULL;
651         ast_free(cdr_table);
652         cdr_table = NULL;
653 }
654
655 static int cdr_handler(struct ast_cdr *cdr)
656 {
657         char *errormsg;
658         int error;
659
660         ast_mutex_lock(&mutex);
661
662         RES_SQLITE_BEGIN
663                 error = sqlite_exec_printf(db, sql_add_cdr_entry, NULL, NULL, &errormsg,
664                                          cdr_table, cdr->clid, cdr->src, cdr->dst,
665                                          cdr->dcontext, cdr->channel, cdr->dstchannel,
666                                          cdr->lastapp, cdr->lastdata, cdr->start.tv_sec,
667                                          cdr->answer.tv_sec, cdr->end.tv_sec,
668                                          cdr->duration, cdr->billsec, cdr->disposition,
669                                          cdr->amaflags, cdr->accountcode, cdr->uniqueid,
670                                          cdr->userfield);
671         RES_SQLITE_END(error)
672
673         ast_mutex_unlock(&mutex);
674
675         if (error) {
676                 ast_log(LOG_ERROR, "%s\n", errormsg);
677                 ast_free(errormsg);
678                 return 1;
679         }
680
681         return 0;
682 }
683
684 static int add_cfg_entry(void *arg, int argc, char **argv, char **columnNames)
685 {
686         struct cfg_entry_args *args;
687         struct ast_variable *var;
688
689         if (argc != RES_SQLITE_CONFIG_COLUMNS) {
690                 ast_log(LOG_WARNING, "Corrupt table\n");
691                 return 1;
692         }
693
694         args = arg;
695
696         if (!args->cat_name || strcmp(args->cat_name, argv[RES_SQLITE_CONFIG_CATEGORY])) {
697                 args->cat = ast_category_new(argv[RES_SQLITE_CONFIG_CATEGORY]);
698
699                 if (!args->cat) {
700                         ast_log(LOG_WARNING, "Unable to allocate category\n");
701                         return 1;
702                 }
703
704                 ast_free(args->cat_name);
705                 args->cat_name = ast_strdup(argv[RES_SQLITE_CONFIG_CATEGORY]);
706
707                 if (!args->cat_name) {
708                         ast_category_destroy(args->cat);
709                         return 1;
710                 }
711
712                 ast_category_append(args->cfg, args->cat);
713         }
714
715         var = ast_variable_new(argv[RES_SQLITE_CONFIG_VAR_NAME],
716                  argv[RES_SQLITE_CONFIG_VAR_VAL]);
717
718         if (!var) {
719                 ast_log(LOG_WARNING, "Unable to allocate variable");
720                 return 1;
721         }
722
723         ast_variable_append(args->cat, var);
724         
725         return 0;
726 }
727
728 static struct ast_config *config_handler(const char *database, 
729         const char *table, const char *file, struct ast_config *cfg, struct ast_flags flags)
730 {
731         struct cfg_entry_args args;
732         char *errormsg;
733         int error;
734
735         if (!config_table) {
736                 if (!table) {
737                         ast_log(LOG_ERROR, "Table name unspecified\n");
738                         return NULL;
739                 }
740         } else
741                 table = config_table;
742
743         args.cfg = cfg;
744         args.cat = NULL;
745         args.cat_name = NULL;
746
747         ast_mutex_lock(&mutex);
748
749         RES_SQLITE_BEGIN
750                 error = sqlite_exec_printf(db, sql_get_config_table, add_cfg_entry,
751                                         &args, &errormsg, table, file);
752         RES_SQLITE_END(error)
753
754         ast_mutex_unlock(&mutex);
755
756         ast_free(args.cat_name);
757
758         if (error) {
759                 ast_log(LOG_ERROR, "%s\n", errormsg);
760                 ast_free(errormsg);
761                 return NULL;
762         }
763
764         return cfg;
765 }
766
767 static size_t get_params(va_list ap, const char ***params_ptr, const char ***vals_ptr)
768 {
769         const char **tmp, *param, *val, **params, **vals;
770         size_t params_count;
771
772         params = NULL;
773         vals = NULL;
774         params_count = 0;
775
776         while ((param = va_arg(ap, const char *)) && (val = va_arg(ap, const char *))) {
777                 if (!(tmp = ast_realloc(params, (params_count + 1) * sizeof(char *)))) {
778                         ast_free(params);
779                         ast_free(vals);
780                         return 0;
781                 }
782                 params = tmp;
783
784                 if (!(tmp = ast_realloc(vals, (params_count + 1) * sizeof(char *)))) {
785                         ast_free(params);
786                         ast_free(vals);
787                         return 0;
788                 }
789                 vals = tmp;
790
791                 params[params_count] = param;
792                 vals[params_count] = val;
793                 params_count++;
794         }
795
796         if (params_count > 0) {
797                 *params_ptr = params;
798                 *vals_ptr = vals;
799         } else
800                 ast_log(LOG_WARNING, "1 parameter and 1 value at least required\n");
801
802         return params_count;
803 }
804
805 static int add_rt_cfg_entry(void *arg, int argc, char **argv, char **columnNames)
806 {
807         struct rt_cfg_entry_args *args;
808         struct ast_variable *var;
809         int i;
810
811         args = arg;
812
813         for (i = 0; i < argc; i++) {
814                 if (!argv[i])
815                         continue;
816
817                 if (!(var = ast_variable_new(columnNames[i], argv[i])))
818                         return 1;
819
820                 if (!args->var)
821                         args->var = var;
822
823                 if (!args->last)
824                         args->last = var;
825                 else {
826                         args->last->next = var;
827                         args->last = var;
828                 }
829         }
830
831         return 0;
832 }
833
834 static struct ast_variable *
835 realtime_handler(const char *database, const char *table, va_list ap)
836 {
837         char *query, *errormsg, *op, *tmp_str;
838         struct rt_cfg_entry_args args;
839         const char **params, **vals;
840         size_t params_count;
841         int error;
842
843         if (!table) {
844                 ast_log(LOG_WARNING, "Table name unspecified\n");
845                 return NULL;
846         }
847
848         params_count = get_params(ap, &params, &vals);
849
850         if (params_count == 0)
851                 return NULL;
852
853         op = (strchr(params[0], ' ') == NULL) ? " =" : "";
854
855 /* \cond DOXYGEN_CAN_PARSE_THIS */
856 #undef QUERY
857 #define QUERY "SELECT * FROM '%q' WHERE commented = 0 AND %q%s '%q'"
858 /* \endcond */
859
860         query = sqlite_mprintf(QUERY, table, params[0], op, vals[0]);
861
862         if (!query) {
863                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
864                 ast_free(params);
865                 ast_free(vals);
866                 return NULL;
867         }
868
869         if (params_count > 1) {
870                 size_t i;
871
872                 for (i = 1; i < params_count; i++) {
873                         op = (strchr(params[i], ' ') == NULL) ? " =" : "";
874                         tmp_str = sqlite_mprintf("%s AND %q%s '%q'", query, params[i], op,
875                                                                                                                          vals[i]);
876                         sqlite_freemem(query);
877
878                         if (!tmp_str) {
879                                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
880                                 ast_free(params);
881                                 ast_free(vals);
882                                 return NULL;
883                         }
884
885                         query = tmp_str;
886                 }
887         }
888
889         ast_free(params);
890         ast_free(vals);
891
892         tmp_str = sqlite_mprintf("%s LIMIT 1;", query);
893         sqlite_freemem(query);
894
895         if (!tmp_str) {
896                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
897                 return NULL;
898         }
899
900         query = tmp_str;
901         ast_debug(1, "SQL query: %s\n", query);
902         args.var = NULL;
903         args.last = NULL;
904
905         ast_mutex_lock(&mutex);
906
907         RES_SQLITE_BEGIN
908                 error = sqlite_exec(db, query, add_rt_cfg_entry, &args, &errormsg);
909         RES_SQLITE_END(error)
910
911         ast_mutex_unlock(&mutex);
912
913         sqlite_freemem(query);
914
915         if (error) {
916                 ast_log(LOG_WARNING, "%s\n", errormsg);
917                 ast_free(errormsg);
918                 ast_variables_destroy(args.var);
919                 return NULL;
920         }
921
922         return args.var;
923 }
924
925 static int add_rt_multi_cfg_entry(void *arg, int argc, char **argv, char **columnNames)
926 {
927         struct rt_multi_cfg_entry_args *args;
928         struct ast_category *cat;
929         struct ast_variable *var;
930         char *cat_name;
931         size_t i;
932
933         args = (struct rt_multi_cfg_entry_args *)arg;
934         cat_name = NULL;
935
936         /*
937          * cat_name should always be set here, since initfield is forged from
938          * params[0] in realtime_multi_handler(), which is a search parameter
939          * of the SQL query.
940          */
941         for (i = 0; i < argc; i++) {
942                 if (!strcmp(args->initfield, columnNames[i]))
943                         cat_name = argv[i];
944         }
945
946         if (!cat_name) {
947                 ast_log(LOG_ERROR, "Bogus SQL results, cat_name is NULL !\n");
948                 return 1;
949         }
950
951         if (!(cat = ast_category_new(cat_name))) {
952                 ast_log(LOG_WARNING, "Unable to allocate category\n");
953                 return 1;
954         }
955
956         ast_category_append(args->cfg, cat);
957
958         for (i = 0; i < argc; i++) {
959                 if (!argv[i] || !strcmp(args->initfield, columnNames[i]))
960                         continue;
961
962                 if (!(var = ast_variable_new(columnNames[i], argv[i]))) {
963                         ast_log(LOG_WARNING, "Unable to allocate variable\n");
964                         return 1;
965                 }
966
967                 ast_variable_append(cat, var);
968         }
969
970         return 0;
971 }
972
973 static struct ast_config *realtime_multi_handler(const char *database, 
974         const char *table, va_list ap)
975 {
976         char *query, *errormsg, *op, *tmp_str, *initfield;
977         struct rt_multi_cfg_entry_args args;
978         const char **params, **vals;
979         struct ast_config *cfg;
980         size_t params_count;
981         int error;
982
983         if (!table) {
984                 ast_log(LOG_WARNING, "Table name unspecified\n");
985                 return NULL;
986         }
987
988         if (!(cfg = ast_config_new())) {
989                 ast_log(LOG_WARNING, "Unable to allocate configuration structure\n");
990                 return NULL;
991         }
992
993         if (!(params_count = get_params(ap, &params, &vals))) {
994                 ast_config_destroy(cfg);
995                 return NULL;
996         }
997
998         if (!(initfield = ast_strdup(params[0]))) {
999                 ast_config_destroy(cfg);
1000                 ast_free(params);
1001                 ast_free(vals);
1002                 return NULL;
1003         }
1004
1005         tmp_str = strchr(initfield, ' ');
1006
1007         if (tmp_str)
1008                 *tmp_str = '\0';
1009
1010         op = (!strchr(params[0], ' ')) ? " =" : "";
1011
1012         /*
1013          * Asterisk sends us an already escaped string when searching for
1014          * "exten LIKE" (uh!). Handle it separately.
1015          */
1016         tmp_str = (!strcmp(vals[0], "\\_%")) ? "_%" : (char *)vals[0];
1017
1018 /* \cond DOXYGEN_CAN_PARSE_THIS */
1019 #undef QUERY
1020 #define QUERY "SELECT * FROM '%q' WHERE commented = 0 AND %q%s '%q'"
1021 /* \endcond */
1022
1023         if (!(query = sqlite_mprintf(QUERY, table, params[0], op, tmp_str))) {
1024                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
1025                 ast_config_destroy(cfg);
1026                 ast_free(params);
1027                 ast_free(vals);
1028                 ast_free(initfield);
1029                 return NULL;
1030         }
1031
1032         if (params_count > 1) {
1033                 size_t i;
1034
1035                 for (i = 1; i < params_count; i++) {
1036                         op = (!strchr(params[i], ' ')) ? " =" : "";
1037                         tmp_str = sqlite_mprintf("%s AND %q%s '%q'", query, params[i], op,
1038                                                                                                                          vals[i]);
1039                         sqlite_freemem(query);
1040
1041                         if (!tmp_str) {
1042                                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1043                                 ast_config_destroy(cfg);
1044                                 ast_free(params);
1045                                 ast_free(vals);
1046                                 ast_free(initfield);
1047                                 return NULL;
1048                         }
1049
1050                         query = tmp_str;
1051                 }
1052         }
1053
1054         ast_free(params);
1055         ast_free(vals);
1056
1057         if (!(tmp_str = sqlite_mprintf("%s ORDER BY %q;", query, initfield))) {
1058                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1059                 ast_config_destroy(cfg);
1060                 ast_free(initfield);
1061                 return NULL;
1062         }
1063
1064         sqlite_freemem(query);
1065         query = tmp_str;
1066         ast_debug(1, "SQL query: %s\n", query);
1067         args.cfg = cfg;
1068         args.initfield = initfield;
1069
1070         ast_mutex_lock(&mutex);
1071
1072         RES_SQLITE_BEGIN
1073                 error = sqlite_exec(db, query, add_rt_multi_cfg_entry, &args, &errormsg);
1074         RES_SQLITE_END(error)
1075
1076         ast_mutex_unlock(&mutex);
1077
1078         sqlite_freemem(query);
1079         ast_free(initfield);
1080
1081         if (error) {
1082                 ast_log(LOG_WARNING, "%s\n", errormsg);
1083                 ast_free(errormsg);
1084                 ast_config_destroy(cfg);
1085                 return NULL;
1086         }
1087
1088         return cfg;
1089 }
1090
1091 static int realtime_update_handler(const char *database, const char *table,
1092         const char *keyfield, const char *entity,
1093         va_list ap)
1094 {
1095         char *query, *errormsg, *tmp_str;
1096         const char **params, **vals;
1097         size_t params_count;
1098         int error, rows_num;
1099
1100         if (!table) {
1101                 ast_log(LOG_WARNING, "Table name unspecified\n");
1102                 return -1;
1103         }
1104
1105         if (!(params_count = get_params(ap, &params, &vals)))
1106                 return -1;
1107
1108 /* \cond DOXYGEN_CAN_PARSE_THIS */
1109 #undef QUERY
1110 #define QUERY "UPDATE '%q' SET %q = '%q'"
1111 /* \endcond */
1112
1113         if (!(query = sqlite_mprintf(QUERY, table, params[0], vals[0]))) {
1114                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
1115                 ast_free(params);
1116                 ast_free(vals);
1117                 return -1;
1118         }
1119
1120         if (params_count > 1) {
1121                 size_t i;
1122
1123                 for (i = 1; i < params_count; i++) {
1124                         tmp_str = sqlite_mprintf("%s, %q = '%q'", query, params[i],
1125                                                                                                                          vals[i]);
1126                         sqlite_freemem(query);
1127
1128                         if (!tmp_str) {
1129                                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1130                                 ast_free(params);
1131                                 ast_free(vals);
1132                                 return -1;
1133                         }
1134
1135                         query = tmp_str;
1136                 }
1137         }
1138
1139         ast_free(params);
1140         ast_free(vals);
1141
1142         if (!(tmp_str = sqlite_mprintf("%s WHERE %q = '%q';", query, keyfield, entity))) {
1143                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1144                 return -1;
1145         }
1146
1147         sqlite_freemem(query);
1148         query = tmp_str;
1149         ast_debug(1, "SQL query: %s\n", query);
1150
1151         ast_mutex_lock(&mutex);
1152
1153         RES_SQLITE_BEGIN
1154                 error = sqlite_exec(db, query, NULL, NULL, &errormsg);
1155         RES_SQLITE_END(error)
1156
1157         if (!error)
1158                 rows_num = sqlite_changes(db);
1159         else
1160                 rows_num = -1;
1161
1162         ast_mutex_unlock(&mutex);
1163
1164         sqlite_freemem(query);
1165
1166         if (error) {
1167                 ast_log(LOG_WARNING, "%s\n", errormsg);
1168                 ast_free(errormsg);
1169         }
1170
1171         return rows_num;
1172 }
1173
1174 static int cli_status(int fd, int argc, char *argv[])
1175 {
1176         ast_cli(fd, "SQLite database path: %s\n", dbfile);
1177         ast_cli(fd, "config_table: ");
1178
1179         if (!config_table)
1180                 ast_cli(fd, "unspecified, must be present in extconfig.conf\n");
1181         else
1182                 ast_cli(fd, "%s\n", config_table);
1183
1184         ast_cli(fd, "cdr_table: ");
1185
1186         if (!cdr_table)
1187                 ast_cli(fd, "unspecified, CDR support disabled\n");
1188         else
1189                 ast_cli(fd, "%s\n", cdr_table);
1190
1191         return RESULT_SUCCESS;
1192 }
1193
1194 static int unload_module(void)
1195 {
1196         if (cli_status_registered)
1197                 ast_cli_unregister(&cli_status_cmd);
1198
1199         if (cdr_registered)
1200                 ast_cdr_unregister(RES_SQLITE_NAME);
1201
1202         ast_config_engine_deregister(&sqlite_engine);
1203
1204         if (db)
1205                 sqlite_close(db);
1206
1207         unload_config();
1208
1209         return 0;
1210 }
1211
1212 static int load_module(void)
1213 {
1214         char *errormsg;
1215         int error;
1216
1217         db = NULL;
1218         cdr_registered = 0;
1219         cli_status_registered = 0;
1220         dbfile = NULL;
1221         config_table = NULL;
1222         cdr_table = NULL;
1223         vm_count = 0;
1224         error = load_config();
1225
1226         if (error)
1227                 return AST_MODULE_LOAD_DECLINE;
1228
1229         if (!(db = sqlite_open(dbfile, 0660, &errormsg))) {
1230                 ast_log(LOG_ERROR, "%s\n", errormsg);
1231                 ast_free(errormsg);
1232                 unload_module();
1233                 return 1;
1234         }
1235
1236         ast_config_engine_register(&sqlite_engine);
1237
1238         if (use_cdr) {
1239                 RES_SQLITE_BEGIN
1240                         error = sqlite_exec_printf(db, "SELECT COUNT(id) FROM %Q;", NULL, NULL,
1241                                                                                                                                  &errormsg, cdr_table);
1242                 RES_SQLITE_END(error)
1243
1244                 if (error) {
1245                         /*
1246                          * Unexpected error.
1247                          */
1248                         if (error != SQLITE_ERROR) {
1249                                 ast_log(LOG_ERROR, "%s\n", errormsg);
1250                                 ast_free(errormsg);
1251                                 unload_module();
1252                                 return 1;
1253                         }
1254
1255                         RES_SQLITE_BEGIN
1256                                 error = sqlite_exec_printf(db, sql_create_cdr_table, NULL, NULL,
1257                                                                 &errormsg, cdr_table);
1258                         RES_SQLITE_END(error)
1259
1260                         if (error) {
1261                                 ast_log(LOG_ERROR, "%s\n", errormsg);
1262                                 ast_free(errormsg);
1263                                 unload_module();
1264                                 return 1;
1265                         }
1266                 }
1267
1268                 error = ast_cdr_register(RES_SQLITE_NAME, RES_SQLITE_DESCRIPTION,
1269                                                                                                                  cdr_handler);
1270
1271                 if (error) {
1272                         unload_module();
1273                         return 1;
1274                 }
1275
1276                 cdr_registered = 1;
1277         }
1278
1279         error = ast_cli_register(&cli_status_cmd);
1280
1281         if (error) {
1282                 unload_module();
1283                 return 1;
1284         }
1285
1286         cli_status_registered = 1;
1287
1288         return 0;
1289 }
1290
1291 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_GLOBAL_SYMBOLS, "Realtime SQLite configuration",
1292                 .load = load_module,
1293                 .unload = unload_module,
1294 );