static int test_exten(const struct pbx_test_pattern *test_pattern, struct ast_test *test)
{
struct pbx_find_info pfi = { { 0 }, };
struct ast_exten *exten;
if (!(exten = pbx_find_extension(NULL, NULL, &pfi, test_pattern->context,
test_pattern->test_exten, test_pattern->priority, NULL,
test_pattern->test_cid, E_MATCH))) {
ast_test_status_update(test, "Cannot find extension %s in context %s."
"Test failed.\n", test_pattern->test_exten, test_pattern->context);
return -1;
}
if (strcmp(ast_get_extension_name(exten), test_pattern->exten->exten)) {
ast_test_status_update(test, "Expected extension %s but got extension %s instead."
"Test failed.\n", test_pattern->exten->exten, ast_get_extension_name(exten));
return -1;
}
if (test_pattern->test_cid && strcmp(ast_get_extension_cidmatch(exten), test_pattern->test_cid)) {
ast_test_status_update(test, "Expected CID match %s but got CID match %s instead."
"Test failed.\n", test_pattern->exten->cid, ast_get_extension_cidmatch(exten));
return -1;
}
ast_test_status_update(test, "Successfully matched %s to exten %s in context %s\n",
test_pattern->test_exten, test_pattern->exten->exten, test_pattern->context);
return 0;
}
static int test_exten(const struct pbx_test_pattern *test_pattern, struct ast_test *test, int new_engine)
{
struct pbx_find_info pfi = { { 0 }, };
struct ast_exten *exten;
if (!(exten = pbx_find_extension(NULL, NULL, &pfi, test_pattern->context,
test_pattern->test_exten, test_pattern->priority, NULL,
test_pattern->test_cid, E_MATCH))) {
ast_test_status_update(test, "Cannot find extension %s in context %s with the %s pattern match engine. "
"Test failed.\n", test_pattern->test_exten, test_pattern->context, (new_engine ? "new" : "old"));
return -1;
}
if (strcmp(ast_get_extension_name(exten), test_pattern->exten->exten)) {
ast_test_status_update(test, "Expected extension %s but got extension %s instead with the %s pattern match engine. "
"Test failed.\n", test_pattern->exten->exten, ast_get_extension_name(exten), (new_engine ? "new" : "old"));
return -1;
}
if (test_pattern->test_cid && strcmp(ast_get_extension_cidmatch(exten), test_pattern->test_cid)) {
ast_test_status_update(test, "Expected CID match %s but got CID match %s instead with the %s pattern match engine. "
"Test failed.\n", test_pattern->exten->cid, ast_get_extension_cidmatch(exten), (new_engine ? "new" : "old"));
return -1;
}
if (!ast_canmatch_extension(NULL, test_pattern->context, test_pattern->test_exten,
test_pattern->priority, test_pattern->test_cid)) {
ast_test_status_update(test, "Partial match failed for extension %s in context %s with the %s pattern match engine. "
"Test failed.\n", test_pattern->test_exten, test_pattern->context, (new_engine ? "new" : "old"));
return -1;
}
ast_test_status_update(test, "Successfully matched %s to exten %s in context %s with the %s pattern match engine\n",
test_pattern->test_exten, test_pattern->exten->exten, test_pattern->context, (new_engine ? "new" : "old"));
return 0;
}
static struct ast_exten *find_matching_priority(struct ast_context *c, const char *exten, int priority, const char *callerid)
{
struct ast_exten *e;
struct ast_include *i;
struct ast_context *c2;
for (e=ast_walk_context_extensions(c, NULL); e; e=ast_walk_context_extensions(c, e)) {
if (ast_extension_match(ast_get_extension_name(e), exten)) {
int needmatch = ast_get_extension_matchcid(e);
if ((needmatch && ast_extension_match(ast_get_extension_cidmatch(e), callerid)) ||
(!needmatch)) {
/* This is the matching extension we want */
struct ast_exten *p;
for (p=ast_walk_extension_priorities(e, NULL); p; p=ast_walk_extension_priorities(e, p)) {
if (priority != ast_get_extension_priority(p))
continue;
return p;
}
}
}
}
/* No match; run through includes */
for (i=ast_walk_context_includes(c, NULL); i; i=ast_walk_context_includes(c, i)) {
for (c2=ast_walk_contexts(NULL); c2; c2=ast_walk_contexts(c2)) {
if (!strcmp(ast_get_context_name(c2), ast_get_include_name(i))) {
e = find_matching_priority(c2, exten, priority, callerid);
if (e)
return e;
}
}
}
return NULL;
}
/*
* 'save dialplan' CLI command implementation functions ...
*/
static int handle_save_dialplan(int fd, int argc, char *argv[])
{
char filename[256];
struct ast_context *c;
struct ast_config *cfg;
struct ast_variable *v;
int context_header_written;
int incomplete = 0; /* incomplete config write? */
FILE *output;
if (! (static_config && !write_protect_config)) {
ast_cli(fd,
"I can't save dialplan now, see '%s' example file.\n",
config);
return RESULT_FAILURE;
}
if (argc != 2 && argc != 3) return RESULT_SHOWUSAGE;
if (ast_mutex_lock(&save_dialplan_lock)) {
ast_cli(fd,
"Failed to lock dialplan saving (another proccess saving?)\n");
return RESULT_FAILURE;
}
/* have config path? */
if (argc == 3) {
/* is there extension.conf too? */
if (!strstr(argv[2], ".conf")) {
/* no, only directory path, check for last '/' occurence */
if (*(argv[2] + strlen(argv[2]) -1) == '/')
snprintf(filename, sizeof(filename), "%s%s",
argv[2], config);
else
/* without config extensions.conf, add it */
snprintf(filename, sizeof(filename), "%s/%s",
argv[2], config);
} else
/* there is an .conf */
snprintf(filename, sizeof(filename), argv[2]);
} else
/* no config file, default one */
snprintf(filename, sizeof(filename), "%s/%s",
(char *)ast_config_AST_CONFIG_DIR, config);
cfg = ast_load("extensions.conf");
/* try to lock contexts list */
if (ast_lock_contexts()) {
ast_cli(fd, "Failed to lock contexts list\n");
ast_mutex_unlock(&save_dialplan_lock);
ast_destroy(cfg);
return RESULT_FAILURE;
}
/* create new file ... */
if (!(output = fopen(filename, "wt"))) {
ast_cli(fd, "Failed to create file '%s'\n",
filename);
ast_unlock_contexts();
ast_mutex_unlock(&save_dialplan_lock);
ast_destroy(cfg);
return RESULT_FAILURE;
}
/* fireout general info */
fprintf(output, "[general]\nstatic=%s\nwriteprotect=%s\n\n",
static_config ? "yes" : "no",
write_protect_config ? "yes" : "no");
if ((v = ast_variable_browse(cfg, "globals"))) {
fprintf(output, "[globals]\n");
while(v) {
fprintf(output, "%s => %s\n", v->name, v->value);
v = v->next;
}
fprintf(output, "\n");
}
ast_destroy(cfg);
/* walk all contexts */
c = ast_walk_contexts(NULL);
while (c) {
context_header_written = 0;
/* try to lock context and fireout all info */
if (!ast_lock_context(c)) {
struct ast_exten *e, *last_written_e = NULL;
struct ast_include *i;
struct ast_ignorepat *ip;
struct ast_sw *sw;
/* registered by this module? */
if (!strcmp(ast_get_context_registrar(c), registrar)) {
fprintf(output, "[%s]\n", ast_get_context_name(c));
context_header_written = 1;
}
/* walk extensions ... */
e = ast_walk_context_extensions(c, NULL);
while (e) {
struct ast_exten *p;
/* fireout priorities */
p = ast_walk_extension_priorities(e, NULL);
while (p) {
if (!strcmp(ast_get_extension_registrar(p),
registrar)) {
/* make empty line between different extensions */
if (last_written_e != NULL &&
strcmp(ast_get_extension_name(last_written_e),
ast_get_extension_name(p)))
fprintf(output, "\n");
last_written_e = p;
if (!context_header_written) {
fprintf(output, "[%s]\n", ast_get_context_name(c));
context_header_written = 1;
}
if (ast_get_extension_priority(p)!=PRIORITY_HINT) {
char *tempdata = NULL, *startdata;
tempdata = strdup((char *)ast_get_extension_app_data(p));
if (tempdata) {
startdata = tempdata;
while (*tempdata) {
if (*tempdata == '|')
*tempdata = ',';
tempdata++;
}
tempdata = startdata;
}
if (ast_get_extension_matchcid(p))
fprintf(output, "exten => %s/%s,%d,%s(%s)\n",
ast_get_extension_name(p),
ast_get_extension_cidmatch(p),
ast_get_extension_priority(p),
ast_get_extension_app(p),
tempdata);
else
fprintf(output, "exten => %s,%d,%s(%s)\n",
ast_get_extension_name(p),
ast_get_extension_priority(p),
ast_get_extension_app(p),
tempdata);
if (tempdata)
free(tempdata);
} else
fprintf(output, "exten => %s,hint,%s\n",
ast_get_extension_name(p),
ast_get_extension_app(p));
}
p = ast_walk_extension_priorities(e, p);
}
e = ast_walk_context_extensions(c, e);
}
/* written any extensions? ok, write space between exten & inc */
if (last_written_e) fprintf(output, "\n");
/* walk through includes */
i = ast_walk_context_includes(c, NULL);
while (i) {
if (!strcmp(ast_get_include_registrar(i), registrar)) {
if (!context_header_written) {
fprintf(output, "[%s]\n", ast_get_context_name(c));
context_header_written = 1;
}
fprintf(output, "include => %s\n",
ast_get_include_name(i));
}
i = ast_walk_context_includes(c, i);
}
if (ast_walk_context_includes(c, NULL))
fprintf(output, "\n");
/* walk through switches */
sw = ast_walk_context_switches(c, NULL);
while (sw) {
if (!strcmp(ast_get_switch_registrar(sw), registrar)) {
if (!context_header_written) {
fprintf(output, "[%s]\n", ast_get_context_name(c));
context_header_written = 1;
}
fprintf(output, "switch => %s/%s\n",
ast_get_switch_name(sw),
ast_get_switch_data(sw));
}
sw = ast_walk_context_switches(c, sw);
}
if (ast_walk_context_switches(c, NULL))
fprintf(output, "\n");
/* fireout ignorepats ... */
ip = ast_walk_context_ignorepats(c, NULL);
while (ip) {
if (!strcmp(ast_get_ignorepat_registrar(ip), registrar)) {
if (!context_header_written) {
fprintf(output, "[%s]\n", ast_get_context_name(c));
context_header_written = 1;
}
fprintf(output, "ignorepat => %s\n",
ast_get_ignorepat_name(ip));
}
ip = ast_walk_context_ignorepats(c, ip);
}
ast_unlock_context(c);
} else
incomplete = 1;
c = ast_walk_contexts(c);
}
ast_unlock_contexts();
ast_mutex_unlock(&save_dialplan_lock);
fclose(output);
if (incomplete) {
ast_cli(fd, "Saved dialplan is incomplete\n");
return RESULT_FAILURE;
}
ast_cli(fd, "Dialplane successfully saved into '%s'\n",
filename);
return RESULT_SUCCESS;
}
static char *complete_context_remove_extension(char *line, char *word, int pos,
int state)
{
char *ret = NULL;
int which = 0;
#ifdef BROKEN_READLINE
/*
* Fix arguments, *word is a new allocated structure, REMEMBER to
* free *word when you want to return from this function ...
*/
if (fix_complete_args(line, &word, &pos)) {
ast_log(LOG_ERROR, "Out of free memory\n");
return NULL;
}
#endif
/*
* exten@context completion ...
*/
if (pos == 2) {
struct ast_context *c;
struct ast_exten *e;
char *context = NULL, *exten = NULL, *delim = NULL;
/* now, parse values from word = exten@context */
if ((delim = strchr(word, (int)'@'))) {
/* check for duplicity ... */
if (delim != strrchr(word, (int)'@')) {
#ifdef BROKEN_READLINE
free(word);
#endif
return NULL;
}
*delim = '\0';
exten = strdup(word);
context = strdup(delim + 1);
*delim = '@';
} else {
exten = strdup(word);
}
#ifdef BROKEN_READLINE
free(word);
#endif
if (ast_lock_contexts()) {
ast_log(LOG_ERROR, "Failed to lock context list\n");
free(context); free(exten);
return NULL;
}
/* find our context ... */
c = ast_walk_contexts(NULL);
while (c) {
/* our context? */
if ( (!context || !strlen(context)) || /* if no input, all contexts ... */
(context && !strncmp(ast_get_context_name(c),
context, strlen(context))) ) { /* if input, compare ... */
/* try to complete extensions ... */
e = ast_walk_context_extensions(c, NULL);
while (e) {
/* our extension? */
if ( (!exten || !strlen(exten)) || /* if not input, all extensions ... */
(exten && !strncmp(ast_get_extension_name(e), exten,
strlen(exten))) ) { /* if input, compare ... */
if (++which > state) {
/* If there is an extension then return
* exten@context.
*/
if (exten) {
ret = malloc(strlen(ast_get_extension_name(e)) +
strlen(ast_get_context_name(c)) + 2);
if (ret)
sprintf(ret, "%s@%s", ast_get_extension_name(e),
ast_get_context_name(c));
}
free(exten); free(context);
ast_unlock_contexts();
return ret;
}
}
e = ast_walk_context_extensions(c, e);
}
}
c = ast_walk_contexts(c);
}
ast_unlock_contexts();
free(exten); free(context);
return NULL;
}
/*
* Complete priority ...
*/
if (pos == 3) {
char *delim, *exten, *context, *dupline, *duplinet, *ec;
struct ast_context *c;
dupline = strdup(line);
if (!dupline) {
#ifdef BROKEN_READLINE
free(word);
#endif
return NULL;
}
duplinet = dupline;
strsep(&duplinet, " "); /* skip 'remove' */
strsep(&duplinet, " "); /* skip 'extension */
if (!(ec = strsep(&duplinet, " "))) {
free(dupline);
#ifdef BROKEN_READLINE
free(word);
#endif
return NULL;
}
/* wrong exten@context format? */
if (!(delim = strchr(ec, (int)'@')) ||
(strchr(ec, (int)'@') != strrchr(ec, (int)'@'))) {
#ifdef BROKEN_READLINE
free(word);
#endif
free(dupline);
return NULL;
}
/* check if there is exten and context too ... */
*delim = '\0';
if ((!strlen(ec)) || (!strlen(delim + 1))) {
#ifdef BROKEN_READLINE
free(word);
#endif
free(dupline);
return NULL;
}
exten = strdup(ec);
context = strdup(delim + 1);
free(dupline);
if (ast_lock_contexts()) {
ast_log(LOG_ERROR, "Failed to lock context list\n");
#ifdef BROKEN_READLINE
free(word);
#endif
free(exten); free(context);
return NULL;
}
/* walk contexts */
c = ast_walk_contexts(NULL);
while (c) {
if (!strcmp(ast_get_context_name(c), context)) {
struct ast_exten *e;
/* walk extensions */
free(context);
e = ast_walk_context_extensions(c, NULL);
while (e) {
if (!strcmp(ast_get_extension_name(e), exten)) {
struct ast_exten *priority;
char buffer[10];
free(exten);
priority = ast_walk_extension_priorities(e, NULL);
/* serve priorities */
do {
snprintf(buffer, 10, "%u",
ast_get_extension_priority(priority));
if (!strncmp(word, buffer, strlen(word))) {
if (++which > state) {
#ifdef BROKEN_READLINE
free(word);
#endif
ast_unlock_contexts();
return strdup(buffer);
}
}
priority = ast_walk_extension_priorities(e,
priority);
} while (priority);
#ifdef BROKEN_READLINE
free(word);
#endif
ast_unlock_contexts();
return NULL;
}
e = ast_walk_context_extensions(c, e);
}
#ifdef BROKEN_READLINE
free(word);
#endif
free(exten);
ast_unlock_contexts();
return NULL;
}
c = ast_walk_contexts(c);
}
#ifdef BROKEN_READLINE
free(word);
#endif
free(exten); free(context);
ast_unlock_contexts();
return NULL;
}
#ifdef BROKEN_READLINE
free(word);
#endif
return NULL;
}