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_config_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_config_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_config_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_config_sqlite will create it if it 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_config_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  * \section status_sec Driver status
  66  *
  67  * The CLI command <code>show sqlite status</code> returns status information
  68  * about the running driver.
  69  *
  70  * \section credits_sec Credits
  71  *
  72  * res_config_sqlite was developed by Richard Braun at the Proformatique company.
  73  */
  74
  75 /*!
  76  * \file
  77  * \brief res_config_sqlite module.
  78  */
  79
  80 /*** MODULEINFO
  81         <depend>sqlite</depend>
  82  ***/
  83
  84 #include "asterisk.h"
  85 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
  86
  87 #include <sqlite.h>
  88
  89 #include "asterisk/pbx.h"
  90 #include "asterisk/cdr.h"
  91 #include "asterisk/cli.h"
  92 #include "asterisk/lock.h"
  93 #include "asterisk/config.h"
  94 #include "asterisk/module.h"
  95 #include "asterisk/linkedlists.h"
  96
  97 #define MACRO_BEGIN     do {
  98 #define MACRO_END       } while (0)
  99
 100 #define RES_CONFIG_SQLITE_NAME "res_config_sqlite"
 101 #define RES_CONFIG_SQLITE_DRIVER "sqlite"
 102 #define RES_CONFIG_SQLITE_DESCRIPTION "Resource Module for SQLite 2"
 103 #define RES_CONFIG_SQLITE_CONF_FILE "res_config_sqlite.conf"
 104
 105 enum {
 106         RES_CONFIG_SQLITE_CONFIG_ID,
 107         RES_CONFIG_SQLITE_CONFIG_CAT_METRIC,
 108         RES_CONFIG_SQLITE_CONFIG_VAR_METRIC,
 109         RES_CONFIG_SQLITE_CONFIG_COMMENTED,
 110         RES_CONFIG_SQLITE_CONFIG_FILENAME,
 111         RES_CONFIG_SQLITE_CONFIG_CATEGORY,
 112         RES_CONFIG_SQLITE_CONFIG_VAR_NAME,
 113         RES_CONFIG_SQLITE_CONFIG_VAR_VAL,
 114         RES_CONFIG_SQLITE_CONFIG_COLUMNS,
 115 };
 116
 117 #define SET_VAR(config, to, from)                       \
 118 MACRO_BEGIN                                             \
 119         int __error;                                    \
 120                                                         \
 121         __error = set_var(&to, #to, from->value);       \
 122                                                         \
 123         if (__error) {                                  \
 124                 ast_config_destroy(config);             \
 125                 unload_config();                        \
 126                 return 1;                               \
 127         }                                               \
 128 MACRO_END
 129
 130 /*!
 131  * Maximum number of loops before giving up executing a query. Calls to
 132  * sqlite_xxx() functions which can return SQLITE_BUSY or SQLITE_LOCKED
 133  * are enclosed by RES_CONFIG_SQLITE_BEGIN and RES_CONFIG_SQLITE_END, e.g.
 134  * <pre>
 135  * char *errormsg;
 136  * int error;
 137  *
 138  * RES_CONFIG_SQLITE_BEGIN
 139  *       error = sqlite_exec(db, query, NULL, NULL, &errormsg);
 140  * RES_CONFIG_SQLITE_END(error)
 141  *
 142  * if (error)
 143  *       ...;
 144  * </pre>
 145  */
 146 #define RES_CONFIG_SQLITE_MAX_LOOPS 10
 147
 148 /*!
 149  * Macro used before executing a query.
 150  *
 151  * \see RES_CONFIG_SQLITE_MAX_LOOPS.
 152  */
 153 #define RES_CONFIG_SQLITE_BEGIN                                         \
 154 MACRO_BEGIN                                                             \
 155         int __i;                                                        \
 156                                                                         \
 157         for (__i = 0; __i < RES_CONFIG_SQLITE_MAX_LOOPS; __i++) {
 158
 159 /*!
 160  * Macro used after executing a query.
 161  *
 162  * \see RES_CONFIG_SQLITE_MAX_LOOPS.
 163  */
 164 #define RES_CONFIG_SQLITE_END(error)                                    \
 165                 if (error != SQLITE_BUSY && error != SQLITE_LOCKED)     \
 166                         break;                                          \
 167                 usleep(1000);                                           \
 168         }                                                               \
 169 MACRO_END;
 170
 171 /*!
 172  * Structure sent to the SQLite callback function for static configuration.
 173  *
 174  * \see add_cfg_entry()
 175  */
 176 struct cfg_entry_args {
 177         struct ast_config *cfg;
 178         struct ast_category *cat;
 179         char *cat_name;
 180         struct ast_flags flags;
 181 };
 182
 183 /*!
 184  * Structure sent to the SQLite callback function for RealTime configuration.
 185  *
 186  * \see add_rt_cfg_entry()
 187  */
 188 struct rt_cfg_entry_args {
 189         struct ast_variable *var;
 190         struct ast_variable *last;
 191 };
 192
 193 /*!
 194  * Structure sent to the SQLite callback function for RealTime configuration
 195  * (realtime_multi_handler()).
 196  *
 197  * \see add_rt_multi_cfg_entry()
 198  */
 199 struct rt_multi_cfg_entry_args {
 200         struct ast_config *cfg;
 201         char *initfield;
 202 };
 203
 204 /*!
 205  * \brief Allocate a variable.
 206  * \param var the address of the variable to set (it will be allocated)
 207  * \param name the name of the variable (for error handling)
 208  * \param value the value to store in var
 209  * \retval 0 on success
 210  * \retval 1 if an allocation error occurred
 211  */
 212 static int set_var(char **var, const char *name, const char *value);
 213
 214 /*!
 215  * \brief Load the configuration file.
 216  * \see unload_config()
 217  *
 218  * This function sets dbfile, config_table, and cdr_table. It calls
 219  * check_vars() before returning, and unload_config() if an error occurred.
 220  *
 221  * \retval 0 on success
 222  * \retval 1 if an error occurred
 223  */
 224 static int load_config(void);
 225
 226 /*!
 227  * \brief Free resources related to configuration.
 228  * \see load_config()
 229  */
 230 static void unload_config(void);
 231
 232 /*!
 233  * \brief Asterisk callback function for CDR support.
 234  * \param cdr the CDR entry Asterisk sends us.
 235  *
 236  * Asterisk will call this function each time a CDR entry must be logged if
 237  * CDR support is enabled.
 238  *
 239  * \retval 0 on success
 240  * \retval 1 if an error occurred
 241  */
 242 static int cdr_handler(struct ast_cdr *cdr);
 243
 244 /*!
 245  * \brief SQLite callback function for static configuration.
 246  *
 247  * This function is passed to the SQLite engine as a callback function to
 248  * parse a row and store it in a struct ast_config object. It relies on
 249  * resulting rows being sorted by category.
 250  *
 251  * \param arg a pointer to a struct cfg_entry_args object
 252  * \param argc number of columns
 253  * \param argv values in the row
 254  * \param columnNames names and types of the columns
 255  * \retval 0 on success
 256  * \retval 1 if an error occurred
 257  * \see cfg_entry_args
 258  * \see sql_get_config_table
 259  * \see config_handler()
 260  */
 261 static int add_cfg_entry(void *arg, int argc, char **argv, char **columnNames);
 262
 263 /*!
 264  * \brief Asterisk callback function for static configuration.
 265  *
 266  * Asterisk will call this function when it loads its static configuration,
 267  * which usually happens at startup and reload.
 268  *
 269  * \param database the database to use (ignored)
 270  * \param table the table to use
 271  * \param file the file to load from the database
 272  * \param cfg the struct ast_config object to use when storing variables
 273  * \param flags Optional flags.  Not used.
 274  * \param suggested_incl suggest include.
 275  * \retval cfg object
 276  * \retval NULL if an error occurred
 277  * \see add_cfg_entry()
 278  */
 279 static struct ast_config * config_handler(const char *database, const char *table, const char *file,
 280         struct ast_config *cfg, struct ast_flags flags, const char *suggested_incl);
 281
 282 /*!
 283  * \brief Helper function to parse a va_list object into 2 dynamic arrays of
 284  * strings, parameters and values.
 285  *
 286  * ap must have the following format : param1 val1 param2 val2 param3 val3 ...
 287  * arguments will be extracted to create 2 arrays:
 288  *
 289  * <ul>
 290  *      <li>params : param1 param2 param3 ...</li>
 291  *      <li>vals : val1 val2 val3 ...</li>
 292  * </ul>
 293  *
 294  * The address of these arrays are stored in params_ptr and vals_ptr. It
 295  * is the responsibility of the caller to release the memory of these arrays.
 296  * It is considered an error that va_list has a null or odd number of strings.
 297  *
 298  * \param ap the va_list object to parse
 299  * \param params_ptr where the address of the params array is stored
 300  * \param vals_ptr where the address of the vals array is stored
 301  * \retval the number of elements in the arrays (which have the same size).
 302  * \retval 0 if an error occurred.
 303  */
 304 static size_t get_params(va_list ap, const char ***params_ptr,
 305         const char ***vals_ptr);
 306
 307 /*!
 308  * \brief SQLite callback function for RealTime configuration.
 309  *
 310  * This function is passed to the SQLite engine as a callback function to
 311  * parse a row and store it in a linked list of struct ast_variable objects.
 312  *
 313  * \param arg a pointer to a struct rt_cfg_entry_args object
 314  * \param argc number of columns
 315  * \param argv values in the row
 316  * \param columnNames names and types of the columns
 317  * \retval 0 on success.
 318  * \retval 1 if an error occurred.
 319  * \see rt_cfg_entry_args
 320  * \see realtime_handler()
 321  */
 322 static int add_rt_cfg_entry(void *arg, int argc, char **argv,
 323         char **columnNames);
 324
 325 /*!
 326  * Asterisk callback function for RealTime configuration.
 327  *
 328  * Asterisk will call this function each time it requires a variable
 329  * through the RealTime architecture. ap is a list of parameters and
 330  * values used to find a specific row, e.g one parameter "name" and
 331  * one value "123" so that the SQL query becomes <code>SELECT * FROM
 332  * table WHERE name = '123';</code>.
 333  *
 334  * \param database the database to use (ignored)
 335  * \param table the table to use
 336  * \param ap list of parameters and values to match
 337  *
 338  * \retval a linked list of struct ast_variable objects
 339  * \retval NULL if an error occurred
 340  * \see add_rt_cfg_entry()
 341  */
 342 static struct ast_variable * realtime_handler(const char *database,
 343         const char *table, va_list ap);
 344
 345 /*!
 346  * \brief SQLite callback function for RealTime configuration.
 347  *
 348  * This function performs the same actions as add_rt_cfg_entry() except
 349  * that the rt_multi_cfg_entry_args structure is designed to store
 350  * categories in addition to variables.
 351  *
 352  * \param arg a pointer to a struct rt_multi_cfg_entry_args object
 353  * \param argc number of columns
 354  * \param argv values in the row
 355  * \param columnNames names and types of the columns
 356  * \retval 0 on success.
 357  * \retval 1 if an error occurred.
 358  * \see rt_multi_cfg_entry_args
 359  * \see realtime_multi_handler()
 360  */
 361 static int add_rt_multi_cfg_entry(void *arg, int argc, char **argv,
 362         char **columnNames);
 363
 364 /*!
 365  * \brief Asterisk callback function for RealTime configuration.
 366  *
 367  * This function performs the same actions as realtime_handler() except
 368  * that it can store variables per category, and can return several
 369  * categories.
 370  *
 371  * \param database the database to use (ignored)
 372  * \param table the table to use
 373  * \param ap list of parameters and values to match
 374  * \retval a struct ast_config object storing categories and variables.
 375  * \retval NULL if an error occurred.
 376  *
 377  * \see add_rt_multi_cfg_entry()
 378  */
 379 static struct ast_config * realtime_multi_handler(const char *database,
 380         const char *table, va_list ap);
 381
 382 /*!
 383  * \brief Asterisk callback function for RealTime configuration (variable
 384  * update).
 385  *
 386  * Asterisk will call this function each time a variable has been modified
 387  * internally and must be updated in the backend engine. keyfield and entity
 388  * are used to find the row to update, e.g. <code>UPDATE table SET ... WHERE
 389  * keyfield = 'entity';</code>. ap is a list of parameters and values with the
 390  * same format as the other realtime functions.
 391  *
 392  * \param database the database to use (ignored)
 393  * \param table the table to use
 394  * \param keyfield the column of the matching cell
 395  * \param entity the value of the matching cell
 396  * \param ap list of parameters and new values to update in the database
 397  * \retval the number of affected rows.
 398  * \retval -1 if an error occurred.
 399  */
 400 static int realtime_update_handler(const char *database, const char *table,
 401         const char *keyfield, const char *entity, va_list ap);
 402
 403 /*!
 404  * \brief Asterisk callback function for RealTime configuration (variable
 405  * create/store).
 406  *
 407  * Asterisk will call this function each time a variable has been created
 408  * internally and must be stored in the backend engine.
 409  * are used to find the row to update, e.g. ap is a list of parameters and
 410  * values with the same format as the other realtime functions.
 411  *
 412  * \param database the database to use (ignored)
 413  * \param table the table to use
 414  * \param ap list of parameters and new values to insert into the database
 415  * \retval the rowid of inserted row.
 416  * \retval -1 if an error occurred.
 417  */
 418 static int realtime_store_handler(const char *database, const char *table,
 419         va_list ap);
 420
 421 /*!
 422  * \brief Asterisk callback function for RealTime configuration (destroys
 423  * variable).
 424  *
 425  * Asterisk will call this function each time a variable has been destroyed
 426  * internally and must be removed from the backend engine. keyfield and entity
 427  * are used to find the row to delete, e.g. <code>DELETE FROM table WHERE
 428  * keyfield = 'entity';</code>. ap is a list of parameters and values with the
 429  * same format as the other realtime functions.
 430  *
 431  * \param database the database to use (ignored)
 432  * \param table the table to use
 433  * \param keyfield the column of the matching cell
 434  * \param entity the value of the matching cell
 435  * \param ap list of additional parameters for cell matching
 436  * \retval the number of affected rows.
 437  * \retval -1 if an error occurred.
 438  */
 439 static int realtime_destroy_handler(const char *database, const char *table,
 440         const char *keyfield, const char *entity, va_list ap);
 441
 442 /*!
 443  * \brief Asterisk callback function for the CLI status command.
 444  *
 445  * \param e CLI command
 446  * \param cmd
 447  * \param a CLI argument list
 448  * \return RESULT_SUCCESS
 449  */
 450 static char *handle_cli_show_sqlite_status(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a);
 451
 452 /*! The SQLite database object. */
 453 static sqlite *db;
 454
 455 /*! Set to 1 if CDR support is enabled. */
 456 static int use_cdr;
 457
 458 /*! Set to 1 if the CDR callback function was registered. */
 459 static int cdr_registered;
 460
 461 /*! Set to 1 if the CLI status command callback function was registered. */
 462 static int cli_status_registered;
 463
 464 /*! The path of the database file. */
 465 static char *dbfile;
 466
 467 /*! The name of the static configuration table. */
 468 static char *config_table;
 469
 470 /*! The name of the table used to store CDR entries. */
 471 static char *cdr_table;
 472
 473 /*!
 474  * The structure specifying all callback functions used by Asterisk for static
 475  * and RealTime configuration.
 476  */
 477 static struct ast_config_engine sqlite_engine =
 478 {
 479         .name = RES_CONFIG_SQLITE_DRIVER,
 480         .load_func = config_handler,
 481         .realtime_func = realtime_handler,
 482         .realtime_multi_func = realtime_multi_handler,
 483         .store_func = realtime_store_handler,
 484         .destroy_func = realtime_destroy_handler,
 485         .update_func = realtime_update_handler
 486 };
 487
 488 /*!
 489  * The mutex used to prevent simultaneous access to the SQLite database.
 490  */
 491 AST_MUTEX_DEFINE_STATIC(mutex);
 492
 493 /*!
 494  * Structure containing details and callback functions for the CLI status
 495  * command.
 496  */
 497 static struct ast_cli_entry cli_status[] = {
 498         AST_CLI_DEFINE(handle_cli_show_sqlite_status, "Show status information about the SQLite 2 driver"),
 499 };
 500
 501 /*
 502  * Taken from Asterisk 1.2 cdr_sqlite.so.
 503  */
 504
 505 /*! SQL query format to create the CDR table if non existent. */
 506 static char *sql_create_cdr_table =
 507 "CREATE TABLE '%q' (\n"
 508 "       id              INTEGER,\n"
 509 "       clid            VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 510 "       src             VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 511 "       dst             VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 512 "       dcontext        VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 513 "       channel         VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 514 "       dstchannel      VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 515 "       lastapp         VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 516 "       lastdata        VARCHAR(80)     NOT NULL        DEFAULT '',\n"
 517 "       start           DATETIME        NOT NULL        DEFAULT '0000-00-00 00:00:00',\n"
 518 "       answer          DATETIME        NOT NULL        DEFAULT '0000-00-00 00:00:00',\n"
 519 "       end             DATETIME        NOT NULL        DEFAULT '0000-00-00 00:00:00',\n"
 520 "       duration        INT(11)         NOT NULL        DEFAULT 0,\n"
 521 "       billsec         INT(11)         NOT NULL        DEFAULT 0,\n"
 522 "       disposition     VARCHAR(45)     NOT NULL        DEFAULT '',\n"
 523 "       amaflags        INT(11)         NOT NULL        DEFAULT 0,\n"
 524 "       accountcode     VARCHAR(20)     NOT NULL        DEFAULT '',\n"
 525 "       uniqueid        VARCHAR(32)     NOT NULL        DEFAULT '',\n"
 526 "       userfield       VARCHAR(255)    NOT NULL        DEFAULT '',\n"
 527 "       PRIMARY KEY     (id)\n"
 528 ");";
 529
 530 /*! SQL query format to insert a CDR entry. */
 531 static char *sql_add_cdr_entry =
 532 "INSERT INTO '%q' ("
 533 "       clid,"
 534 "       src,"
 535 "       dst,"
 536 "       dcontext,"
 537 "       channel,"
 538 "       dstchannel,"
 539 "       lastapp,"
 540 "       lastdata,"
 541 "       start,"
 542 "       answer,"
 543 "       end,"
 544 "       duration,"
 545 "       billsec,"
 546 "       disposition,"
 547 "       amaflags,"
 548 "       accountcode,"
 549 "       uniqueid,"
 550 "       userfield"
 551 ") VALUES ("
 552 "       '%q',"
 553 "       '%q',"
 554 "       '%q',"
 555 "       '%q',"
 556 "       '%q',"
 557 "       '%q',"
 558 "       '%q',"
 559 "       '%q',"
 560 "       datetime(%d,'unixepoch'),"
 561 "       datetime(%d,'unixepoch'),"
 562 "       datetime(%d,'unixepoch'),"
 563 "       '%ld',"
 564 "       '%ld',"
 565 "       '%ld',"
 566 "       '%ld',"
 567 "       '%q',"
 568 "       '%q',"
 569 "       '%q'"
 570 ");";
 571
 572 /*!
 573  * SQL query format to fetch the static configuration of a file.
 574  * Rows must be sorted by category.
 575  *
 576  * \see add_cfg_entry()
 577  */
 578 static char *sql_get_config_table =
 579 "SELECT *"
 580 "       FROM '%q'"
 581 "       WHERE filename = '%q' AND commented = 0"
 582 "       ORDER BY cat_metric ASC, var_metric ASC;";
 583
 584 static int set_var(char **var, const char *name, const char *value)
 585 {
 586         if (*var)
 587                 ast_free(*var);
 588
 589         *var = ast_strdup(value);
 590
 591         if (!*var) {
 592                 ast_log(LOG_WARNING, "Unable to allocate variable %s\n", name);
 593                 return 1;
 594         }
 595
 596         return 0;
 597 }
 598
 599 static int check_vars(void)
 600 {
 601         if (!dbfile) {
 602                 ast_log(LOG_ERROR, "Undefined parameter %s\n", dbfile);
 603                 return 1;
 604         }
 605
 606         use_cdr = (cdr_table != NULL);
 607
 608         return 0;
 609 }
 610
 611 static int load_config(void)
 612 {
 613         struct ast_config *config;
 614         struct ast_variable *var;
 615         int error;
 616         struct ast_flags config_flags = { 0 };
 617
 618         config = ast_config_load(RES_CONFIG_SQLITE_CONF_FILE, config_flags);
 619
 620         if (!config) {
 621                 ast_log(LOG_ERROR, "Unable to load " RES_CONFIG_SQLITE_CONF_FILE "\n");
 622                 return 1;
 623         }
 624
 625         for (var = ast_variable_browse(config, "general"); var; var = var->next) {
 626                 if (!strcasecmp(var->name, "dbfile"))
 627                         SET_VAR(config, dbfile, var);
 628                 else if (!strcasecmp(var->name, "config_table"))
 629                         SET_VAR(config, config_table, var);
 630                 else if (!strcasecmp(var->name, "cdr_table"))
 631                         SET_VAR(config, cdr_table, var);
 632                 else
 633                         ast_log(LOG_WARNING, "Unknown parameter : %s\n", var->name);
 634         }
 635
 636         ast_config_destroy(config);
 637         error = check_vars();
 638
 639         if (error) {
 640                 unload_config();
 641                 return 1;
 642         }
 643
 644         return 0;
 645 }
 646
 647 static void unload_config(void)
 648 {
 649         ast_free(dbfile);
 650         dbfile = NULL;
 651         ast_free(config_table);
 652         config_table = NULL;
 653         ast_free(cdr_table);
 654         cdr_table = NULL;
 655 }
 656
 657 static int cdr_handler(struct ast_cdr *cdr)
 658 {
 659         char *query, *errormsg;
 660         int error;
 661
 662         query = sqlite_mprintf(sql_add_cdr_entry, cdr_table, cdr->clid,
 663                         cdr->src, cdr->dst, cdr->dcontext, cdr->channel,
 664                         cdr->dstchannel, cdr->lastapp, cdr->lastdata,
 665                         cdr->start.tv_sec, cdr->answer.tv_sec,
 666                         cdr->end.tv_sec, cdr->duration, cdr->billsec,
 667                         cdr->disposition, cdr->amaflags, cdr->accountcode,
 668                         cdr->uniqueid, cdr->userfield);
 669
 670         if (!query) {
 671                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
 672                 return 1;
 673         }
 674
 675         ast_debug(1, "SQL query: %s\n", query);
 676
 677         ast_mutex_lock(&mutex);
 678
 679         RES_CONFIG_SQLITE_BEGIN
 680                 error = sqlite_exec(db, query, NULL, NULL, &errormsg);
 681         RES_CONFIG_SQLITE_END(error)
 682
 683         ast_mutex_unlock(&mutex);
 684
 685         sqlite_freemem(query);
 686
 687         if (error) {
 688                 ast_log(LOG_ERROR, "%s\n", errormsg);
 689                 sqlite_freemem(errormsg);
 690                 return 1;
 691         }
 692
 693         return 0;
 694 }
 695
 696 static int add_cfg_entry(void *arg, int argc, char **argv, char **columnNames)
 697 {
 698         struct cfg_entry_args *args;
 699         struct ast_variable *var;
 700
 701         if (argc != RES_CONFIG_SQLITE_CONFIG_COLUMNS) {
 702                 ast_log(LOG_WARNING, "Corrupt table\n");
 703                 return 1;
 704         }
 705
 706         args = arg;
 707
 708         if (!strcmp(argv[RES_CONFIG_SQLITE_CONFIG_VAR_NAME], "#include")) {
 709                 struct ast_config *cfg;
 710                 char *val;
 711
 712                 val = argv[RES_CONFIG_SQLITE_CONFIG_VAR_VAL];
 713                 cfg = ast_config_internal_load(val, args->cfg, args->flags, "");
 714
 715                 if (!cfg) {
 716                         ast_log(LOG_WARNING, "Unable to include %s\n", val);
 717                         return 1;
 718                 } else {
 719                         args->cfg = cfg;
 720                         return 0;
 721                 }
 722         }
 723
 724         if (!args->cat_name || strcmp(args->cat_name, argv[RES_CONFIG_SQLITE_CONFIG_CATEGORY])) {
 725                 args->cat = ast_category_new(argv[RES_CONFIG_SQLITE_CONFIG_CATEGORY], "", 99999);
 726
 727                 if (!args->cat) {
 728                         ast_log(LOG_WARNING, "Unable to allocate category\n");
 729                         return 1;
 730                 }
 731
 732                 ast_free(args->cat_name);
 733                 args->cat_name = ast_strdup(argv[RES_CONFIG_SQLITE_CONFIG_CATEGORY]);
 734
 735                 if (!args->cat_name) {
 736                         ast_category_destroy(args->cat);
 737                         return 1;
 738                 }
 739
 740                 ast_category_append(args->cfg, args->cat);
 741         }
 742
 743         var = ast_variable_new(argv[RES_CONFIG_SQLITE_CONFIG_VAR_NAME], argv[RES_CONFIG_SQLITE_CONFIG_VAR_VAL], "");
 744
 745         if (!var) {
 746                 ast_log(LOG_WARNING, "Unable to allocate variable");
 747                 return 1;
 748         }
 749
 750         ast_variable_append(args->cat, var);
 751
 752         return 0;
 753 }
 754
 755 static struct ast_config *config_handler(const char *database,  const char *table, const char *file,
 756         struct ast_config *cfg, struct ast_flags flags, const char *suggested_incl)
 757 {
 758         struct cfg_entry_args args;
 759         char *query, *errormsg;
 760         int error;
 761
 762         if (!config_table) {
 763                 if (!table) {
 764                         ast_log(LOG_ERROR, "Table name unspecified\n");
 765                         return NULL;
 766                 }
 767         } else
 768                 table = config_table;
 769
 770         query = sqlite_mprintf(sql_get_config_table, table, file);
 771
 772         if (!query) {
 773                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
 774                 return NULL;
 775         }
 776
 777         ast_debug(1, "SQL query: %s\n", query);
 778         args.cfg = cfg;
 779         args.cat = NULL;
 780         args.cat_name = NULL;
 781         args.flags = flags;
 782
 783         ast_mutex_lock(&mutex);
 784
 785         RES_CONFIG_SQLITE_BEGIN
 786                 error = sqlite_exec(db, query, add_cfg_entry, &args, &errormsg);
 787         RES_CONFIG_SQLITE_END(error)
 788
 789         ast_mutex_unlock(&mutex);
 790
 791         ast_free(args.cat_name);
 792         sqlite_freemem(query);
 793
 794         if (error) {
 795                 ast_log(LOG_ERROR, "%s\n", errormsg);
 796                 sqlite_freemem(errormsg);
 797                 return NULL;
 798         }
 799
 800         return cfg;
 801 }
 802
 803 static size_t get_params(va_list ap, const char ***params_ptr, const char ***vals_ptr)
 804 {
 805         const char **tmp, *param, *val, **params, **vals;
 806         size_t params_count;
 807
 808         params = NULL;
 809         vals = NULL;
 810         params_count = 0;
 811
 812         while ((param = va_arg(ap, const char *)) && (val = va_arg(ap, const char *))) {
 813                 if (!(tmp = ast_realloc(params, (params_count + 1) * sizeof(char *)))) {
 814                         ast_free(params);
 815                         ast_free(vals);
 816                         return 0;
 817                 }
 818                 params = tmp;
 819
 820                 if (!(tmp = ast_realloc(vals, (params_count + 1) * sizeof(char *)))) {
 821                         ast_free(params);
 822                         ast_free(vals);
 823                         return 0;
 824                 }
 825                 vals = tmp;
 826
 827                 params[params_count] = param;
 828                 vals[params_count] = val;
 829                 params_count++;
 830         }
 831
 832         if (params_count > 0) {
 833                 *params_ptr = params;
 834                 *vals_ptr = vals;
 835         } else
 836                 ast_log(LOG_WARNING, "1 parameter and 1 value at least required\n");
 837
 838         return params_count;
 839 }
 840
 841 static int add_rt_cfg_entry(void *arg, int argc, char **argv, char **columnNames)
 842 {
 843         struct rt_cfg_entry_args *args;
 844         struct ast_variable *var;
 845         int i;
 846
 847         args = arg;
 848
 849         for (i = 0; i < argc; i++) {
 850                 if (!argv[i])
 851                         continue;
 852
 853                 if (!(var = ast_variable_new(columnNames[i], argv[i], "")))
 854                         return 1;
 855
 856                 if (!args->var)
 857                         args->var = var;
 858
 859                 if (!args->last)
 860                         args->last = var;
 861                 else {
 862                         args->last->next = var;
 863                         args->last = var;
 864                 }
 865         }
 866
 867         return 0;
 868 }
 869
 870 static struct ast_variable * realtime_handler(const char *database, const char *table, va_list ap)
 871 {
 872         char *query, *errormsg, *op, *tmp_str;
 873         struct rt_cfg_entry_args args;
 874         const char **params, **vals;
 875         size_t params_count;
 876         int error;
 877
 878         if (!table) {
 879                 ast_log(LOG_WARNING, "Table name unspecified\n");
 880                 return NULL;
 881         }
 882
 883         params_count = get_params(ap, &params, &vals);
 884
 885         if (params_count == 0)
 886                 return NULL;
 887
 888         op = (strchr(params[0], ' ') == NULL) ? " =" : "";
 889
 890 /* \cond DOXYGEN_CAN_PARSE_THIS */
 891 #undef QUERY
 892 #define QUERY "SELECT * FROM '%q' WHERE commented = 0 AND %q%s '%q'"
 893 /* \endcond */
 894
 895         query = sqlite_mprintf(QUERY, table, params[0], op, vals[0]);
 896
 897         if (!query) {
 898                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
 899                 ast_free(params);
 900                 ast_free(vals);
 901                 return NULL;
 902         }
 903
 904         if (params_count > 1) {
 905                 size_t i;
 906
 907                 for (i = 1; i < params_count; i++) {
 908                         op = (strchr(params[i], ' ') == NULL) ? " =" : "";
 909                         tmp_str = sqlite_mprintf("%s AND %q%s '%q'", query, params[i], op, vals[i]);
 910                         sqlite_freemem(query);
 911
 912                         if (!tmp_str) {
 913                                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
 914                                 ast_free(params);
 915                                 ast_free(vals);
 916                                 return NULL;
 917                         }
 918
 919                         query = tmp_str;
 920                 }
 921         }
 922
 923         ast_free(params);
 924         ast_free(vals);
 925
 926         tmp_str = sqlite_mprintf("%s LIMIT 1;", query);
 927         sqlite_freemem(query);
 928
 929         if (!tmp_str) {
 930                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
 931                 return NULL;
 932         }
 933
 934         query = tmp_str;
 935         ast_debug(1, "SQL query: %s\n", query);
 936         args.var = NULL;
 937         args.last = NULL;
 938
 939         ast_mutex_lock(&mutex);
 940
 941         RES_CONFIG_SQLITE_BEGIN
 942                 error = sqlite_exec(db, query, add_rt_cfg_entry, &args, &errormsg);
 943         RES_CONFIG_SQLITE_END(error)
 944
 945         ast_mutex_unlock(&mutex);
 946
 947         sqlite_freemem(query);
 948
 949         if (error) {
 950                 ast_log(LOG_WARNING, "%s\n", errormsg);
 951                 sqlite_freemem(errormsg);
 952                 ast_variables_destroy(args.var);
 953                 return NULL;
 954         }
 955
 956         return args.var;
 957 }
 958
 959 static int add_rt_multi_cfg_entry(void *arg, int argc, char **argv, char **columnNames)
 960 {
 961         struct rt_multi_cfg_entry_args *args;
 962         struct ast_category *cat;
 963         struct ast_variable *var;
 964         char *cat_name;
 965         size_t i;
 966
 967         args = arg;
 968         cat_name = NULL;
 969
 970         /*
 971          * cat_name should always be set here, since initfield is forged from
 972          * params[0] in realtime_multi_handler(), which is a search parameter
 973          * of the SQL query.
 974          */
 975         for (i = 0; i < argc; i++) {
 976                 if (!strcmp(args->initfield, columnNames[i]))
 977                         cat_name = argv[i];
 978         }
 979
 980         if (!cat_name) {
 981                 ast_log(LOG_ERROR, "Bogus SQL results, cat_name is NULL !\n");
 982                 return 1;
 983         }
 984
 985         if (!(cat = ast_category_new(cat_name, "", 99999))) {
 986                 ast_log(LOG_WARNING, "Unable to allocate category\n");
 987                 return 1;
 988         }
 989
 990         ast_category_append(args->cfg, cat);
 991
 992         for (i = 0; i < argc; i++) {
 993                 if (!argv[i] || !strcmp(args->initfield, columnNames[i]))
 994                         continue;
 995
 996                 if (!(var = ast_variable_new(columnNames[i], argv[i], ""))) {
 997                         ast_log(LOG_WARNING, "Unable to allocate variable\n");
 998                         return 1;
 999                 }
1000
1001                 ast_variable_append(cat, var);
1002         }
1003
1004         return 0;
1005 }
1006
1007 static struct ast_config *realtime_multi_handler(const char *database,
1008         const char *table, va_list ap)
1009 {
1010         char *query, *errormsg, *op, *tmp_str, *initfield;
1011         struct rt_multi_cfg_entry_args args;
1012         const char **params, **vals;
1013         struct ast_config *cfg;
1014         size_t params_count;
1015         int error;
1016
1017         if (!table) {
1018                 ast_log(LOG_WARNING, "Table name unspecified\n");
1019                 return NULL;
1020         }
1021
1022         if (!(cfg = ast_config_new())) {
1023                 ast_log(LOG_WARNING, "Unable to allocate configuration structure\n");
1024                 return NULL;
1025         }
1026
1027         if (!(params_count = get_params(ap, &params, &vals))) {
1028                 ast_config_destroy(cfg);
1029                 return NULL;
1030         }
1031
1032         if (!(initfield = ast_strdup(params[0]))) {
1033                 ast_config_destroy(cfg);
1034                 ast_free(params);
1035                 ast_free(vals);
1036                 return NULL;
1037         }
1038
1039         tmp_str = strchr(initfield, ' ');
1040
1041         if (tmp_str)
1042                 *tmp_str = '\0';
1043
1044         op = (!strchr(params[0], ' ')) ? " =" : "";
1045
1046         /*
1047          * Asterisk sends us an already escaped string when searching for
1048          * "exten LIKE" (uh!). Handle it separately.
1049          */
1050         tmp_str = (!strcmp(vals[0], "\\_%")) ? "_%" : (char *)vals[0];
1051
1052 /* \cond DOXYGEN_CAN_PARSE_THIS */
1053 #undef QUERY
1054 #define QUERY "SELECT * FROM '%q' WHERE commented = 0 AND %q%s '%q'"
1055 /* \endcond */
1056
1057         if (!(query = sqlite_mprintf(QUERY, table, params[0], op, tmp_str))) {
1058                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
1059                 ast_config_destroy(cfg);
1060                 ast_free(params);
1061                 ast_free(vals);
1062                 ast_free(initfield);
1063                 return NULL;
1064         }
1065
1066         if (params_count > 1) {
1067                 size_t i;
1068
1069                 for (i = 1; i < params_count; i++) {
1070                         op = (!strchr(params[i], ' ')) ? " =" : "";
1071                         tmp_str = sqlite_mprintf("%s AND %q%s '%q'", query, params[i], op, vals[i]);
1072                         sqlite_freemem(query);
1073
1074                         if (!tmp_str) {
1075                                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1076                                 ast_config_destroy(cfg);
1077                                 ast_free(params);
1078                                 ast_free(vals);
1079                                 ast_free(initfield);
1080                                 return NULL;
1081                         }
1082
1083                         query = tmp_str;
1084                 }
1085         }
1086
1087         ast_free(params);
1088         ast_free(vals);
1089
1090         if (!(tmp_str = sqlite_mprintf("%s ORDER BY %q;", query, initfield))) {
1091                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1092                 ast_config_destroy(cfg);
1093                 ast_free(initfield);
1094                 return NULL;
1095         }
1096
1097         sqlite_freemem(query);
1098         query = tmp_str;
1099         ast_debug(1, "SQL query: %s\n", query);
1100         args.cfg = cfg;
1101         args.initfield = initfield;
1102
1103         ast_mutex_lock(&mutex);
1104
1105         RES_CONFIG_SQLITE_BEGIN
1106                 error = sqlite_exec(db, query, add_rt_multi_cfg_entry, &args, &errormsg);
1107         RES_CONFIG_SQLITE_END(error)
1108
1109         ast_mutex_unlock(&mutex);
1110
1111         sqlite_freemem(query);
1112         ast_free(initfield);
1113
1114         if (error) {
1115                 ast_log(LOG_WARNING, "%s\n", errormsg);
1116                 sqlite_freemem(errormsg);
1117                 ast_config_destroy(cfg);
1118                 return NULL;
1119         }
1120
1121         return cfg;
1122 }
1123
1124 static int realtime_update_handler(const char *database, const char *table,
1125         const char *keyfield, const char *entity, va_list ap)
1126 {
1127         char *query, *errormsg, *tmp_str;
1128         const char **params, **vals;
1129         size_t params_count;
1130         int error, rows_num;
1131
1132         if (!table) {
1133                 ast_log(LOG_WARNING, "Table name unspecified\n");
1134                 return -1;
1135         }
1136
1137         if (!(params_count = get_params(ap, &params, &vals)))
1138                 return -1;
1139
1140 /* \cond DOXYGEN_CAN_PARSE_THIS */
1141 #undef QUERY
1142 #define QUERY "UPDATE '%q' SET %q = '%q'"
1143 /* \endcond */
1144
1145         if (!(query = sqlite_mprintf(QUERY, table, params[0], vals[0]))) {
1146                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
1147                 ast_free(params);
1148                 ast_free(vals);
1149                 return -1;
1150         }
1151
1152         if (params_count > 1) {
1153                 size_t i;
1154
1155                 for (i = 1; i < params_count; i++) {
1156                         tmp_str = sqlite_mprintf("%s, %q = '%q'", query, params[i], vals[i]);
1157                         sqlite_freemem(query);
1158
1159                         if (!tmp_str) {
1160                                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1161                                 ast_free(params);
1162                                 ast_free(vals);
1163                                 return -1;
1164                         }
1165
1166                         query = tmp_str;
1167                 }
1168         }
1169
1170         ast_free(params);
1171         ast_free(vals);
1172
1173         if (!(tmp_str = sqlite_mprintf("%s WHERE %q = '%q';", query, keyfield, entity))) {
1174                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1175                 return -1;
1176         }
1177
1178         sqlite_freemem(query);
1179         query = tmp_str;
1180         ast_debug(1, "SQL query: %s\n", query);
1181
1182         ast_mutex_lock(&mutex);
1183
1184         RES_CONFIG_SQLITE_BEGIN
1185                 error = sqlite_exec(db, query, NULL, NULL, &errormsg);
1186         RES_CONFIG_SQLITE_END(error)
1187
1188         if (!error)
1189                 rows_num = sqlite_changes(db);
1190         else
1191                 rows_num = -1;
1192
1193         ast_mutex_unlock(&mutex);
1194
1195         sqlite_freemem(query);
1196
1197         if (error) {
1198                 ast_log(LOG_WARNING, "%s\n", errormsg);
1199                 sqlite_freemem(errormsg);
1200         }
1201
1202         return rows_num;
1203 }
1204
1205 static int realtime_store_handler(const char *database, const char *table, va_list ap) {
1206         char *errormsg, *tmp_str, *tmp_keys, *tmp_keys2, *tmp_vals, *tmp_vals2;
1207         const char **params, **vals;
1208         size_t params_count;
1209         int error, rows_id;
1210         size_t i;
1211
1212         if (!table) {
1213                 ast_log(LOG_WARNING, "Table name unspecified\n");
1214                 return -1;
1215         }
1216
1217         if (!(params_count = get_params(ap, &params, &vals)))
1218                 return -1;
1219
1220 /* \cond DOXYGEN_CAN_PARSE_THIS */
1221 #undef QUERY
1222 #define QUERY "INSERT into '%q' (%s) VALUES (%s);"
1223 /* \endcond */
1224
1225         tmp_keys2 = NULL;
1226         tmp_vals2 = NULL;
1227         for (i = 0; i < params_count; i++) {
1228                 if ( tmp_keys2 ) {
1229                         tmp_keys = sqlite_mprintf("%s, %q", tmp_keys2, params[i]);
1230                         sqlite_freemem(tmp_keys2);
1231                 } else {
1232                         tmp_keys = sqlite_mprintf("%q", params[i]);
1233                 }
1234                 if (!tmp_keys) {
1235                         ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1236                         ast_free(params);
1237                         ast_free(vals);
1238                         return -1;
1239                 }
1240
1241                 if ( tmp_vals2 ) {
1242                         tmp_vals = sqlite_mprintf("%s, '%q'", tmp_vals2, params[i]);
1243                         sqlite_freemem(tmp_vals2);
1244                 } else {
1245                         tmp_vals = sqlite_mprintf("'%q'", params[i]);
1246                 }
1247                 if (!tmp_vals) {
1248                         ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1249                         ast_free(params);
1250                         ast_free(vals);
1251                         return -1;
1252                 }
1253
1254
1255                 tmp_keys2 = tmp_keys;
1256                 tmp_vals2 = tmp_vals;
1257         }
1258
1259         ast_free(params);
1260         ast_free(vals);
1261
1262         if (!(tmp_str = sqlite_mprintf(QUERY, table, tmp_keys, tmp_vals))) {
1263                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1264                 return -1;
1265         }
1266
1267         sqlite_freemem(tmp_keys);
1268         sqlite_freemem(tmp_vals);
1269
1270         ast_debug(1, "SQL query: %s\n", tmp_str);
1271
1272         ast_mutex_lock(&mutex);
1273
1274         RES_CONFIG_SQLITE_BEGIN
1275                 error = sqlite_exec(db, tmp_str, NULL, NULL, &errormsg);
1276         RES_CONFIG_SQLITE_END(error)
1277
1278         if (!error) {
1279                 rows_id = sqlite_last_insert_rowid(db);
1280         } else {
1281                 rows_id = -1;
1282         }
1283
1284         ast_mutex_unlock(&mutex);
1285
1286         sqlite_freemem(tmp_str);
1287
1288         if (error) {
1289                 ast_log(LOG_WARNING, "%s\n", errormsg);
1290                 sqlite_freemem(errormsg);
1291         }
1292
1293         return rows_id;
1294 }
1295
1296 static int realtime_destroy_handler(const char *database, const char *table,
1297         const char *keyfield, const char *entity, va_list ap)
1298 {
1299         char *query, *errormsg, *tmp_str;
1300         const char **params, **vals;
1301         size_t params_count;
1302         int error, rows_num;
1303         size_t i;
1304
1305         if (!table) {
1306                 ast_log(LOG_WARNING, "Table name unspecified\n");
1307                 return -1;
1308         }
1309
1310         if (!(params_count = get_params(ap, &params, &vals)))
1311                 return -1;
1312
1313 /* \cond DOXYGEN_CAN_PARSE_THIS */
1314 #undef QUERY
1315 #define QUERY "DELETE FROM '%q' WHERE"
1316 /* \endcond */
1317
1318         if (!(query = sqlite_mprintf(QUERY, table))) {
1319                 ast_log(LOG_WARNING, "Unable to allocate SQL query\n");
1320                 ast_free(params);
1321                 ast_free(vals);
1322                 return -1;
1323         }
1324
1325         for (i = 0; i < params_count; i++) {
1326                 tmp_str = sqlite_mprintf("%s %q = '%q' AND", query, params[i], vals[i]);
1327                 sqlite_freemem(query);
1328
1329                 if (!tmp_str) {
1330                         ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1331                         ast_free(params);
1332                         ast_free(vals);
1333                         return -1;
1334                 }
1335
1336                 query = tmp_str;
1337         }
1338
1339         ast_free(params);
1340         ast_free(vals);
1341         if (!(tmp_str = sqlite_mprintf("%s %q = '%q';", query, keyfield, entity))) {
1342                 ast_log(LOG_WARNING, "Unable to reallocate SQL query\n");
1343                 return -1;
1344         }
1345         sqlite_freemem(query);
1346         query = tmp_str;
1347         ast_debug(1, "SQL query: %s\n", query);
1348
1349         ast_mutex_lock(&mutex);
1350
1351         RES_CONFIG_SQLITE_BEGIN
1352                 error = sqlite_exec(db, query, NULL, NULL, &errormsg);
1353         RES_CONFIG_SQLITE_END(error)
1354
1355         if (!error)
1356                 rows_num = sqlite_changes(db);
1357         else
1358                 rows_num = -1;
1359
1360         ast_mutex_unlock(&mutex);
1361
1362         sqlite_freemem(query);
1363
1364         if (error) {
1365                 ast_log(LOG_WARNING, "%s\n", errormsg);
1366                 sqlite_freemem(errormsg);
1367         }
1368
1369         return rows_num;
1370 }
1371
1372 static char *handle_cli_show_sqlite_status(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
1373 {
1374         switch (cmd) {
1375         case CLI_INIT:
1376                 e->command = "show sqlite status";
1377                 e->usage =
1378                         "Usage: show sqlite status\n"
1379                         "       Show status information about the SQLite 2 driver\n";
1380                 return NULL;
1381         case CLI_GENERATE:
1382                 return NULL;
1383         }
1384
1385         if (a->argc != 3)
1386                 return CLI_SHOWUSAGE;
1387
1388         ast_cli(a->fd, "SQLite database path: %s\n", dbfile);
1389         ast_cli(a->fd, "config_table: ");
1390
1391         if (!config_table)
1392                 ast_cli(a->fd, "unspecified, must be present in extconfig.conf\n");
1393         else
1394                 ast_cli(a->fd, "%s\n", config_table);
1395
1396         ast_cli(a->fd, "cdr_table: ");
1397
1398         if (!cdr_table)
1399                 ast_cli(a->fd, "unspecified, CDR support disabled\n");
1400         else
1401                 ast_cli(a->fd, "%s\n", cdr_table);
1402
1403         return CLI_SUCCESS;
1404 }
1405
1406 static int unload_module(void)
1407 {
1408         if (cli_status_registered)
1409                 ast_cli_unregister_multiple(cli_status, sizeof(cli_status) / sizeof(struct ast_cli_entry));
1410
1411         if (cdr_registered)
1412                 ast_cdr_unregister(RES_CONFIG_SQLITE_NAME);
1413
1414         ast_config_engine_deregister(&sqlite_engine);
1415
1416         if (db)
1417                 sqlite_close(db);
1418
1419         unload_config();
1420
1421         return 0;
1422 }
1423
1424 static int load_module(void)
1425 {
1426         char *errormsg;
1427         int error;
1428
1429         db = NULL;
1430         cdr_registered = 0;
1431         cli_status_registered = 0;
1432         dbfile = NULL;
1433         config_table = NULL;
1434         cdr_table = NULL;
1435         error = load_config();
1436
1437         if (error)
1438                 return AST_MODULE_LOAD_DECLINE;
1439
1440         if (!(db = sqlite_open(dbfile, 0660, &errormsg))) {
1441                 ast_log(LOG_ERROR, "%s\n", errormsg);
1442                 sqlite_freemem(errormsg);
1443                 unload_module();
1444                 return 1;
1445         }
1446
1447         ast_config_engine_register(&sqlite_engine);
1448
1449         if (use_cdr) {
1450                 char *query;
1451
1452 /* \cond DOXYGEN_CAN_PARSE_THIS */
1453 #undef QUERY
1454 #define QUERY "SELECT COUNT(id) FROM %Q;"
1455 /* \endcond */
1456
1457                 query = sqlite_mprintf(QUERY, cdr_table);
1458
1459                 if (!query) {
1460                         ast_log(LOG_ERROR, "Unable to allocate SQL query\n");
1461                         unload_module();
1462                         return 1;
1463                 }
1464
1465                 ast_debug(1, "SQL query: %s\n", query);
1466
1467                 RES_CONFIG_SQLITE_BEGIN
1468                         error = sqlite_exec(db, query, NULL, NULL, &errormsg);
1469                 RES_CONFIG_SQLITE_END(error)
1470
1471                 sqlite_freemem(query);
1472
1473                 if (error) {
1474                         /*
1475                          * Unexpected error.
1476                          */
1477                         if (error != SQLITE_ERROR) {
1478                                 ast_log(LOG_ERROR, "%s\n", errormsg);
1479                                 sqlite_freemem(errormsg);
1480                                 unload_module();
1481                                 return 1;
1482                         }
1483
1484                         sqlite_freemem(errormsg);
1485                         query = sqlite_mprintf(sql_create_cdr_table, cdr_table);
1486
1487                         if (!query) {
1488                                 ast_log(LOG_ERROR, "Unable to allocate SQL query\n");
1489                                 unload_module();
1490                                 return 1;
1491                         }
1492
1493                         ast_debug(1, "SQL query: %s\n", query);
1494
1495                         RES_CONFIG_SQLITE_BEGIN
1496                                 error = sqlite_exec(db, query, NULL, NULL, &errormsg);
1497                         RES_CONFIG_SQLITE_END(error)
1498
1499                         sqlite_freemem(query);
1500
1501                         if (error) {
1502                                 ast_log(LOG_ERROR, "%s\n", errormsg);
1503                                 sqlite_freemem(errormsg);
1504                                 unload_module();
1505                                 return 1;
1506                         }
1507                 }
1508
1509                 error = ast_cdr_register(RES_CONFIG_SQLITE_NAME, RES_CONFIG_SQLITE_DESCRIPTION, cdr_handler);
1510
1511                 if (error) {
1512                         unload_module();
1513                         return 1;
1514                 }
1515
1516                 cdr_registered = 1;
1517         }
1518
1519         error = ast_cli_register_multiple(cli_status, sizeof(cli_status) / sizeof(struct ast_cli_entry));
1520
1521         if (error) {
1522                 unload_module();
1523                 return 1;
1524         }
1525
1526         cli_status_registered = 1;
1527
1528         return 0;
1529 }
1530
1531 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_GLOBAL_SYMBOLS, "Realtime SQLite configuration",
1532                 .load = load_module,
1533                 .unload = unload_module,
1534 );