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