utils/ael_main.c

   1 #include "asterisk.h"
   2
   3 #include <sys/types.h>
   4 #include <stdio.h>
   5 #include <stdlib.h>
   6 #include <stdarg.h>
   7 #include <string.h>
   8 #include <locale.h>
   9 #include <ctype.h>
  10 #include <errno.h>
  11 #include <regex.h>
  12 #include <limits.h>
  13
  14 #include "asterisk/ast_expr.h"
  15 #include "asterisk/channel.h"
  16 #include "asterisk/module.h"
  17 #include "asterisk/app.h"
  18 #include "asterisk/ael_structs.h"
  19
  20 /*** MODULEINFO
  21         <depend>pbx_ael</depend>
  22  ***/
  23
  24 struct namelist
  25 {
  26         char name[100];
  27         char name2[100];
  28         struct namelist *next;
  29 };
  30
  31 struct ast_context
  32 {
  33         int extension_count;
  34         char name[100];
  35         char registrar[100];
  36         struct namelist *includes;
  37         struct namelist *ignorepats;
  38         struct namelist *switches;
  39         struct namelist *eswitches;
  40
  41         struct namelist *includes_last;
  42         struct namelist *ignorepats_last;
  43         struct namelist *switches_last;
  44         struct namelist *eswitches_last;
  45
  46         struct ast_context *next;
  47 };
  48
  49 #define ADD_LAST(headptr,memptr) if(!headptr){ headptr=(memptr); (headptr##_last)=(memptr);} else {(headptr##_last)->next = (memptr); (headptr##_last) = (memptr);}
  50
  51 void destroy_namelist(struct namelist *x);
  52 void destroy_namelist(struct namelist *x)
  53 {
  54         struct namelist *z,*z2;
  55         for(z=x; z; z = z2)
  56         {
  57                 z2 = z->next;
  58                 z->next = 0;
  59                 free(z);
  60         }
  61 }
  62
  63 struct namelist *create_name(const char *name);
  64 struct namelist *create_name(const char *name)
  65 {
  66         struct namelist *x = calloc(1, sizeof(*x));
  67         if (!x)
  68                 return NULL;
  69         strncpy(x->name, name, sizeof(x->name) - 1);
  70         return x;
  71 }
  72
  73 struct ast_context *context_list;
  74 struct ast_context *last_context;
  75 struct namelist *globalvars;
  76 struct namelist *globalvars_last;
  77
  78 int conts=0, extens=0, priors=0;
  79 char last_exten[18000];
  80 char ast_config_AST_CONFIG_DIR[PATH_MAX];
  81 char ast_config_AST_VAR_DIR[PATH_MAX];
  82
  83 void ast_cli_register_multiple(void);
  84 int ast_add_extension2(struct ast_context *con,
  85                                            int replace, const char *extension, int priority, const char *label, const char *callerid,
  86                                                 const char *application, void *data, void (*datad)(void *),
  87                                            const char *registrar);
  88 void pbx_builtin_setvar(void *chan, void *data);
  89 struct ast_context * ast_context_create(void **extcontexts, const char *name, const char *registrar);
  90 struct ast_context * ast_context_find_or_create(void **extcontexts, const char *name, const char *registrar);
  91 void ast_context_add_ignorepat2(struct ast_context *con, const char *value, const char *registrar);
  92 void ast_context_add_include2(struct ast_context *con, const char *value, const char *registrar);
  93 void ast_context_add_switch2(struct ast_context *con, const char *value, const char *data, int eval, const char *registrar);
  94 void ast_merge_contexts_and_delete(void);
  95 void ast_context_verify_includes(void);
  96 struct ast_context * ast_walk_contexts(void);
  97 void ast_cli_unregister_multiple(void);
  98 void ast_context_destroy(void);
  99 void ast_log(int level, const char *file, int line, const char *function, const char *fmt, ...);
 100 char *ast_process_quotes_and_slashes(char *start, char find, char replace_with);
 101 void ast_verbose(const char *fmt, ...);
 102 struct ast_app *pbx_findapp(const char *app);
 103 void filter_leading_space_from_exprs(char *str);
 104 void filter_newlines(char *str);
 105 static int quiet = 0;
 106 static int no_comp = 0;
 107 static int use_curr_dir = 0;
 108 static int dump_extensions = 0;
 109 static int FIRST_TIME = 0;
 110 static FILE *dumpfile;
 111
 112 struct ast_app *pbx_findapp(const char *app)
 113 {
 114         return (struct ast_app*)1; /* so as not to trigger an error */
 115 }
 116
 117 int ast_loader_register(int (*updater)(void))
 118 {
 119         return 1;
 120 }
 121
 122 int ast_loader_unregister(int (*updater)(void))
 123 {
 124         return 1;
 125 }
 126 void ast_module_register(const struct ast_module_info *x)
 127 {
 128 }
 129
 130 void ast_module_unregister(const struct ast_module_info *x)
 131 {
 132 }
 133
 134
 135 void ast_cli_register_multiple(void)
 136 {
 137         if(!no_comp)
 138                 printf("Executed ast_cli_register_multiple();\n");
 139 }
 140
 141 void pbx_substitute_variables_helper(struct ast_channel *c,const char *cp1,char *cp2,int count);
 142 void pbx_substitute_variables_helper(struct ast_channel *c,const char *cp1,char *cp2,int count)
 143 {
 144         if (cp1 && *cp1)
 145                 strncpy(cp2,cp1,AST_MAX_EXTENSION); /* Right now, this routine is ONLY being called for
 146                                                                                            a possible var substitution on extension names,
 147                                                                                            so....! */
 148         else
 149                 *cp2 = 0;
 150 }
 151
 152 int ast_add_extension2(struct ast_context *con,
 153                         int replace, const char *extension, int priority, const char *label, const char *callerid,
 154                         const char *application, void *data, void (*datad)(void *),
 155                         const char *registrar)
 156 {
 157         priors++;
 158         con->extension_count++;
 159         if (strcmp(extension,last_exten) != 0) {
 160                 extens++;
 161                 strcpy(last_exten, extension);
 162         }
 163         if (!label) {
 164                 label = "(null)";
 165         }
 166         if (!callerid) {
 167                 callerid = "(null)";
 168         }
 169         if (!application) {
 170                 application = "(null)";
 171         }
 172
 173         if(!no_comp)
 174                 printf("Executed ast_add_extension2(context=%s, rep=%d, exten=%s, priority=%d, label=%s, callerid=%s, appl=%s, data=%s, FREE, registrar=%s);\n",
 175                            con->name, replace, extension, priority, label, callerid, application, (data?(char*)data:"(null)"), registrar);
 176
 177         if( dump_extensions && dumpfile ) {
 178                 struct namelist *n;
 179                 char *data2,*data3=0;
 180                 int commacount = 0;
 181
 182                 if( FIRST_TIME ) {
 183                         FIRST_TIME = 0;
 184
 185                         if( globalvars )
 186                                 fprintf(dumpfile,"[globals]\n");
 187
 188                         for(n=globalvars;n;n=n->next) {
 189                                 fprintf(dumpfile, "%s\n", n->name);
 190                         }
 191                 }
 192
 193                 /* print out each extension , possibly the context header also */
 194                 if( con != last_context ) {
 195                         fprintf(dumpfile,"\n\n[%s]\n", con->name);
 196                         last_context = con;
 197                         for(n=con->ignorepats;n;n=n->next) {
 198                                 fprintf(dumpfile, "ignorepat => %s\n", n->name);
 199                         }
 200                         for(n=con->includes;n;n=n->next) {
 201                                 fprintf(dumpfile, "include => %s\n", n->name);
 202                         }
 203                         for(n=con->switches;n;n=n->next) {
 204                                 fprintf(dumpfile, "switch => %s/%s\n", n->name, n->name2);
 205                         }
 206                         for(n=con->eswitches;n;n=n->next) {
 207                                 fprintf(dumpfile, "eswitch => %s/%s\n", n->name, n->name2);
 208                         }
 209
 210                 }
 211                 if( data ) {
 212                         filter_newlines((char*)data);
 213                         filter_leading_space_from_exprs((char*)data);
 214
 215                         /* compiling turns commas into vertical bars in the app data, and also removes the backslash from before escaped commas;
 216                            we have to restore the escaping backslash in front of any commas; the vertical bars are OK to leave as-is */
 217                         for (data2 = data; *data2; data2++) {
 218                                 if (*data2 == ',')
 219                                         commacount++;  /* we need to know how much bigger the string will grow-- one backslash for each comma  */
 220                         }
 221                         if (commacount)
 222                         {
 223                                 char *d3,*d4;
 224
 225                                 data2 = (char*)malloc(strlen(data)+commacount+1);
 226                                 data3 = data;
 227                                 d3 = data;
 228                                 d4 = data2;
 229                                 while (*d3) {
 230                                         if (*d3 == ',') {
 231                                                 *d4++ = '\\'; /* put a backslash in front of each comma */
 232                                                 *d4++ = *d3++;
 233                                         } else
 234                                                 *d4++ = *d3++;  /* or just copy the char */
 235                                 }
 236                                 *d4++ = 0;  /* cap off the new string */
 237                                 data = data2;
 238                         } else
 239                                 data2 = 0;
 240
 241                         if( strcmp(label,"(null)") != 0  )
 242                                 fprintf(dumpfile,"exten => %s,%d(%s),%s(%s)\n", extension, priority, label, application, (char*)data);
 243                         else
 244                                 fprintf(dumpfile,"exten => %s,%d,%s(%s)\n", extension, priority, application, (char*)data);
 245
 246                         if (data2) {
 247                                 free(data2);
 248                                 data2 = 0;
 249                                 data = data3; /* restore data to pre-messedup state */
 250                         }
 251
 252                 } else {
 253
 254                         if( strcmp(label,"(null)") != 0  )
 255                                 fprintf(dumpfile,"exten => %s,%d(%s),%s\n", extension, priority, label, application);
 256                         else
 257                                 fprintf(dumpfile,"exten => %s,%d,%s\n", extension, priority, application);
 258                 }
 259         }
 260
 261         /* since add_extension2 is responsible for the malloc'd data stuff */
 262         if( data )
 263                 free(data);
 264         return 0;
 265 }
 266
 267 void pbx_builtin_setvar(void *chan, void *data)
 268 {
 269         struct namelist *x = create_name(data);
 270         if(!no_comp)
 271                 printf("Executed pbx_builtin_setvar(chan, data=%s);\n", (char*)data);
 272
 273         if( dump_extensions ) {
 274                 x = create_name(data);
 275                 ADD_LAST(globalvars,x);
 276         }
 277 }
 278
 279
 280 struct ast_context * ast_context_create(void **extcontexts, const char *name, const char *registrar)
 281 {
 282         struct ast_context *x = calloc(1, sizeof(*x));
 283         if (!x)
 284                 return NULL;
 285         x->next = context_list;
 286         context_list = x;
 287         if (!no_comp)
 288                 printf("Executed ast_context_create(conts, name=%s, registrar=%s);\n", name, registrar);
 289         conts++;
 290         strncpy(x->name, name, sizeof(x->name) - 1);
 291         strncpy(x->registrar, registrar, sizeof(x->registrar) - 1);
 292         return x;
 293 }
 294
 295 struct ast_context * ast_context_find_or_create(void **extcontexts, const char *name, const char *registrar)
 296 {
 297         struct ast_context *x = calloc(1, sizeof(*x));
 298         if (!x)
 299                 return NULL;
 300         x->next = context_list;
 301         context_list = x;
 302         if (!no_comp)
 303                 printf("Executed ast_context_find_or_create(conts, name=%s, registrar=%s);\n", name, registrar);
 304         conts++;
 305         strncpy(x->name, name, sizeof(x->name) - 1);
 306         strncpy(x->registrar, registrar, sizeof(x->registrar) - 1);
 307         return x;
 308 }
 309
 310 void ast_context_add_ignorepat2(struct ast_context *con, const char *value, const char *registrar)
 311 {
 312         if(!no_comp)
 313                 printf("Executed ast_context_add_ignorepat2(con, value=%s, registrar=%s);\n", value, registrar);
 314         if( dump_extensions ) {
 315                 struct namelist *x;
 316                 x = create_name(value);
 317                 ADD_LAST(con->ignorepats,x);
 318         }
 319 }
 320
 321 void ast_context_add_include2(struct ast_context *con, const char *value, const char *registrar)
 322 {
 323         if(!no_comp)
 324                 printf("Executed ast_context_add_include2(con, value=%s, registrar=%s);\n", value, registrar);
 325         if( dump_extensions ) {
 326                 struct namelist *x;
 327                 x = create_name((char*)value);
 328                 ADD_LAST(con->includes,x);
 329         }
 330 }
 331
 332 void ast_context_add_switch2(struct ast_context *con, const char *value, const char *data, int eval, const char *registrar)
 333 {
 334         if(!no_comp)
 335                 printf("Executed ast_context_add_switch2(con, value=%s, data=%s, eval=%d, registrar=%s);\n", value, data, eval, registrar);
 336         if( dump_extensions ) {
 337                 struct namelist *x;
 338                 x = create_name((char*)value);
 339                 strncpy(x->name2,data,100);
 340                 if( eval ) {
 341
 342                         ADD_LAST(con->switches,x);
 343
 344                 } else {
 345
 346                         ADD_LAST(con->eswitches,x);
 347                 }
 348         }
 349 }
 350
 351 void ast_merge_contexts_and_delete(void)
 352 {
 353         if(!no_comp)
 354                 printf("Executed ast_merge_contexts_and_delete();\n");
 355 }
 356
 357 void ast_context_verify_includes(void)
 358 {
 359         if(!no_comp)
 360                 printf("Executed ast_context_verify_includes();\n");
 361 }
 362
 363 struct ast_context * ast_walk_contexts(void)
 364 {
 365         if(!no_comp)
 366                 printf("Executed ast_walk_contexts();\n");
 367         return 0;
 368 }
 369
 370 void ast_cli_unregister_multiple(void)
 371 {
 372         if(!no_comp)
 373                 printf("Executed ast_cli_unregister_multiple();\n");
 374 }
 375
 376 void ast_context_destroy(void)
 377 {
 378         if( !no_comp)
 379                 printf("Executed ast_context_destroy();\n");
 380 }
 381
 382 void ast_log(int level, const char *file, int line, const char *function, const char *fmt, ...)
 383 {
 384         va_list vars;
 385         va_start(vars,fmt);
 386         if( !quiet || level > 2 ) {
 387             printf("LOG: lev:%d file:%s  line:%d func: %s  ",
 388                    level, file, line, function);
 389             vprintf(fmt, vars);
 390             fflush(stdout);
 391             va_end(vars);
 392         }
 393 }
 394
 395 void ast_verbose(const char *fmt, ...)
 396 {
 397         va_list vars;
 398         va_start(vars,fmt);
 399
 400         printf("VERBOSE: ");
 401         vprintf(fmt, vars);
 402         fflush(stdout);
 403         va_end(vars);
 404 }
 405
 406 char *ast_process_quotes_and_slashes(char *start, char find, char replace_with)
 407 {
 408         char *dataPut = start;
 409         int inEscape = 0;
 410         int inQuotes = 0;
 411
 412         for (; *start; start++) {
 413                 if (inEscape) {
 414                         *dataPut++ = *start;       /* Always goes verbatim */
 415                         inEscape = 0;
 416                 } else {
 417                         if (*start == '\\') {
 418                                 inEscape = 1;      /* Do not copy \ into the data */
 419                         } else if (*start == '\'') {
 420                                 inQuotes = 1-inQuotes;   /* Do not copy ' into the data */
 421                         } else {
 422                                 /* Replace , with |, unless in quotes */
 423                                 *dataPut++ = inQuotes ? *start : ((*start==find) ? replace_with : *start);
 424                         }
 425                 }
 426         }
 427         if (start != dataPut)
 428                 *dataPut = 0;
 429         return dataPut;
 430 }
 431
 432 void filter_leading_space_from_exprs(char *str)
 433 {
 434         /*  Mainly for aesthetics */
 435         char *t, *v, *u = str;
 436
 437         while ( u && *u ) {
 438
 439                 if( *u == '$' && *(u+1) == '[' ) {
 440                         t = u+2;
 441                         while( *t == '\n' || *t == '\r' || *t == '\t' || *t == ' ' ) {
 442                                 v = t;
 443                                 while ( *v ) {
 444                                         *v = *(v+1);
 445                                         v++;
 446                                 }
 447                         }
 448                 }
 449
 450                 u++;
 451         }
 452 }
 453
 454 void filter_newlines(char *str)
 455 {
 456         /* remove all newlines, returns  */
 457         char *t=str;
 458         while( t && *t ) {
 459                 if( *t == '\n' || *t == '\r' ) {
 460                         *t = ' '; /* just replace newlines and returns with spaces; they act as
 461                                                  token separators, and just blindly removing them could be
 462                                                  harmful. */
 463                 }
 464                 t++;
 465         }
 466 }
 467
 468
 469 extern struct module_symbols mod_data;
 470 extern int ael_external_load_module(void);
 471
 472 int main(int argc, char **argv)
 473 {
 474         int i;
 475         struct namelist *n;
 476         struct ast_context *lp,*lp2;
 477
 478         for(i=1;i<argc;i++) {
 479                 if( argv[i][0] == '-' && argv[i][1] == 'n' )
 480                         no_comp =1;
 481                 if( argv[i][0] == '-' && argv[i][1] == 'q' ) {
 482                         quiet = 1;
 483                         no_comp =1;
 484                 }
 485                 if( argv[i][0] == '-' && argv[i][1] == 'd' )
 486                         use_curr_dir =1;
 487                 if( argv[i][0] == '-' && argv[i][1] == 'w' )
 488                         dump_extensions =1;
 489         }
 490
 491         if( !quiet ) {
 492                 printf("\n(If you find progress and other non-error messages irritating, you can use -q to suppress them)\n");
 493                 if( !no_comp )
 494                         printf("\n(You can use the -n option if you aren't interested in seeing all the instructions generated by the compiler)\n\n");
 495                 if( !use_curr_dir )
 496                         printf("\n(You can use the -d option if you want to use the current working directory as the CONFIG_DIR. I will look in this dir for extensions.ael* and its included files)\n\n");
 497                 if( !dump_extensions )
 498                         printf("\n(You can use the -w option to dump extensions.conf format to extensions.conf.aeldump)\n");
 499         }
 500
 501         if( use_curr_dir ) {
 502                 strcpy(ast_config_AST_CONFIG_DIR, ".");
 503         }
 504         else {
 505                 strcpy(ast_config_AST_CONFIG_DIR, "/etc/asterisk");
 506         }
 507         strcpy(ast_config_AST_VAR_DIR, "/var/lib/asterisk");
 508
 509         if( dump_extensions ) {
 510                 dumpfile = fopen("extensions.conf.aeldump","w");
 511                 if( !dumpfile ) {
 512                         printf("\n\nSorry, cannot open extensions.conf.aeldump for writing! Correct the situation and try again!\n\n");
 513                         exit(10);
 514                 }
 515
 516         }
 517
 518         FIRST_TIME = 1;
 519
 520         ael_external_load_module();
 521
 522         ast_log(4, "ael2_parse", __LINE__, "main", "%d contexts, %d extensions, %d priorities\n", conts, extens, priors);
 523
 524         if( dump_extensions && dumpfile ) {
 525
 526                 for( lp = context_list; lp; lp = lp->next ) { /* print out any contexts that didn't have any
 527                                                                                                                  extensions in them */
 528                         if( lp->extension_count == 0 ) {
 529
 530                                 fprintf(dumpfile,"\n\n[%s]\n", lp->name);
 531
 532                                 for(n=lp->ignorepats;n;n=n->next) {
 533                                         fprintf(dumpfile, "ignorepat => %s\n", n->name);
 534                                 }
 535                                 for(n=lp->includes;n;n=n->next) {
 536                                         fprintf(dumpfile, "include => %s\n", n->name);
 537                                 }
 538                                 for(n=lp->switches;n;n=n->next) {
 539                                         fprintf(dumpfile, "switch => %s/%s\n", n->name, n->name2);
 540                                 }
 541                                 for(n=lp->eswitches;n;n=n->next) {
 542                                         fprintf(dumpfile, "eswitch => %s/%s\n", n->name, n->name2);
 543                                 }
 544                         }
 545                 }
 546         }
 547
 548         if( dump_extensions && dumpfile )
 549                 fclose(dumpfile);
 550
 551         for( lp = context_list; lp; lp = lp2 ) { /* free the ast_context structs */
 552                 lp2 = lp->next;
 553                 lp->next = 0;
 554
 555                 destroy_namelist(lp->includes);
 556                 destroy_namelist(lp->ignorepats);
 557                 destroy_namelist(lp->switches);
 558                 destroy_namelist(lp->eswitches);
 559
 560                 free(lp);
 561         }
 562
 563     return 0;
 564 }