apps/app_directory.c

   1 /*
   2  * Asterisk -- An open source telephony toolkit.
   3  *
   4  * Copyright (C) 1999 - 2005, 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 Provide a directory of extensions
  22  *
  23  * \author Mark Spencer <markster@digium.com>
  24  *
  25  * \ingroup applications
  26  */
  27
  28 #include "asterisk.h"
  29
  30 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
  31
  32 #include <string.h>
  33 #include <ctype.h>
  34 #include <stdlib.h>
  35 #include <stdio.h>
  36
  37 #include "asterisk/lock.h"
  38 #include "asterisk/file.h"
  39 #include "asterisk/logger.h"
  40 #include "asterisk/channel.h"
  41 #include "asterisk/pbx.h"
  42 #include "asterisk/module.h"
  43 #include "asterisk/config.h"
  44 #include "asterisk/say.h"
  45 #include "asterisk/utils.h"
  46 #include "asterisk/app.h"
  47
  48 #ifdef ODBC_STORAGE
  49 #include <errno.h>
  50 #include <sys/mman.h>
  51 #include "asterisk/res_odbc.h"
  52
  53 static char odbc_database[80] = "asterisk";
  54 static char odbc_table[80] = "voicemessages";
  55 static char vmfmts[80] = "wav";
  56 #endif
  57
  58 static char *app = "Directory";
  59
  60 static char *synopsis = "Provide directory of voicemail extensions";
  61 static char *descrip =
  62 "  Directory(vm-context[|dial-context[|options]]): This application will present\n"
  63 "the calling channel with a directory of extensions from which they can search\n"
  64 "by name. The list of names and corresponding extensions is retrieved from the\n"
  65 "voicemail configuration file, voicemail.conf.\n"
  66 "  This application will immediately exit if one of the following DTMF digits are\n"
  67 "received and the extension to jump to exists:\n"
  68 "    0 - Jump to the 'o' extension, if it exists.\n"
  69 "    * - Jump to the 'a' extension, if it exists.\n\n"
  70 "  Parameters:\n"
  71 "    vm-context   - This is the context within voicemail.conf to use for the\n"
  72 "                   Directory.\n"
  73 "    dial-context - This is the dialplan context to use when looking for an\n"
  74 "                   extension that the user has selected, or when jumping to the\n"
  75 "                   'o' or 'a' extension.\n\n"
  76 "  Options:\n"
  77 "    e - In addition to the name, also read the extension number to the\n"
  78 "        caller before presenting dialing options.\n"
  79 "    f - Allow the caller to enter the first name of a user in the directory\n"
  80 "        instead of using the last name.\n";
  81
  82 /* For simplicity, I'm keeping the format compatible with the voicemail config,
  83    but i'm open to suggestions for isolating it */
  84
  85 #define VOICEMAIL_CONFIG "voicemail.conf"
  86
  87 /* How many digits to read in */
  88 #define NUMDIGITS 3
  89
  90
  91 #ifdef ODBC_STORAGE
  92 struct generic_prepare_struct {
  93         const char *sql;
  94         const char *param;
  95 };
  96
  97 static SQLHSTMT generic_prepare(struct odbc_obj *obj, void *data)
  98 {
  99         struct generic_prepare_struct *gps = data;
 100         SQLHSTMT stmt;
 101         int res;
 102
 103         res = SQLAllocHandle(SQL_HANDLE_STMT, obj->con, &stmt);
 104         if ((res != SQL_SUCCESS) && (res != SQL_SUCCESS_WITH_INFO)) {
 105                 ast_log(LOG_WARNING, "SQL Alloc Handle failed!\n");
 106                 return NULL;
 107         }
 108
 109         res = SQLPrepare(stmt, (unsigned char *)gps->sql, SQL_NTS);
 110         if ((res != SQL_SUCCESS) && (res != SQL_SUCCESS_WITH_INFO)) {
 111                 ast_log(LOG_WARNING, "SQL Prepare failed![%s]\n", (char *)gps->sql);
 112                 SQLFreeHandle(SQL_HANDLE_STMT, stmt);
 113                 return NULL;
 114         }
 115
 116         if (!ast_strlen_zero(gps->param))
 117                 SQLBindParameter(stmt, 1, SQL_PARAM_INPUT, SQL_C_CHAR, SQL_CHAR, strlen(gps->param), 0, (void *)gps->param, 0, NULL);
 118
 119         return stmt;
 120 }
 121
 122 static void retrieve_file(char *dir)
 123 {
 124         int x = 0;
 125         int res;
 126         int fd=-1;
 127         size_t fdlen = 0;
 128         void *fdm = MAP_FAILED;
 129         SQLHSTMT stmt;
 130         char sql[256];
 131         char fmt[80]="", empty[10] = "";
 132         char *c;
 133         SQLLEN colsize;
 134         char full_fn[256];
 135         struct odbc_obj *obj;
 136         struct generic_prepare_struct gps = { .sql = sql, .param = dir };
 137
 138         obj = ast_odbc_request_obj(odbc_database, 1);
 139         if (obj) {
 140                 do {
 141                         ast_copy_string(fmt, vmfmts, sizeof(fmt));
 142                         c = strchr(fmt, '|');
 143                         if (c)
 144                                 *c = '\0';
 145                         if (!strcasecmp(fmt, "wav49"))
 146                                 strcpy(fmt, "WAV");
 147                         snprintf(full_fn, sizeof(full_fn), "%s.%s", dir, fmt);
 148                         snprintf(sql, sizeof(sql), "SELECT recording FROM %s WHERE dir=? AND msgnum=-1", odbc_table);
 149                         stmt = ast_odbc_prepare_and_execute(obj, generic_prepare, &gps);
 150
 151                         if (!stmt) {
 152                                 ast_log(LOG_WARNING, "SQL Execute error!\n[%s]\n\n", sql);
 153                                 break;
 154                         }
 155                         res = SQLFetch(stmt);
 156                         if (res == SQL_NO_DATA) {
 157                                 SQLFreeHandle(SQL_HANDLE_STMT, stmt);
 158                                 break;
 159                         } else if ((res != SQL_SUCCESS) && (res != SQL_SUCCESS_WITH_INFO)) {
 160                                 ast_log(LOG_WARNING, "SQL Fetch error!\n[%s]\n\n", sql);
 161                                 SQLFreeHandle(SQL_HANDLE_STMT, stmt);
 162                                 break;
 163                         }
 164                         fd = open(full_fn, O_RDWR | O_CREAT | O_TRUNC, 0770);
 165                         if (fd < 0) {
 166                                 ast_log(LOG_WARNING, "Failed to write '%s': %s\n", full_fn, strerror(errno));
 167                                 SQLFreeHandle(SQL_HANDLE_STMT, stmt);
 168                                 break;
 169                         }
 170
 171                         res = SQLGetData(stmt, 1, SQL_BINARY, empty, 0, &colsize);
 172                         fdlen = colsize;
 173                         if (fd > -1) {
 174                                 char tmp[1]="";
 175                                 lseek(fd, fdlen - 1, SEEK_SET);
 176                                 if (write(fd, tmp, 1) != 1) {
 177                                         close(fd);
 178                                         fd = -1;
 179                                         break;
 180                                 }
 181                                 if (fd > -1)
 182                                         fdm = mmap(NULL, fdlen, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
 183                         }
 184                         if (fdm != MAP_FAILED) {
 185                                 memset(fdm, 0, fdlen);
 186                                 res = SQLGetData(stmt, x + 1, SQL_BINARY, fdm, fdlen, &colsize);
 187                                 if ((res != SQL_SUCCESS) && (res != SQL_SUCCESS_WITH_INFO)) {
 188                                         ast_log(LOG_WARNING, "SQL Get Data error!\n[%s]\n\n", sql);
 189                                         SQLFreeHandle(SQL_HANDLE_STMT, stmt);
 190                                         break;
 191                                 }
 192                         }
 193                         SQLFreeHandle(SQL_HANDLE_STMT, stmt);
 194                 } while (0);
 195                 ast_odbc_release_obj(obj);
 196         } else
 197                 ast_log(LOG_WARNING, "Failed to obtain database object for '%s'!\n", odbc_database);
 198         if (fdm != MAP_FAILED)
 199                 munmap(fdm, fdlen);
 200         if (fd > -1)
 201                 close(fd);
 202         return;
 203 }
 204 #endif
 205
 206 static char *convert(const char *lastname)
 207 {
 208         char *tmp;
 209         int lcount = 0;
 210         tmp = ast_malloc(NUMDIGITS + 1);
 211         if (tmp) {
 212                 while((*lastname > 32) && lcount < NUMDIGITS) {
 213                         switch(toupper(*lastname)) {
 214                         case '1':
 215                                 tmp[lcount++] = '1';
 216                                 break;
 217                         case '2':
 218                         case 'A':
 219                         case 'B':
 220                         case 'C':
 221                                 tmp[lcount++] = '2';
 222                                 break;
 223                         case '3':
 224                         case 'D':
 225                         case 'E':
 226                         case 'F':
 227                                 tmp[lcount++] = '3';
 228                                 break;
 229                         case '4':
 230                         case 'G':
 231                         case 'H':
 232                         case 'I':
 233                                 tmp[lcount++] = '4';
 234                                 break;
 235                         case '5':
 236                         case 'J':
 237                         case 'K':
 238                         case 'L':
 239                                 tmp[lcount++] = '5';
 240                                 break;
 241                         case '6':
 242                         case 'M':
 243                         case 'N':
 244                         case 'O':
 245                                 tmp[lcount++] = '6';
 246                                 break;
 247                         case '7':
 248                         case 'P':
 249                         case 'Q':
 250                         case 'R':
 251                         case 'S':
 252                                 tmp[lcount++] = '7';
 253                                 break;
 254                         case '8':
 255                         case 'T':
 256                         case 'U':
 257                         case 'V':
 258                                 tmp[lcount++] = '8';
 259                                 break;
 260                         case '9':
 261                         case 'W':
 262                         case 'X':
 263                         case 'Y':
 264                         case 'Z':
 265                                 tmp[lcount++] = '9';
 266                                 break;
 267                         }
 268                         lastname++;
 269                 }
 270                 tmp[lcount] = '\0';
 271         }
 272         return tmp;
 273 }
 274
 275 /* play name of mailbox owner.
 276  * returns:  -1 for bad or missing extension
 277  *           '1' for selected entry from directory
 278  *           '*' for skipped entry from directory
 279  */
 280 static int play_mailbox_owner(struct ast_channel *chan, char *context,
 281                 char *dialcontext, char *ext, char *name, int readext,
 282                 int fromappvm)
 283 {
 284         int res = 0;
 285         int loop;
 286         char fn[256];
 287
 288         /* Check for the VoiceMail2 greeting first */
 289         snprintf(fn, sizeof(fn), "%s/voicemail/%s/%s/greet",
 290                 ast_config_AST_SPOOL_DIR, context, ext);
 291 #ifdef ODBC_STORAGE
 292         retrieve_file(fn);
 293 #endif
 294
 295         if (ast_fileexists(fn, NULL, chan->language) <= 0) {
 296                 /* no file, check for an old-style Voicemail greeting */
 297                 snprintf(fn, sizeof(fn), "%s/vm/%s/greet",
 298                         ast_config_AST_SPOOL_DIR, ext);
 299         }
 300 #ifdef ODBC_STORAGE
 301         retrieve_file(fn);
 302 #endif
 303
 304         if (ast_fileexists(fn, NULL, chan->language) > 0) {
 305                 res = ast_stream_and_wait(chan, fn, chan->language, AST_DIGIT_ANY);
 306                 ast_stopstream(chan);
 307                 /* If Option 'e' was specified, also read the extension number with the name */
 308                 if (readext) {
 309                         ast_stream_and_wait(chan, "vm-extension", chan->language, AST_DIGIT_ANY);
 310                         res = ast_say_character_str(chan, ext, AST_DIGIT_ANY, chan->language);
 311                 }
 312         } else {
 313                 res = ast_say_character_str(chan, S_OR(name, ext), AST_DIGIT_ANY, chan->language);
 314                 if (!ast_strlen_zero(name) && readext) {
 315                         ast_stream_and_wait(chan, "vm-extension", chan->language, AST_DIGIT_ANY);
 316                         res = ast_say_character_str(chan, ext, AST_DIGIT_ANY, chan->language);
 317                 }
 318         }
 319 #ifdef ODBC_STORAGE
 320         ast_filedelete(fn, NULL);
 321 #endif
 322
 323         for (loop = 3 ; loop > 0; loop--) {
 324                 if (!res)
 325                         res = ast_stream_and_wait(chan, "dir-instr", chan->language, AST_DIGIT_ANY);
 326                 if (!res)
 327                         res = ast_waitfordigit(chan, 3000);
 328                 ast_stopstream(chan);
 329
 330                 if (res < 0) /* User hungup, so jump out now */
 331                         break;
 332                 if (res == '1') {       /* Name selected */
 333                         if (fromappvm) {
 334                                 /* We still want to set the exten though */
 335                                 ast_copy_string(chan->exten, ext, sizeof(chan->exten));
 336                         } else {
 337                                 if (ast_goto_if_exists(chan, dialcontext, ext, 1)) {
 338                                         ast_log(LOG_WARNING,
 339                                                 "Can't find extension '%s' in context '%s'.  "
 340                                                 "Did you pass the wrong context to Directory?\n",
 341                                                 ext, dialcontext);
 342                                         res = -1;
 343                                 }
 344                         }
 345                         break;
 346                 }
 347                 if (res == '*') /* Skip to next match in list */
 348                         break;
 349
 350                 /* Not '1', or '*', so decrement number of tries */
 351                 res = 0;
 352         }
 353
 354         return(res);
 355 }
 356
 357 static struct ast_config *realtime_directory(char *context)
 358 {
 359         struct ast_config *cfg;
 360         struct ast_config *rtdata;
 361         struct ast_category *cat;
 362         struct ast_variable *var;
 363         char *mailbox;
 364         const char *fullname;
 365         const char *hidefromdir;
 366         char tmp[100];
 367
 368         /* Load flat file config. */
 369         cfg = ast_config_load(VOICEMAIL_CONFIG);
 370
 371         if (!cfg) {
 372                 /* Loading config failed. */
 373                 ast_log(LOG_WARNING, "Loading config failed.\n");
 374                 return NULL;
 375         }
 376
 377         /* Get realtime entries, categorized by their mailbox number
 378            and present in the requested context */
 379         rtdata = ast_load_realtime_multientry("voicemail", "mailbox LIKE", "%", "context", context, NULL);
 380
 381         /* if there are no results, just return the entries from the config file */
 382         if (!rtdata)
 383                 return cfg;
 384
 385         /* Does the context exist within the config file? If not, make one */
 386         cat = ast_category_get(cfg, context);
 387         if (!cat) {
 388                 cat = ast_category_new(context);
 389                 if (!cat) {
 390                         ast_log(LOG_WARNING, "Out of memory\n");
 391                         ast_config_destroy(cfg);
 392                         return NULL;
 393                 }
 394                 ast_category_append(cfg, cat);
 395         }
 396
 397         mailbox = NULL;
 398         while ( (mailbox = ast_category_browse(rtdata, mailbox)) ) {
 399                 fullname = ast_variable_retrieve(rtdata, mailbox, "fullname");
 400                 hidefromdir = ast_variable_retrieve(rtdata, mailbox, "hidefromdir");
 401                 snprintf(tmp, sizeof(tmp), "no-password,%s,hidefromdir=%s",
 402                          fullname ? fullname : "",
 403                          hidefromdir ? hidefromdir : "no");
 404                 var = ast_variable_new(mailbox, tmp);
 405                 if (var)
 406                         ast_variable_append(cat, var);
 407                 else
 408                         ast_log(LOG_WARNING, "Out of memory adding mailbox '%s'\n", mailbox);
 409         }
 410         ast_config_destroy(rtdata);
 411
 412         return cfg;
 413 }
 414
 415 static int do_directory(struct ast_channel *chan, struct ast_config *cfg, struct ast_config *ucfg, char *context, char *dialcontext, char digit, int last, int readext, int fromappvm)
 416 {
 417         /* Read in the first three digits..  "digit" is the first digit, already read */
 418         char ext[NUMDIGITS + 1], *cat;
 419         char name[80] = "";
 420         struct ast_variable *v;
 421         int res;
 422         int found=0;
 423         int lastuserchoice = 0;
 424         char *start, *conv, *stringp = NULL;
 425         const char *pos;
 426         int breakout = 0;
 427
 428         if (ast_strlen_zero(context)) {
 429                 ast_log(LOG_WARNING,
 430                         "Directory must be called with an argument "
 431                         "(context in which to interpret extensions)\n");
 432                 return -1;
 433         }
 434         if (digit == '0') {
 435                 if (!ast_goto_if_exists(chan, dialcontext, "o", 1) ||
 436                     (!ast_strlen_zero(chan->macrocontext) &&
 437                      !ast_goto_if_exists(chan, chan->macrocontext, "o", 1))) {
 438                         return 0;
 439                 } else {
 440                         ast_log(LOG_WARNING, "Can't find extension 'o' in current context.  "
 441                                 "Not Exiting the Directory!\n");
 442                         res = 0;
 443                 }
 444         }
 445         if (digit == '*') {
 446                 if (!ast_goto_if_exists(chan, dialcontext, "a", 1) ||
 447                     (!ast_strlen_zero(chan->macrocontext) &&
 448                      !ast_goto_if_exists(chan, chan->macrocontext, "a", 1))) {
 449                         return 0;
 450                 } else {
 451                         ast_log(LOG_WARNING, "Can't find extension 'a' in current context.  "
 452                                 "Not Exiting the Directory!\n");
 453                         res = 0;
 454                 }
 455         }
 456         memset(ext, 0, sizeof(ext));
 457         ext[0] = digit;
 458         res = 0;
 459         if (ast_readstring(chan, ext + 1, NUMDIGITS - 1, 3000, 3000, "#") < 0) res = -1;
 460         if (!res) {
 461                 /* Search for all names which start with those digits */
 462                 v = ast_variable_browse(cfg, context);
 463                 while(v && !res) {
 464                         /* Find all candidate extensions */
 465                         while(v) {
 466                                 /* Find a candidate extension */
 467                                 start = strdup(v->value);
 468                                 if (start && !strcasestr(start, "hidefromdir=yes")) {
 469                                         stringp=start;
 470                                         strsep(&stringp, ",");
 471                                         pos = strsep(&stringp, ",");
 472                                         if (pos) {
 473                                                 ast_copy_string(name, pos, sizeof(name));
 474                                                 /* Grab the last name */
 475                                                 if (last && strrchr(pos,' '))
 476                                                         pos = strrchr(pos, ' ') + 1;
 477                                                 conv = convert(pos);
 478                                                 if (conv) {
 479                                                         if (!strncmp(conv, ext, strlen(ext))) {
 480                                                                 /* Match! */
 481                                                                 found++;
 482                                                                 free(conv);
 483                                                                 free(start);
 484                                                                 break;
 485                                                         }
 486                                                         free(conv);
 487                                                 }
 488                                         }
 489                                         free(start);
 490                                 }
 491                                 v = v->next;
 492                         }
 493
 494                         if (v) {
 495                                 /* We have a match -- play a greeting if they have it */
 496                                 res = play_mailbox_owner(chan, context, dialcontext, v->name, name, readext, fromappvm);
 497                                 switch (res) {
 498                                         case -1:
 499                                                 /* user pressed '1' but extension does not exist, or
 500                                                  * user hungup
 501                                                  */
 502                                                 lastuserchoice = 0;
 503                                                 break;
 504                                         case '1':
 505                                                 /* user pressed '1' and extensions exists;
 506                                                    play_mailbox_owner will already have done
 507                                                    a goto() on the channel
 508                                                  */
 509                                                 lastuserchoice = res;
 510                                                 break;
 511                                         case '*':
 512                                                 /* user pressed '*' to skip something found */
 513                                                 lastuserchoice = res;
 514                                                 res = 0;
 515                                                 break;
 516                                         default:
 517                                                 break;
 518                                 }
 519                                 v = v->next;
 520                         }
 521                 }
 522
 523                 if (!res && ucfg) {
 524                         /* Search users.conf for all names which start with those digits */
 525                         for (cat = ast_category_browse(ucfg, NULL); cat && !res ; cat = ast_category_browse(ucfg, cat)) {
 526                                 if (!strcasecmp(cat, "general"))
 527                                         continue;
 528                                 if (!ast_true(ast_config_option(ucfg, cat, "hasdirectory")))
 529                                         continue;
 530
 531                                 /* Find all candidate extensions */
 532                                 if ((pos = ast_variable_retrieve(ucfg, cat, "fullname"))) {
 533                                         ast_copy_string(name, pos, sizeof(name));
 534                                         /* Grab the last name */
 535                                         if (last && strrchr(pos,' '))
 536                                                 pos = strrchr(pos, ' ') + 1;
 537                                         conv = convert(pos);
 538                                         if (conv) {
 539                                                 if (!strcmp(conv, ext)) {
 540                                                         /* Match! */
 541                                                         found++;
 542                                                         /* We have a match -- play a greeting if they have it */
 543                                                         res = play_mailbox_owner(chan, context, dialcontext, cat, name, readext, fromappvm);
 544                                                         switch (res) {
 545                                                         case -1:
 546                                                                 /* user pressed '1' but extension does not exist, or
 547                                                                  * user hungup
 548                                                                  */
 549                                                                 lastuserchoice = 0;
 550                                                                 breakout = 1;
 551                                                                 break;
 552                                                         case '1':
 553                                                                 /* user pressed '1' and extensions exists;
 554                                                                    play_mailbox_owner will already have done
 555                                                                    a goto() on the channel
 556                                                                  */
 557                                                                 lastuserchoice = res;
 558                                                                 breakout = 1;
 559                                                                 break;
 560                                                         case '*':
 561                                                                 /* user pressed '*' to skip something found */
 562                                                                 lastuserchoice = res;
 563                                                                 breakout = 0;
 564                                                                 res = 0;
 565                                                                 break;
 566                                                         default:
 567                                                                 breakout = 1;
 568                                                                 break;
 569                                                         }
 570                                                         free(conv);
 571                                                         if (breakout)
 572                                                                 break;
 573                                                 }
 574                                                 else
 575                                                         free(conv);
 576                                         }
 577                                 }
 578                         }
 579                 }
 580
 581                 if (lastuserchoice != '1') {
 582                         res = ast_streamfile(chan, found ? "dir-nomore" : "dir-nomatch", chan->language);
 583                         if (!res)
 584                                 res = 1;
 585                         return res;
 586                 }
 587                 return 0;
 588         }
 589         return res;
 590 }
 591
 592 static int directory_exec(struct ast_channel *chan, void *data)
 593 {
 594         int res = 0;
 595         struct ast_module_user *u;
 596         struct ast_config *cfg, *ucfg;
 597         int last = 1;
 598         int readext = 0;
 599         int fromappvm = 0;
 600         const char *dirintro;
 601         char *parse;
 602         AST_DECLARE_APP_ARGS(args,
 603                 AST_APP_ARG(vmcontext);
 604                 AST_APP_ARG(dialcontext);
 605                 AST_APP_ARG(options);
 606         );
 607
 608         if (ast_strlen_zero(data)) {
 609                 ast_log(LOG_WARNING, "Directory requires an argument (context[,dialcontext])\n");
 610                 return -1;
 611         }
 612
 613         u = ast_module_user_add(chan);
 614
 615         parse = ast_strdupa(data);
 616
 617         AST_STANDARD_APP_ARGS(args, parse);
 618
 619         if (args.options) {
 620                 if (strchr(args.options, 'f'))
 621                         last = 0;
 622                 if (strchr(args.options, 'e'))
 623                         readext = 1;
 624                 if (strchr(args.options, 'v'))
 625                         fromappvm = 1;
 626         }
 627
 628         if (ast_strlen_zero(args.dialcontext))
 629                 args.dialcontext = args.vmcontext;
 630
 631         cfg = realtime_directory(args.vmcontext);
 632         if (!cfg) {
 633                 ast_log(LOG_ERROR, "Unable to read the configuration data!\n");
 634                 ast_module_user_remove(u);
 635                 return -1;
 636         }
 637
 638         ucfg = ast_config_load("users.conf");
 639
 640         dirintro = ast_variable_retrieve(cfg, args.vmcontext, "directoryintro");
 641         if (ast_strlen_zero(dirintro))
 642                 dirintro = ast_variable_retrieve(cfg, "general", "directoryintro");
 643         if (ast_strlen_zero(dirintro))
 644                 dirintro = last ? "dir-intro" : "dir-intro-fn";
 645
 646         if (chan->_state != AST_STATE_UP)
 647                 res = ast_answer(chan);
 648
 649         for (;;) {
 650                 if (!res)
 651                         res = ast_stream_and_wait(chan, dirintro, chan->language, AST_DIGIT_ANY);
 652                 ast_stopstream(chan);
 653                 if (!res)
 654                         res = ast_waitfordigit(chan, 5000);
 655                 if (res > 0) {
 656                         res = do_directory(chan, cfg, ucfg, args.vmcontext, args.dialcontext, res, last, readext, fromappvm);
 657                         if (res > 0) {
 658                                 res = ast_waitstream(chan, AST_DIGIT_ANY);
 659                                 ast_stopstream(chan);
 660                                 if (res >= 0)
 661                                         continue;
 662                         }
 663                 }
 664                 break;
 665         }
 666         if (ucfg)
 667                 ast_config_destroy(ucfg);
 668         ast_config_destroy(cfg);
 669         ast_module_user_remove(u);
 670         return res;
 671 }
 672
 673 static int unload_module(void)
 674 {
 675         int res;
 676         res = ast_unregister_application(app);
 677         return res;
 678 }
 679
 680 static int load_module(void)
 681 {
 682 #ifdef ODBC_STORAGE
 683         struct ast_config *cfg = ast_config_load(VOICEMAIL_CONFIG);
 684         const char *tmp;
 685
 686         if (cfg) {
 687                 if ((tmp = ast_variable_retrieve(cfg, "general", "odbcstorage"))) {
 688                         ast_copy_string(odbc_database, tmp, sizeof(odbc_database));
 689                 }
 690                 if ((tmp = ast_variable_retrieve(cfg, "general", "odbctable"))) {
 691                         ast_copy_string(odbc_table, tmp, sizeof(odbc_table));
 692                 }
 693                 if ((tmp = ast_variable_retrieve(cfg, "general", "format"))) {
 694                         ast_copy_string(vmfmts, tmp, sizeof(vmfmts));
 695                 }
 696                 ast_config_destroy(cfg);
 697         } else
 698                 ast_log(LOG_WARNING, "Unable to load " VOICEMAIL_CONFIG " - ODBC defaults will be used\n");
 699 #endif
 700
 701         return ast_register_application(app, directory_exec, synopsis, descrip);
 702 }
 703
 704 AST_MODULE_INFO_STANDARD(ASTERISK_GPL_KEY, "Extension Directory");