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