?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
(closes issue #12362) [redo of 113012]
[asterisk-bristuff.git] / pbx / pbx_config.c
blob565d7d8367099373e0de7a2905978818ff13edcd
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 #include "asterisk.h"
27
28 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
29
30 #include <sys/types.h>
31 #include <stdlib.h>
32 #include <stdio.h>
33 #include <string.h>
34 #include <ctype.h>
35 #include <errno.h>
36
37 #include "asterisk/pbx.h"
38 #include "asterisk/config.h"
39 #include "asterisk/options.h"
40 #include "asterisk/module.h"
41 #include "asterisk/logger.h"
42 #include "asterisk/cli.h"
43 #include "asterisk/callerid.h"
44
45 static char *config = "extensions.conf";
46 static 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
54 AST_MUTEX_DEFINE_STATIC(save_dialplan_lock);
55
56 static struct ast_context *local_contexts = NULL;
57
58 /*
59 * Help for commands provided by this module ...
60 */
61 static char context_add_extension_help[] =
62 "Usage: dialplan add extension <exten>,<priority>,<app>,<app-data>\n"
63 " into <context> [replace]\n\n"
64 " This command will add new extension into <context>. If there is an\n"
65 " existence of extension with the same priority and last 'replace'\n"
66 " arguments is given here we simply replace this extension.\n"
67 "\n"
68 "Example: dialplan add extension 6123,1,Dial,IAX/216.207.245.56/6123 into local\n"
69 " Now, you can dial 6123 and talk to Markster :)\n";
70
71 static char context_remove_extension_help[] =
72 "Usage: dialplan remove extension exten@context [priority]\n"
73 " Remove an extension from a given context. If a priority\n"
74 " is given, only that specific priority from the given extension\n"
75 " will be removed.\n";
76
77 static char context_add_ignorepat_help[] =
78 "Usage: dialplan add ignorepat <pattern> into <context>\n"
79 " This command adds a new ignore pattern into context <context>\n"
80 "\n"
81 "Example: dialplan add ignorepat _3XX into local\n";
82
83 static char context_remove_ignorepat_help[] =
84 "Usage: dialplan remove ignorepat <pattern> from <context>\n"
85 " This command removes an ignore pattern from context <context>\n"
86 "\n"
87 "Example: dialplan remove ignorepat _3XX from local\n";
88
89 static char context_add_include_help[] =
90 "Usage: dialplan add include <context> into <context>\n"
91 " Include a context in another context.\n";
92
93 static char context_remove_include_help[] =
94 "Usage: dialplan remove include <context> from <context>\n"
95 " Remove an included context from another context.\n";
96
97 static char save_dialplan_help[] =
98 "Usage: dialplan save [/path/to/extension/file]\n"
99 " Save dialplan created by pbx_config module.\n"
100 "\n"
101 "Example: dialplan save (/etc/asterisk/extensions.conf)\n"
102 " dialplan save /home/markster (/home/markster/extensions.conf)\n";
103
104 static char reload_extensions_help[] =
105 "Usage: dialplan reload\n"
106 " reload extensions.conf without reloading any other modules\n"
107 " This command does not delete global variables unless\n"
108 " clearglobalvars is set to yes in extensions.conf\n";
109
110 /*
111 * Implementation of functions provided by this module
112 */
113
114 /*!
115 * REMOVE INCLUDE command stuff
116 */
117 static int handle_context_dont_include_deprecated(int fd, int argc, char *argv[])
118 {
119 if (argc != 5)
120 return RESULT_SHOWUSAGE;
121
122 if (strcmp(argv[3], "into"))
123 return RESULT_SHOWUSAGE;
124
125 if (!ast_context_remove_include(argv[4], argv[2], registrar)) {
126 ast_cli(fd, "We are not including '%s' into '%s' now\n",
127 argv[2], argv[4]);
128 return RESULT_SUCCESS;
129 }
130
131 ast_cli(fd, "Failed to remove '%s' include from '%s' context\n",
132 argv[2], argv[4]);
133 return RESULT_FAILURE;
134 }
135
136 static int handle_context_remove_include(int fd, int argc, char *argv[])
137 {
138 if (argc != 6)
139 return RESULT_SHOWUSAGE;
140
141 if (strcmp(argv[4], "into"))
142 return RESULT_SHOWUSAGE;
143
144 if (!ast_context_remove_include(argv[5], argv[3], registrar)) {
145 ast_cli(fd, "We are not including '%s' into '%s' now\n",
146 argv[3], argv[5]);
147 return RESULT_SUCCESS;
148 }
149
150 ast_cli(fd, "Failed to remove '%s' include from '%s' context\n",
151 argv[3], argv[5]);
152 return RESULT_FAILURE;
153 }
154
155 /*! \brief return true if 'name' is included by context c */
156 static int lookup_ci(struct ast_context *c, const char *name)
157 {
158 struct ast_include *i = NULL;
159
160 if (ast_lock_context(c)) /* error, skip */
161 return 0;
162 while ( (i = ast_walk_context_includes(c, i)) )
163 if (!strcmp(name, ast_get_include_name(i)))
164 break;
165 ast_unlock_context(c);
166 return i ? -1 /* success */ : 0;
167 }
168
169 /*! \brief return true if 'name' is in the ignorepats for context c */
170 static int lookup_c_ip(struct ast_context *c, const char *name)
171 {
172 struct ast_ignorepat *ip = NULL;
173
174 if (ast_lock_context(c)) /* error, skip */
175 return 0;
176 while ( (ip = ast_walk_context_ignorepats(c, ip)) )
177 if (!strcmp(name, ast_get_ignorepat_name(ip)))
178 break;
179 ast_unlock_context(c);
180 return ip ? -1 /* success */ : 0;
181 }
182
183 /*! \brief moves to the n-th word in the string, or empty string if none */
184 static const char *skip_words(const char *p, int n)
185 {
186 int in_blank = 0;
187 for (;n && *p; p++) {
188 if (isblank(*p) /* XXX order is important */ && !in_blank) {
189 n--; /* one word is gone */
190 in_blank = 1;
191 } else if (/* !is_blank(*p), we know already, && */ in_blank) {
192 in_blank = 0;
193 }
194 }
195 return p;
196 }
197
198 /*! \brief match the first 'len' chars of word. len==0 always succeeds */
199 static int partial_match(const char *s, const char *word, int len)
200 {
201 return (len == 0 || !strncmp(s, word, len));
202 }
203
204 /*! \brief split extension\@context in two parts, return -1 on error.
205 * The return string is malloc'ed and pointed by *ext
206 */
207 static int split_ec(const char *src, char **ext, char ** const ctx)
208 {
209 char *c, *e = ast_strdup(src); /* now src is not used anymore */
210
211 if (e == NULL)
212 return -1; /* malloc error */
213 /* now, parse values from 'exten@context' */
214 *ext = e;
215 c = strchr(e, '@');
216 if (c == NULL) /* no context part */
217 *ctx = ""; /* it is not overwritten, anyways */
218 else { /* found context, check for duplicity ... */
219 *c++ = '\0';
220 *ctx = c;
221 if (strchr(c, '@')) { /* two @, not allowed */
222 free(e);
223 return -1;
224 }
225 }
226 return 0;
227 }
228
229 /* _X_ is the string we need to complete */
230 static char *complete_context_dont_include_deprecated(const char *line, const char *word,
231 int pos, int state)
232 {
233 int which = 0;
234 char *res = NULL;
235 int len = strlen(word); /* how many bytes to match */
236 struct ast_context *c = NULL;
237
238 if (pos == 2) { /* "dont include _X_" */
239 if (ast_wrlock_contexts()) {
240 ast_log(LOG_ERROR, "Failed to lock context list\n");
241 return NULL;
242 }
243 /* walk contexts and their includes, return the n-th match */
244 while (!res && (c = ast_walk_contexts(c))) {
245 struct ast_include *i = NULL;
246
247 if (ast_lock_context(c)) /* error ? skip this one */
248 continue;
249
250 while ( !res && (i = ast_walk_context_includes(c, i)) ) {
251 const char *i_name = ast_get_include_name(i);
252 struct ast_context *nc = NULL;
253 int already_served = 0;
254
255 if (!partial_match(i_name, word, len))
256 continue; /* not matched */
257
258 /* check if this include is already served or not */
259
260 /* go through all contexts again till we reach actual
261 * context or already_served = 1
262 */
263 while ( (nc = ast_walk_contexts(nc)) && nc != c && !already_served)
264 already_served = lookup_ci(nc, i_name);
265
266 if (!already_served && ++which > state)
267 res = strdup(i_name);
268 }
269 ast_unlock_context(c);
270 }
271
272 ast_unlock_contexts();
273 return res;
274 } else if (pos == 3) { /* "dont include CTX _X_" */
275 /*
276 * complete as 'in', but only if previous context is really
277 * included somewhere
278 */
279 char *context, *dupline;
280 const char *s = skip_words(line, 2); /* skip 'dont' 'include' */
281
282 if (state > 0)
283 return NULL;
284 context = dupline = strdup(s);
285 if (!dupline) {
286 ast_log(LOG_ERROR, "Out of free memory\n");
287 return NULL;
288 }
289 strsep(&dupline, " ");
290
291 if (ast_rdlock_contexts()) {
292 ast_log(LOG_ERROR, "Failed to lock contexts list\n");
293 free(context);
294 return NULL;
295 }
296
297 /* go through all contexts and check if is included ... */
298 while (!res && (c = ast_walk_contexts(c)))
299 if (lookup_ci(c, context)) /* context is really included, complete "in" command */
300 res = strdup("in");
301 ast_unlock_contexts();
302 if (!res)
303 ast_log(LOG_WARNING, "%s not included anywhere\n", context);
304 free(context);
305 return res;
306 } else if (pos == 4) { /* "dont include CTX in _X_" */
307 /*
308 * Context from which we removing include ...
309 */
310 char *context, *dupline, *in;
311 const char *s = skip_words(line, 2); /* skip 'dont' 'include' */
312 context = dupline = strdup(s);
313 if (!dupline) {
314 ast_log(LOG_ERROR, "Out of free memory\n");
315 return NULL;
316 }
317
318 strsep(&dupline, " "); /* skip context */
319
320 /* third word must be 'in' */
321 in = strsep(&dupline, " ");
322 if (!in || strcmp(in, "in")) {
323 free(context);
324 return NULL;
325 }
326
327 if (ast_rdlock_contexts()) {
328 ast_log(LOG_ERROR, "Failed to lock context list\n");
329 free(context);
330 return NULL;
331 }
332
333 /* walk through all contexts ... */
334 c = NULL;
335 while ( !res && (c = ast_walk_contexts(c))) {
336 const char *c_name = ast_get_context_name(c);
337 if (!partial_match(c_name, word, len)) /* not a good target */
338 continue;
339 /* walk through all includes and check if it is our context */
340 if (lookup_ci(c, context) && ++which > state)
341 res = strdup(c_name);
342 }
343 ast_unlock_contexts();
344 free(context);
345 return res;
346 }
347
348 return NULL;
349 }
350
351 static char *complete_context_remove_include(const char *line, const char *word,
352 int pos, int state)
353 {
354 int which = 0;
355 char *res = NULL;
356 int len = strlen(word); /* how many bytes to match */
357 struct ast_context *c = NULL;
358
359 if (pos == 3) { /* "dialplan remove include _X_" */
360 if (ast_rdlock_contexts()) {
361 ast_log(LOG_ERROR, "Failed to lock context list\n");
362 return NULL;
363 }
364 /* walk contexts and their includes, return the n-th match */
365 while (!res && (c = ast_walk_contexts(c))) {
366 struct ast_include *i = NULL;
367
368 if (ast_lock_context(c)) /* error ? skip this one */
369 continue;
370
371 while ( !res && (i = ast_walk_context_includes(c, i)) ) {
372 const char *i_name = ast_get_include_name(i);
373 struct ast_context *nc = NULL;
374 int already_served = 0;
375
376 if (!partial_match(i_name, word, len))
377 continue; /* not matched */
378
379 /* check if this include is already served or not */
380
381 /* go through all contexts again till we reach actual
382 * context or already_served = 1
383 */
384 while ( (nc = ast_walk_contexts(nc)) && nc != c && !already_served)
385 already_served = lookup_ci(nc, i_name);
386
387 if (!already_served && ++which > state)
388 res = strdup(i_name);
389 }
390 ast_unlock_context(c);
391 }
392
393 ast_unlock_contexts();
394 return res;
395 } else if (pos == 4) { /* "dialplan remove include CTX _X_" */
396 /*
397 * complete as 'from', but only if previous context is really
398 * included somewhere
399 */
400 char *context, *dupline;
401 const char *s = skip_words(line, 3); /* skip 'dialplan' 'remove' 'include' */
402
403 if (state > 0)
404 return NULL;
405 context = dupline = strdup(s);
406 if (!dupline) {
407 ast_log(LOG_ERROR, "Out of free memory\n");
408 return NULL;
409 }
410 strsep(&dupline, " ");
411
412 if (ast_rdlock_contexts()) {
413 ast_log(LOG_ERROR, "Failed to lock contexts list\n");
414 free(context);
415 return NULL;
416 }
417
418 /* go through all contexts and check if is included ... */
419 while (!res && (c = ast_walk_contexts(c)))
420 if (lookup_ci(c, context)) /* context is really included, complete "from" command */
421 res = strdup("from");
422 ast_unlock_contexts();
423 if (!res)
424 ast_log(LOG_WARNING, "%s not included anywhere\n", context);
425 free(context);
426 return res;
427 } else if (pos == 5) { /* "dialplan remove include CTX from _X_" */
428 /*
429 * Context from which we removing include ...
430 */
431 char *context, *dupline, *from;
432 const char *s = skip_words(line, 3); /* skip 'dialplan' 'remove' 'include' */
433 context = dupline = strdup(s);
434 if (!dupline) {
435 ast_log(LOG_ERROR, "Out of free memory\n");
436 return NULL;
437 }
438
439 strsep(&dupline, " "); /* skip context */
440
441 /* fourth word must be 'from' */
442 from = strsep(&dupline, " ");
443 if (!from || strcmp(from, "from")) {
444 free(context);
445 return NULL;
446 }
447
448 if (ast_rdlock_contexts()) {
449 ast_log(LOG_ERROR, "Failed to lock context list\n");
450 free(context);
451 return NULL;
452 }
453
454 /* walk through all contexts ... */
455 c = NULL;
456 while ( !res && (c = ast_walk_contexts(c))) {
457 const char *c_name = ast_get_context_name(c);
458 if (!partial_match(c_name, word, len)) /* not a good target */
459 continue;
460 /* walk through all includes and check if it is our context */
461 if (lookup_ci(c, context) && ++which > state)
462 res = strdup(c_name);
463 }
464 ast_unlock_contexts();
465 free(context);
466 return res;
467 }
468
469 return NULL;
470 }
471
472 /*!
473 * REMOVE EXTENSION command stuff
474 */
475 static int handle_context_remove_extension_deprecated(int fd, int argc, char *argv[])
476 {
477 int removing_priority = 0;
478 char *exten, *context;
479 int ret = RESULT_FAILURE;
480
481 if (argc != 4 && argc != 3) return RESULT_SHOWUSAGE;
482
483 /*
484 * Priority input checking ...
485 */
486 if (argc == 4) {
487 char *c = argv[3];
488
489 /* check for digits in whole parameter for right priority ...
490 * why? because atoi (strtol) returns 0 if any characters in
491 * string and whole extension will be removed, it's not good
492 */
493 if (!strcmp("hint", c))
494 removing_priority = PRIORITY_HINT;
495 else {
496 while (*c && isdigit(*c))
497 c++;
498 if (*c) { /* non-digit in string */
499 ast_cli(fd, "Invalid priority '%s'\n", argv[3]);
500 return RESULT_FAILURE;
501 }
502 removing_priority = atoi(argv[3]);
503 }
504
505 if (removing_priority == 0) {
506 ast_cli(fd, "If you want to remove whole extension, please " \
507 "omit priority argument\n");
508 return RESULT_FAILURE;
509 }
510 }
511
512 /* XXX original overwrote argv[2] */
513 /*
514 * Format exten@context checking ...
515 */
516 if (split_ec(argv[2], &exten, &context))
517 return RESULT_FAILURE; /* XXX malloc failure */
518 if ((!strlen(exten)) || (!(strlen(context)))) {
519 ast_cli(fd, "Missing extension or context name in second argument '%s'\n",
520 argv[2]);
521 free(exten);
522 return RESULT_FAILURE;
523 }
524
525 if (!ast_context_remove_extension(context, exten, removing_priority, registrar)) {
526 if (!removing_priority)
527 ast_cli(fd, "Whole extension %s@%s removed\n",
528 exten, context);
529 else
530 ast_cli(fd, "Extension %s@%s with priority %d removed\n",
531 exten, context, removing_priority);
532
533 ret = RESULT_SUCCESS;
534 } else {
535 ast_cli(fd, "Failed to remove extension %s@%s\n", exten, context);
536 ret = RESULT_FAILURE;
537 }
538 free(exten);
539 return ret;
540 }
541
542 static int handle_context_remove_extension(int fd, int argc, char *argv[])
543 {
544 int removing_priority = 0;
545 char *exten, *context;
546 int ret = RESULT_FAILURE;
547
548 if (argc != 5 && argc != 4) return RESULT_SHOWUSAGE;
549
550 /*
551 * Priority input checking ...
552 */
553 if (argc == 5) {
554 char *c = argv[4];
555
556 /* check for digits in whole parameter for right priority ...
557 * why? because atoi (strtol) returns 0 if any characters in
558 * string and whole extension will be removed, it's not good
559 */
560 if (!strcmp("hint", c))
561 removing_priority = PRIORITY_HINT;
562 else {
563 while (*c && isdigit(*c))
564 c++;
565 if (*c) { /* non-digit in string */
566 ast_cli(fd, "Invalid priority '%s'\n", argv[4]);
567 return RESULT_FAILURE;
568 }
569 removing_priority = atoi(argv[4]);
570 }
571
572 if (removing_priority == 0) {
573 ast_cli(fd, "If you want to remove whole extension, please " \
574 "omit priority argument\n");
575 return RESULT_FAILURE;
576 }
577 }
578
579 /* XXX original overwrote argv[3] */
580 /*
581 * Format exten@context checking ...
582 */
583 if (split_ec(argv[3], &exten, &context))
584 return RESULT_FAILURE; /* XXX malloc failure */
585 if ((!strlen(exten)) || (!(strlen(context)))) {
586 ast_cli(fd, "Missing extension or context name in third argument '%s'\n",
587 argv[3]);
588 free(exten);
589 return RESULT_FAILURE;
590 }
591
592 if (!ast_context_remove_extension(context, exten, removing_priority, registrar)) {
593 if (!removing_priority)
594 ast_cli(fd, "Whole extension %s@%s removed\n",
595 exten, context);
596 else
597 ast_cli(fd, "Extension %s@%s with priority %d removed\n",
598 exten, context, removing_priority);
599
600 ret = RESULT_SUCCESS;
601 } else {
602 ast_cli(fd, "Failed to remove extension %s@%s\n", exten, context);
603 ret = RESULT_FAILURE;
604 }
605 free(exten);
606 return ret;
607 }
608
609 #define BROKEN_READLINE 1
610
611 #ifdef BROKEN_READLINE
612 /*
613 * There is one funny thing, when you have word like 300@ and you hit
614 * <tab>, you arguments will like as your word is '300 ', so it '@'
615 * characters acts sometimes as word delimiter and sometimes as a part
616 * of word
617 *
618 * This fix function, allocates new word variable and store here every
619 * time xxx@yyy always as one word and correct pos is set too
620 *
621 * It's ugly, I know, but I'm waiting for Mark suggestion if upper is
622 * bug or feature ...
623 */
624 static int fix_complete_args(const char *line, char **word, int *pos)
625 {
626 char *_line, *_strsep_line, *_previous_word = NULL, *_word = NULL;
627 int words = 0;
628
629 _line = strdup(line);
630
631 _strsep_line = _line;
632 while (_strsep_line) {
633 _previous_word = _word;
634 _word = strsep(&_strsep_line, " ");
635
636 if (_word && strlen(_word)) words++;
637 }
638
639
640 if (_word || _previous_word) {
641 if (_word) {
642 if (!strlen(_word)) words++;
643 *word = strdup(_word);
644 } else
645 *word = strdup(_previous_word);
646 *pos = words - 1;
647 free(_line);
648 return 0;
649 }
650
651 free(_line);
652 return -1;
653 }
654 #endif /* BROKEN_READLINE */
655
656 static char *complete_context_remove_extension_deprecated(const char *line, const char *word, int pos,
657 int state)
658 {
659 char *ret = NULL;
660 int which = 0;
661
662 #ifdef BROKEN_READLINE
663 char *word2;
664 /*
665 * Fix arguments, *word is a new allocated structure, REMEMBER to
666 * free *word when you want to return from this function ...
667 */
668 if (fix_complete_args(line, &word2, &pos)) {
669 ast_log(LOG_ERROR, "Out of free memory\n");
670 return NULL;
671 }
672 word = word2;
673 #endif
674
675 if (pos == 2) { /* 'remove extension _X_' (exten@context ... */
676 struct ast_context *c = NULL;
677 char *context = NULL, *exten = NULL;
678 int le = 0; /* length of extension */
679 int lc = 0; /* length of context */
680
681 lc = split_ec(word, &exten, &context);
682 #ifdef BROKEN_READLINE
683 free(word2);
684 #endif
685 if (lc) /* error */
686 return NULL;
687 le = strlen(exten);
688 lc = strlen(context);
689
690 if (ast_rdlock_contexts()) {
691 ast_log(LOG_ERROR, "Failed to lock context list\n");
692 goto error2;
693 }
694
695 /* find our context ... */
696 while ( (c = ast_walk_contexts(c)) ) { /* match our context if any */
697 struct ast_exten *e = NULL;
698 /* XXX locking ? */
699 if (!partial_match(ast_get_context_name(c), context, lc))
700 continue; /* context not matched */
701 while ( (e = ast_walk_context_extensions(c, e)) ) { /* try to complete extensions ... */
702 if ( partial_match(ast_get_extension_name(e), exten, le) && ++which > state) { /* n-th match */
703 /* If there is an extension then return exten@context. XXX otherwise ? */
704 if (exten)
705 asprintf(&ret, "%s@%s", ast_get_extension_name(e), ast_get_context_name(c));
706 break;
707 }
708 }
709 if (e) /* got a match */
710 break;
711 }
712
713 ast_unlock_contexts();
714 error2:
715 if (exten)
716 free(exten);
717 } else if (pos == 3) { /* 'remove extension EXT _X_' (priority) */
718 char *exten = NULL, *context, *p;
719 struct ast_context *c;
720 int le, lc, len;
721 const char *s = skip_words(line, 2); /* skip 'remove' 'extension' */
722 int i = split_ec(s, &exten, &context); /* parse ext@context */
723
724 if (i) /* error */
725 goto error3;
726 if ( (p = strchr(exten, ' ')) ) /* remove space after extension */
727 *p = '\0';
728 if ( (p = strchr(context, ' ')) ) /* remove space after context */
729 *p = '\0';
730 le = strlen(exten);
731 lc = strlen(context);
732 len = strlen(word);
733 if (le == 0 || lc == 0)
734 goto error3;
735
736 if (ast_rdlock_contexts()) {
737 ast_log(LOG_ERROR, "Failed to lock context list\n");
738 goto error3;
739 }
740
741 /* walk contexts */
742 c = NULL;
743 while ( (c = ast_walk_contexts(c)) ) {
744 /* XXX locking on c ? */
745 struct ast_exten *e;
746 if (strcmp(ast_get_context_name(c), context) != 0)
747 continue;
748 /* got it, we must match here */
749 e = NULL;
750 while ( (e = ast_walk_context_extensions(c, e)) ) {
751 struct ast_exten *priority;
752 char buffer[10];
753
754 if (strcmp(ast_get_extension_name(e), exten) != 0)
755 continue;
756 /* XXX lock e ? */
757 priority = NULL;
758 while ( !ret && (priority = ast_walk_extension_priorities(e, priority)) ) {
759 snprintf(buffer, sizeof(buffer), "%u", ast_get_extension_priority(priority));
760 if (partial_match(buffer, word, len) && ++which > state) /* n-th match */
761 ret = strdup(buffer);
762 }
763 break;
764 }
765 break;
766 }
767 ast_unlock_contexts();
768 error3:
769 if (exten)
770 free(exten);
771 #ifdef BROKEN_READLINE
772 free(word2);
773 #endif
774 }
775 return ret;
776 }
777
778 static char *complete_context_remove_extension(const char *line, const char *word, int pos,
779 int state)
780 {
781 char *ret = NULL;
782 int which = 0;
783
784 #ifdef BROKEN_READLINE
785 char *word2;
786 /*
787 * Fix arguments, *word is a new allocated structure, REMEMBER to
788 * free *word when you want to return from this function ...
789 */
790 if (fix_complete_args(line, &word2, &pos)) {
791 ast_log(LOG_ERROR, "Out of free memory\n");
792 return NULL;
793 }
794 word = word2;
795 #endif
796
797 if (pos == 3) { /* 'dialplan remove extension _X_' (exten@context ... */
798 struct ast_context *c = NULL;
799 char *context = NULL, *exten = NULL;
800 int le = 0; /* length of extension */
801 int lc = 0; /* length of context */
802
803 lc = split_ec(word, &exten, &context);
804 #ifdef BROKEN_READLINE
805 free(word2);
806 #endif
807 if (lc) /* error */
808 return NULL;
809 le = strlen(exten);
810 lc = strlen(context);
811
812 if (ast_rdlock_contexts()) {
813 ast_log(LOG_ERROR, "Failed to lock context list\n");
814 goto error2;
815 }
816
817 /* find our context ... */
818 while ( (c = ast_walk_contexts(c)) ) { /* match our context if any */
819 struct ast_exten *e = NULL;
820 /* XXX locking ? */
821 if (!partial_match(ast_get_context_name(c), context, lc))
822 continue; /* context not matched */
823 while ( (e = ast_walk_context_extensions(c, e)) ) { /* try to complete extensions ... */
824 if ( partial_match(ast_get_extension_name(e), exten, le) && ++which > state) { /* n-th match */
825 /* If there is an extension then return exten@context. XXX otherwise ? */
826 if (exten)
827 asprintf(&ret, "%s@%s", ast_get_extension_name(e), ast_get_context_name(c));
828 break;
829 }
830 }
831 if (e) /* got a match */
832 break;
833 }
834
835 ast_unlock_contexts();
836 error2:
837 if (exten)
838 free(exten);
839 } else if (pos == 4) { /* 'dialplan remove extension EXT _X_' (priority) */
840 char *exten = NULL, *context, *p;
841 struct ast_context *c;
842 int le, lc, len;
843 const char *s = skip_words(line, 3); /* skip 'dialplan' 'remove' 'extension' */
844 int i = split_ec(s, &exten, &context); /* parse ext@context */
845
846 if (i) /* error */
847 goto error3;
848 if ( (p = strchr(exten, ' ')) ) /* remove space after extension */
849 *p = '\0';
850 if ( (p = strchr(context, ' ')) ) /* remove space after context */
851 *p = '\0';
852 le = strlen(exten);
853 lc = strlen(context);
854 len = strlen(word);
855 if (le == 0 || lc == 0)
856 goto error3;
857
858 if (ast_rdlock_contexts()) {
859 ast_log(LOG_ERROR, "Failed to lock context list\n");
860 goto error3;
861 }
862
863 /* walk contexts */
864 c = NULL;
865 while ( (c = ast_walk_contexts(c)) ) {
866 /* XXX locking on c ? */
867 struct ast_exten *e;
868 if (strcmp(ast_get_context_name(c), context) != 0)
869 continue;
870 /* got it, we must match here */
871 e = NULL;
872 while ( (e = ast_walk_context_extensions(c, e)) ) {
873 struct ast_exten *priority;
874 char buffer[10];
875
876 if (strcmp(ast_get_extension_name(e), exten) != 0)
877 continue;
878 /* XXX lock e ? */
879 priority = NULL;
880 while ( !ret && (priority = ast_walk_extension_priorities(e, priority)) ) {
881 snprintf(buffer, sizeof(buffer), "%u", ast_get_extension_priority(priority));
882 if (partial_match(buffer, word, len) && ++which > state) /* n-th match */
883 ret = strdup(buffer);
884 }
885 break;
886 }
887 break;
888 }
889 ast_unlock_contexts();
890 error3:
891 if (exten)
892 free(exten);
893 #ifdef BROKEN_READLINE
894 free(word2);
895 #endif
896 }
897 return ret;
898 }
899
900 /*!
901 * Include context ...
902 */
903 static int handle_context_add_include_deprecated(int fd, int argc, char *argv[])
904 {
905 if (argc != 5) /* include context CTX in CTX */
906 return RESULT_SHOWUSAGE;
907
908 /* third arg must be 'in' ... */
909 if (strcmp(argv[3], "in") && strcmp(argv[3], "into")) /* XXX why both ? */
910 return RESULT_SHOWUSAGE;
911
912 if (ast_context_add_include(argv[4], argv[2], registrar)) {
913 switch (errno) {
914 case ENOMEM:
915 ast_cli(fd, "Out of memory for context addition\n");
916 break;
917
918 case EBUSY:
919 ast_cli(fd, "Failed to lock context(s) list, please try again later\n");
920 break;
921
922 case EEXIST:
923 ast_cli(fd, "Context '%s' already included in '%s' context\n",
924 argv[2], argv[4]);
925 break;
926
927 case ENOENT:
928 case EINVAL:
929 ast_cli(fd, "There is no existence of context '%s'\n",
930 errno == ENOENT ? argv[4] : argv[2]);
931 break;
932
933 default:
934 ast_cli(fd, "Failed to include '%s' in '%s' context\n",
935 argv[2], argv[4]);
936 break;
937 }
938 return RESULT_FAILURE;
939 }
940
941 /* show some info ... */
942 ast_cli(fd, "Context '%s' included in '%s' context\n",
943 argv[2], argv[4]);
944
945 return RESULT_SUCCESS;
946 }
947
948 static int handle_context_add_include(int fd, int argc, char *argv[])
949 {
950 if (argc != 6) /* dialplan add include CTX in CTX */
951 return RESULT_SHOWUSAGE;
952
953 /* fifth arg must be 'into' ... */
954 if (strcmp(argv[4], "into"))
955 return RESULT_SHOWUSAGE;
956
957 if (ast_context_add_include(argv[5], argv[3], registrar)) {
958 switch (errno) {
959 case ENOMEM:
960 ast_cli(fd, "Out of memory for context addition\n");
961 break;
962
963 case EBUSY:
964 ast_cli(fd, "Failed to lock context(s) list, please try again later\n");
965 break;
966
967 case EEXIST:
968 ast_cli(fd, "Context '%s' already included in '%s' context\n",
969 argv[3], argv[5]);
970 break;
971
972 case ENOENT:
973 case EINVAL:
974 ast_cli(fd, "There is no existence of context '%s'\n",
975 errno == ENOENT ? argv[5] : argv[3]);
976 break;
977
978 default:
979 ast_cli(fd, "Failed to include '%s' in '%s' context\n",
980 argv[3], argv[5]);
981 break;
982 }
983 return RESULT_FAILURE;
984 }
985
986 /* show some info ... */
987 ast_cli(fd, "Context '%s' included in '%s' context\n",
988 argv[3], argv[5]);
989
990 return RESULT_SUCCESS;
991 }
992
993 static char *complete_context_add_include_deprecated(const char *line, const char *word, int pos,
994 int state)
995 {
996 struct ast_context *c;
997 int which = 0;
998 char *ret = NULL;
999 int len = strlen(word);
1000
1001 if (pos == 2) { /* 'include context _X_' (context) ... */
1002 if (ast_rdlock_contexts()) {
1003 ast_log(LOG_ERROR, "Failed to lock context list\n");
1004 return NULL;
1005 }
1006 for (c = NULL; !ret && (c = ast_walk_contexts(c)); )
1007 if (partial_match(ast_get_context_name(c), word, len) && ++which > state)
1008 ret = strdup(ast_get_context_name(c));
1009 ast_unlock_contexts();
1010 return ret;
1011 } else if (pos == 3) { /* include context CTX _X_ */
1012 /* complete as 'in' if context exists or we are unable to check */
1013 char *context, *dupline;
1014 struct ast_context *c;
1015 const char *s = skip_words(line, 2); /* should not fail */
1016
1017 if (state != 0) /* only once */
1018 return NULL;
1019
1020 /* parse context from line ... */
1021 context = dupline = strdup(s);
1022 if (!context) {
1023 ast_log(LOG_ERROR, "Out of free memory\n");
1024 return strdup("in");
1025 }
1026 strsep(&dupline, " ");
1027
1028 /* check for context existence ... */
1029 if (ast_rdlock_contexts()) {
1030 ast_log(LOG_ERROR, "Failed to lock context list\n");
1031 /* our fault, we can't check, so complete 'in' ... */
1032 ret = strdup("in");
1033 } else {
1034 for (c = NULL; !ret && (c = ast_walk_contexts(c)); )
1035 if (!strcmp(context, ast_get_context_name(c)))
1036 ret = strdup("in"); /* found */
1037 ast_unlock_contexts();
1038 }
1039 free(context);
1040 return ret;
1041 } else if (pos == 4) { /* 'include context CTX in _X_' (dst context) */
1042 char *context, *dupline, *in;
1043 const char *s = skip_words(line, 2); /* should not fail */
1044 context = dupline = strdup(s);
1045 if (!dupline) {
1046 ast_log(LOG_ERROR, "Out of free memory\n");
1047 return NULL;
1048 }
1049 strsep(&dupline, " "); /* skip context */
1050 in = strsep(&dupline, " ");
1051 /* error if missing context or third word is not 'in' */
1052 if (!strlen(context) || strcmp(in, "in")) {
1053 ast_log(LOG_ERROR, "bad context %s or missing in %s\n",
1054 context, in);
1055 goto error3;
1056 }
1057
1058 if (ast_rdlock_contexts()) {
1059 ast_log(LOG_ERROR, "Failed to lock context list\n");
1060 goto error3;
1061 }
1062
1063 for (c = NULL; (c = ast_walk_contexts(c)); )
1064 if (!strcmp(context, ast_get_context_name(c)))
1065 break;
1066 if (c) { /* first context exists, go on... */
1067 /* go through all contexts ... */
1068 for (c = NULL; !ret && (c = ast_walk_contexts(c)); ) {
1069 if (!strcmp(context, ast_get_context_name(c)))
1070 continue; /* skip ourselves */
1071 if (partial_match(ast_get_context_name(c), word, len) &&
1072 !lookup_ci(c, context) /* not included yet */ &&
1073 ++which > state)
1074 ret = strdup(ast_get_context_name(c));
1075 }
1076 } else {
1077 ast_log(LOG_ERROR, "context %s not found\n", context);
1078 }
1079 ast_unlock_contexts();
1080 error3:
1081 free(context);
1082 return ret;
1083 }
1084
1085 return NULL;
1086 }
1087
1088 static char *complete_context_add_include(const char *line, const char *word, int pos,
1089 int state)
1090 {
1091 struct ast_context *c;
1092 int which = 0;
1093 char *ret = NULL;
1094 int len = strlen(word);
1095
1096 if (pos == 3) { /* 'dialplan add include _X_' (context) ... */
1097 if (ast_rdlock_contexts()) {
1098 ast_log(LOG_ERROR, "Failed to lock context list\n");
1099 return NULL;
1100 }
1101 for (c = NULL; !ret && (c = ast_walk_contexts(c)); )
1102 if (partial_match(ast_get_context_name(c), word, len) && ++which > state)
1103 ret = strdup(ast_get_context_name(c));
1104 ast_unlock_contexts();
1105 return ret;
1106 } else if (pos == 4) { /* dialplan add include CTX _X_ */
1107 /* complete as 'into' if context exists or we are unable to check */
1108 char *context, *dupline;
1109 struct ast_context *c;
1110 const char *s = skip_words(line, 3); /* should not fail */
1111
1112 if (state != 0) /* only once */
1113 return NULL;
1114
1115 /* parse context from line ... */
1116 context = dupline = strdup(s);
1117 if (!context) {
1118 ast_log(LOG_ERROR, "Out of free memory\n");
1119 return strdup("into");
1120 }
1121 strsep(&dupline, " ");
1122
1123 /* check for context existence ... */
1124 if (ast_rdlock_contexts()) {
1125 ast_log(LOG_ERROR, "Failed to lock context list\n");
1126 /* our fault, we can't check, so complete 'into' ... */
1127 ret = strdup("into");
1128 } else {
1129 for (c = NULL; !ret && (c = ast_walk_contexts(c)); )
1130 if (!strcmp(context, ast_get_context_name(c)))
1131 ret = strdup("into"); /* found */
1132 ast_unlock_contexts();
1133 }
1134 free(context);
1135 return ret;
1136 } else if (pos == 5) { /* 'dialplan add include CTX into _X_' (dst context) */
1137 char *context, *dupline, *into;
1138 const char *s = skip_words(line, 3); /* should not fail */
1139 context = dupline = strdup(s);
1140 if (!dupline) {
1141 ast_log(LOG_ERROR, "Out of free memory\n");
1142 return NULL;
1143 }
1144 strsep(&dupline, " "); /* skip context */
1145 into = strsep(&dupline, " ");
1146 /* error if missing context or fifth word is not 'into' */
1147 if (!strlen(context) || strcmp(into, "into")) {
1148 ast_log(LOG_ERROR, "bad context %s or missing into %s\n",
1149 context, into);
1150 goto error3;
1151 }
1152
1153 if (ast_rdlock_contexts()) {
1154 ast_log(LOG_ERROR, "Failed to lock context list\n");
1155 goto error3;
1156 }
1157
1158 for (c = NULL; (c = ast_walk_contexts(c)); )
1159 if (!strcmp(context, ast_get_context_name(c)))
1160 break;
1161 if (c) { /* first context exists, go on... */
1162 /* go through all contexts ... */
1163 for (c = NULL; !ret && (c = ast_walk_contexts(c)); ) {
1164 if (!strcmp(context, ast_get_context_name(c)))
1165 continue; /* skip ourselves */
1166 if (partial_match(ast_get_context_name(c), word, len) &&
1167 !lookup_ci(c, context) /* not included yet */ &&
1168 ++which > state)
1169 ret = strdup(ast_get_context_name(c));
1170 }
1171 } else {
1172 ast_log(LOG_ERROR, "context %s not found\n", context);
1173 }
1174 ast_unlock_contexts();
1175 error3:
1176 free(context);
1177 return ret;
1178 }
1179
1180 return NULL;
1181 }
1182
1183 /*!
1184 * \brief 'save dialplan' CLI command implementation functions ...
1185 */
1186 static int handle_save_dialplan(int fd, int argc, char *argv[])
1187 {
1188 char filename[256];
1189 struct ast_context *c;
1190 struct ast_config *cfg;
1191 struct ast_variable *v;
1192 int incomplete = 0; /* incomplete config write? */
1193 FILE *output;
1194
1195 const char *base, *slash, *file;
1196
1197 if (! (static_config && !write_protect_config)) {
1198 ast_cli(fd,
1199 "I can't save dialplan now, see '%s' example file.\n",
1200 config);
1201 return RESULT_FAILURE;
1202 }
1203
1204 if (argc != 2 && argc != 3)
1205 return RESULT_SHOWUSAGE;
1206
1207 if (ast_mutex_lock(&save_dialplan_lock)) {
1208 ast_cli(fd,
1209 "Failed to lock dialplan saving (another proccess saving?)\n");
1210 return RESULT_FAILURE;
1211 }
1212 /* XXX the code here is quite loose, a pathname with .conf in it
1213 * is assumed to be a complete pathname
1214 */
1215 if (argc == 3) { /* have config path. Look for *.conf */
1216 base = argv[2];
1217 if (!strstr(argv[2], ".conf")) { /*no, this is assumed to be a pathname */
1218 /* if filename ends with '/', do not add one */
1219 slash = (*(argv[2] + strlen(argv[2]) -1) == '/') ? "/" : "";
1220 file = config; /* default: 'extensions.conf' */
1221 } else { /* yes, complete file name */
1222 slash = "";
1223 file = "";
1224 }
1225 } else {
1226 /* no config file, default one */
1227 base = ast_config_AST_CONFIG_DIR;
1228 slash = "/";
1229 file = config;
1230 }
1231 snprintf(filename, sizeof(filename), "%s%s%s", base, slash, config);
1232
1233 cfg = ast_config_load("extensions.conf");
1234
1235 /* try to lock contexts list */
1236 if (ast_rdlock_contexts()) {
1237 ast_cli(fd, "Failed to lock contexts list\n");
1238 ast_mutex_unlock(&save_dialplan_lock);
1239 ast_config_destroy(cfg);
1240 return RESULT_FAILURE;
1241 }
1242
1243 /* create new file ... */
1244 if (!(output = fopen(filename, "wt"))) {
1245 ast_cli(fd, "Failed to create file '%s'\n",
1246 filename);
1247 ast_unlock_contexts();
1248 ast_mutex_unlock(&save_dialplan_lock);
1249 ast_config_destroy(cfg);
1250 return RESULT_FAILURE;
1251 }
1252
1253 /* fireout general info */
1254 fprintf(output, "[general]\nstatic=%s\nwriteprotect=%s\nautofallthrough=%s\nclearglobalvars=%s\npriorityjumping=%s\n\n",
1255 static_config ? "yes" : "no",
1256 write_protect_config ? "yes" : "no",
1257 autofallthrough_config ? "yes" : "no",
1258 clearglobalvars_config ? "yes" : "no",
1259 ast_true(ast_variable_retrieve(cfg, "general", "priorityjumping")) ? "yes" : "no");
1260
1261 if ((v = ast_variable_browse(cfg, "globals"))) {
1262 fprintf(output, "[globals]\n");
1263 while(v) {
1264 fprintf(output, "%s => %s\n", v->name, v->value);
1265 v = v->next;
1266 }
1267 fprintf(output, "\n");
1268 }
1269
1270 ast_config_destroy(cfg);
1271
1272 #define PUT_CTX_HDR do { \
1273 if (!context_header_written) { \
1274 fprintf(output, "[%s]\n", ast_get_context_name(c)); \
1275 context_header_written = 1; \
1276 } \
1277 } while (0)
1278
1279 /* walk all contexts */
1280 for (c = NULL; (c = ast_walk_contexts(c)); ) {
1281 int context_header_written = 0;
1282 struct ast_exten *e, *last_written_e = NULL;
1283 struct ast_include *i;
1284 struct ast_ignorepat *ip;
1285 struct ast_sw *sw;
1286
1287 /* try to lock context and fireout all info */
1288 if (ast_lock_context(c)) { /* lock failure */
1289 incomplete = 1;
1290 continue;
1291 }
1292 /* registered by this module? */
1293 /* XXX do we need this ? */
1294 if (!strcmp(ast_get_context_registrar(c), registrar)) {
1295 fprintf(output, "[%s]\n", ast_get_context_name(c));
1296 context_header_written = 1;
1297 }
1298
1299 /* walk extensions ... */
1300 for (e = NULL; (e = ast_walk_context_extensions(c, e)); ) {
1301 struct ast_exten *p = NULL;
1302
1303 /* fireout priorities */
1304 while ( (p = ast_walk_extension_priorities(e, p)) ) {
1305 if (strcmp(ast_get_extension_registrar(p), registrar) != 0) /* not this source */
1306 continue;
1307
1308 /* make empty line between different extensions */
1309 if (last_written_e != NULL &&
1310 strcmp(ast_get_extension_name(last_written_e),
1311 ast_get_extension_name(p)))
1312 fprintf(output, "\n");
1313 last_written_e = p;
1314
1315 PUT_CTX_HDR;
1316
1317 if (ast_get_extension_priority(p)==PRIORITY_HINT) { /* easy */
1318 fprintf(output, "exten => %s,hint,%s\n",
1319 ast_get_extension_name(p),
1320 ast_get_extension_app(p));
1321 } else { /* copy and replace '|' with ',' */
1322 const char *sep, *cid;
1323 char *tempdata = "";
1324 char *s;
1325 const char *el = ast_get_extension_label(p);
1326 char label[128] = "";
1327
1328 s = ast_get_extension_app_data(p);
1329 if (s) {
1330 char *t;
1331 tempdata = alloca(strlen(tempdata) * 2 + 1);
1332
1333 for (t = tempdata; *s; s++, t++) {
1334 if (*s == '|')
1335 *t = ',';
1336 else {
1337 if (*s == ',' || *s == ';')
1338 *t++ = '\\';
1339 *t = *s;
1340 }
1341 }
1342 /* Terminating NULL */
1343 *t = *s;
1344 }
1345
1346 if (ast_get_extension_matchcid(p)) {
1347 sep = "/";
1348 cid = ast_get_extension_cidmatch(p);
1349 } else
1350 sep = cid = "";
1351
1352 if (el && (snprintf(label, sizeof(label), "(%s)", el) != (strlen(el) + 2)))
1353 incomplete = 1; /* error encountered or label > 125 chars */
1354
1355 fprintf(output, "exten => %s%s%s,%d%s,%s(%s)\n",
1356 ast_get_extension_name(p), (ast_strlen_zero(sep) ? "" : sep), (ast_strlen_zero(cid) ? "" : cid),
1357 ast_get_extension_priority(p), label,
1358 ast_get_extension_app(p), (ast_strlen_zero(tempdata) ? "" : tempdata));
1359 }
1360 }
1361 }
1362
1363 /* written any extensions? ok, write space between exten & inc */
1364 if (last_written_e)
1365 fprintf(output, "\n");
1366
1367 /* walk through includes */
1368 for (i = NULL; (i = ast_walk_context_includes(c, i)) ; ) {
1369 if (strcmp(ast_get_include_registrar(i), registrar) != 0)
1370 continue; /* not mine */
1371 PUT_CTX_HDR;
1372 fprintf(output, "include => %s\n", ast_get_include_name(i));
1373 }
1374 if (ast_walk_context_includes(c, NULL))
1375 fprintf(output, "\n");
1376
1377 /* walk through switches */
1378 for (sw = NULL; (sw = ast_walk_context_switches(c, sw)) ; ) {
1379 if (strcmp(ast_get_switch_registrar(sw), registrar) != 0)
1380 continue; /* not mine */
1381 PUT_CTX_HDR;
1382 fprintf(output, "switch => %s/%s\n",
1383 ast_get_switch_name(sw), ast_get_switch_data(sw));
1384 }
1385
1386 if (ast_walk_context_switches(c, NULL))
1387 fprintf(output, "\n");
1388
1389 /* fireout ignorepats ... */
1390 for (ip = NULL; (ip = ast_walk_context_ignorepats(c, ip)); ) {
1391 if (strcmp(ast_get_ignorepat_registrar(ip), registrar) != 0)
1392 continue; /* not mine */
1393 PUT_CTX_HDR;
1394 fprintf(output, "ignorepat => %s\n",
1395 ast_get_ignorepat_name(ip));
1396 }
1397
1398 ast_unlock_context(c);
1399 }
1400
1401 ast_unlock_contexts();
1402 ast_mutex_unlock(&save_dialplan_lock);
1403 fclose(output);
1404
1405 if (incomplete) {
1406 ast_cli(fd, "Saved dialplan is incomplete\n");
1407 return RESULT_FAILURE;
1408 }
1409
1410 ast_cli(fd, "Dialplan successfully saved into '%s'\n",
1411 filename);
1412 return RESULT_SUCCESS;
1413 }
1414
1415 /*!
1416 * \brief ADD EXTENSION command stuff
1417 */
1418 static int handle_context_add_extension_deprecated(int fd, int argc, char *argv[])
1419 {
1420 char *whole_exten;
1421 char *exten, *prior;
1422 int iprior = -2;
1423 char *cidmatch, *app, *app_data;
1424 char *start, *end;
1425
1426 /* check for arguments at first */
1427 if (argc != 5 && argc != 6)
1428 return RESULT_SHOWUSAGE;
1429 if (strcmp(argv[3], "into"))
1430 return RESULT_SHOWUSAGE;
1431 if (argc == 6) if (strcmp(argv[5], "replace")) return RESULT_SHOWUSAGE;
1432
1433 /* XXX overwrite argv[2] */
1434 whole_exten = argv[2];
1435 exten = strsep(&whole_exten,",");
1436 if (strchr(exten, '/')) {
1437 cidmatch = exten;
1438 strsep(&cidmatch,"/");
1439 } else {
1440 cidmatch = NULL;
1441 }
1442 prior = strsep(&whole_exten,",");
1443 if (prior) {
1444 if (!strcmp(prior, "hint")) {
1445 iprior = PRIORITY_HINT;
1446 } else {
1447 if (sscanf(prior, "%d", &iprior) != 1) {
1448 ast_cli(fd, "'%s' is not a valid priority\n", prior);
1449 prior = NULL;
1450 }
1451 }
1452 }
1453 app = whole_exten;
1454 if (app && (start = strchr(app, '(')) && (end = strrchr(app, ')'))) {
1455 *start = *end = '\0';
1456 app_data = start + 1;
1457 ast_process_quotes_and_slashes(app_data, ',', '|');
1458 } else {
1459 if (app) {
1460 app_data = strchr(app, ',');
1461 if (app_data) {
1462 *app_data = '\0';
1463 app_data++;
1464 }
1465 } else
1466 app_data = NULL;
1467 }
1468
1469 if (!exten || !prior || !app || (!app_data && iprior != PRIORITY_HINT))
1470 return RESULT_SHOWUSAGE;
1471
1472 if (!app_data)
1473 app_data="";
1474 if (ast_add_extension(argv[4], argc == 6 ? 1 : 0, exten, iprior, NULL, cidmatch, app,
1475 (void *)strdup(app_data), ast_free, registrar)) {
1476 switch (errno) {
1477 case ENOMEM:
1478 ast_cli(fd, "Out of free memory\n");
1479 break;
1480
1481 case EBUSY:
1482 ast_cli(fd, "Failed to lock context(s) list, please try again later\n");
1483 break;
1484
1485 case ENOENT:
1486 ast_cli(fd, "No existence of '%s' context\n", argv[4]);
1487 break;
1488
1489 case EEXIST:
1490 ast_cli(fd, "Extension %s@%s with priority %s already exists\n",
1491 exten, argv[4], prior);
1492 break;
1493
1494 default:
1495 ast_cli(fd, "Failed to add '%s,%s,%s,%s' extension into '%s' context\n",
1496 exten, prior, app, app_data, argv[4]);
1497 break;
1498 }
1499 return RESULT_FAILURE;
1500 }
1501
1502 if (argc == 6)
1503 ast_cli(fd, "Extension %s@%s (%s) replace by '%s,%s,%s,%s'\n",
1504 exten, argv[4], prior, exten, prior, app, app_data);
1505 else
1506 ast_cli(fd, "Extension '%s,%s,%s,%s' added into '%s' context\n",
1507 exten, prior, app, app_data, argv[4]);
1508
1509 return RESULT_SUCCESS;
1510 }
1511 static int handle_context_add_extension(int fd, int argc, char *argv[])
1512 {
1513 char *whole_exten;
1514 char *exten, *prior;
1515 int iprior = -2;
1516 char *cidmatch, *app, *app_data;
1517 char *start, *end;
1518
1519 /* check for arguments at first */
1520 if (argc != 6 && argc != 7)
1521 return RESULT_SHOWUSAGE;
1522 if (strcmp(argv[4], "into"))
1523 return RESULT_SHOWUSAGE;
1524 if (argc == 7) if (strcmp(argv[6], "replace")) return RESULT_SHOWUSAGE;
1525
1526 /* XXX overwrite argv[3] */
1527 whole_exten = argv[3];
1528 exten = strsep(&whole_exten,",");
1529 if (strchr(exten, '/')) {
1530 cidmatch = exten;
1531 strsep(&cidmatch,"/");
1532 } else {
1533 cidmatch = NULL;
1534 }
1535 prior = strsep(&whole_exten,",");
1536 if (prior) {
1537 if (!strcmp(prior, "hint")) {
1538 iprior = PRIORITY_HINT;
1539 } else {
1540 if (sscanf(prior, "%d", &iprior) != 1) {
1541 ast_cli(fd, "'%s' is not a valid priority\n", prior);
1542 prior = NULL;
1543 }
1544 }
1545 }
1546 app = whole_exten;
1547 if (app && (start = strchr(app, '(')) && (end = strrchr(app, ')'))) {
1548 *start = *end = '\0';
1549 app_data = start + 1;
1550 ast_process_quotes_and_slashes(app_data, ',', '|');
1551 } else {
1552 if (app) {
1553 app_data = strchr(app, ',');
1554 if (app_data) {
1555 *app_data = '\0';
1556 app_data++;
1557 }
1558 } else
1559 app_data = NULL;
1560 }
1561
1562 if (!exten || !prior || !app || (!app_data && iprior != PRIORITY_HINT))
1563 return RESULT_SHOWUSAGE;
1564
1565 if (!app_data)
1566 app_data="";
1567 if (ast_add_extension(argv[5], argc == 7 ? 1 : 0, exten, iprior, NULL, cidmatch, app,
1568 (void *)strdup(app_data), ast_free, registrar)) {
1569 switch (errno) {
1570 case ENOMEM:
1571 ast_cli(fd, "Out of free memory\n");
1572 break;
1573
1574 case EBUSY:
1575 ast_cli(fd, "Failed to lock context(s) list, please try again later\n");
1576 break;
1577
1578 case ENOENT:
1579 ast_cli(fd, "No existence of '%s' context\n", argv[5]);
1580 break;
1581
1582 case EEXIST:
1583 ast_cli(fd, "Extension %s@%s with priority %s already exists\n",
1584 exten, argv[5], prior);
1585 break;
1586
1587 default:
1588 ast_cli(fd, "Failed to add '%s,%s,%s,%s' extension into '%s' context\n",
1589 exten, prior, app, app_data, argv[5]);
1590 break;
1591 }
1592 return RESULT_FAILURE;
1593 }
1594
1595 if (argc == 7)
1596 ast_cli(fd, "Extension %s@%s (%s) replace by '%s,%s,%s,%s'\n",
1597 exten, argv[5], prior, exten, prior, app, app_data);
1598 else
1599 ast_cli(fd, "Extension '%s,%s,%s,%s' added into '%s' context\n",
1600 exten, prior, app, app_data, argv[5]);
1601
1602 return RESULT_SUCCESS;
1603 }
1604
1605 /*! dialplan add extension 6123,1,Dial,IAX/212.71.138.13/6123 into local */
1606 static char *complete_context_add_extension_deprecated(const char *line, const char *word, int pos, int state)
1607 {
1608 int which = 0;
1609
1610 if (pos == 3) { /* complete 'into' word ... */
1611 return (state == 0) ? strdup("into") : NULL;
1612 } else if (pos == 4) { /* complete context */
1613 struct ast_context *c = NULL;
1614 int len = strlen(word);
1615 char *res = NULL;
1616
1617 /* try to lock contexts list ... */
1618 if (ast_rdlock_contexts()) {
1619 ast_log(LOG_WARNING, "Failed to lock contexts list\n");
1620 return NULL;
1621 }
1622
1623 /* walk through all contexts */
1624 while ( !res && (c = ast_walk_contexts(c)) )
1625 if (partial_match(ast_get_context_name(c), word, len) && ++which > state)
1626 res = strdup(ast_get_context_name(c));
1627 ast_unlock_contexts();
1628 return res;
1629 } else if (pos == 5) {
1630 return state == 0 ? strdup("replace") : NULL;
1631 }
1632 return NULL;
1633 }
1634
1635 static char *complete_context_add_extension(const char *line, const char *word, int pos, int state)
1636 {
1637 int which = 0;
1638
1639 if (pos == 4) { /* complete 'into' word ... */
1640 return (state == 0) ? strdup("into") : NULL;
1641 } else if (pos == 5) { /* complete context */
1642 struct ast_context *c = NULL;
1643 int len = strlen(word);
1644 char *res = NULL;
1645
1646 /* try to lock contexts list ... */
1647 if (ast_rdlock_contexts()) {
1648 ast_log(LOG_WARNING, "Failed to lock contexts list\n");
1649 return NULL;
1650 }
1651
1652 /* walk through all contexts */
1653 while ( !res && (c = ast_walk_contexts(c)) )
1654 if (partial_match(ast_get_context_name(c), word, len) && ++which > state)
1655 res = strdup(ast_get_context_name(c));
1656 ast_unlock_contexts();
1657 return res;
1658 } else if (pos == 6) {
1659 return state == 0 ? strdup("replace") : NULL;
1660 }
1661 return NULL;
1662 }
1663
1664 /*!
1665 * IGNOREPAT CLI stuff
1666 */
1667 static int handle_context_add_ignorepat_deprecated(int fd, int argc, char *argv[])
1668 {
1669 if (argc != 5)
1670 return RESULT_SHOWUSAGE;
1671 if (strcmp(argv[3], "into"))
1672 return RESULT_SHOWUSAGE;
1673
1674 if (ast_context_add_ignorepat(argv[4], argv[2], registrar)) {
1675 switch (errno) {
1676 case ENOMEM:
1677 ast_cli(fd, "Out of free memory\n");
1678 break;
1679
1680 case ENOENT:
1681 ast_cli(fd, "There is no existence of '%s' context\n", argv[4]);
1682 break;
1683
1684 case EEXIST:
1685 ast_cli(fd, "Ignore pattern '%s' already included in '%s' context\n",
1686 argv[2], argv[4]);
1687 break;
1688
1689 case EBUSY:
1690 ast_cli(fd, "Failed to lock context(s) list, please, try again later\n");
1691 break;
1692
1693 default:
1694 ast_cli(fd, "Failed to add ingore pattern '%s' into '%s' context\n",
1695 argv[2], argv[4]);
1696 break;
1697 }
1698 return RESULT_FAILURE;
1699 }
1700
1701 ast_cli(fd, "Ignore pattern '%s' added into '%s' context\n",
1702 argv[2], argv[4]);
1703 return RESULT_SUCCESS;
1704 }
1705
1706 static int handle_context_add_ignorepat(int fd, int argc, char *argv[])
1707 {
1708 if (argc != 6)
1709 return RESULT_SHOWUSAGE;
1710 if (strcmp(argv[4], "into"))
1711 return RESULT_SHOWUSAGE;
1712
1713 if (ast_context_add_ignorepat(argv[5], argv[3], registrar)) {
1714 switch (errno) {
1715 case ENOMEM:
1716 ast_cli(fd, "Out of free memory\n");
1717 break;
1718
1719 case ENOENT:
1720 ast_cli(fd, "There is no existence of '%s' context\n", argv[5]);
1721 break;
1722
1723 case EEXIST:
1724 ast_cli(fd, "Ignore pattern '%s' already included in '%s' context\n",
1725 argv[3], argv[5]);
1726 break;
1727
1728 case EBUSY:
1729 ast_cli(fd, "Failed to lock context(s) list, please, try again later\n");
1730 break;
1731
1732 default:
1733 ast_cli(fd, "Failed to add ingore pattern '%s' into '%s' context\n",
1734 argv[3], argv[5]);
1735 break;
1736 }
1737 return RESULT_FAILURE;
1738 }
1739
1740 ast_cli(fd, "Ignore pattern '%s' added into '%s' context\n",
1741 argv[3], argv[5]);
1742 return RESULT_SUCCESS;
1743 }
1744
1745 static char *complete_context_add_ignorepat_deprecated(const char *line, const char *word,
1746 int pos, int state)
1747 {
1748 if (pos == 3)
1749 return state == 0 ? strdup("into") : NULL;
1750 else if (pos == 4) {
1751 struct ast_context *c;
1752 int which = 0;
1753 char *dupline, *ignorepat = NULL;
1754 const char *s;
1755 char *ret = NULL;
1756 int len = strlen(word);
1757
1758 /* XXX skip first two words 'add' 'ignorepat' */
1759 s = skip_words(line, 2);
1760 if (s == NULL)
1761 return NULL;
1762 dupline = strdup(s);
1763 if (!dupline) {
1764 ast_log(LOG_ERROR, "Malloc failure\n");
1765 return NULL;
1766 }
1767 ignorepat = strsep(&dupline, " ");
1768
1769 if (ast_rdlock_contexts()) {
1770 ast_log(LOG_ERROR, "Failed to lock contexts list\n");
1771 return NULL;
1772 }
1773
1774 for (c = NULL; !ret && (c = ast_walk_contexts(c));) {
1775 int found = 0;
1776
1777 if (!partial_match(ast_get_context_name(c), word, len))
1778 continue; /* not mine */
1779 if (ignorepat) /* there must be one, right ? */
1780 found = lookup_c_ip(c, ignorepat);
1781 if (!found && ++which > state)
1782 ret = strdup(ast_get_context_name(c));
1783 }
1784
1785 if (ignorepat)
1786 free(ignorepat);
1787 ast_unlock_contexts();
1788 return ret;
1789 }
1790
1791 return NULL;
1792 }
1793
1794 static char *complete_context_add_ignorepat(const char *line, const char *word,
1795 int pos, int state)
1796 {
1797 if (pos == 4)
1798 return state == 0 ? strdup("into") : NULL;
1799 else if (pos == 5) {
1800 struct ast_context *c;
1801 int which = 0;
1802 char *dupline, *ignorepat = NULL;
1803 const char *s;
1804 char *ret = NULL;
1805 int len = strlen(word);
1806
1807 /* XXX skip first three words 'dialplan' 'add' 'ignorepat' */
1808 s = skip_words(line, 3);
1809 if (s == NULL)
1810 return NULL;
1811 dupline = strdup(s);
1812 if (!dupline) {
1813 ast_log(LOG_ERROR, "Malloc failure\n");
1814 return NULL;
1815 }
1816 ignorepat = strsep(&dupline, " ");
1817
1818 if (ast_rdlock_contexts()) {
1819 ast_log(LOG_ERROR, "Failed to lock contexts list\n");
1820 return NULL;
1821 }
1822
1823 for (c = NULL; !ret && (c = ast_walk_contexts(c));) {
1824 int found = 0;
1825
1826 if (!partial_match(ast_get_context_name(c), word, len))
1827 continue; /* not mine */
1828 if (ignorepat) /* there must be one, right ? */
1829 found = lookup_c_ip(c, ignorepat);
1830 if (!found && ++which > state)
1831 ret = strdup(ast_get_context_name(c));
1832 }
1833
1834 if (ignorepat)
1835 free(ignorepat);
1836 ast_unlock_contexts();
1837 return ret;
1838 }
1839
1840 return NULL;
1841 }
1842
1843 static int handle_context_remove_ignorepat_deprecated(int fd, int argc, char *argv[])
1844 {
1845 if (argc != 5)
1846 return RESULT_SHOWUSAGE;
1847 if (strcmp(argv[3], "from"))
1848 return RESULT_SHOWUSAGE;
1849
1850 if (ast_context_remove_ignorepat(argv[4], argv[2], registrar)) {
1851 switch (errno) {
1852 case EBUSY:
1853 ast_cli(fd, "Failed to lock context(s) list, please try again later\n");
1854 break;
1855
1856 case ENOENT:
1857 ast_cli(fd, "There is no existence of '%s' context\n", argv[4]);
1858 break;
1859
1860 case EINVAL:
1861 ast_cli(fd, "There is no existence of '%s' ignore pattern in '%s' context\n",
1862 argv[2], argv[4]);
1863 break;
1864
1865 default:
1866 ast_cli(fd, "Failed to remove ignore pattern '%s' from '%s' context\n", argv[2], argv[4]);
1867 break;
1868 }
1869 return RESULT_FAILURE;
1870 }
1871
1872 ast_cli(fd, "Ignore pattern '%s' removed from '%s' context\n",
1873 argv[2], argv[4]);
1874 return RESULT_SUCCESS;
1875 }
1876
1877 static int handle_context_remove_ignorepat(int fd, int argc, char *argv[])
1878 {
1879 if (argc != 6)
1880 return RESULT_SHOWUSAGE;
1881 if (strcmp(argv[4], "from"))
1882 return RESULT_SHOWUSAGE;
1883
1884 if (ast_context_remove_ignorepat(argv[5], argv[3], registrar)) {
1885 switch (errno) {
1886 case EBUSY:
1887 ast_cli(fd, "Failed to lock context(s) list, please try again later\n");
1888 break;
1889
1890 case ENOENT:
1891 ast_cli(fd, "There is no existence of '%s' context\n", argv[5]);
1892 break;
1893
1894 case EINVAL:
1895 ast_cli(fd, "There is no existence of '%s' ignore pattern in '%s' context\n",
1896 argv[3], argv[5]);
1897 break;
1898
1899 default:
1900 ast_cli(fd, "Failed to remove ignore pattern '%s' from '%s' context\n", argv[3], argv[5]);
1901 break;
1902 }
1903 return RESULT_FAILURE;
1904 }
1905
1906 ast_cli(fd, "Ignore pattern '%s' removed from '%s' context\n",
1907 argv[3], argv[5]);
1908 return RESULT_SUCCESS;
1909 }
1910
1911 static char *complete_context_remove_ignorepat_deprecated(const char *line, const char *word,
1912 int pos, int state)
1913 {
1914 struct ast_context *c;
1915 int which = 0;
1916 char *ret = NULL;
1917
1918 if (pos == 2) {
1919 int len = strlen(word);
1920 if (ast_rdlock_contexts()) {
1921 ast_log(LOG_WARNING, "Failed to lock contexts list\n");
1922 return NULL;
1923 }
1924
1925 for (c = NULL; !ret && (c = ast_walk_contexts(c));) {
1926 struct ast_ignorepat *ip;
1927
1928 if (ast_lock_context(c)) /* error, skip it */
1929 continue;
1930
1931 for (ip = NULL; !ret && (ip = ast_walk_context_ignorepats(c, ip));) {
1932 if (partial_match(ast_get_ignorepat_name(ip), word, len) && ++which > state) {
1933 /* n-th match */
1934 struct ast_context *cw = NULL;
1935 int found = 0;
1936 while ( (cw = ast_walk_contexts(cw)) && cw != c && !found) {
1937 /* XXX do i stop on c, or skip it ? */
1938 found = lookup_c_ip(cw, ast_get_ignorepat_name(ip));
1939 }
1940 if (!found)
1941 ret = strdup(ast_get_ignorepat_name(ip));
1942 }
1943 }
1944 ast_unlock_context(c);
1945 }
1946 ast_unlock_contexts();
1947 return ret;
1948 } else if (pos == 3) {
1949 return state == 0 ? strdup("from") : NULL;
1950 } else if (pos == 4) { /* XXX check this */
1951 char *dupline, *duplinet, *ignorepat;
1952 int len = strlen(word);
1953
1954 dupline = strdup(line);
1955 if (!dupline) {
1956 ast_log(LOG_WARNING, "Out of free memory\n");
1957 return NULL;
1958 }
1959
1960 duplinet = dupline;
1961 strsep(&duplinet, " ");
1962 strsep(&duplinet, " ");
1963 ignorepat = strsep(&duplinet, " ");
1964
1965 if (!ignorepat) {
1966 free(dupline);
1967 return NULL;
1968 }
1969
1970 if (ast_rdlock_contexts()) {
1971 ast_log(LOG_WARNING, "Failed to lock contexts list\n");
1972 free(dupline);
1973 return NULL;
1974 }
1975
1976 for (c = NULL; !ret && (c = ast_walk_contexts(c)); ) {
1977 if (ast_lock_context(c)) /* fail, skip it */
1978 continue;
1979 if (!partial_match(ast_get_context_name(c), word, len))
1980 continue;
1981 if (lookup_c_ip(c, ignorepat) && ++which > state)
1982 ret = strdup(ast_get_context_name(c));
1983 ast_unlock_context(c);
1984 }
1985 ast_unlock_contexts();
1986 free(dupline);
1987 return NULL;
1988 }
1989
1990 return NULL;
1991 }
1992
1993 static char *complete_context_remove_ignorepat(const char *line, const char *word,
1994 int pos, int state)
1995 {
1996 struct ast_context *c;
1997 int which = 0;
1998 char *ret = NULL;
1999
2000 if (pos == 3) {
2001 int len = strlen(word);
2002 if (ast_rdlock_contexts()) {
2003 ast_log(LOG_WARNING, "Failed to lock contexts list\n");
2004 return NULL;
2005 }
2006
2007 for (c = NULL; !ret && (c = ast_walk_contexts(c));) {
2008 struct ast_ignorepat *ip;
2009
2010 if (ast_lock_context(c)) /* error, skip it */
2011 continue;
2012
2013 for (ip = NULL; !ret && (ip = ast_walk_context_ignorepats(c, ip));) {
2014 if (partial_match(ast_get_ignorepat_name(ip), word, len) && ++which > state) {
2015 /* n-th match */
2016 struct ast_context *cw = NULL;
2017 int found = 0;
2018 while ( (cw = ast_walk_contexts(cw)) && cw != c && !found) {
2019 /* XXX do i stop on c, or skip it ? */
2020 found = lookup_c_ip(cw, ast_get_ignorepat_name(ip));
2021 }
2022 if (!found)
2023 ret = strdup(ast_get_ignorepat_name(ip));
2024 }
2025 }
2026 ast_unlock_context(c);
2027 }
2028 ast_unlock_contexts();
2029 return ret;
2030 } else if (pos == 4) {
2031 return state == 0 ? strdup("from") : NULL;
2032 } else if (pos == 5) { /* XXX check this */
2033 char *dupline, *duplinet, *ignorepat;
2034 int len = strlen(word);
2035
2036 dupline = strdup(line);
2037 if (!dupline) {
2038 ast_log(LOG_WARNING, "Out of free memory\n");
2039 return NULL;
2040 }
2041
2042 duplinet = dupline;
2043 strsep(&duplinet, " ");
2044 strsep(&duplinet, " ");
2045 ignorepat = strsep(&duplinet, " ");
2046
2047 if (!ignorepat) {
2048 free(dupline);
2049 return NULL;
2050 }
2051
2052 if (ast_rdlock_contexts()) {
2053 ast_log(LOG_WARNING, "Failed to lock contexts list\n");
2054 free(dupline);
2055 return NULL;
2056 }
2057
2058 for (c = NULL; !ret && (c = ast_walk_contexts(c)); ) {
2059 if (ast_lock_context(c)) /* fail, skip it */
2060 continue;
2061 if (!partial_match(ast_get_context_name(c), word, len))
2062 continue;
2063 if (lookup_c_ip(c, ignorepat) && ++which > state)
2064 ret = strdup(ast_get_context_name(c));
2065 ast_unlock_context(c);
2066 }
2067 ast_unlock_contexts();
2068 free(dupline);
2069 return NULL;
2070 }
2071
2072 return NULL;
2073 }
2074
2075 static int pbx_load_module(void);
2076
2077 static int handle_reload_extensions(int fd, int argc, char *argv[])
2078 {
2079 if (argc != 2)
2080 return RESULT_SHOWUSAGE;
2081 if (clearglobalvars_config)
2082 pbx_builtin_clear_globals();
2083 pbx_load_module();
2084 return RESULT_SUCCESS;
2085 }
2086
2087 /*!
2088 * CLI entries for commands provided by this module
2089 */
2090 static struct ast_cli_entry cli_dont_include_deprecated = {
2091 { "dont", "include", NULL },
2092 handle_context_dont_include_deprecated, NULL,
2093 NULL, complete_context_dont_include_deprecated };
2094
2095 static struct ast_cli_entry cli_remove_extension_deprecated = {
2096 { "remove", "extension", NULL },
2097 handle_context_remove_extension_deprecated, NULL,
2098 NULL, complete_context_remove_extension_deprecated };
2099
2100 static struct ast_cli_entry cli_include_context_deprecated = {
2101 { "include", "context", NULL },
2102 handle_context_add_include_deprecated, NULL,
2103 NULL, complete_context_add_include_deprecated };
2104
2105 static struct ast_cli_entry cli_add_extension_deprecated = {
2106 { "add", "extension", NULL },
2107 handle_context_add_extension_deprecated, NULL,
2108 NULL, complete_context_add_extension_deprecated };
2109
2110 static struct ast_cli_entry cli_add_ignorepat_deprecated = {
2111 { "add", "ignorepat", NULL },
2112 handle_context_add_ignorepat_deprecated, NULL,
2113 NULL, complete_context_add_ignorepat_deprecated };
2114
2115 static struct ast_cli_entry cli_remove_ignorepat_deprecated = {
2116 { "remove", "ignorepat", NULL },
2117 handle_context_remove_ignorepat_deprecated, NULL,
2118 NULL, complete_context_remove_ignorepat_deprecated };
2119
2120 static struct ast_cli_entry cli_extensions_reload_deprecated = {
2121 { "extensions", "reload", NULL },
2122 handle_reload_extensions, NULL,
2123 NULL };
2124
2125 static struct ast_cli_entry cli_save_dialplan_deprecated = {
2126 { "save", "dialplan", NULL },
2127 handle_save_dialplan, NULL,
2128 NULL };
2129
2130 static struct ast_cli_entry cli_pbx_config[] = {
2131 { { "dialplan", "add", "extension", NULL },
2132 handle_context_add_extension, "Add new extension into context",
2133 context_add_extension_help, complete_context_add_extension, &cli_add_extension_deprecated },
2134
2135 { { "dialplan", "remove", "extension", NULL },
2136 handle_context_remove_extension, "Remove a specified extension",
2137 context_remove_extension_help, complete_context_remove_extension, &cli_remove_extension_deprecated },
2138
2139 { { "dialplan", "add", "ignorepat", NULL },
2140 handle_context_add_ignorepat, "Add new ignore pattern",
2141 context_add_ignorepat_help, complete_context_add_ignorepat, &cli_add_ignorepat_deprecated },
2142
2143 { { "dialplan", "remove", "ignorepat", NULL },
2144 handle_context_remove_ignorepat, "Remove ignore pattern from context",
2145 context_remove_ignorepat_help, complete_context_remove_ignorepat, &cli_remove_ignorepat_deprecated },
2146
2147 { { "dialplan", "add", "include", NULL },
2148 handle_context_add_include, "Include context in other context",
2149 context_add_include_help, complete_context_add_include, &cli_include_context_deprecated },
2150
2151 { { "dialplan", "remove", "include", NULL },
2152 handle_context_remove_include, "Remove a specified include from context",
2153 context_remove_include_help, complete_context_remove_include, &cli_dont_include_deprecated },
2154
2155 { { "dialplan", "reload", NULL },
2156 handle_reload_extensions, "Reload extensions and *only* extensions",
2157 reload_extensions_help, NULL, &cli_extensions_reload_deprecated },
2158 };
2159
2160
2161 static struct ast_cli_entry cli_dialplan_save = {
2162 { "dialplan", "save", NULL },
2163 handle_save_dialplan, "Save dialplan",
2164 save_dialplan_help, NULL, &cli_save_dialplan_deprecated };
2165
2166 /*!
2167 * Standard module functions ...
2168 */
2169 static int unload_module(void)
2170 {
2171 if (static_config && !write_protect_config)
2172 ast_cli_unregister(&cli_dialplan_save);
2173 ast_cli_unregister_multiple(cli_pbx_config, sizeof(cli_pbx_config) / sizeof(struct ast_cli_entry));
2174 ast_context_destroy(NULL, registrar);
2175 return 0;
2176 }
2177
2178 static int pbx_load_config(const char *config_file)
2179 {
2180 struct ast_config *cfg;
2181 char *end;
2182 char *label;
2183 char realvalue[256];
2184 int lastpri = -2;
2185 struct ast_context *con;
2186 struct ast_variable *v;
2187 const char *cxt;
2188 const char *aft;
2189
2190 cfg = ast_config_load(config_file);
2191 if (!cfg)
2192 return 0;
2193
2194 /* Use existing config to populate the PBX table */
2195 static_config = ast_true(ast_variable_retrieve(cfg, "general", "static"));
2196 write_protect_config = ast_true(ast_variable_retrieve(cfg, "general", "writeprotect"));
2197 if ((aft = ast_variable_retrieve(cfg, "general", "autofallthrough")))
2198 autofallthrough_config = ast_true(aft);
2199 clearglobalvars_config = ast_true(ast_variable_retrieve(cfg, "general", "clearglobalvars"));
2200 ast_set2_flag(&ast_options, ast_true(ast_variable_retrieve(cfg, "general", "priorityjumping")), AST_OPT_FLAG_PRIORITY_JUMPING);
2201
2202 if ((cxt = ast_variable_retrieve(cfg, "general", "userscontext")))
2203 ast_copy_string(userscontext, cxt, sizeof(userscontext));
2204 else
2205 ast_copy_string(userscontext, "default", sizeof(userscontext));
2206
2207 for (v = ast_variable_browse(cfg, "globals"); v; v = v->next) {
2208 memset(realvalue, 0, sizeof(realvalue));
2209 pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
2210 pbx_builtin_setvar_helper(NULL, v->name, realvalue);
2211 }
2212 for (cxt = NULL; (cxt = ast_category_browse(cfg, cxt)); ) {
2213 /* All categories but "general" or "globals" are considered contexts */
2214 if (!strcasecmp(cxt, "general") || !strcasecmp(cxt, "globals"))
2215 continue;
2216 con=ast_context_find_or_create(&local_contexts,cxt, registrar);
2217 if (con == NULL)
2218 continue;
2219
2220 for (v = ast_variable_browse(cfg, cxt); v; v = v->next) {
2221 if (!strcasecmp(v->name, "exten")) {
2222 char *tc = ast_strdup(v->value);
2223 if (tc) {
2224 int ipri = -2;
2225 char realext[256]="";
2226 char *plus, *firstp, *firstc;
2227 char *pri, *appl, *data, *cidmatch;
2228 char *stringp = tc;
2229 char *ext = strsep(&stringp, ",");
2230 if (!ext)
2231 ext="";
2232 pbx_substitute_variables_helper(NULL, ext, realext, sizeof(realext) - 1);
2233 cidmatch = strchr(realext, '/');
2234 if (cidmatch) {
2235 *cidmatch++ = '\0';
2236 ast_shrink_phone_number(cidmatch);
2237 }
2238 pri = strsep(&stringp, ",");
2239 if (!pri)
2240 pri="";
2241 pri = ast_skip_blanks(pri);
2242 pri = ast_trim_blanks(pri);
2243 label = strchr(pri, '(');
2244 if (label) {
2245 *label++ = '\0';
2246 end = strchr(label, ')');
2247 if (end)
2248 *end = '\0';
2249 else
2250 ast_log(LOG_WARNING, "Label missing trailing ')' at line %d\n", v->lineno);
2251 }
2252 plus = strchr(pri, '+');
2253 if (plus)
2254 *plus++ = '\0';
2255 if (!strcmp(pri,"hint"))
2256 ipri=PRIORITY_HINT;
2257 else if (!strcmp(pri, "next") || !strcmp(pri, "n")) {
2258 if (lastpri > -2)
2259 ipri = lastpri + 1;
2260 else
2261 ast_log(LOG_WARNING, "Can't use 'next' priority on the first entry!\n");
2262 } else if (!strcmp(pri, "same") || !strcmp(pri, "s")) {
2263 if (lastpri > -2)
2264 ipri = lastpri;
2265 else
2266 ast_log(LOG_WARNING, "Can't use 'same' priority on the first entry!\n");
2267 } else if (sscanf(pri, "%d", &ipri) != 1 &&
2268 (ipri = ast_findlabel_extension2(NULL, con, realext, pri, cidmatch)) < 1) {
2269 ast_log(LOG_WARNING, "Invalid priority/label '%s' at line %d\n", pri, v->lineno);
2270 ipri = 0;
2271 }
2272 appl = S_OR(stringp, "");
2273 /* Find the first occurrence of either '(' or ',' */
2274 firstc = strchr(appl, ',');
2275 firstp = strchr(appl, '(');
2276 if (firstc && (!firstp || firstc < firstp)) {
2277 /* comma found, no parenthesis */
2278 /* or both found, but comma found first */
2279 appl = strsep(&stringp, ",");
2280 data = stringp;
2281 } else if (!firstc && !firstp) {
2282 /* Neither found */
2283 data = "";
2284 } else {
2285 /* Final remaining case is parenthesis found first */
2286 appl = strsep(&stringp, "(");
2287 data = stringp;
2288 end = strrchr(data, ')');
2289 if ((end = strrchr(data, ')'))) {
2290 *end = '\0';
2291 } else {
2292 ast_log(LOG_WARNING, "No closing parenthesis found? '%s(%s'\n", appl, data);
2293 }
2294 ast_process_quotes_and_slashes(data, ',', '|');
2295 }
2296
2297 if (!data)
2298 data="";
2299 appl = ast_skip_blanks(appl);
2300 if (ipri) {
2301 if (plus)
2302 ipri += atoi(plus);
2303 lastpri = ipri;
2304 if (!ast_opt_dont_warn && !strcmp(realext, "_."))
2305 ast_log(LOG_WARNING, "The use of '_.' for an extension is strongly discouraged and can have unexpected behavior. Please use '_X.' instead at line %d\n", v->lineno);
2306 if (ast_add_extension2(con, 0, realext, ipri, label, cidmatch, appl, strdup(data), ast_free, registrar)) {
2307 ast_log(LOG_WARNING, "Unable to register extension at line %d\n", v->lineno);
2308 }
2309 }
2310 free(tc);
2311 }
2312 } else if (!strcasecmp(v->name, "include")) {
2313 memset(realvalue, 0, sizeof(realvalue));
2314 pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
2315 if (ast_context_add_include2(con, realvalue, registrar))
2316 ast_log(LOG_WARNING, "Unable to include context '%s' in context '%s'\n", v->value, cxt);
2317 } else if (!strcasecmp(v->name, "ignorepat")) {
2318 memset(realvalue, 0, sizeof(realvalue));
2319 pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
2320 if (ast_context_add_ignorepat2(con, realvalue, registrar))
2321 ast_log(LOG_WARNING, "Unable to include ignorepat '%s' in context '%s'\n", v->value, cxt);
2322 } else if (!strcasecmp(v->name, "switch") || !strcasecmp(v->name, "lswitch") || !strcasecmp(v->name, "eswitch")) {
2323 char *stringp= realvalue;
2324 char *appl, *data;
2325
2326 memset(realvalue, 0, sizeof(realvalue));
2327 if (!strcasecmp(v->name, "switch"))
2328 pbx_substitute_variables_helper(NULL, v->value, realvalue, sizeof(realvalue) - 1);
2329 else
2330 ast_copy_string(realvalue, v->value, sizeof(realvalue));
2331 appl = strsep(&stringp, "/");
2332 data = strsep(&stringp, ""); /* XXX what for ? */
2333 if (!data)
2334 data = "";
2335 if (ast_context_add_switch2(con, appl, data, !strcasecmp(v->name, "eswitch"), registrar))
2336 ast_log(LOG_WARNING, "Unable to include switch '%s' in context '%s'\n", v->value, cxt);
2337 }
2338 }
2339 }
2340 ast_config_destroy(cfg);
2341 return 1;
2342 }
2343
2344 static void append_interface(char *iface, int maxlen, char *add)
2345 {
2346 int len = strlen(iface);
2347 if (strlen(add) + len < maxlen - 2) {
2348 if (strlen(iface)) {
2349 iface[len] = '&';
2350 strcpy(iface + len + 1, add);
2351 } else
2352 strcpy(iface, add);
2353 }
2354 }
2355
2356 static void pbx_load_users(void)
2357 {
2358 struct ast_config *cfg;
2359 char *cat, *chan;
2360 const char *zapchan;
2361 const char *hasexten;
2362 char tmp[256];
2363 char iface[256];
2364 char zapcopy[256];
2365 char *c;
2366 int len;
2367 int hasvoicemail;
2368 int start, finish, x;
2369 struct ast_context *con = NULL;
2370
2371 cfg = ast_config_load("users.conf");
2372 if (!cfg)
2373 return;
2374
2375 for (cat = ast_category_browse(cfg, NULL); cat ; cat = ast_category_browse(cfg, cat)) {
2376 if (!strcasecmp(cat, "general"))
2377 continue;
2378 iface[0] = '\0';
2379 len = sizeof(iface);
2380 if (ast_true(ast_config_option(cfg, cat, "hassip"))) {
2381 snprintf(tmp, sizeof(tmp), "SIP/%s", cat);
2382 append_interface(iface, sizeof(iface), tmp);
2383 }
2384 if (ast_true(ast_config_option(cfg, cat, "hasiax"))) {
2385 snprintf(tmp, sizeof(tmp), "IAX2/%s", cat);
2386 append_interface(iface, sizeof(iface), tmp);
2387 }
2388 if (ast_true(ast_config_option(cfg, cat, "hash323"))) {
2389 snprintf(tmp, sizeof(tmp), "H323/%s", cat);
2390 append_interface(iface, sizeof(iface), tmp);
2391 }
2392 hasexten = ast_config_option(cfg, cat, "hasexten");
2393 if (hasexten && !ast_true(hasexten))
2394 continue;
2395 hasvoicemail = ast_true(ast_config_option(cfg, cat, "hasvoicemail"));
2396 zapchan = ast_variable_retrieve(cfg, cat, "zapchan");
2397 if (!zapchan)
2398 zapchan = ast_variable_retrieve(cfg, "general", "zapchan");
2399 if (!ast_strlen_zero(zapchan)) {
2400 ast_copy_string(zapcopy, zapchan, sizeof(zapcopy));
2401 c = zapcopy;
2402 chan = strsep(&c, ",");
2403 while (chan) {
2404 if (sscanf(chan, "%d-%d", &start, &finish) == 2) {
2405 /* Range */
2406 } else if (sscanf(chan, "%d", &start)) {
2407 /* Just one */
2408 finish = start;
2409 } else {
2410 start = 0; finish = 0;
2411 }
2412 if (finish < start) {
2413 x = finish;
2414 finish = start;
2415 start = x;
2416 }
2417 for (x = start; x <= finish; x++) {
2418 snprintf(tmp, sizeof(tmp), "Zap/%d", x);
2419 append_interface(iface, sizeof(iface), tmp);
2420 }
2421 chan = strsep(&c, ",");
2422 }
2423 }
2424 if (!ast_strlen_zero(iface)) {
2425 /* Only create a context here when it is really needed. Otherwise default empty context
2426 created by pbx_config may conflict with the one explicitly created by pbx_ael */
2427 if (!con)
2428 con = ast_context_find_or_create(&local_contexts, userscontext, registrar);
2429
2430 if (!con) {
2431 ast_log(LOG_ERROR, "Can't find/create user context '%s'\n", userscontext);
2432 return;
2433 }
2434
2435 /* Add hint */
2436 ast_add_extension2(con, 0, cat, -1, NULL, NULL, iface, NULL, NULL, registrar);
2437 /* If voicemail, use "stdexten" else use plain old dial */
2438 if (hasvoicemail) {
2439 snprintf(tmp, sizeof(tmp), "stdexten|%s|${HINT}", cat);
2440 ast_add_extension2(con, 0, cat, 1, NULL, NULL, "Macro", strdup(tmp), ast_free, registrar);
2441 } else {
2442 ast_add_extension2(con, 0, cat, 1, NULL, NULL, "Dial", strdup("${HINT}"), ast_free, registrar);
2443 }
2444 }
2445 }
2446 ast_config_destroy(cfg);
2447 }
2448
2449 static int pbx_load_module(void)
2450 {
2451 struct ast_context *con;
2452
2453 if(!pbx_load_config(config))
2454 return AST_MODULE_LOAD_DECLINE;
2455
2456 pbx_load_users();
2457
2458 ast_merge_contexts_and_delete(&local_contexts, registrar);
2459
2460 for (con = NULL; (con = ast_walk_contexts(con));)
2461 ast_context_verify_includes(con);
2462
2463 pbx_set_autofallthrough(autofallthrough_config);
2464
2465 return 0;
2466 }
2467
2468 static int load_module(void)
2469 {
2470 if (pbx_load_module())
2471 return AST_MODULE_LOAD_DECLINE;
2472
2473 if (static_config && !write_protect_config)
2474 ast_cli_register(&cli_dialplan_save);
2475 ast_cli_register_multiple(cli_pbx_config, sizeof(cli_pbx_config) / sizeof(struct ast_cli_entry));
2476
2477 return 0;
2478 }
2479
2480 static int reload(void)
2481 {
2482 if (clearglobalvars_config)
2483 pbx_builtin_clear_globals();
2484 pbx_load_module();
2485 return 0;
2486 }
2487
2488 AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_DEFAULT, "Text Extension Configuration",
2489 .load = load_module,
2490 .unload = unload_module,
2491 .reload = reload,
2492 );
Open Source Private Branch Exchange (PBX)