utils/ael_main.c

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