pbx/pbx_config.c

   1 /*
   2  * Asterisk -- An open source telephony toolkit.
   3  *
   4  * Copyright (C) 1999 - 2006, Digium, Inc.
   5  *
   6  * Mark Spencer <markster@digium.com>
   7  *
   8  * See http://www.asterisk.org for more information about
   9  * the Asterisk project. Please do not directly contact
  10  * any of the maintainers of this project for assistance;
  11  * the project provides a web site, mailing lists and IRC
  12  * channels for your use.
  13  *
  14  * This program is free software, distributed under the terms of
  15  * the GNU General Public License Version 2. See the LICENSE file
  16  * at the top of the source tree.
  17  */
  18
  19 /*! \file
  20  *
  21  * \brief Populate and remember extensions from static config file
  22  *
  23  *
  24  */
  25
  26 /*** MODULEINFO
  27         <support_level>core</support_level>
  28  ***/
  29
  30 #include "asterisk.h"
  31
  32 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
  33
  34 #include <ctype.h>
  35
  36 #include "asterisk/paths.h"     /* ast_config_AST_CONFIG_DIR */
  37 #include "asterisk/pbx.h"
  38 #include "asterisk/config.h"
  39 #include "asterisk/module.h"
  40 #include "asterisk/logger.h"
  41 #include "asterisk/cli.h"
  42 #include "asterisk/channel.h"   /* AST_MAX_EXTENSION */
  43 #include "asterisk/callerid.h"
  44
  45 static const char config[] = "extensions.conf";
  46 static const char registrar[] = "pbx_config";
  47 static char userscontext[AST_MAX_EXTENSION] = "default";
  48
  49 static int static_config = 0;
  50 static int write_protect_config = 1;
  51 static int autofallthrough_config = 1;
  52 static int clearglobalvars_config = 0;
  53 static int extenpatternmatchnew_config = 0;
  54 static char *overrideswitch_config = NULL;
  55
  56 AST_MUTEX_DEFINE_STATIC(save_dialplan_lock);
  57
  58 AST_MUTEX_DEFINE_STATIC(reload_lock);
  59
  60 static struct ast_context *local_contexts = NULL;
  61 static struct ast_hashtab *local_table = NULL;
  62 /*
  63  * Prototypes for our completion functions
  64  */
  65 static char *complete_dialplan_remove_include(struct ast_cli_args *);
  66 static char *complete_dialplan_add_include(struct ast_cli_args *);
  67 static char *complete_dialplan_remove_ignorepat(struct ast_cli_args *);
  68 static char *complete_dialplan_add_ignorepat(struct ast_cli_args *);
  69 static char *complete_dialplan_remove_extension(struct ast_cli_args *);
  70 static char *complete_dialplan_add_extension(struct ast_cli_args *);
  71
  72 /*
  73  * Implementation of functions provided by this module
  74  */
  75
  76 /*!
  77  * REMOVE INCLUDE command stuff
  78  */
  79 static char *handle_cli_dialplan_remove_include(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
  80 {
  81         switch (cmd) {
  82         case CLI_INIT:
  83                 e->command = "dialplan remove include";
  84                 e->usage =
  85                         "Usage: dialplan remove include <context> from <context>\n"
  86                         "       Remove an included context from another context.\n";
  87                 return NULL;
  88         case CLI_GENERATE:
  89                 return complete_dialplan_remove_include(a);
  90         }
  91
  92         if (a->argc != 6 || strcmp(a->argv[4], "from"))
  93                 return CLI_SHOWUSAGE;
  94
  95         if (!ast_context_remove_include(a->argv[5], a->argv[3], registrar)) {
  96                 ast_cli(a->fd, "We are not including '%s' into '%s' now\n",
  97                         a->argv[3], a->argv[5]);
  98                 return CLI_SUCCESS;
  99         }
 100
 101         ast_cli(a->fd, "Failed to remove '%s' include from '%s' context\n",
 102                 a->argv[3], a->argv[5]);
 103         return CLI_FAILURE;
 104 }
 105
 106 /*! \brief return true if 'name' is included by context c */
 107 static int lookup_ci(struct ast_context *c, const char *name)
 108 {
 109         struct ast_include *i = NULL;
 110
 111         if (ast_rdlock_context(c))      /* error, skip */
 112                 return 0;
 113         while ( (i = ast_walk_context_includes(c, i)) )
 114                 if (!strcmp(name, ast_get_include_name(i)))
 115                         break;
 116         ast_unlock_context(c);
 117         return i ? -1 /* success */ : 0;
 118 }
 119
 120 /*! \brief return true if 'name' is in the ignorepats for context c */
 121 static int lookup_c_ip(struct ast_context *c, const char *name)
 122 {
 123         struct ast_ignorepat *ip = NULL;
 124
 125         if (ast_rdlock_context(c))      /* error, skip */
 126                 return 0;
 127         while ( (ip = ast_walk_context_ignorepats(c, ip)) )
 128                 if (!strcmp(name, ast_get_ignorepat_name(ip)))
 129                         break;
 130         ast_unlock_context(c);
 131         return ip ? -1 /* success */ : 0;
 132 }
 133
 134 /*! \brief moves to the n-th word in the string, or empty string if none */
 135 static const char *skip_words(const char *p, int n)
 136 {
 137         int in_blank = 0;
 138         for (;n && *p; p++) {
 139                 if (isblank(*p) /* XXX order is important */ && !in_blank) {
 140                         n--;    /* one word is gone */
 141                         in_blank = 1;
 142                 } else if (/* !is_blank(*p), we know already, && */ in_blank) {
 143                         in_blank = 0;
 144                 }
 145         }
 146         return p;
 147 }
 148
 149 /*! \brief match the first 'len' chars of word. len==0 always succeeds */
 150 static int partial_match(const char *s, const char *word, int len)
 151 {
 152         return (len == 0 || !strncmp(s, word, len));
 153 }
 154
 155 /*! \brief split extension\@context in two parts, return -1 on error.
 156  * The return string is malloc'ed and pointed by *ext
 157  */
 158 static int split_ec(const char *src, char **ext, char ** const ctx, char ** const cid)
 159 {
 160         char *i, *c, *e = ast_strdup(src); /* now src is not used anymore */
 161
 162         if (e == NULL)
 163                 return -1;      /* malloc error */
 164         /* now, parse values from 'exten@context' */
 165         *ext = e;
 166         c = strchr(e, '@');
 167         if (c == NULL)  /* no context part */
 168                 *ctx = "";      /* it is not overwritten, anyways */
 169         else {  /* found context, check for duplicity ... */
 170                 *c++ = '\0';
 171                 *ctx = c;
 172                 if (strchr(c, '@')) { /* two @, not allowed */
 173                         free(e);
 174                         return -1;
 175                 }
 176         }
 177         if (cid && (i = strchr(e, '/'))) {
 178                 *i++ = '\0';
 179                 *cid = i;
 180         } else if (cid) {
 181                 /* Signal none detected */
 182                 *cid = NULL;
 183         }
 184         return 0;
 185 }
 186
 187 /* _X_ is the string we need to complete */
 188 static char *complete_dialplan_remove_include(struct ast_cli_args *a)
 189 {
 190         int which = 0;
 191         char *res = NULL;
 192         int len = strlen(a->word); /* how many bytes to match */
 193         struct ast_context *c = NULL;
 194
 195         if (a->pos == 3) {              /* "dialplan remove include _X_" */
 196                 if (ast_wrlock_contexts()) {
 197                         ast_log(LOG_ERROR, "Failed to lock context list\n");
 198                         return NULL;
 199                 }
 200                 /* walk contexts and their includes, return the n-th match */
 201                 while (!res && (c = ast_walk_contexts(c))) {
 202                         struct ast_include *i = NULL;
 203
 204                         if (ast_rdlock_context(c))      /* error ? skip this one */
 205                                 continue;
 206
 207                         while ( !res && (i = ast_walk_context_includes(c, i)) ) {
 208                                 const char *i_name = ast_get_include_name(i);
 209                                 struct ast_context *nc = NULL;
 210                                 int already_served = 0;
 211
 212                                 if (!partial_match(i_name, a->word, len))
 213                                         continue;       /* not matched */
 214
 215                                 /* check if this include is already served or not */
 216
 217                                 /* go through all contexts again till we reach actual
 218                                  * context or already_served = 1
 219                                  */
 220                                 while ( (nc = ast_walk_contexts(nc)) && nc != c && !already_served)
 221                                         already_served = lookup_ci(nc, i_name);
 222
 223                                 if (!already_served && ++which > a->n)
 224                                         res = strdup(i_name);
 225                         }
 226                         ast_unlock_context(c);
 227                 }
 228
 229                 ast_unlock_contexts();
 230                 return res;
 231         } else if (a->pos == 4) { /* "dialplan remove include CTX _X_" */
 232                 /*
 233                  * complete as 'from', but only if previous context is really
 234                  * included somewhere
 235                  */
 236                 char *context, *dupline;
 237                 const char *s = skip_words(a->line, 3); /* skip 'dialplan' 'remove' 'include' */
 238
 239                 if (a->n > 0)
 240                         return NULL;
 241                 context = dupline = strdup(s);
 242                 if (!dupline) {
 243                         ast_log(LOG_ERROR, "Out of free memory\n");
 244                         return NULL;
 245                 }
 246                 strsep(&dupline, " ");
 247
 248                 if (ast_rdlock_contexts()) {
 249                         ast_log(LOG_ERROR, "Failed to lock contexts list\n");
 250                         free(context);
 251                         return NULL;
 252                 }
 253
 254                 /* go through all contexts and check if is included ... */
 255                 while (!res && (c = ast_walk_contexts(c)))
 256                         if (lookup_ci(c, context)) /* context is really included, complete "from" command */
 257                                 res = strdup("from");
 258                 ast_unlock_contexts();
 259                 if (!res)
 260                         ast_log(LOG_WARNING, "%s not included anywhere\n", context);
 261                 free(context);
 262                 return res;
 263         } else if (a->pos == 5) { /* "dialplan remove include CTX from _X_" */
 264                 /*
 265                  * Context from which we removing include ...
 266                  */
 267                 char *context, *dupline, *from;
 268                 const char *s = skip_words(a->line, 3); /* skip 'dialplan' 'remove' 'include' */
 269                 context = dupline = strdup(s);
 270                 if (!dupline) {
 271                         ast_log(LOG_ERROR, "Out of free memory\n");
 272                         return NULL;
 273                 }
 274
 275                 strsep(&dupline, " "); /* skip context */
 276
 277                 /* fourth word must be 'from' */
 278                 from = strsep(&dupline, " ");
 279                 if (!from || strcmp(from, "from")) {
 280                         free(context);
 281                         return NULL;
 282                 }
 283
 284                 if (ast_rdlock_contexts()) {
 285                         ast_log(LOG_ERROR, "Failed to lock context list\n");
 286                         free(context);
 287                         return NULL;
 288                 }
 289
 290                 /* walk through all contexts ... */
 291                 c = NULL;
 292                 while ( !res && (c = ast_walk_contexts(c))) {
 293                         const char *c_name = ast_get_context_name(c);
 294                         if (!partial_match(c_name, a->word, len))       /* not a good target */
 295                                 continue;
 296                         /* walk through all includes and check if it is our context */
 297                         if (lookup_ci(c, context) && ++which > a->n)
 298                                 res = strdup(c_name);
 299                 }
 300                 ast_unlock_contexts();
 301                 free(context);
 302                 return res;
 303         }
 304
 305         return NULL;
 306 }
 307
 308 /*!
 309  * REMOVE EXTENSION command stuff
 310  */
 311 static char *handle_cli_dialplan_remove_extension(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
 312 {
 313         int removing_priority = 0;
 314         char *exten, *context, *cid;
 315         char *ret = CLI_FAILURE;
 316
 317         switch (cmd) {
 318         case CLI_INIT:
 319                 e->command = "dialplan remove extension";
 320                 e->usage =
 321                         "Usage: dialplan remove extension exten[/cid]@context [priority]\n"
 322                         "       Remove an extension from a given context. If a priority\n"
 323                         "       is given, only that specific priority from the given extension\n"
 324                         "       will be removed.\n";
 325                 return NULL;
 326         case CLI_GENERATE:
 327                 return complete_dialplan_remove_extension(a);
 328         }
 329
 330         if (a->argc != 5 && a->argc != 4)
 331                 return CLI_SHOWUSAGE;
 332
 333         /*
 334          * Priority input checking ...
 335          */
 336         if (a->argc == 5) {
 337                 const char *c = a->argv[4];
 338
 339                 /* check for digits in whole parameter for right priority ...
 340                  * why? because atoi (strtol) returns 0 if any characters in
 341                  * string and whole extension will be removed, it's not good
 342                  */
 343                 if (!strcmp("hint", c))
 344                         removing_priority = PRIORITY_HINT;
 345                 else {
 346                         while (*c && isdigit(*c))
 347                                 c++;
 348                         if (*c) { /* non-digit in string */
 349                                 ast_cli(a->fd, "Invalid priority '%s'\n", a->argv[4]);
 350                                 return CLI_FAILURE;
 351                         }
 352                         removing_priority = atoi(a->argv[4]);
 353                 }
 354
 355                 if (removing_priority == 0) {
 356                         ast_cli(a->fd, "If you want to remove whole extension, please " \
 357                                 "omit priority argument\n");
 358                         return CLI_FAILURE;
 359                 }
 360         }
 361
 362         /* XXX original overwrote argv[3] */
 363         /*
 364          * Format exten@context checking ...
 365          */
 366         if (split_ec(a->argv[3], &exten, &context, &cid))
 367                 return CLI_FAILURE; /* XXX malloc failure */
 368         if ((!strlen(exten)) || (!(strlen(context)))) {
 369                 ast_cli(a->fd, "Missing extension or context name in third argument '%s'\n",
 370                         a->argv[3]);
 371                 free(exten);
 372                 return CLI_FAILURE;
 373         }
 374
 375         if (!ast_context_remove_extension_callerid(context, exten, removing_priority,
 376                         /* Do NOT substitute S_OR; it is NOT the same thing */
 377                         cid ? cid : (removing_priority ? "" : NULL), cid ? 1 : 0, registrar)) {
 378                 if (!removing_priority)
 379                         ast_cli(a->fd, "Whole extension %s@%s removed\n",
 380                                 exten, context);
 381                 else
 382                         ast_cli(a->fd, "Extension %s@%s with priority %d removed\n",
 383                                 exten, context, removing_priority);
 384
 385                 ret = CLI_SUCCESS;
 386         } else {
 387                 if (cid) {
 388                         ast_cli(a->fd, "Failed to remove extension %s/%s@%s\n", exten, cid, context);
 389                 } else {
 390                         ast_cli(a->fd, "Failed to remove extension %s@%s\n", exten, context);
 391                 }
 392                 ret = CLI_FAILURE;
 393         }
 394         free(exten);
 395         return ret;
 396 }
 397
 398 static char *complete_dialplan_remove_extension(struct ast_cli_args *a)
 399 {
 400         char *ret = NULL;
 401         int which = 0;
 402
 403         if (a->pos == 3) { /* 'dialplan remove extension _X_' (exten@context ... */
 404                 struct ast_context *c = NULL;
 405                 char *context = NULL, *exten = NULL, *cid = NULL;
 406                 int le = 0;     /* length of extension */
 407                 int lc = 0;     /* length of context */
 408                 int lcid = 0; /* length of cid */
 409
 410                 lc = split_ec(a->word, &exten, &context, &cid);
 411                 if (lc) { /* error */
 412                         return NULL;
 413                 }
 414                 le = strlen(exten);
 415                 lc = strlen(context);
 416                 lcid = cid ? strlen(cid) : -1;
 417
 418                 if (ast_rdlock_contexts()) {
 419                         ast_log(LOG_ERROR, "Failed to lock context list\n");
 420                         goto error2;
 421                 }
 422
 423                 /* find our context ... */
 424                 while ( (c = ast_walk_contexts(c)) ) {  /* match our context if any */
 425                         struct ast_exten *e = NULL;
 426                         /* XXX locking ? */
 427                         if (!partial_match(ast_get_context_name(c), context, lc))
 428                                 continue;       /* context not matched */
 429                         while ( (e = ast_walk_context_extensions(c, e)) ) { /* try to complete extensions ... */
 430                                 if ( !strchr(a->word, '/') ||
 431                                                 (!strchr(a->word, '@') && partial_match(ast_get_extension_cidmatch(e), cid, lcid)) ||
 432                                                 (strchr(a->word, '@') && !strcmp(ast_get_extension_cidmatch(e), cid))) {
 433                                         if ( ((strchr(a->word, '/') || strchr(a->word, '@')) && !strcmp(ast_get_extension_name(e), exten)) ||
 434                                                  (!strchr(a->word, '/') && !strchr(a->word, '@') && partial_match(ast_get_extension_name(e), exten, le))) { /* n-th match */
 435                                                 if (++which > a->n) {
 436                                                         /* If there is an extension then return exten@context. */
 437                                                         if (ast_get_extension_matchcid(e) && (!strchr(a->word, '@') || strchr(a->word, '/'))) {
 438                                                                 if (asprintf(&ret, "%s/%s@%s", ast_get_extension_name(e), ast_get_extension_cidmatch(e), ast_get_context_name(c)) < 0) {
 439                                                                         ast_log(LOG_WARNING, "asprintf() failed: %s\n", strerror(errno));
 440                                                                         ret = NULL;
 441                                                                 }
 442                                                                 break;
 443                                                         } else if (!ast_get_extension_matchcid(e) && !strchr(a->word, '/')) {
 444                                                                 if (asprintf(&ret, "%s@%s", ast_get_extension_name(e), ast_get_context_name(c)) < 0) {
 445                                                                         ast_log(LOG_WARNING, "asprintf() failed: %s\n", strerror(errno));
 446                                                                         ret = NULL;
 447                                                                 }
 448                                                                 break;
 449                                                         }
 450                                                 }
 451                                         }
 452                                 }
 453                         }
 454                         if (e)  /* got a match */
 455                                 break;
 456                 }
 457
 458                 ast_unlock_contexts();
 459         error2:
 460                 free(exten);
 461         } else if (a->pos == 4) { /* 'dialplan remove extension EXT _X_' (priority) */
 462                 char *exten = NULL, *context, *cid, *p;
 463                 struct ast_context *c;
 464                 int le, lc, len;
 465                 const char *s = skip_words(a->line, 3); /* skip 'dialplan' 'remove' 'extension' */
 466                 int i = split_ec(s, &exten, &context, &cid);    /* parse ext@context */
 467
 468                 if (i)  /* error */
 469                         goto error3;
 470                 if ( (p = strchr(exten, ' ')) ) /* remove space after extension */
 471                         *p = '\0';
 472                 if ( (p = strchr(context, ' ')) ) /* remove space after context */
 473                         *p = '\0';
 474                 le = strlen(exten);
 475                 lc = strlen(context);
 476                 len = strlen(a->word);
 477                 if (le == 0 || lc == 0)
 478                         goto error3;
 479
 480                 if (ast_rdlock_contexts()) {
 481                         ast_log(LOG_ERROR, "Failed to lock context list\n");
 482                         goto error3;
 483                 }
 484
 485                 /* walk contexts */
 486                 c = NULL;
 487                 while ( (c = ast_walk_contexts(c)) ) {
 488                         /* XXX locking on c ? */
 489                         struct ast_exten *e;
 490                         if (strcmp(ast_get_context_name(c), context) != 0)
 491                                 continue;
 492                         /* got it, we must match here */
 493                         e = NULL;
 494                         while ( (e = ast_walk_context_extensions(c, e)) ) {
 495                                 struct ast_exten *priority;
 496                                 char buffer[10];
 497
 498                                 if (cid && strcmp(ast_get_extension_cidmatch(e), cid) != 0) {
 499                                         continue;
 500                                 }
 501                                 if (strcmp(ast_get_extension_name(e), exten) != 0)
 502                                         continue;
 503                                 /* XXX lock e ? */
 504                                 priority = NULL;
 505                                 while ( !ret && (priority = ast_walk_extension_priorities(e, priority)) ) {
 506                                         snprintf(buffer, sizeof(buffer), "%u", ast_get_extension_priority(priority));
 507                                         if (partial_match(buffer, a->word, len) && ++which > a->n) /* n-th match */
 508                                                 ret = strdup(buffer);
 509                                 }
 510                                 break;
 511                         }
 512                         break;
 513                 }
 514                 ast_unlock_contexts();
 515         error3:
 516                 free(exten);
 517         }
 518         return ret;
 519 }
 520
 521 /*!
 522  * Include context ...
 523  */
 524 static char *handle_cli_dialplan_add_include(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
 525 {
 526         switch (cmd) {
 527         case CLI_INIT:
 528                 e->command = "dialplan add include";
 529                 e->usage =
 530                         "Usage: dialplan add include <context> into <context>\n"
 531                         "       Include a context in another context.\n";
 532                 return NULL;
 533         case CLI_GENERATE:
 534                 return complete_dialplan_add_include(a);
 535         }
 536
 537         if (a->argc != 6) /* dialplan add include CTX in CTX */
 538                 return CLI_SHOWUSAGE;
 539
 540         /* fifth arg must be 'into' ... */
 541         if (strcmp(a->argv[4], "into"))
 542                 return CLI_SHOWUSAGE;
 543
 544         if (ast_context_add_include(a->argv[5], a->argv[3], registrar)) {
 545                 switch (errno) {
 546                 case ENOMEM:
 547                         ast_cli(a->fd, "Out of memory for context addition\n");
 548                         break;
 549
 550                 case EBUSY:
 551                         ast_cli(a->fd, "Failed to lock context(s) list, please try again later\n");
 552                         break;
 553
 554                 case EEXIST:
 555                         ast_cli(a->fd, "Context '%s' already included in '%s' context\n",
 556                                 a->argv[3], a->argv[5]);
 557                         break;
 558
 559                 case ENOENT:
 560                 case EINVAL:
 561                         ast_cli(a->fd, "There is no existence of context '%s'\n",
 562                                 errno == ENOENT ? a->argv[5] : a->argv[3]);
 563                         break;
 564
 565                 default:
 566                         ast_cli(a->fd, "Failed to include '%s' in '%s' context\n",
 567                                 a->argv[3], a->argv[5]);
 568                         break;
 569                 }
 570                 return CLI_FAILURE;
 571         }
 572
 573         /* show some info ... */
 574         ast_cli(a->fd, "Context '%s' included in '%s' context\n",
 575                 a->argv[3], a->argv[5]);
 576
 577         return CLI_SUCCESS;
 578 }
 579
 580 static char *complete_dialplan_add_include(struct ast_cli_args *a)
 581 {
 582         struct ast_context *c;
 583         int which = 0;
 584         char *ret = NULL;
 585         int len = strlen(a->word);
 586
 587         if (a->pos == 3) {              /* 'dialplan add include _X_' (context) ... */
 588                 if (ast_rdlock_contexts()) {
 589                         ast_log(LOG_ERROR, "Failed to lock context list\n");
 590                         return NULL;
 591                 }
 592                 for (c = NULL; !ret && (c = ast_walk_contexts(c)); )
 593                         if (partial_match(ast_get_context_name(c), a->word, len) && ++which > a->n)
 594                                 ret = strdup(ast_get_context_name(c));
 595                 ast_unlock_contexts();
 596                 return ret;
 597         } else if (a->pos == 4) { /* dialplan add include CTX _X_ */
 598                 /* complete  as 'into' if context exists or we are unable to check */
 599                 char *context, *dupline;
 600                 const char *s = skip_words(a->line, 3); /* should not fail */
 601
 602                 if (a->n != 0)  /* only once */
 603                         return NULL;
 604
 605                 /* parse context from line ... */
 606                 context = dupline = strdup(s);
 607                 if (!context) {
 608                         ast_log(LOG_ERROR, "Out of free memory\n");
 609                         return strdup("into");
 610                 }
 611                 strsep(&dupline, " ");
 612
 613                 /* check for context existence ... */
 614                 if (ast_rdlock_contexts()) {
 615                         ast_log(LOG_ERROR, "Failed to lock context list\n");
 616                         /* our fault, we can't check, so complete 'into' ... */
 617                         ret = strdup("into");
 618                 } else {
 619                         struct ast_context *ctx;
 620                         for (ctx = NULL; !ret && (ctx = ast_walk_contexts(ctx)); )
 621                                 if (!strcmp(context, ast_get_context_name(ctx)))
 622                                         ret = strdup("into"); /* found */
 623                         ast_unlock_contexts();
 624                 }
 625                 free(context);
 626                 return ret;
 627         } else if (a->pos == 5) { /* 'dialplan add include CTX into _X_' (dst context) */
 628                 char *context, *dupline, *into;
 629                 const char *s = skip_words(a->line, 3); /* should not fail */
 630                 context = dupline = strdup(s);
 631                 if (!dupline) {
 632                         ast_log(LOG_ERROR, "Out of free memory\n");
 633                         return NULL;
 634                 }
 635                 strsep(&dupline, " "); /* skip context */
 636                 into = strsep(&dupline, " ");
 637                 /* error if missing context or fifth word is not 'into' */
 638                 if (!strlen(context) || strcmp(into, "into")) {
 639                         ast_log(LOG_ERROR, "bad context %s or missing into %s\n",
 640                                 context, into);
 641                         goto error3;
 642                 }
 643
 644                 if (ast_rdlock_contexts()) {
 645                         ast_log(LOG_ERROR, "Failed to lock context list\n");
 646                         goto error3;
 647                 }
 648
 649                 for (c = NULL; (c = ast_walk_contexts(c)); )
 650                         if (!strcmp(context, ast_get_context_name(c)))
 651                                 break;
 652                 if (c) { /* first context exists, go on... */
 653                         /* go through all contexts ... */
 654                         for (c = NULL; !ret && (c = ast_walk_contexts(c)); ) {
 655                                 if (!strcmp(context, ast_get_context_name(c)))
 656                                         continue; /* skip ourselves */
 657                                 if (partial_match(ast_get_context_name(c), a->word, len) &&
 658                                                 !lookup_ci(c, context) /* not included yet */ &&
 659                                                 ++which > a->n)
 660                                         ret = strdup(ast_get_context_name(c));
 661                         }
 662                 } else {
 663                         ast_log(LOG_ERROR, "context %s not found\n", context);
 664                 }
 665                 ast_unlock_contexts();
 666         error3:
 667                 free(context);
 668                 return ret;
 669         }
 670
 671         return NULL;
 672 }
 673
 674 /*!
 675  * \brief 'save dialplan' CLI command implementation functions ...
 676  */
 677 static char *handle_cli_dialplan_save(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
 678 {
 679         char filename[256], overrideswitch[256] = "";
 680         struct ast_context *c;
 681         struct ast_config *cfg;
 682         struct ast_variable *v;
 683         int incomplete = 0; /* incomplete config write? */
 684         FILE *output;
 685         struct ast_flags config_flags = { 0 };
 686         const char *base, *slash;
 687
 688         switch (cmd) {
 689         case CLI_INIT:
 690                 e->command = "dialplan save";
 691                 e->usage =
 692                         "Usage: dialplan save [/path/to/extension/file]\n"
 693                         "       Save dialplan created by pbx_config module.\n"
 694                         "\n"
 695                         "Example: dialplan save                 (/etc/asterisk/extensions.conf)\n"
 696                         "         dialplan save /home/markster  (/home/markster/extensions.conf)\n";
 697                 return NULL;
 698         case CLI_GENERATE:
 699                 return NULL;
 700         }
 701
 702         if (! (static_config && !write_protect_config)) {
 703                 ast_cli(a->fd,
 704                         "I can't save dialplan now, see '%s' example file.\n",
 705                         config);
 706                 return CLI_FAILURE;
 707         }
 708
 709         if (a->argc != 2 && a->argc != 3)
 710                 return CLI_SHOWUSAGE;
 711
 712         if (ast_mutex_lock(&save_dialplan_lock)) {
 713                 ast_cli(a->fd,
 714                         "Failed to lock dialplan saving (another proccess saving?)\n");
 715                 return CLI_FAILURE;
 716         }
 717         /* XXX the code here is quite loose, a pathname with .conf in it
 718          * is assumed to be a complete pathname
 719          */
 720         if (a->argc == 3) {     /* have config path. Look for *.conf */
 721                 base = a->argv[2];
 722                 if (!strstr(a->argv[2], ".conf")) { /*no, this is assumed to be a pathname */
 723                         /* if filename ends with '/', do not add one */
 724                         slash = (*(a->argv[2] + strlen(a->argv[2]) -1) == '/') ? "/" : "";
 725                 } else {        /* yes, complete file name */
 726                         slash = "";
 727                 }
 728         } else {
 729                 /* no config file, default one */
 730                 base = ast_config_AST_CONFIG_DIR;
 731                 slash = "/";
 732         }
 733         snprintf(filename, sizeof(filename), "%s%s%s", base, slash, config);
 734
 735         cfg = ast_config_load("extensions.conf", config_flags);
 736         if (!cfg) {
 737                 ast_cli(a->fd, "Failed to load extensions.conf\n");
 738                 ast_mutex_unlock(&save_dialplan_lock);
 739                 return CLI_FAILURE;
 740         }
 741
 742         /* try to lock contexts list */
 743         if (ast_rdlock_contexts()) {
 744                 ast_cli(a->fd, "Failed to lock contexts list\n");
 745                 ast_mutex_unlock(&save_dialplan_lock);
 746                 ast_config_destroy(cfg);
 747                 return CLI_FAILURE;
 748         }
 749
 750         /* create new file ... */
 751         if (!(output = fopen(filename, "wt"))) {
 752                 ast_cli(a->fd, "Failed to create file '%s'\n",
 753                         filename);
 754                 ast_unlock_contexts();
 755                 ast_mutex_unlock(&save_dialplan_lock);
 756                 ast_config_destroy(cfg);
 757                 return CLI_FAILURE;
 758         }
 759
 760         /* fireout general info */
 761         if (overrideswitch_config) {
 762                 snprintf(overrideswitch, sizeof(overrideswitch), "overrideswitch=%s\n", overrideswitch_config);
 763         }
 764         fprintf(output, "[general]\nstatic=%s\nwriteprotect=%s\nautofallthrough=%s\nclearglobalvars=%s\n%sextenpatternmatchnew=%s\n\n",
 765                 static_config ? "yes" : "no",
 766                 write_protect_config ? "yes" : "no",
 767                 autofallthrough_config ? "yes" : "no",
 768                                 clearglobalvars_config ? "yes" : "no",
 769                                 overrideswitch_config ? overrideswitch : "",
 770                                 extenpatternmatchnew_config ? "yes" : "no");
 771
 772         if ((v = ast_variable_browse(cfg, "globals"))) {
 773                 fprintf(output, "[globals]\n");
 774                 while(v) {
 775                         fprintf(output, "%s => %s\n", v->name, v->value);
 776                         v = v->next;
 777                 }
 778                 fprintf(output, "\n");
 779         }
 780
 781         ast_config_destroy(cfg);
 782
 783 #define PUT_CTX_HDR     do { \
 784         if (!context_header_written) {  \
 785                 fprintf(output, "[%s]\n", ast_get_context_name(c));     \
 786                 context_header_written = 1;     \
 787         }       \
 788         } while (0)
 789
 790         /* walk all contexts */
 791         for (c = NULL; (c = ast_walk_contexts(c)); ) {
 792                 int context_header_written = 0;
 793                 struct ast_exten *ext, *last_written_e = NULL;
 794                 struct ast_include *i;
 795                 struct ast_ignorepat *ip;
 796                 struct ast_sw *sw;
 797
 798                 /* try to lock context and fireout all info */
 799                 if (ast_rdlock_context(c)) { /* lock failure */
 800                         incomplete = 1;
 801                         continue;
 802                 }
 803                 /* registered by this module? */
 804                 /* XXX do we need this ? */
 805                 if (!strcmp(ast_get_context_registrar(c), registrar)) {
 806                         fprintf(output, "[%s]\n", ast_get_context_name(c));
 807                         context_header_written = 1;
 808                 }
 809
 810                 /* walk extensions ... */
 811                 for (ext = NULL; (ext = ast_walk_context_extensions(c, ext)); ) {
 812                         struct ast_exten *p = NULL;
 813
 814                         /* fireout priorities */
 815                         while ( (p = ast_walk_extension_priorities(ext, p)) ) {
 816                                 if (strcmp(ast_get_extension_registrar(p), registrar) != 0) /* not this source */
 817                                         continue;
 818
 819                                 /* make empty line between different extensions */
 820                                 if (last_written_e != NULL &&
 821                                             strcmp(ast_get_extension_name(last_written_e),
 822                                                     ast_get_extension_name(p)))
 823                                         fprintf(output, "\n");
 824                                 last_written_e = p;
 825
 826                                 PUT_CTX_HDR;
 827
 828                                 if (ast_get_extension_priority(p) == PRIORITY_HINT) { /* easy */
 829                                         fprintf(output, "exten => %s,hint,%s\n",
 830                                                     ast_get_extension_name(p),
 831                                                     ast_get_extension_app(p));
 832                                 } else {
 833                                         const char *sep, *cid;
 834                                         const char *el = ast_get_extension_label(p);
 835                                         char label[128] = "";
 836
 837                                         if (ast_get_extension_matchcid(p)) {
 838                                                 sep = "/";
 839                                                 cid = ast_get_extension_cidmatch(p);
 840                                         } else
 841                                                 sep = cid = "";
 842
 843                                         if (el && (snprintf(label, sizeof(label), "(%s)", el) != (strlen(el) + 2)))
 844                                                 incomplete = 1; /* error encountered or label > 125 chars */
 845
 846                                         fprintf(output, "exten => %s%s%s,%d%s,%s(%s)\n",
 847                                             ast_get_extension_name(p), (ast_strlen_zero(sep) ? "" : sep), (ast_strlen_zero(cid) ? "" : cid),
 848                                             ast_get_extension_priority(p), label,
 849                                             ast_get_extension_app(p), (ast_strlen_zero(ast_get_extension_app_data(p)) ? "" : (const char *)ast_get_extension_app_data(p)));
 850                                 }
 851                         }
 852                 }
 853
 854                 /* written any extensions? ok, write space between exten & inc */
 855                 if (last_written_e)
 856                         fprintf(output, "\n");
 857
 858                 /* walk through includes */
 859                 for (i = NULL; (i = ast_walk_context_includes(c, i)) ; ) {
 860                         if (strcmp(ast_get_include_registrar(i), registrar) != 0)
 861                                 continue; /* not mine */
 862                         PUT_CTX_HDR;
 863                         fprintf(output, "include => %s\n", ast_get_include_name(i));
 864                 }
 865                 if (ast_walk_context_includes(c, NULL))
 866                         fprintf(output, "\n");
 867
 868                 /* walk through switches */
 869                 for (sw = NULL; (sw = ast_walk_context_switches(c, sw)) ; ) {
 870                         if (strcmp(ast_get_switch_registrar(sw), registrar) != 0)
 871                                 continue; /* not mine */
 872                         PUT_CTX_HDR;
 873                         fprintf(output, "switch => %s/%s\n",
 874                                     ast_get_switch_name(sw), ast_get_switch_data(sw));
 875                 }
 876
 877                 if (ast_walk_context_switches(c, NULL))
 878                         fprintf(output, "\n");
 879
 880                 /* fireout ignorepats ... */
 881                 for (ip = NULL; (ip = ast_walk_context_ignorepats(c, ip)); ) {
 882                         if (strcmp(ast_get_ignorepat_registrar(ip), registrar) != 0)
 883                                 continue; /* not mine */
 884                         PUT_CTX_HDR;
 885                         fprintf(output, "ignorepat => %s\n",
 886                                                 ast_get_ignorepat_name(ip));
 887                 }
 888
 889                 ast_unlock_context(c);
 890         }
 891
 892         ast_unlock_contexts();
 893         ast_mutex_unlock(&save_dialplan_lock);
 894         fclose(output);
 895
 896         if (incomplete) {
 897                 ast_cli(a->fd, "Saved dialplan is incomplete\n");
 898                 return CLI_FAILURE;
 899         }
 900
 901         ast_cli(a->fd, "Dialplan successfully saved into '%s'\n",
 902                 filename);
 903         return CLI_SUCCESS;
 904 }
 905
 906 /*!
 907  * \brief ADD EXTENSION command stuff
 908  */
 909 static char *handle_cli_dialplan_add_extension(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
 910 {
 911         char *whole_exten;
 912         char *exten, *prior;
 913         int iprior = -2;
 914         char *cidmatch, *app, *app_data;
 915         char *start, *end;
 916         const char *into_context;
 917
 918         switch (cmd) {
 919         case CLI_INIT:
 920                 e->command = "dialplan add extension";
 921                 e->usage =
 922                         "Usage: dialplan add extension <exten>,<priority>,<app> into <context> [replace]\n"
 923                         "\n"
 924                         "       app can be either:\n"
 925                         "         app-name\n"
 926                         "         app-name(app-data)\n"
 927                         "         app-name,<app-data>\n"
 928                         "\n"
 929                         "       This command will add the new extension into <context>.  If\n"
 930                         "       an extension with the same priority already exists and the\n"
 931                         "       'replace' option is given we will replace the extension.\n"
 932                         "\n"
 933                         "Example: dialplan add extension 6123,1,Dial,IAX/216.207.245.56/6123 into local\n"
 934                         "         Now, you can dial 6123 and talk to Markster :)\n";
 935                 return NULL;
 936         case CLI_GENERATE:
 937                 return complete_dialplan_add_extension(a);
 938         }
 939
 940         /* check for arguments at first */
 941         if (a->argc != 6 && a->argc != 7)
 942                 return CLI_SHOWUSAGE;
 943         if (strcmp(a->argv[4], "into"))
 944                 return CLI_SHOWUSAGE;
 945         if (a->argc == 7)
 946                 if (strcmp(a->argv[6], "replace"))
 947                         return CLI_SHOWUSAGE;
 948
 949         whole_exten = ast_strdupa(a->argv[3]);
 950         exten = strsep(&whole_exten,",");
 951         if (strchr(exten, '/')) {
 952                 cidmatch = exten;
 953                 strsep(&cidmatch,"/");
 954         } else {
 955                 cidmatch = NULL;
 956         }
 957         prior = strsep(&whole_exten,",");
 958         if (prior) {
 959                 if (!strcmp(prior, "hint")) {
 960                         iprior = PRIORITY_HINT;
 961                 } else {
 962                         if (sscanf(prior, "%30d", &iprior) != 1) {
 963                                 ast_cli(a->fd, "'%s' is not a valid priority\n", prior);
 964                                 prior = NULL;
 965                         }
 966                 }
 967         }
 968         app = whole_exten;
 969         if (app) {
 970                 if ((start = strchr(app, '(')) && (end = strrchr(app, ')'))) {
 971                         *start = *end = '\0';
 972                         app_data = start + 1;
 973                 } else {
 974                         app_data = strchr(app, ',');
 975                         if (app_data) {
 976                                 *app_data++ = '\0';
 977                         }
 978                 }
 979         } else {
 980                 app_data = NULL;
 981         }
 982
 983         if (!exten || !prior || !app) {
 984                 return CLI_SHOWUSAGE;
 985         }
 986
 987         if (!app_data) {
 988                 app_data = "";
 989         }
 990         into_context = a->argv[5];
 991
 992         if (!ast_context_find(into_context)) {
 993                 ast_cli(a->fd, "Context '%s' did not exist prior to add extension - the context will be created.\n", into_context);
 994         }
 995
 996         if (!ast_context_find_or_create(NULL, NULL, into_context, registrar)) {
 997                 ast_cli(a->fd, "Failed to add '%s,%s,%s(%s)' extension into '%s' context\n",
 998                         exten, prior, app, app_data, into_context);
 999                 return CLI_FAILURE;
1000         }
1001
1002         if (ast_add_extension(into_context, a->argc == 7 ? 1 : 0, exten, iprior, NULL, cidmatch, app,
1003                 ast_strdup(app_data), ast_free_ptr, registrar)) {
1004                 switch (errno) {
1005                 case ENOMEM:
1006                         ast_cli(a->fd, "Out of free memory\n");
1007                         break;
1008
1009                 case EBUSY:
1010                         ast_cli(a->fd, "Failed to lock context(s) list, please try again later\n");
1011                         break;
1012
1013                 case ENOENT:
1014                         ast_cli(a->fd, "No existence of '%s' context\n", into_context);
1015                         break;
1016
1017                 case EEXIST:
1018                         ast_cli(a->fd, "Extension %s@%s with priority %s already exists\n",
1019                                 exten, into_context, prior);
1020                         break;
1021
1022                 default:
1023                         ast_cli(a->fd, "Failed to add '%s,%s,%s(%s)' extension into '%s' context\n",
1024                                         exten, prior, app, app_data, into_context);
1025                         break;
1026                 }
1027                 return CLI_FAILURE;
1028         }
1029
1030         if (a->argc == 7) {
1031                 ast_cli(a->fd, "Extension %s@%s (%s) replace by '%s,%s,%s(%s)'\n",
1032                         exten, into_context, prior, exten, prior, app, app_data);
1033         } else {
1034                 ast_cli(a->fd, "Extension '%s,%s,%s(%s)' added into '%s' context\n",
1035                         exten, prior, app, app_data, into_context);
1036         }
1037
1038         return CLI_SUCCESS;
1039 }
1040
1041 /*! dialplan add extension 6123,1,Dial,IAX/212.71.138.13/6123 into local */
1042 static char *complete_dialplan_add_extension(struct ast_cli_args *a)
1043 {
1044         int which = 0;
1045
1046         if (a->pos == 4) {              /* complete 'into' word ... */
1047                 return (a->n == 0) ? strdup("into") : NULL;
1048         } else if (a->pos == 5) { /* complete context */
1049                 struct ast_context *c = NULL;
1050                 int len = strlen(a->word);
1051                 char *res = NULL;
1052
1053                 /* try to lock contexts list ... */
1054                 if (ast_rdlock_contexts()) {
1055                         ast_log(LOG_WARNING, "Failed to lock contexts list\n");
1056                         return NULL;
1057                 }
1058
1059                 /* walk through all contexts */
1060                 while ( !res && (c = ast_walk_contexts(c)) )
1061                         if (partial_match(ast_get_context_name(c), a->word, len) && ++which > a->n)
1062                                 res = strdup(ast_get_context_name(c));
1063                 ast_unlock_contexts();
1064                 return res;
1065         } else if (a->pos == 6) {
1066                 return a->n == 0 ? strdup("replace") : NULL;
1067         }
1068         return NULL;
1069 }
1070
1071 /*!
1072  * IGNOREPAT CLI stuff
1073  */
1074 static char *handle_cli_dialplan_add_ignorepat(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
1075 {
1076         switch (cmd) {
1077         case CLI_INIT:
1078                 e->command = "dialplan add ignorepat";
1079                 e->usage =
1080                         "Usage: dialplan add ignorepat <pattern> into <context>\n"
1081                         "       This command adds a new ignore pattern into context <context>\n"
1082                         "\n"
1083                         "Example: dialplan add ignorepat _3XX into local\n";
1084                 return NULL;
1085         case CLI_GENERATE:
1086                 return complete_dialplan_add_ignorepat(a);
1087         }
1088
1089         if (a->argc != 6)
1090                 return CLI_SHOWUSAGE;
1091
1092         if (strcmp(a->argv[4], "into"))
1093                 return CLI_SHOWUSAGE;
1094
1095         if (ast_context_add_ignorepat(a->argv[5], a->argv[3], registrar)) {
1096                 switch (errno) {
1097                 case ENOMEM:
1098                         ast_cli(a->fd, "Out of free memory\n");
1099                         break;
1100
1101                 case ENOENT:
1102                         ast_cli(a->fd, "There is no existence of '%s' context\n", a->argv[5]);
1103                         break;
1104
1105                 case EEXIST:
1106                         ast_cli(a->fd, "Ignore pattern '%s' already included in '%s' context\n",
1107                                 a->argv[3], a->argv[5]);
1108                         break;
1109
1110                 case EBUSY:
1111                         ast_cli(a->fd, "Failed to lock context(s) list, please, try again later\n");
1112                         break;
1113
1114                 default:
1115                         ast_cli(a->fd, "Failed to add ingore pattern '%s' into '%s' context\n",
1116                                 a->argv[3], a->argv[5]);
1117                         break;
1118                 }
1119                 return CLI_FAILURE;
1120         }
1121
1122         ast_cli(a->fd, "Ignore pattern '%s' added into '%s' context\n",
1123                 a->argv[3], a->argv[5]);
1124
1125         return CLI_SUCCESS;
1126 }
1127
1128 static char *complete_dialplan_add_ignorepat(struct ast_cli_args *a)
1129 {
1130         if (a->pos == 4)
1131                 return a->n == 0 ? strdup("into") : NULL;
1132         else if (a->pos == 5) {
1133                 struct ast_context *c;
1134                 int which = 0;
1135                 char *dupline, *ignorepat = NULL;
1136                 const char *s;
1137                 char *ret = NULL;
1138                 int len = strlen(a->word);
1139
1140                 /* XXX skip first three words 'dialplan' 'add' 'ignorepat' */
1141                 s = skip_words(a->line, 3);
1142                 if (s == NULL)
1143                         return NULL;
1144                 dupline = strdup(s);
1145                 if (!dupline) {
1146                         ast_log(LOG_ERROR, "Malloc failure\n");
1147                         return NULL;
1148                 }
1149                 ignorepat = strsep(&dupline, " ");
1150
1151                 if (ast_rdlock_contexts()) {
1152                         ast_log(LOG_ERROR, "Failed to lock contexts list\n");
1153                         return NULL;
1154                 }
1155
1156                 for (c = NULL; !ret && (c = ast_walk_contexts(c));) {
1157                         int found = 0;
1158
1159                         if (!partial_match(ast_get_context_name(c), a->word, len))
1160                                 continue; /* not mine */
1161                         if (ignorepat) /* there must be one, right ? */
1162                                 found = lookup_c_ip(c, ignorepat);
1163                         if (!found && ++which > a->n)
1164                                 ret = strdup(ast_get_context_name(c));
1165                 }
1166
1167                 free(ignorepat);
1168                 ast_unlock_contexts();
1169                 return ret;
1170         }
1171
1172         return NULL;
1173 }
1174
1175 static char *handle_cli_dialplan_remove_ignorepat(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
1176 {
1177         switch (cmd) {
1178         case CLI_INIT:
1179                 e->command = "dialplan remove ignorepat";
1180                 e->usage =
1181                         "Usage: dialplan remove ignorepat <pattern> from <context>\n"
1182                         "       This command removes an ignore pattern from context <context>\n"
1183                         "\n"
1184                         "Example: dialplan remove ignorepat _3XX from local\n";
1185                 return NULL;
1186         case CLI_GENERATE:
1187                 return complete_dialplan_remove_ignorepat(a);
1188         }
1189
1190         if (a->argc != 6)
1191                 return CLI_SHOWUSAGE;
1192
1193         if (strcmp(a->argv[4], "from"))
1194                 return CLI_SHOWUSAGE;
1195
1196         if (ast_context_remove_ignorepat(a->argv[5], a->argv[3], registrar)) {
1197                 switch (errno) {
1198                 case EBUSY:
1199                         ast_cli(a->fd, "Failed to lock context(s) list, please try again later\n");
1200                         break;
1201
1202                 case ENOENT:
1203                         ast_cli(a->fd, "There is no existence of '%s' context\n", a->argv[5]);
1204                         break;
1205
1206                 case EINVAL:
1207                         ast_cli(a->fd, "There is no existence of '%s' ignore pattern in '%s' context\n",
1208                                         a->argv[3], a->argv[5]);
1209                         break;
1210
1211                 default:
1212                         ast_cli(a->fd, "Failed to remove ignore pattern '%s' from '%s' context\n",
1213                                         a->argv[3], a->argv[5]);
1214                         break;
1215                 }
1216                 return CLI_FAILURE;
1217         }
1218
1219         ast_cli(a->fd, "Ignore pattern '%s' removed from '%s' context\n",
1220                 a->argv[3], a->argv[5]);
1221         return CLI_SUCCESS;
1222 }
1223
1224 static char *complete_dialplan_remove_ignorepat(struct ast_cli_args *a)
1225 {
1226         struct ast_context *c;
1227         int which = 0;
1228         char *ret = NULL;
1229
1230         if (a->pos == 3) {
1231                 int len = strlen(a->word);
1232                 if (ast_rdlock_contexts()) {
1233                         ast_log(LOG_WARNING, "Failed to lock contexts list\n");
1234                         return NULL;
1235                 }
1236
1237                 for (c = NULL; !ret && (c = ast_walk_contexts(c));) {
1238                         struct ast_ignorepat *ip;
1239
1240                         if (ast_rdlock_context(c))      /* error, skip it */
1241                                 continue;
1242
1243                         for (ip = NULL; !ret && (ip = ast_walk_context_ignorepats(c, ip));) {
1244                                 if (partial_match(ast_get_ignorepat_name(ip), a->word, len) && ++which > a->n) {
1245                                         /* n-th match */
1246                                         struct ast_context *cw = NULL;
1247                                         int found = 0;
1248                                         while ( (cw = ast_walk_contexts(cw)) && cw != c && !found) {
1249                                                 /* XXX do i stop on c, or skip it ? */
1250                                                 found = lookup_c_ip(cw, ast_get_ignorepat_name(ip));
1251                                         }
1252                                         if (!found)
1253                                                 ret = strdup(ast_get_ignorepat_name(ip));
1254                                 }
1255                         }
1256                         ast_unlock_context(c);
1257                 }
1258                 ast_unlock_contexts();
1259                 return ret;
1260         } else if (a->pos == 4) {
1261                  return a->n == 0 ? strdup("from") : NULL;
1262         } else if (a->pos == 5) { /* XXX check this */
1263                 char *dupline, *duplinet, *ignorepat;
1264                 int len = strlen(a->word);
1265
1266                 dupline = strdup(a->line);
1267                 if (!dupline) {
1268                         ast_log(LOG_WARNING, "Out of free memory\n");
1269                         return NULL;
1270                 }
1271
1272                 duplinet = dupline;
1273                 strsep(&duplinet, " ");
1274                 strsep(&duplinet, " ");
1275                 ignorepat = strsep(&duplinet, " ");
1276
1277                 if (!ignorepat) {
1278                         free(dupline);
1279                         return NULL;
1280                 }
1281
1282                 if (ast_rdlock_contexts()) {
1283                         ast_log(LOG_WARNING, "Failed to lock contexts list\n");
1284                         free(dupline);
1285                         return NULL;
1286                 }
1287
1288                 for (c = NULL; !ret && (c = ast_walk_contexts(c)); ) {
1289                         if (ast_rdlock_context(c))      /* fail, skip it */
1290                                 continue;
1291                         if (!partial_match(ast_get_context_name(c), a->word, len))
1292                                 continue;
1293                         if (lookup_c_ip(c, ignorepat) && ++which > a->n)
1294                                 ret = strdup(ast_get_context_name(c));
1295                         ast_unlock_context(c);
1296                 }
1297                 ast_unlock_contexts();
1298                 free(dupline);
1299                 return NULL;
1300         }
1301
1302         return NULL;
1303 }
1304
1305 static int pbx_load_module(void);
1306
1307 static char *handle_cli_dialplan_reload(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a)
1308 {
1309         switch (cmd) {
1310         case CLI_INIT:
1311                 e->command = "dialplan reload";
1312                 e->usage =
1313                         "Usage: dialplan reload\n"
1314                         "       Reload extensions.conf without reloading any other\n"
1315                         "       modules.  This command does not delete global variables\n"
1316                         "       unless clearglobalvars is set to yes in extensions.conf\n";
1317                 return NULL;
1318         case CLI_GENERATE:
1319                 return NULL;
1320         }
1321
1322         if (a->argc != 2)
1323                 return CLI_SHOWUSAGE;
1324
1325         if (clearglobalvars_config)
1326                 pbx_builtin_clear_globals();
1327
1328         pbx_load_module();
1329         ast_cli(a->fd, "Dialplan reloaded.\n");
1330         return CLI_SUCCESS;
1331 }
1332
1333 /*!
1334  * CLI entries for commands provided by this module
1335  */
1336 static struct ast_cli_entry cli_pbx_config[] = {
1337         AST_CLI_DEFINE(handle_cli_dialplan_add_extension,    "Add new extension into context"),
1338         AST_CLI_DEFINE(handle_cli_dialplan_remove_extension, "Remove a specified extension"),
1339         AST_CLI_DEFINE(handle_cli_dialplan_add_ignorepat,    "Add new ignore pattern"),
1340         AST_CLI_DEFINE(handle_cli_dialplan_remove_ignorepat, "Remove ignore pattern from context"),
1341         AST_CLI_DEFINE(handle_cli_dialplan_add_include,      "Include context in other context"),
1342         AST_CLI_DEFINE(handle_cli_dialplan_remove_include,   "Remove a specified include from context"),
1343         AST_CLI_DEFINE(handle_cli_dialplan_reload,           "Reload extensions and *only* extensions"),
1344         AST_CLI_DEFINE(handle_cli_dialplan_save,             "Save current dialplan into a file")
1345 };
1346
1347 static struct ast_cli_entry cli_dialplan_save =
1348         AST_CLI_DEFINE(handle_cli_dialplan_save, "Save dialplan");
1349
1350 /*!
1351  * Standard module functions ...
1352  */
1353 static int unload_module(void)
1354 {
1355         if (static_config && !write_protect_config)
1356                 ast_cli_unregister(&cli_dialplan_save);
1357         if (overrideswitch_config) {
1358                 ast_free(overrideswitch_config);
1359         }
1360         ast_cli_unregister_multiple(cli_pbx_config, ARRAY_LEN(cli_pbx_config));
1361         ast_context_destroy(NULL, registrar);
1362         return 0;
1363 }
1364
1365 /*!\note Protect against misparsing based upon commas in the middle of fields
1366  * like character classes.  We've taken steps to permit pretty much every other
1367  * printable character in a character class, so properly handling a comma at
1368  * this level is a natural extension.  This is almost like the standard
1369  * application parser in app.c, except that it handles square brackets. */
1370 static char *pbx_strsep(char **destructible, const char *delim)
1371 {
1372         int square = 0;
1373         char *res;
1374
1375         if (!destructible || !*destructible) {
1376                 return NULL;
1377         }
1378         res = *destructible;
1379         for (; **destructible; (*destructible)++) {
1380                 if (**destructible == '[' && !strchr(delim, '[')) {
1381                         square++;
1382                 } else if (**destructible == ']' && !strchr(delim, ']')) {
1383                         if (square) {
1384                                 square--;
1385                         }
1386                 } else if (**destructible == '\\' && !strchr(delim, '\\')) {
1387                         (*destructible)++;
1388                 } else if (strchr(delim, **destructible) && !square) {
1389                         **destructible = '\0';
1390                         (*destructible)++;
1391                         break;
1392                 }
1393         }
1394         if (**destructible == '\0') {
1395                 *destructible = NULL;
1396         }
1397         return res;
1398 }
1399
1400 static int pbx_load_config(const char *config_file)
1401 {
1402         struct ast_config *cfg;
1403         char *end;
1404         char *label;
1405 #ifdef LOW_MEMORY
1406         char realvalue[256];
1407 #else
1408         char realvalue[8192];
1409 #endif
1410         int lastpri = -2;
1411         struct ast_context *con;
1412         struct ast_variable *v;
1413         const char *cxt;
1414         const char *aft;
1415         const char *newpm, *ovsw;
1416         struct ast_flags config_flags = { 0 };
1417         char lastextension[256];
1418         cfg = ast_config_load(config_file, config_flags);
1419         if (!cfg || cfg == CONFIG_STATUS_FILEINVALID)
1420                 return 0;
1421
1422         /* Use existing config to populate the PBX table */
1423         static_config = ast_true(ast_variable_retrieve(cfg, "general", "static"));
1424         write_protect_config = ast_true(ast_variable_retrieve(cfg, "general", "writeprotect"));
1425         if ((aft = ast_variable_retrieve(cfg, "general", "autofallthrough")))
1426                 autofallthrough_config = ast_true(aft);
1427         if ((newpm = ast_variable_retrieve(cfg, "general", "extenpatternmatchnew")))
1428                 extenpatternmatchnew_config = ast_true(newpm);
1429         clearglobalvars_config = ast_true(ast_variable_retrieve(cfg, "general", "clearglobalvars"));
1430         if ((ovsw = ast_variable_retrieve(cfg, "general", "overrideswitch"))) {
1431                 if (overrideswitch_config) {
1432                         ast_free(overrideswitch_config);
1433                 }
1434                 if (!ast_strlen_zero(ovsw)) {
1435                         overrideswitch_config = ast_strdup(ovsw);
1436                 } else {
1437                         overrideswitch_config = NULL;
1438                 }
1439         }
1440
1441         ast_copy_string(userscontext, ast_variable_retrieve(cfg, "general", "userscontext") ?: "default", sizeof(userscontext));
1442
1443         for (v = ast_variable_browse(cfg, "globals"); v; v = v->next) {
1444                 pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
1445                 pbx_builtin_setvar_helper(NULL, v->name, realvalue);
1446         }
1447         for (cxt = ast_category_browse(cfg, NULL);
1448              cxt;
1449              cxt = ast_category_browse(cfg, cxt)) {
1450                 /* All categories but "general" or "globals" are considered contexts */
1451                 if (!strcasecmp(cxt, "general") || !strcasecmp(cxt, "globals")) {
1452                         continue;
1453                 }
1454                 if (!(con = ast_context_find_or_create(&local_contexts, local_table, cxt, registrar))) {
1455                         continue;
1456                 }
1457
1458                 /* Reset continuation items at the beginning of each context */
1459                 lastextension[0] = '\0';
1460                 lastpri = -2;
1461
1462                 for (v = ast_variable_browse(cfg, cxt); v; v = v->next) {
1463                         char *tc = NULL;
1464                         char realext[256] = "";
1465                         char *stringp, *ext;
1466                         const char *vfile;
1467
1468                         /* get filename for error reporting from top level or an #include */
1469                         vfile = !*v->file ? config_file : v->file;
1470
1471                         if (!strncasecmp(v->name, "same", 4)) {
1472                                 if (ast_strlen_zero(lastextension)) {
1473                                         ast_log(LOG_ERROR,
1474                                                 "No previous pattern in the first entry of context '%s' to match '%s' at line %d of %s!\n",
1475                                                 cxt, v->name, v->lineno, vfile);
1476                                         continue;
1477                                 }
1478                                 if ((stringp = tc = ast_strdup(v->value))) {
1479                                         ast_copy_string(realext, lastextension, sizeof(realext));
1480                                         goto process_extension;
1481                                 }
1482                         } else if (!strcasecmp(v->name, "exten")) {
1483                                 int ipri;
1484                                 char *plus;
1485                                 char *pri, *appl, *data, *cidmatch;
1486
1487                                 if (!(stringp = tc = ast_strdup(v->value))) {
1488                                         continue;
1489                                 }
1490
1491                                 ext = S_OR(pbx_strsep(&stringp, ","), "");
1492                                 pbx_substitute_variables_helper(NULL, ext, realext, sizeof(realext) - 1);
1493                                 ast_copy_string(lastextension, realext, sizeof(lastextension));
1494 process_extension:
1495                                 ipri = -2;
1496                                 if ((cidmatch = strchr(realext, '/'))) {
1497                                         *cidmatch++ = '\0';
1498                                         ast_shrink_phone_number(cidmatch);
1499                                 }
1500                                 pri = ast_strip(S_OR(strsep(&stringp, ","), ""));
1501                                 if ((label = strchr(pri, '('))) {
1502                                         *label++ = '\0';
1503                                         if ((end = strchr(label, ')'))) {
1504                                                 *end = '\0';
1505                                         } else {
1506                                                 ast_log(LOG_WARNING,
1507                                                         "Label missing trailing ')' at line %d of %s\n",
1508                                                         v->lineno, vfile);
1509                                                 ast_free(tc);
1510                                                 continue;
1511                                         }
1512                                 }
1513                                 if ((plus = strchr(pri, '+'))) {
1514                                         *plus++ = '\0';
1515                                 }
1516                                 if (!strcmp(pri,"hint")) {
1517                                         ipri = PRIORITY_HINT;
1518                                 } else if (!strcmp(pri, "next") || !strcmp(pri, "n")) {
1519                                         if (lastpri > -2) {
1520                                                 ipri = lastpri + 1;
1521                                         } else {
1522                                                 ast_log(LOG_WARNING,
1523                                                         "Can't use 'next' priority on the first entry at line %d of %s!\n",
1524                                                         v->lineno, vfile);
1525                                                 ast_free(tc);
1526                                                 continue;
1527                                         }
1528                                 } else if (!strcmp(pri, "same") || !strcmp(pri, "s")) {
1529                                         if (lastpri > -2) {
1530                                                 ipri = lastpri;
1531                                         } else {
1532                                                 ast_log(LOG_WARNING,
1533                                                         "Can't use 'same' priority on the first entry at line %d of %s!\n",
1534                                                         v->lineno, vfile);
1535                                                 ast_free(tc);
1536                                                 continue;
1537                                         }
1538                                 } else if (sscanf(pri, "%30d", &ipri) != 1 &&
1539                                            (ipri = ast_findlabel_extension2(NULL, con, realext, pri, cidmatch)) < 1) {
1540                                         ast_log(LOG_WARNING,
1541                                                 "Invalid priority/label '%s' at line %d of %s\n",
1542                                                 pri, v->lineno, vfile);
1543                                         ipri = 0;
1544                                         ast_free(tc);
1545                                         continue;
1546                                 } else if (ipri < 1) {
1547                                         ast_log(LOG_WARNING, "Invalid priority '%s' at line %d of %s\n",
1548                                                 pri, v->lineno, vfile);
1549                                         ast_free(tc);
1550                                         continue;
1551                                 }
1552                                 appl = S_OR(stringp, "");
1553                                 /* Find the first occurrence of '(' */
1554                                 if (!strchr(appl, '(')) {
1555                                         /* No arguments */
1556                                         data = "";
1557                                 } else {
1558                                         char *orig_appl = ast_strdup(appl);
1559
1560                                         if (!orig_appl) {
1561                                                 ast_free(tc);
1562                                                 continue;
1563                                         }
1564
1565                                         appl = strsep(&stringp, "(");
1566
1567                                         /* check if there are variables or expressions without an application, like: exten => 100,hint,DAHDI/g0/${GLOBAL(var)}  */
1568                                         if (strstr(appl, "${") || strstr(appl, "$[")){
1569                                                 /* set appl to original one */
1570                                                 strcpy(appl, orig_appl);
1571                                                 /* set no data */
1572                                                 data = "";
1573                                         /* no variable before application found -> go ahead */
1574                                         } else {
1575                                                 data = S_OR(stringp, "");
1576                                                 if ((end = strrchr(data, ')'))) {
1577                                                         *end = '\0';
1578                                                 } else {
1579                                                         ast_log(LOG_WARNING,
1580                                                                 "No closing parenthesis found? '%s(%s' at line %d of %s\n",
1581                                                                 appl, data, v->lineno, vfile);
1582                                                 }
1583                                         }
1584                                         ast_free(orig_appl);
1585                                 }
1586
1587                                 appl = ast_skip_blanks(appl);
1588                                 if (ipri) {
1589                                         if (plus) {
1590                                                 ipri += atoi(plus);
1591                                         }
1592                                         lastpri = ipri;
1593                                         if (!ast_opt_dont_warn && (!strcmp(realext, "_.") || !strcmp(realext, "_!"))) {
1594                                                 ast_log(LOG_WARNING,
1595                                                         "The use of '%s' for an extension is strongly discouraged and can have unexpected behavior.  Please use '_X%c' instead at line %d of %s\n",
1596                                                         realext, realext[1], v->lineno, vfile);
1597                                         }
1598                                         if (ast_add_extension2(con, 0, realext, ipri, label, cidmatch, appl, ast_strdup(data), ast_free_ptr, registrar)) {
1599                                                 ast_log(LOG_WARNING,
1600                                                         "Unable to register extension at line %d of %s\n",
1601                                                         v->lineno, vfile);
1602                                         }
1603                                 }
1604                                 ast_free(tc);
1605                         } else if (!strcasecmp(v->name, "include")) {
1606                                 pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
1607                                 if (ast_context_add_include2(con, realvalue, registrar)) {
1608                                         switch (errno) {
1609                                         case ENOMEM:
1610                                                 ast_log(LOG_WARNING, "Out of memory for context addition\n");
1611                                                 break;
1612
1613                                         case EBUSY:
1614                                                 ast_log(LOG_WARNING, "Failed to lock context(s) list, please try again later\n");
1615                                                 break;
1616
1617                                         case EEXIST:
1618                                                 ast_log(LOG_WARNING,
1619                                                         "Context '%s' already included in '%s' context on include at line %d of %s\n",
1620                                                         v->value, cxt, v->lineno, vfile);
1621                                                 break;
1622
1623                                         case ENOENT:
1624                                         case EINVAL:
1625                                                 ast_log(LOG_WARNING,
1626                                                         "There is no existence of context '%s' included at line %d of %s\n",
1627                                                         errno == ENOENT ? v->value : cxt, v->lineno, vfile);
1628                                                 break;
1629
1630                                         default:
1631                                                 ast_log(LOG_WARNING,
1632                                                         "Failed to include '%s' in '%s' context at line %d of %s\n",
1633                                                         v->value, cxt, v->lineno, vfile);
1634                                                 break;
1635                                         }
1636                                 }
1637                         } else if (!strcasecmp(v->name, "ignorepat")) {
1638                                 pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
1639                                 if (ast_context_add_ignorepat2(con, realvalue, registrar)) {
1640                                         ast_log(LOG_WARNING,
1641                                                 "Unable to include ignorepat '%s' in context '%s' at line %d of %s\n",
1642                                                 v->value, cxt, v->lineno, vfile);
1643                                 }
1644                         } else if (!strcasecmp(v->name, "switch") || !strcasecmp(v->name, "lswitch") || !strcasecmp(v->name, "eswitch")) {
1645                                 char *appl, *data;
1646                                 stringp = realvalue;
1647
1648                                 if (!strcasecmp(v->name, "switch")) {
1649                                         pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
1650                                 } else {
1651                                         ast_copy_string(realvalue, v->value, sizeof(realvalue));
1652                                 }
1653                                 appl = strsep(&stringp, "/");
1654                                 data = S_OR(stringp, "");
1655                                 if (ast_context_add_switch2(con, appl, data, !strcasecmp(v->name, "eswitch"), registrar)) {
1656                                         ast_log(LOG_WARNING,
1657                                                 "Unable to include switch '%s' in context '%s' at line %d of %s\n",
1658                                                 v->value, cxt, v->lineno, vfile);
1659                                 }
1660                         } else {
1661                                 ast_log(LOG_WARNING,
1662                                         "==!!== Unknown directive: %s at line %d of %s -- IGNORING!!!\n",
1663                                         v->name, v->lineno, vfile);
1664                         }
1665                 }
1666         }
1667         ast_config_destroy(cfg);
1668         return 1;
1669 }
1670
1671 static void append_interface(char *iface, int maxlen, char *add)
1672 {
1673         int len = strlen(iface);
1674         if (strlen(add) + len < maxlen - 2) {
1675                 if (strlen(iface)) {
1676                         iface[len] = '&';
1677                         strcpy(iface + len + 1, add);
1678                 } else
1679                         strcpy(iface, add);
1680         }
1681 }
1682
1683 static void pbx_load_users(void)
1684 {
1685         struct ast_config *cfg;
1686         char *cat, *chan;
1687         const char *dahdichan;
1688         const char *hasexten, *altexts;
1689         char tmp[256];
1690         char iface[256];
1691         char dahdicopy[256];
1692         char *ext, altcopy[256];
1693         char *c;
1694         int hasvoicemail;
1695         int start, finish, x;
1696         struct ast_context *con = NULL;
1697         struct ast_flags config_flags = { 0 };
1698
1699         cfg = ast_config_load("users.conf", config_flags);
1700         if (!cfg)
1701                 return;
1702
1703         for (cat = ast_category_browse(cfg, NULL); cat ; cat = ast_category_browse(cfg, cat)) {
1704                 if (!strcasecmp(cat, "general"))
1705                         continue;
1706                 iface[0] = '\0';
1707                 if (ast_true(ast_config_option(cfg, cat, "hassip"))) {
1708                         snprintf(tmp, sizeof(tmp), "SIP/%s", cat);
1709                         append_interface(iface, sizeof(iface), tmp);
1710                 }
1711                 if (ast_true(ast_config_option(cfg, cat, "hasiax"))) {
1712                         snprintf(tmp, sizeof(tmp), "IAX2/%s", cat);
1713                         append_interface(iface, sizeof(iface), tmp);
1714                 }
1715                 if (ast_true(ast_config_option(cfg, cat, "hash323"))) {
1716                         snprintf(tmp, sizeof(tmp), "H323/%s", cat);
1717                         append_interface(iface, sizeof(iface), tmp);
1718                 }
1719                 hasexten = ast_config_option(cfg, cat, "hasexten");
1720                 if (hasexten && !ast_true(hasexten))
1721                         continue;
1722                 hasvoicemail = ast_true(ast_config_option(cfg, cat, "hasvoicemail"));
1723                 dahdichan = ast_variable_retrieve(cfg, cat, "dahdichan");
1724                 if (!dahdichan)
1725                         dahdichan = ast_variable_retrieve(cfg, "general", "dahdichan");
1726                 if (!ast_strlen_zero(dahdichan)) {
1727                         ast_copy_string(dahdicopy, dahdichan, sizeof(dahdicopy));
1728                         c = dahdicopy;
1729                         chan = strsep(&c, ",");
1730                         while (chan) {
1731                                 if (sscanf(chan, "%30d-%30d", &start, &finish) == 2) {
1732                                         /* Range */
1733                                 } else if (sscanf(chan, "%30d", &start)) {
1734                                         /* Just one */
1735                                         finish = start;
1736                                 } else {
1737                                         start = 0; finish = 0;
1738                                 }
1739                                 if (finish < start) {
1740                                         x = finish;
1741                                         finish = start;
1742                                         start = x;
1743                                 }
1744                                 for (x = start; x <= finish; x++) {
1745                                         snprintf(tmp, sizeof(tmp), "DAHDI/%d", x);
1746                                         append_interface(iface, sizeof(iface), tmp);
1747                                 }
1748                                 chan = strsep(&c, ",");
1749                         }
1750                 }
1751                 if (!ast_strlen_zero(iface)) {
1752                         /* Only create a context here when it is really needed. Otherwise default empty context
1753                         created by pbx_config may conflict with the one explicitly created by pbx_ael */
1754                         if (!con)
1755                                 con = ast_context_find_or_create(&local_contexts, local_table, userscontext, registrar);
1756
1757                         if (!con) {
1758                                 ast_log(LOG_ERROR, "Can't find/create user context '%s'\n", userscontext);
1759                                 return;
1760                         }
1761
1762                         /* Add hint */
1763                         ast_add_extension2(con, 0, cat, -1, NULL, NULL, iface, NULL, NULL, registrar);
1764                         /* If voicemail, use "stdexten" else use plain old dial */
1765                         if (hasvoicemail) {
1766                                 if (ast_opt_stdexten_macro) {
1767                                         /* Use legacy stdexten macro method. */
1768                                         snprintf(tmp, sizeof(tmp), "stdexten,%s,${HINT}", cat);
1769                                         ast_add_extension2(con, 0, cat, 1, NULL, NULL, "Macro", ast_strdup(tmp), ast_free_ptr, registrar);
1770                                 } else {
1771                                         snprintf(tmp, sizeof(tmp), "%s,stdexten(${HINT})", cat);
1772                                         ast_add_extension2(con, 0, cat, 1, NULL, NULL, "Gosub", ast_strdup(tmp), ast_free_ptr, registrar);
1773                                 }
1774                         } else {
1775                                 ast_add_extension2(con, 0, cat, 1, NULL, NULL, "Dial", ast_strdup("${HINT}"), ast_free_ptr, registrar);
1776                         }
1777                         altexts = ast_variable_retrieve(cfg, cat, "alternateexts");
1778                         if (!ast_strlen_zero(altexts)) {
1779                                 snprintf(tmp, sizeof(tmp), "%s,1", cat);
1780                                 ast_copy_string(altcopy, altexts, sizeof(altcopy));
1781                                 c = altcopy;
1782                                 ext = strsep(&c, ",");
1783                                 while (ext) {
1784                                         ast_add_extension2(con, 0, ext, 1, NULL, NULL, "Goto", ast_strdup(tmp), ast_free_ptr, registrar);
1785                                         ext = strsep(&c, ",");
1786                                 }
1787                         }
1788                 }
1789         }
1790         ast_config_destroy(cfg);
1791 }
1792
1793 static int pbx_load_module(void)
1794 {
1795         struct ast_context *con;
1796
1797         ast_mutex_lock(&reload_lock);
1798
1799         if (!local_table)
1800                 local_table = ast_hashtab_create(17, ast_hashtab_compare_contexts, ast_hashtab_resize_java, ast_hashtab_newsize_java, ast_hashtab_hash_contexts, 0);
1801
1802         if (!pbx_load_config(config)) {
1803                 ast_mutex_unlock(&reload_lock);
1804                 return AST_MODULE_LOAD_DECLINE;
1805         }
1806
1807         pbx_load_users();
1808
1809         ast_merge_contexts_and_delete(&local_contexts, local_table, registrar);
1810         local_table = NULL; /* the local table has been moved into the global one. */
1811         local_contexts = NULL;
1812
1813         ast_mutex_unlock(&reload_lock);
1814
1815         for (con = NULL; (con = ast_walk_contexts(con));)
1816                 ast_context_verify_includes(con);
1817
1818         pbx_set_overrideswitch(overrideswitch_config);
1819         pbx_set_autofallthrough(autofallthrough_config);
1820         pbx_set_extenpatternmatchnew(extenpatternmatchnew_config);
1821
1822         return AST_MODULE_LOAD_SUCCESS;
1823 }
1824
1825 static int load_module(void)
1826 {
1827         if (static_config && !write_protect_config)
1828                 ast_cli_register(&cli_dialplan_save);
1829         ast_cli_register_multiple(cli_pbx_config, ARRAY_LEN(cli_pbx_config));
1830
1831         if (pbx_load_module())
1832                 return AST_MODULE_LOAD_DECLINE;
1833
1834         return AST_MODULE_LOAD_SUCCESS;
1835 }
1836
1837 static int reload(void)
1838 {
1839         if (clearglobalvars_config)
1840                 pbx_builtin_clear_globals();
1841         return pbx_load_module();
1842 }
1843
1844 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_DEFAULT, "Text Extension Configuration",
1845                 .load = load_module,
1846                 .unload = unload_module,
1847                 .reload = reload,
1848                );