app_adsiprog.c File Reference

Program Asterisk ADSI Scripts into phone. More...

#include "asterisk.h"
#include <netinet/in.h>
#include <ctype.h>
#include "asterisk/paths.h"
#include "asterisk/file.h"
#include "asterisk/channel.h"
#include "asterisk/pbx.h"
#include "asterisk/module.h"
#include "asterisk/adsi.h"
#include "asterisk/utils.h"
#include "asterisk/lock.h"

Include dependency graph for app_adsiprog.c:

Go to the source code of this file.

Data Structures
struct	adsi_display
struct	adsi_event
struct	adsi_flag
struct	adsi_key_cmd
struct	adsi_script
struct	adsi_soft_key
struct	adsi_state
struct	adsi_subscript

Macros
#define	ARG_NUMBER   (1 << 1)
#define	ARG_STRING   (1 << 0)
#define	MAX_MAIN_LEN   1600
#define	MAX_RET_CODE   20
#define	MAX_SUB_LEN   255
#define	STATE_INIF   3
#define	STATE_INKEY   1
#define	STATE_INSUB   2
#define	STATE_NORMAL   0

Functions
static void	__reg_module (void)
static void	__unreg_module (void)
static int	adsi_exec (struct ast_channel *chan, const char *data)
static int	adsi_process (struct adsi_script *state, char *buf, const char *script, int lineno)
static int	adsi_prog (struct ast_channel *chan, const char *script)
struct ast_module *	AST_MODULE_SELF_SYM (void)
static int	clearcbone (char *buf, char *name, int id, char *args, struct adsi_script *istate, const char *script, int lineno)
static int	cleardisplay (char *buf, char *name, int id, char *args, struct adsi_script *istate, const char *script, int lineno)
static int	clearflag (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	cleartimer (char *buf, char *name, int id, char *args, struct adsi_script *istate, const char *script, int lineno)
static struct adsi_script *	compile_script (const char *script)
static int	digitcollect (char *buf, char *name, int id, char *args, struct adsi_script *istate, const char *script, int lineno)
static int	digitdirect (char *buf, char *name, int id, char *args, struct adsi_script *istate, const char *script, int lineno)
static char *	get_token (char **buf, const char *script, int lineno)
static struct adsi_display *	getdisplaybyname (struct adsi_script *state, char *name, const char *script, int lineno, int create)
static int	geteventbyname (char *name)
static struct adsi_flag *	getflagbyname (struct adsi_script *state, char *name, const char *script, int lineno, int create)
static int	getjustifybyname (char *name)
static struct adsi_soft_key *	getkeybyname (struct adsi_script *state, char *name, const char *script, int lineno)
static struct adsi_state *	getstatebyname (struct adsi_script *state, char *name, const char *script, int lineno, int create)
static struct adsi_subscript *	getsubbyname (struct adsi_script *state, char *name, const char *script, int lineno)
static int	goto_line (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	goto_line_rel (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	load_module (void)
	Load the module. More...
static int	onevent (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	process_opcode (struct adsi_subscript *sub, char *code, char *args, struct adsi_script *state, const char *script, int lineno)
static int	process_returncode (struct adsi_soft_key *key, char *code, char *args, struct adsi_script *state, const char *script, int lineno)
static int	process_token (void *out, char *src, int maxlen, int argtype)
static int	send_delay (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	send_dtmf (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	set_state (char *buf, char *name, int id, char *args, struct adsi_script *istate, const char *script, int lineno)
static int	setflag (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	showdisplay (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	showkeys (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	starttimer (char *buf, char *name, int id, char *args, struct adsi_script *istate, const char *script, int lineno)
static int	subscript (char *buf, char *name, int id, char *args, struct adsi_script *state, const char *script, int lineno)
static int	unload_module (void)

Variables
static struct ast_module_info	__mod_info = { .name = AST_MODULE, .flags = AST_MODFLAG_DEFAULT , .description = "Asterisk ADSI Programming Application" , .key = "This paragraph is copyright (c) 2006 by Digium, Inc. \In order for your module to load, it must return this \key via a function called \"key\". Any code which \includes this paragraph must be licensed under the GNU \General Public License version 2 or later (at your \option). In addition to Digium's general reservations \of rights, Digium expressly reserves the right to \allow other parties to license this paragraph under \different terms. Any use of Digium, Inc. trademarks or \logos (including \"Asterisk\" or \"Digium\") without \express written permission of Digium, Inc. is prohibited.\n" , .buildopt_sum = "30ef0c93b36035ec78c9cfd712d36d9b" , .support_level = AST_MODULE_SUPPORT_DEPRECATED, .load = load_module, .unload = unload_module, .requires = "res_adsi", }
static const char	app [] = "ADSIProg"
static const struct ast_module_info *	ast_module_info = &__mod_info
static const struct adsi_event	events []
static const struct adsi_event	justify []
static const struct adsi_key_cmd	kcmds []
static const struct adsi_key_cmd	opcmds []
static char *	validdtmf = "123456789*0#ABCD"

Detailed Description

Program Asterisk ADSI Scripts into phone.

Author

Mark Spencer marks.nosp@m.ter@.nosp@m.digiu.nosp@m.m.co.nosp@m.m

Definition in file app_adsiprog.c.

Macro Definition Documentation

ARG_NUMBER

#define ARG_NUMBER   (1 << 1)

Definition at line 129 of file app_adsiprog.c.

Referenced by adsi_process(), goto_line(), goto_line_rel(), process_token(), send_delay(), set_state(), showdisplay(), and starttimer().

ARG_STRING

#define ARG_STRING   (1 << 0)

Definition at line 128 of file app_adsiprog.c.

Referenced by adsi_process(), clearflag(), onevent(), process_token(), send_dtmf(), setflag(), showdisplay(), showkeys(), and subscript().

MAX_MAIN_LEN

#define MAX_MAIN_LEN   1600

Definition at line 126 of file app_adsiprog.c.

Referenced by process_opcode().

MAX_RET_CODE

#define MAX_RET_CODE   20

Definition at line 124 of file app_adsiprog.c.

Referenced by process_returncode().

MAX_SUB_LEN

#define MAX_SUB_LEN   255

Definition at line 125 of file app_adsiprog.c.

Referenced by process_opcode().

STATE_INIF

#define STATE_INIF   3

Definition at line 122 of file app_adsiprog.c.

Referenced by adsi_process().

STATE_INKEY

#define STATE_INKEY   1

Definition at line 120 of file app_adsiprog.c.

Referenced by adsi_process(), and compile_script().

STATE_INSUB

#define STATE_INSUB   2

Definition at line 121 of file app_adsiprog.c.

Referenced by adsi_process(), and compile_script().

STATE_NORMAL

#define STATE_NORMAL   0

Definition at line 119 of file app_adsiprog.c.

Referenced by adsi_process(), and compile_script().

Function Documentation

__reg_module()

static void __reg_module ( void  )

static

Definition at line 1617 of file app_adsiprog.c.

__unreg_module()

static void __unreg_module ( void  )

static

Definition at line 1617 of file app_adsiprog.c.

adsi_exec()

static int adsi_exec ( struct ast_channel *  chan, const char *  data  )

static

Definition at line 1573 of file app_adsiprog.c.

References adsi_prog(), ast_adsi_available(), ast_strlen_zero, and ast_verb.

Referenced by load_module().

{
   int res = 0;

   if (ast_strlen_zero(data))
      data = "asterisk.adsi";

   if (!ast_adsi_available(chan)) {
      ast_verb(3, "ADSI Unavailable on CPE.  Not bothering to try.\n");
   } else {
      ast_verb(3, "ADSI Available on CPE.  Attempting Upload.\n");
      res = adsi_prog(chan, data);
   }

   return res;
}

adsi_process()

static int adsi_process ( struct adsi_script *  state, char *  buf, const char *  script, int  lineno  )

static

Definition at line 1021 of file app_adsiprog.c.

References ARG_NUMBER, ARG_STRING, args, ast_copy_string(), ast_log, adsi_subscript::data, adsi_display::data, adsi_subscript::datalen, adsi_display::datalen, adsi_soft_key::defined, adsi_subscript::defined, adsi_script::desc, adsi_script::fdn, get_token(), getdisplaybyname(), geteventbyname(), getflagbyname(), getjustifybyname(), getkeybyname(), getstatebyname(), getsubbyname(), adsi_soft_key::id, adsi_subscript::id, adsi_display::id, adsi_subscript::ifdata, adsi_subscript::ifinscount, adsi_soft_key::initlen, adsi_subscript::inscount, adsi_script::key, LOG_WARNING, NULL, process_opcode(), process_returncode(), process_token(), adsi_soft_key::retstr, adsi_soft_key::retstrlen, adsi_script::sec, adsi_script::state, STATE_INIF, STATE_INKEY, STATE_INSUB, STATE_NORMAL, adsi_script::sub, tmp(), and adsi_script::ver.

Referenced by compile_script().

{
   char *keyword = get_token(&buf, script, lineno);
   char *args, vname[256], tmp[80], tmp2[80];
   int lrci, wi, event;
   struct adsi_display *disp;
   struct adsi_subscript *newsub;

   if (!keyword)
      return 0;

   switch(state->state) {
   case STATE_NORMAL:
      if (!strcasecmp(keyword, "DESCRIPTION")) {
         if ((args = get_token(&buf, script, lineno))) {
            if (process_token(state->desc, args, sizeof(state->desc) - 1, ARG_STRING))
               ast_log(LOG_WARNING, "'%s' is not a valid token for DESCRIPTION at line %d of %s\n", args, lineno, script);
         } else
            ast_log(LOG_WARNING, "Missing argument for DESCRIPTION at line %d of %s\n", lineno, script);
      } else if (!strcasecmp(keyword, "VERSION")) {
         if ((args = get_token(&buf, script, lineno))) {
            if (process_token(&state->ver, args, sizeof(state->ver) - 1, ARG_NUMBER))
               ast_log(LOG_WARNING, "'%s' is not a valid token for VERSION at line %d of %s\n", args, lineno, script);
         } else
            ast_log(LOG_WARNING, "Missing argument for VERSION at line %d of %s\n", lineno, script);
      } else if (!strcasecmp(keyword, "SECURITY")) {
         if ((args = get_token(&buf, script, lineno))) {
            if (process_token(state->sec, args, sizeof(state->sec) - 1, ARG_STRING | ARG_NUMBER))
               ast_log(LOG_WARNING, "'%s' is not a valid token for SECURITY at line %d of %s\n", args, lineno, script);
         } else
            ast_log(LOG_WARNING, "Missing argument for SECURITY at line %d of %s\n", lineno, script);
      } else if (!strcasecmp(keyword, "FDN")) {
         if ((args = get_token(&buf, script, lineno))) {
            if (process_token(state->fdn, args, sizeof(state->fdn) - 1, ARG_STRING | ARG_NUMBER))
               ast_log(LOG_WARNING, "'%s' is not a valid token for FDN at line %d of %s\n", args, lineno, script);
         } else
            ast_log(LOG_WARNING, "Missing argument for FDN at line %d of %s\n", lineno, script);
      } else if (!strcasecmp(keyword, "KEY")) {
         if (!(args = get_token(&buf, script, lineno))) {
            ast_log(LOG_WARNING, "KEY definition missing name at line %d of %s\n", lineno, script);
            break;
         }
         if (process_token(vname, args, sizeof(vname) - 1, ARG_STRING)) {
            ast_log(LOG_WARNING, "'%s' is not a valid token for a KEY name at line %d of %s\n", args, lineno, script);
            break;
         }
         if (!(state->key = getkeybyname(state, vname, script, lineno))) {
            ast_log(LOG_WARNING, "Out of key space at line %d of %s\n", lineno, script);
            break;
         }
         if (state->key->defined) {
            ast_log(LOG_WARNING, "Cannot redefine key '%s' at line %d of %s\n", vname, lineno, script);
            break;
         }
         if (!(args = get_token(&buf, script, lineno)) || strcasecmp(args, "IS")) {
            ast_log(LOG_WARNING, "Expecting 'IS', but got '%s' at line %d of %s\n", args ? args : "<nothing>", lineno, script);
            break;
         }
         if (!(args = get_token(&buf, script, lineno))) {
            ast_log(LOG_WARNING, "KEY definition missing short name at line %d of %s\n", lineno, script);
            break;
         }
         if (process_token(tmp, args, sizeof(tmp) - 1, ARG_STRING)) {
            ast_log(LOG_WARNING, "'%s' is not a valid token for a KEY short name at line %d of %s\n", args, lineno, script);
            break;
         }
         if ((args = get_token(&buf, script, lineno))) {
            if (strcasecmp(args, "OR")) {
               ast_log(LOG_WARNING, "Expecting 'OR' but got '%s' instead at line %d of %s\n", args, lineno, script);
               break;
            }
            if (!(args = get_token(&buf, script, lineno))) {
               ast_log(LOG_WARNING, "KEY definition missing optional long name at line %d of %s\n", lineno, script);
               break;
            }
            if (process_token(tmp2, args, sizeof(tmp2) - 1, ARG_STRING)) {
               ast_log(LOG_WARNING, "'%s' is not a valid token for a KEY long name at line %d of %s\n", args, lineno, script);
               break;
            }
         } else {
            ast_copy_string(tmp2, tmp, sizeof(tmp2));
         }
         if (strlen(tmp2) > 18) {
            ast_log(LOG_WARNING, "Truncating full name to 18 characters at line %d of %s\n", lineno, script);
            tmp2[18] = '\0';
         }
         if (strlen(tmp) > 7) {
            ast_log(LOG_WARNING, "Truncating short name to 7 bytes at line %d of %s\n", lineno, script);
            tmp[7] = '\0';
         }
         /* Setup initial stuff */
         state->key->retstr[0] = 0x80;
         /* 1 has the length */
         state->key->retstr[2] = state->key->id;
         /* Put the Full name in */
         memcpy(state->key->retstr + 3, tmp2, strlen(tmp2));
         /* Update length */
         state->key->retstrlen = strlen(tmp2) + 3;
         /* Put trailing 0xff */
         state->key->retstr[state->key->retstrlen++] = 0xff;
         /* Put the short name */
         memcpy(state->key->retstr + state->key->retstrlen, tmp, strlen(tmp));
         /* Update length */
         state->key->retstrlen += strlen(tmp);
         /* Put trailing 0xff */
         state->key->retstr[state->key->retstrlen++] = 0xff;
         /* Record initial length */
         state->key->initlen = state->key->retstrlen;
         state->state = STATE_INKEY;
      } else if (!strcasecmp(keyword, "SUB")) {
         if (!(args = get_token(&buf, script, lineno))) {
            ast_log(LOG_WARNING, "SUB definition missing name at line %d of %s\n", lineno, script);
            break;
         }
         if (process_token(vname, args, sizeof(vname) - 1, ARG_STRING)) {
            ast_log(LOG_WARNING, "'%s' is not a valid token for a KEY name at line %d of %s\n", args, lineno, script);
            break;
         }
         if (!(state->sub = getsubbyname(state, vname, script, lineno))) {
            ast_log(LOG_WARNING, "Out of subroutine space at line %d of %s\n", lineno, script);
            break;
         }
         if (state->sub->defined) {
            ast_log(LOG_WARNING, "Cannot redefine subroutine '%s' at line %d of %s\n", vname, lineno, script);
            break;
         }
         /* Setup sub */
         state->sub->data[0] = 0x82;
         /* 1 is the length */
         state->sub->data[2] = 0x0; /* Clear extensibility bit */
         state->sub->datalen = 3;
         if (state->sub->id) {
            /* If this isn't the main subroutine, make a subroutine label for it */
            state->sub->data[3] = 9;
            state->sub->data[4] = state->sub->id;
            /* 5 is length */
            state->sub->data[6] = 0xff;
            state->sub->datalen = 7;
         }
         if (!(args = get_token(&buf, script, lineno)) || strcasecmp(args, "IS")) {
            ast_log(LOG_WARNING, "Expecting 'IS', but got '%s' at line %d of %s\n", args ? args : "<nothing>", lineno, script);
            break;
         }
         state->state = STATE_INSUB;
      } else if (!strcasecmp(keyword, "STATE")) {
         if (!(args = get_token(&buf, script, lineno))) {
            ast_log(LOG_WARNING, "STATE definition missing name at line %d of %s\n", lineno, script);
            break;
         }
         if (process_token(vname, args, sizeof(vname) - 1, ARG_STRING)) {
            ast_log(LOG_WARNING, "'%s' is not a valid token for a STATE name at line %d of %s\n", args, lineno, script);
            break;
         }
         if (getstatebyname(state, vname, script, lineno, 0)) {
            ast_log(LOG_WARNING, "State '%s' is already defined at line %d of %s\n", vname, lineno, script);
            break;
         }
         getstatebyname(state, vname, script, lineno, 1);
      } else if (!strcasecmp(keyword, "FLAG")) {
         if (!(args = get_token(&buf, script, lineno))) {
            ast_log(LOG_WARNING, "FLAG definition missing name at line %d of %s\n", lineno, script);
            break;
         }
         if (process_token(vname, args, sizeof(vname) - 1, ARG_STRING)) {
            ast_log(LOG_WARNING, "'%s' is not a valid token for a FLAG name at line %d of %s\n", args, lineno, script);
            break;
         }
         if (getflagbyname(state, vname, script, lineno, 0)) {
            ast_log(LOG_WARNING, "Flag '%s' is already defined\n", vname);
            break;
         }
         getflagbyname(state, vname, script, lineno, 1);
      } else if (!strcasecmp(keyword, "DISPLAY")) {
         lrci = 0;
         wi = 0;
         if (!(args = get_token(&buf, script, lineno))) {
            ast_log(LOG_WARNING, "SUB definition missing name at line %d of %s\n", lineno, script);
            break;
         }
         if (process_token(vname, args, sizeof(vname) - 1, ARG_STRING)) {
            ast_log(LOG_WARNING, "'%s' is not a valid token for a KEY name at line %d of %s\n", args, lineno, script);
            break;
         }
         if (getdisplaybyname(state, vname, script, lineno, 0)) {
            ast_log(LOG_WARNING, "State '%s' is already defined\n", vname);
            break;
         }
         if (!(disp = getdisplaybyname(state, vname, script, lineno, 1)))
            break;
         if (!(args = get_token(&buf, script, lineno)) || strcasecmp(args, "IS")) {
            ast_log(LOG_WARNING, "Missing 'IS' at line %d of %s\n", lineno, script);
            break;
         }
         if (!(args = get_token(&buf, script, lineno))) {
            ast_log(LOG_WARNING, "Missing Column 1 text at line %d of %s\n", lineno, script);
            break;
         }
         if (process_token(tmp, args, sizeof(tmp) - 1, ARG_STRING)) {
            ast_log(LOG_WARNING, "Token '%s' is not valid column 1 text at line %d of %s\n", args, lineno, script);
            break;
         }
         if (strlen(tmp) > 20) {
            ast_log(LOG_WARNING, "Truncating column one to 20 characters at line %d of %s\n", lineno, script);
            tmp[20] = '\0';
         }
         memcpy(disp->data + 5, tmp, strlen(tmp));
         disp->datalen = strlen(tmp) + 5;
         disp->data[disp->datalen++] = 0xff;

         args = get_token(&buf, script, lineno);
         if (args && !process_token(tmp, args, sizeof(tmp) - 1, ARG_STRING)) {
            /* Got a column two */
            if (strlen(tmp) > 20) {
               ast_log(LOG_WARNING, "Truncating column two to 20 characters at line %d of %s\n", lineno, script);
               tmp[20] = '\0';
            }
            memcpy(disp->data + disp->datalen, tmp, strlen(tmp));
            disp->datalen += strlen(tmp);
            args = get_token(&buf, script, lineno);
         }
         while (args) {
            if (!strcasecmp(args, "JUSTIFY")) {
               args = get_token(&buf, script, lineno);
               if (!args) {
                  ast_log(LOG_WARNING, "Qualifier 'JUSTIFY' requires an argument at line %d of %s\n", lineno, script);
                  break;
               }
               lrci = getjustifybyname(args);
               if (lrci < 0) {
                  ast_log(LOG_WARNING, "'%s' is not a valid justification at line %d of %s\n", args, lineno, script);
                  break;
               }
            } else if (!strcasecmp(args, "WRAP")) {
               wi = 0x80;
            } else {
               ast_log(LOG_WARNING, "'%s' is not a known qualifier at line %d of %s\n", args, lineno, script);
               break;
            }
            args = get_token(&buf, script, lineno);
         }
         if (args) {
            /* Something bad happened */
            break;
         }
         disp->data[0] = 0x81;
         disp->data[1] = disp->datalen - 2;
         disp->data[2] = ((lrci & 0x3) << 6) | disp->id;
         disp->data[3] = wi;
         disp->data[4] = 0xff;
      } else {
         ast_log(LOG_WARNING, "Invalid or Unknown keyword '%s' in PROGRAM\n", keyword);
      }
      break;
   case STATE_INKEY:
      if (process_returncode(state->key, keyword, buf, state, script, lineno)) {
         if (!strcasecmp(keyword, "ENDKEY")) {
            /* Return to normal operation and increment current key */
            state->state = STATE_NORMAL;
            state->key->defined = 1;
            state->key->retstr[1] = state->key->retstrlen - 2;
            state->key = NULL;
         } else {
            ast_log(LOG_WARNING, "Invalid or Unknown keyword '%s' in SOFTKEY definition at line %d of %s\n", keyword, lineno, script);
         }
      }
      break;
   case STATE_INIF:
      if (process_opcode(state->sub, keyword, buf, state, script, lineno)) {
         if (!strcasecmp(keyword, "ENDIF")) {
            /* Return to normal SUB operation and increment current key */
            state->state = STATE_INSUB;
            state->sub->defined = 1;
            /* Store the proper number of instructions */
            state->sub->ifdata[2] = state->sub->ifinscount;
         } else if (!strcasecmp(keyword, "GOTO")) {
            if (!(args = get_token(&buf, script, lineno))) {
               ast_log(LOG_WARNING, "GOTO clause missing Subscript name at line %d of %s\n", lineno, script);
               break;
            }
            if (process_token(tmp, args, sizeof(tmp) - 1, ARG_STRING)) {
               ast_log(LOG_WARNING, "'%s' is not a valid subscript name token at line %d of %s\n", args, lineno, script);
               break;
            }
            if (!(newsub = getsubbyname(state, tmp, script, lineno)))
               break;
            /* Somehow you use GOTO to go to another place */
            state->sub->data[state->sub->datalen++] = 0x8;
            state->sub->data[state->sub->datalen++] = state->sub->ifdata[1];
            state->sub->data[state->sub->datalen++] = newsub->id;
            /* Terminate */
            state->sub->data[state->sub->datalen++] = 0xff;
            /* Increment counters */
            state->sub->inscount++;
            state->sub->ifinscount++;
         } else {
            ast_log(LOG_WARNING, "Invalid or Unknown keyword '%s' in IF clause at line %d of %s\n", keyword, lineno, script);
         }
      } else
         state->sub->ifinscount++;
      break;
   case STATE_INSUB:
      if (process_opcode(state->sub, keyword, buf, state, script, lineno)) {
         if (!strcasecmp(keyword, "ENDSUB")) {
            /* Return to normal operation and increment current key */
            state->state = STATE_NORMAL;
            state->sub->defined = 1;
            /* Store the proper length */
            state->sub->data[1] = state->sub->datalen - 2;
            if (state->sub->id) {
               /* if this isn't main, store number of instructions, too */
               state->sub->data[5] = state->sub->inscount;
            }
            state->sub = NULL;
         } else if (!strcasecmp(keyword, "IFEVENT")) {
            if (!(args = get_token(&buf, script, lineno))) {
               ast_log(LOG_WARNING, "IFEVENT clause missing Event name at line %d of %s\n", lineno, script);
               break;
            }
            if ((event = geteventbyname(args)) < 1) {
               ast_log(LOG_WARNING, "'%s' is not a valid event\n", args);
               break;
            }
            if (!(args = get_token(&buf, script, lineno)) || strcasecmp(args, "THEN")) {
               ast_log(LOG_WARNING, "IFEVENT clause missing 'THEN' at line %d of %s\n", lineno, script);
               break;
            }
            state->sub->ifinscount = 0;
            state->sub->ifdata = state->sub->data + state->sub->datalen;
            /* Reserve header and insert op codes */
            state->sub->ifdata[0] = 0x1;
            state->sub->ifdata[1] = event;
            /* 2 is for the number of instructions */
            state->sub->ifdata[3] = 0xff;
            state->sub->datalen += 4;
            /* Update Subscript instruction count */
            state->sub->inscount++;
            state->state = STATE_INIF;
         } else {
            ast_log(LOG_WARNING, "Invalid or Unknown keyword '%s' in SUB definition at line %d of %s\n", keyword, lineno, script);
         }
      }
      break;
   default:
      ast_log(LOG_WARNING, "Can't process keyword '%s' in weird state %d\n", keyword, state->state);
   }
   return 0;
}

adsi_prog()

static int adsi_prog ( struct ast_channel *  chan, const char *  script  )

static

Definition at line 1462 of file app_adsiprog.c.

References ADSI_INFO_PAGE, ADSI_JUST_LEFT, ADSI_MSG_DISPLAY, ADSI_MSG_DOWNLOAD, ast_adsi_begin_download(), ast_adsi_display(), ast_adsi_end_download(), ast_adsi_load_session(), ast_adsi_set_line(), ast_adsi_transmit_message(), ast_adsi_unload_session(), ast_channel_name(), ast_free, ast_log, ast_verb, buf, compile_script(), adsi_subscript::data, adsi_display::data, adsi_subscript::datalen, adsi_display::datalen, adsi_script::desc, adsi_script::displays, adsi_script::fdn, adsi_script::keys, LOG_NOTICE, LOG_WARNING, NULL, adsi_script::numdisplays, adsi_script::numkeys, adsi_script::numsubs, adsi_soft_key::retstr, adsi_soft_key::retstrlen, adsi_script::sec, adsi_script::subs, adsi_script::ver, adsi_soft_key::vname, adsi_subscript::vname, and adsi_display::vname.

Referenced by adsi_exec().

{
   struct adsi_script *scr;
   int x, bytes;
   unsigned char buf[1024];

   if (!(scr = compile_script(script)))
      return -1;

   /* Start an empty ADSI Session */
   if (ast_adsi_load_session(chan, NULL, 0, 1) < 1)
      return -1;

   /* Now begin the download attempt */
   if (ast_adsi_begin_download(chan, scr->desc, scr->fdn, scr->sec, scr->ver)) {
      /* User rejected us for some reason */
      ast_verb(3, "User rejected download attempt\n");
      ast_log(LOG_NOTICE, "User rejected download on channel %s\n", ast_channel_name(chan));
      ast_free(scr);
      return -1;
   }

   bytes = 0;
   /* Start with key definitions */
   for (x = 0; x < scr->numkeys; x++) {
      if (bytes + scr->keys[x].retstrlen > 253) {
         /* Send what we've collected so far */
         if (ast_adsi_transmit_message(chan, buf, bytes, ADSI_MSG_DOWNLOAD)) {
            ast_log(LOG_WARNING, "Unable to send chunk ending at %d\n", x);
            return -1;
         }
         bytes =0;
      }
      memcpy(buf + bytes, scr->keys[x].retstr, scr->keys[x].retstrlen);
      bytes += scr->keys[x].retstrlen;
#ifdef DUMP_MESSAGES
      dump_message("Key", scr->keys[x].vname, scr->keys[x].retstr, scr->keys[x].retstrlen);
#endif
   }
   if (bytes) {
      if (ast_adsi_transmit_message(chan, buf, bytes, ADSI_MSG_DOWNLOAD)) {
         ast_log(LOG_WARNING, "Unable to send chunk ending at %d\n", x);
         return -1;
      }
   }

   bytes = 0;
   /* Continue with the display messages */
   for (x = 0; x < scr->numdisplays; x++) {
      if (bytes + scr->displays[x].datalen > 253) {
         /* Send what we've collected so far */
         if (ast_adsi_transmit_message(chan, buf, bytes, ADSI_MSG_DOWNLOAD)) {
            ast_log(LOG_WARNING, "Unable to send chunk ending at %d\n", x);
            return -1;
         }
         bytes =0;
      }
      memcpy(buf + bytes, scr->displays[x].data, scr->displays[x].datalen);
      bytes += scr->displays[x].datalen;
#ifdef DUMP_MESSAGES
      dump_message("Display", scr->displays[x].vname, scr->displays[x].data, scr->displays[x].datalen);
#endif
   }
   if (bytes) {
      if (ast_adsi_transmit_message(chan, buf, bytes, ADSI_MSG_DOWNLOAD)) {
         ast_log(LOG_WARNING, "Unable to send chunk ending at %d\n", x);
         return -1;
      }
   }

   bytes = 0;
   /* Send subroutines */
   for (x = 0; x < scr->numsubs; x++) {
      if (bytes + scr->subs[x].datalen > 253) {
         /* Send what we've collected so far */
         if (ast_adsi_transmit_message(chan, buf, bytes, ADSI_MSG_DOWNLOAD)) {
            ast_log(LOG_WARNING, "Unable to send chunk ending at %d\n", x);
            return -1;
         }
         bytes =0;
      }
      memcpy(buf + bytes, scr->subs[x].data, scr->subs[x].datalen);
      bytes += scr->subs[x].datalen;
#ifdef DUMP_MESSAGES
      dump_message("Sub", scr->subs[x].vname, scr->subs[x].data, scr->subs[x].datalen);
#endif
   }
   if (bytes) {
      if (ast_adsi_transmit_message(chan, buf, bytes, ADSI_MSG_DOWNLOAD)) {
         ast_log(LOG_WARNING, "Unable to send chunk ending at %d\n", x);
         return -1;
      }
   }

   bytes = 0;
   bytes += ast_adsi_display(buf, ADSI_INFO_PAGE, 1, ADSI_JUST_LEFT, 0, "Download complete.", "");
   bytes += ast_adsi_set_line(buf, ADSI_INFO_PAGE, 1);
   if (ast_adsi_transmit_message(chan, buf, bytes, ADSI_MSG_DISPLAY) < 0)
      return -1;
   if (ast_adsi_end_download(chan)) {
      /* Download failed for some reason */
      ast_verb(3, "Download attempt failed\n");
      ast_log(LOG_NOTICE, "Download failed on %s\n", ast_channel_name(chan));
      ast_free(scr);
      return -1;
   }
   ast_free(scr);
   ast_adsi_unload_session(chan);
   return 0;
}

AST_MODULE_SELF_SYM()

struct ast_module* AST_MODULE_SELF_SYM

(

void

)

Definition at line 1617 of file app_adsiprog.c.

clearcbone()

static int clearcbone ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  istate, const char *  script, int  lineno  )

static

Definition at line 774 of file app_adsiprog.c.

References ast_log, get_token(), adsi_event::id, and LOG_WARNING.

{
   char *tok = get_token(&args, script, lineno);

   if (tok)
      ast_log(LOG_WARNING, "CLEARCB1 requires no arguments ('%s') at line %d of %s\n", tok, lineno, script);

   buf[0] = id;
   buf[1] = 0;
   return 2;
}

cleardisplay()

static int cleardisplay ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  istate, const char *  script, int  lineno  )

static

Definition at line 750 of file app_adsiprog.c.

References ast_log, get_token(), adsi_event::id, and LOG_WARNING.

{
   char *tok = get_token(&args, script, lineno);

   if (tok)
      ast_log(LOG_WARNING, "Clearing display requires no arguments ('%s') at line %d of %s\n", tok, lineno, script);

   buf[0] = id;
   buf[1] = 0x00;
   return 2;
}

clearflag()

static int clearflag ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 487 of file app_adsiprog.c.

References ARG_STRING, ast_log, get_token(), getflagbyname(), adsi_event::id, adsi_flag::id, LOG_WARNING, and process_token().

{
   char *tok = get_token(&args, script, lineno);
   struct adsi_flag *flag;
   char sname[80];

   if (!tok) {
      ast_log(LOG_WARNING, "Clearing flag requires a flag number at line %d of %s\n", lineno, script);
      return 0;
   }

   if (process_token(sname, tok, sizeof(sname) - 1, ARG_STRING)) {
      ast_log(LOG_WARNING, "Invalid flag '%s' at line %d of %s\n", tok, lineno, script);
      return 0;
   }

   if (!(flag = getflagbyname(state, sname, script, lineno, 0))) {
      ast_log(LOG_WARNING, "Flag '%s' is undeclared at line %d of %s\n", sname, lineno, script);
      return 0;
   }

   buf[0] = id;
   buf[1] = ((flag->id & 0x7) << 4);

   return 2;
}

cleartimer()

static int cleartimer ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  istate, const char *  script, int  lineno  )

static

Definition at line 417 of file app_adsiprog.c.

References ast_log, get_token(), adsi_event::id, and LOG_WARNING.

{
   char *tok = get_token(&args, script, lineno);

   if (tok)
      ast_log(LOG_WARNING, "Clearing timer requires no arguments ('%s') at line %d of %s\n", tok, lineno, script);

   buf[0] = id;

   /* For some reason the clear code is different slightly */
   if (id == 7)
      buf[1] = 0x10;
   else
      buf[1] = 0x00;

   return 2;
}

compile_script()

static struct adsi_script* compile_script ( const char *  script )

static

Definition at line 1369 of file app_adsiprog.c.

References adsi_process(), ast_calloc, ast_config_AST_CONFIG_DIR, ast_copy_string(), ast_free, ast_log, ast_strlen_zero, buf, c, adsi_subscript::data, adsi_soft_key::defined, adsi_subscript::defined, getsubbyname(), adsi_script::keys, LOG_WARNING, NULL, adsi_script::numkeys, adsi_script::numsubs, adsi_script::state, STATE_INKEY, STATE_INSUB, STATE_NORMAL, adsi_script::subs, type, adsi_soft_key::vname, and adsi_subscript::vname.

Referenced by adsi_prog().

{
   FILE *f;
   char fn[256], buf[256], *c;
   int lineno = 0, x, err;
   struct adsi_script *scr;

   if (script[0] == '/')
      ast_copy_string(fn, script, sizeof(fn));
   else
      snprintf(fn, sizeof(fn), "%s/%s", ast_config_AST_CONFIG_DIR, script);

   if (!(f = fopen(fn, "r"))) {
      ast_log(LOG_WARNING, "Can't open file '%s'\n", fn);
      return NULL;
   }

   if (!(scr = ast_calloc(1, sizeof(*scr)))) {
      fclose(f);
      return NULL;
   }

   /* Create "main" as first subroutine */
   getsubbyname(scr, "main", NULL, 0);
   while (!feof(f)) {
      if (!fgets(buf, sizeof(buf), f)) {
         continue;
      }
      if (!feof(f)) {
         lineno++;
         /* Trim off trailing return */
         buf[strlen(buf) - 1] = '\0';
         /* Strip comments */
         if ((c = strchr(buf, ';')))
            *c = '\0';
         if (!ast_strlen_zero(buf))
            adsi_process(scr, buf, script, lineno);
      }
   }
   fclose(f);
   /* Make sure we're in the main routine again */
   switch(scr->state) {
   case STATE_NORMAL:
      break;
   case STATE_INSUB:
      ast_log(LOG_WARNING, "Missing ENDSUB at end of file %s\n", script);
      ast_free(scr);
      return NULL;
   case STATE_INKEY:
      ast_log(LOG_WARNING, "Missing ENDKEY at end of file %s\n", script);
      ast_free(scr);
      return NULL;
   }
   err = 0;

   /* Resolve all keys and record their lengths */
   for (x = 0; x < scr->numkeys; x++) {
      if (!scr->keys[x].defined) {
         ast_log(LOG_WARNING, "Key '%s' referenced but never defined in file %s\n", scr->keys[x].vname, fn);
         err++;
      }
   }

   /* Resolve all subs */
   for (x = 0; x < scr->numsubs; x++) {
      if (!scr->subs[x].defined) {
         ast_log(LOG_WARNING, "Subscript '%s' referenced but never defined in file %s\n", scr->subs[x].vname, fn);
         err++;
      }
      if (x == (scr->numsubs - 1)) {
         /* Clear out extension bit on last message */
         scr->subs[x].data[2] = 0x80;
      }
   }

   if (err) {
      ast_free(scr);
      return NULL;
   }
   return scr;
}

digitcollect()

static int digitcollect ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  istate, const char *  script, int  lineno  )

static

Definition at line 786 of file app_adsiprog.c.

References ast_log, get_token(), adsi_event::id, and LOG_WARNING.

{
   char *tok = get_token(&args, script, lineno);

   if (tok)
      ast_log(LOG_WARNING, "Digitcollect requires no arguments ('%s') at line %d of %s\n", tok, lineno, script);

   buf[0] = id;
   buf[1] = 0xf;
   return 2;
}

digitdirect()

static int digitdirect ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  istate, const char *  script, int  lineno  )

static

Definition at line 762 of file app_adsiprog.c.

References ast_log, get_token(), adsi_event::id, and LOG_WARNING.

{
   char *tok = get_token(&args, script, lineno);

   if (tok)
      ast_log(LOG_WARNING, "Digitdirect requires no arguments ('%s') at line %d of %s\n", tok, lineno, script);

   buf[0] = id;
   buf[1] = 0x7;
   return 2;
}

get_token()

static char* get_token ( char **  buf, const char *  script, int  lineno  )

static

Definition at line 243 of file app_adsiprog.c.

References ast_log, buf, LOG_WARNING, NULL, and tmp().

Referenced by adsi_process(), clearcbone(), cleardisplay(), clearflag(), cleartimer(), digitcollect(), digitdirect(), goto_line(), goto_line_rel(), onevent(), process_opcode(), process_returncode(), send_delay(), send_dtmf(), set_state(), setflag(), showdisplay(), showkeys(), starttimer(), and subscript().

{
   char *tmp = *buf, *keyword;
   int quoted = 0;

   /* Advance past any white space */
   while(*tmp && (*tmp < 33))
      tmp++;
   if (!*tmp)
      return NULL;
   keyword = tmp;
   while(*tmp && ((*tmp > 32)  || quoted)) {
      if (*tmp == '\"') {
         quoted = !quoted;
      }
      tmp++;
   }
   if (quoted) {
      ast_log(LOG_WARNING, "Mismatched quotes at line %d of %s\n", lineno, script);
      return NULL;
   }
   *tmp = '\0';
   tmp++;
   while(*tmp && (*tmp < 33))
      tmp++;
   /* Note where we left off */
   *buf = tmp;
   return keyword;
}

getdisplaybyname()

static struct adsi_display* getdisplaybyname ( struct adsi_script *  state, char *  name, const char *  script, int  lineno, int  create  )

static

Definition at line 627 of file app_adsiprog.c.

References ast_copy_string(), ast_log, adsi_script::displays, adsi_display::id, LOG_WARNING, NULL, adsi_script::numdisplays, and adsi_display::vname.

Referenced by adsi_process(), and showdisplay().

{
   int x;

   for (x = 0; x < state->numdisplays; x++) {
      if (!strcasecmp(state->displays[x].vname, name))
         return &state->displays[x];
   }

   /* Return now if we're not allowed to create */
   if (!create)
      return NULL;

   if (state->numdisplays > 61) {
      ast_log(LOG_WARNING, "No more display space at line %d of %s\n", lineno, script);
      return NULL;
   }

   ast_copy_string(state->displays[state->numdisplays].vname, name, sizeof(state->displays[state->numdisplays].vname));
   state->displays[state->numdisplays].id = state->numdisplays + 1;
   state->numdisplays++;

   return &state->displays[state->numdisplays-1];
}

geteventbyname()

static int geteventbyname ( char *  name )

static

Definition at line 536 of file app_adsiprog.c.

References ARRAY_LEN.

Referenced by adsi_process(), and onevent().

{
   int x;

   for (x = 0; x < ARRAY_LEN(events); x++) {
      if (!strcasecmp(events[x].name, name))
         return events[x].id;
   }

   return 0;
}

getflagbyname()

static struct adsi_flag* getflagbyname ( struct adsi_script *  state, char *  name, const char *  script, int  lineno, int  create  )

static

Definition at line 435 of file app_adsiprog.c.

References ast_copy_string(), ast_log, adsi_script::flags, adsi_flag::id, LOG_WARNING, NULL, adsi_script::numflags, and adsi_flag::vname.

Referenced by adsi_process(), clearflag(), setflag(), and showkeys().

{
   int x;

   for (x = 0; x < state->numflags; x++) {
      if (!strcasecmp(state->flags[x].vname, name))
         return &state->flags[x];
   }

   /* Return now if we're not allowed to create */
   if (!create)
      return NULL;

   if (state->numflags > 6) {
      ast_log(LOG_WARNING, "No more flag space at line %d of %s\n", lineno, script);
      return NULL;
   }

   ast_copy_string(state->flags[state->numflags].vname, name, sizeof(state->flags[state->numflags].vname));
   state->flags[state->numflags].id = state->numflags + 1;
   state->numflags++;

   return &state->flags[state->numflags-1];
}

getjustifybyname()

static int getjustifybyname ( char *  name )

static

Definition at line 548 of file app_adsiprog.c.

References ARRAY_LEN.

Referenced by adsi_process().

{
   int x;

   for (x = 0; x < ARRAY_LEN(justify); x++) {
      if (!strcasecmp(justify[x].name, name))
         return justify[x].id;
   }

   return -1;
}

getkeybyname()

static struct adsi_soft_key* getkeybyname ( struct adsi_script *  state, char *  name, const char *  script, int  lineno  )

static

Definition at line 560 of file app_adsiprog.c.

References ast_copy_string(), ast_log, adsi_soft_key::id, adsi_script::keys, LOG_WARNING, NULL, adsi_script::numkeys, and adsi_soft_key::vname.

Referenced by adsi_process(), and showkeys().

{
   int x;

   for (x = 0; x < state->numkeys; x++) {
      if (!strcasecmp(state->keys[x].vname, name))
         return &state->keys[x];
   }

   if (state->numkeys > 61) {
      ast_log(LOG_WARNING, "No more key space at line %d of %s\n", lineno, script);
      return NULL;
   }

   ast_copy_string(state->keys[state->numkeys].vname, name, sizeof(state->keys[state->numkeys].vname));
   state->keys[state->numkeys].id = state->numkeys + 2;
   state->numkeys++;

   return &state->keys[state->numkeys-1];
}

getstatebyname()

static struct adsi_state* getstatebyname ( struct adsi_script *  state, char *  name, const char *  script, int  lineno, int  create  )

static

Definition at line 602 of file app_adsiprog.c.

References ast_copy_string(), ast_log, adsi_state::id, LOG_WARNING, NULL, adsi_script::numstates, adsi_script::states, and adsi_state::vname.

Referenced by adsi_process(), and onevent().

{
   int x;

   for (x = 0; x <state->numstates; x++) {
      if (!strcasecmp(state->states[x].vname, name))
         return &state->states[x];
   }

   /* Return now if we're not allowed to create */
   if (!create)
      return NULL;

   if (state->numstates > 253) {
      ast_log(LOG_WARNING, "No more state space at line %d of %s\n", lineno, script);
      return NULL;
   }

   ast_copy_string(state->states[state->numstates].vname, name, sizeof(state->states[state->numstates].vname));
   state->states[state->numstates].id = state->numstates + 1;
   state->numstates++;

   return &state->states[state->numstates-1];
}

getsubbyname()

static struct adsi_subscript* getsubbyname ( struct adsi_script *  state, char *  name, const char *  script, int  lineno  )

static

Definition at line 581 of file app_adsiprog.c.

References ast_copy_string(), ast_log, adsi_subscript::id, LOG_WARNING, NULL, adsi_script::numsubs, S_OR, adsi_script::subs, and adsi_subscript::vname.

Referenced by adsi_process(), compile_script(), onevent(), and subscript().

{
   int x;

   for (x = 0; x < state->numsubs; x++) {
      if (!strcasecmp(state->subs[x].vname, name))
         return &state->subs[x];
   }

   if (state->numsubs > 127) {
      ast_log(LOG_WARNING, "No more subscript space at line %d of %s\n", lineno, S_OR(script, "unknown"));
      return NULL;
   }

   ast_copy_string(state->subs[state->numsubs].vname, name, sizeof(state->subs[state->numsubs].vname));
   state->subs[state->numsubs].id = state->numsubs;
   state->numsubs++;

   return &state->subs[state->numsubs-1];
}

goto_line()

static int goto_line ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 305 of file app_adsiprog.c.

References ARG_NUMBER, ast_log, get_token(), LOG_WARNING, and process_token().

{
   char *page = get_token(&args, script, lineno);
   char *gline = get_token(&args, script, lineno);
   int line;
   unsigned char cmd;

   if (!page || !gline) {
      ast_log(LOG_WARNING, "Expecting page and line number for GOTOLINE at line %d of %s\n", lineno, script);
      return 0;
   }

   if (!strcasecmp(page, "INFO"))
      cmd = 0;
   else if (!strcasecmp(page, "COMM"))
      cmd = 0x80;
   else {
      ast_log(LOG_WARNING, "Expecting either 'INFO' or 'COMM' page, got '%s' at line %d of %s\n", page, lineno, script);
      return 0;
   }

   if (process_token(&line, gline, sizeof(line), ARG_NUMBER)) {
      ast_log(LOG_WARNING, "Invalid line number '%s' at line %d of %s\n", gline, lineno, script);
      return 0;
   }

   cmd |= line;
   buf[0] = 0x8b;
   buf[1] = cmd;

   return 2;
}

goto_line_rel()

static int goto_line_rel ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 338 of file app_adsiprog.c.

References ARG_NUMBER, ast_log, get_token(), LOG_WARNING, and process_token().

{
   char *dir = get_token(&args, script, lineno);
   char *gline = get_token(&args, script, lineno);
   int line;
   unsigned char cmd;

   if (!dir || !gline) {
      ast_log(LOG_WARNING, "Expecting direction and number of lines for GOTOLINEREL at line %d of %s\n", lineno, script);
      return 0;
   }

   if (!strcasecmp(dir, "UP"))
      cmd = 0;
   else if (!strcasecmp(dir, "DOWN"))
      cmd = 0x20;
   else {
      ast_log(LOG_WARNING, "Expecting either 'UP' or 'DOWN' direction, got '%s' at line %d of %s\n", dir, lineno, script);
      return 0;
   }

   if (process_token(&line, gline, sizeof(line), ARG_NUMBER)) {
      ast_log(LOG_WARNING, "Invalid line number '%s' at line %d of %s\n", gline, lineno, script);
      return 0;
   }

   cmd |= line;
   buf[0] = 0x8c;
   buf[1] = cmd;

   return 2;
}

load_module()

static int load_module ( void  )

static

Load the module.

Module loading including tests for configuration or dependencies. This function can return AST_MODULE_LOAD_FAILURE, AST_MODULE_LOAD_DECLINE, or AST_MODULE_LOAD_SUCCESS. If a dependency or environment variable fails tests return AST_MODULE_LOAD_FAILURE. If the module can not load the configuration file or other non-critical problem return AST_MODULE_LOAD_DECLINE. On success return AST_MODULE_LOAD_SUCCESS.

Definition at line 1605 of file app_adsiprog.c.

References adsi_exec(), app, AST_MODFLAG_DEFAULT, AST_MODULE_INFO(), AST_MODULE_LOAD_DECLINE, AST_MODULE_LOAD_SUCCESS, AST_MODULE_SUPPORT_DEPRECATED, ast_register_application_xml, ASTERISK_GPL_KEY, and unload_module().

{
   if (ast_register_application_xml(app, adsi_exec))
      return AST_MODULE_LOAD_DECLINE;
   return AST_MODULE_LOAD_SUCCESS;
}

onevent()

static int onevent ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 823 of file app_adsiprog.c.

References ARG_STRING, ast_log, get_token(), geteventbyname(), getstatebyname(), getsubbyname(), adsi_subscript::id, LOG_WARNING, NULL, process_token(), and sub.

{
   char *tok = get_token(&args, script, lineno);
   char subscr[80], sname[80];
   int sawin = 0, event, snums[8], scnt = 0, x;
   struct adsi_subscript *sub;

   if (!tok) {
      ast_log(LOG_WARNING, "Missing event for 'ONEVENT' at line %d of %s\n", lineno, script);
      return 0;
   }

   if ((event = geteventbyname(tok)) < 1) {
      ast_log(LOG_WARNING, "'%s' is not a valid event name, at line %d of %s\n", args, lineno, script);
      return 0;
   }

   tok = get_token(&args, script, lineno);
   while ((!sawin && !strcasecmp(tok, "IN")) || (sawin && !strcasecmp(tok, "OR"))) {
      sawin = 1;
      if (scnt > 7) {
         ast_log(LOG_WARNING, "No more than 8 states may be specified for inclusion at line %d of %s\n", lineno, script);
         return 0;
      }
      /* Process 'in' things */
      tok = get_token(&args, script, lineno);
      if (process_token(sname, tok, sizeof(sname), ARG_STRING)) {
         ast_log(LOG_WARNING, "'%s' is not a valid state name at line %d of %s\n", tok, lineno, script);
         return 0;
      }
      if ((snums[scnt] = getstatebyname(state, sname, script, lineno, 0) == NULL)) {
         ast_log(LOG_WARNING, "State '%s' not declared at line %d of %s\n", sname, lineno, script);
         return 0;
      }
      scnt++;
      if (!(tok = get_token(&args, script, lineno)))
         break;
   }
   if (!tok || strcasecmp(tok, "GOTO")) {
      if (!tok)
         tok = "<nothing>";
      if (sawin)
         ast_log(LOG_WARNING, "Got '%s' while looking for 'GOTO' or 'OR' at line %d of %s\n", tok, lineno, script);
      else
         ast_log(LOG_WARNING, "Got '%s' while looking for 'GOTO' or 'IN' at line %d of %s\n", tok, lineno, script);
   }
   if (!(tok = get_token(&args, script, lineno))) {
      ast_log(LOG_WARNING, "Missing subscript to call at line %d of %s\n", lineno, script);
      return 0;
   }
   if (process_token(subscr, tok, sizeof(subscr) - 1, ARG_STRING)) {
      ast_log(LOG_WARNING, "Invalid subscript '%s' at line %d of %s\n", tok, lineno, script);
      return 0;
   }
   if (!(sub = getsubbyname(state, subscr, script, lineno)))
      return 0;
   buf[0] = 8;
   buf[1] = event;
   buf[2] = sub->id | 0x80;
   for (x = 0; x < scnt; x++)
      buf[3 + x] = snums[x];
   return 3 + scnt;
}

process_opcode()

static int process_opcode ( struct adsi_subscript *  sub, char *  code, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 984 of file app_adsiprog.c.

References adsi_key_cmd::add_args, ARRAY_LEN, ast_log, adsi_subscript::data, adsi_subscript::datalen, get_token(), adsi_subscript::id, adsi_key_cmd::id, adsi_subscript::inscount, LOG_WARNING, max, MAX_MAIN_LEN, MAX_SUB_LEN, adsi_event::name, and adsi_subscript::vname.

Referenced by adsi_process().

{
   int x, res, max = sub->id ? MAX_SUB_LEN : MAX_MAIN_LEN;
   char *unused;

   for (x = 0; x < ARRAY_LEN(opcmds); x++) {
      if ((opcmds[x].id > -1) && !strcasecmp(opcmds[x].name, code)) {
         if (opcmds[x].add_args) {
            res = opcmds[x].add_args(sub->data + sub->datalen,
                  code, opcmds[x].id, args, state, script, lineno);
            if ((sub->datalen + res + 1) <= max)
               sub->datalen += res;
            else {
               ast_log(LOG_WARNING, "No space for '%s' code in subscript '%s' at line %d of %s\n", opcmds[x].name, sub->vname, lineno, script);
               return -1;
            }
         } else {
            if ((unused = get_token(&args, script, lineno)))
               ast_log(LOG_WARNING, "'%s' takes no arguments at line %d of %s (token is '%s')\n", opcmds[x].name, lineno, script, unused);
            if ((sub->datalen + 2) <= max) {
               sub->data[sub->datalen] = opcmds[x].id;
               sub->datalen++;
            } else {
               ast_log(LOG_WARNING, "No space for '%s' code in key '%s' at line %d of %s\n", opcmds[x].name, sub->vname, lineno, script);
               return -1;
            }
         }
         /* Separate commands with 0xff */
         sub->data[sub->datalen] = 0xff;
         sub->datalen++;
         sub->inscount++;
         return 0;
      }
   }
   return -1;
}

process_returncode()

static int process_returncode ( struct adsi_soft_key *  key, char *  code, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 955 of file app_adsiprog.c.

References adsi_key_cmd::add_args, ARRAY_LEN, ast_log, get_token(), adsi_key_cmd::id, adsi_soft_key::initlen, LOG_WARNING, MAX_RET_CODE, adsi_event::name, adsi_soft_key::retstr, adsi_soft_key::retstrlen, and adsi_soft_key::vname.

Referenced by adsi_process().

{
   int x, res;
   char *unused;

   for (x = 0; x < ARRAY_LEN(kcmds); x++) {
      if ((kcmds[x].id > -1) && !strcasecmp(kcmds[x].name, code)) {
         if (kcmds[x].add_args) {
            res = kcmds[x].add_args(key->retstr + key->retstrlen,
                  code, kcmds[x].id, args, state, script, lineno);
            if ((key->retstrlen + res - key->initlen) <= MAX_RET_CODE)
               key->retstrlen += res;
            else
               ast_log(LOG_WARNING, "No space for '%s' code in key '%s' at line %d of %s\n", kcmds[x].name, key->vname, lineno, script);
         } else {
            if ((unused = get_token(&args, script, lineno)))
               ast_log(LOG_WARNING, "'%s' takes no arguments at line %d of %s (token is '%s')\n", kcmds[x].name, lineno, script, unused);
            if ((key->retstrlen + 1 - key->initlen) <= MAX_RET_CODE) {
               key->retstr[key->retstrlen] = kcmds[x].id;
               key->retstrlen++;
            } else
               ast_log(LOG_WARNING, "No space for '%s' code in key '%s' at line %d of %s\n", kcmds[x].name, key->vname, lineno, script);
         }
         return 0;
      }
   }
   return -1;
}

process_token()

static int process_token ( void *  out, char *  src, int  maxlen, int  argtype  )

static

Definition at line 196 of file app_adsiprog.c.

References ARG_NUMBER, ARG_STRING, ast_strlen_zero, and out.

Referenced by adsi_process(), clearflag(), goto_line(), goto_line_rel(), onevent(), send_delay(), send_dtmf(), set_state(), setflag(), showdisplay(), showkeys(), starttimer(), and subscript().

{
   if ((strlen(src) > 1) && src[0] == '\"') {
      /* This is a quoted string */
      if (!(argtype & ARG_STRING))
         return -1;
      src++;
      /* Don't take more than what's there */
      if (maxlen > strlen(src) - 1)
         maxlen = strlen(src) - 1;
      memcpy(out, src, maxlen);
      ((char *)out)[maxlen] = '\0';
   } else if (!ast_strlen_zero(src) && (src[0] == '\\')) {
      if (!(argtype & ARG_NUMBER))
         return -1;
      /* Octal value */
      if (sscanf(src, "%30o", (unsigned *)out) != 1)
         return -1;
      if (argtype & ARG_STRING) {
         /* Convert */
         *((unsigned int *)out) = htonl(*((unsigned int *)out));
      }
   } else if ((strlen(src) > 2) && (src[0] == '0') && (tolower(src[1]) == 'x')) {
      if (!(argtype & ARG_NUMBER))
         return -1;
      /* Hex value */
      if (sscanf(src + 2, "%30x", (unsigned int *)out) != 1)
         return -1;
      if (argtype & ARG_STRING) {
         /* Convert */
         *((unsigned int *)out) = htonl(*((unsigned int *)out));
      }
   } else if ((!ast_strlen_zero(src) && isdigit(src[0]))) {
      if (!(argtype & ARG_NUMBER))
         return -1;
      /* Hex value */
      if (sscanf(src, "%30d", (int *)out) != 1)
         return -1;
      if (argtype & ARG_STRING) {
         /* Convert */
         *((unsigned int *)out) = htonl(*((unsigned int *)out));
      }
   } else
      return -1;
   return 0;
}

send_delay()

static int send_delay ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 371 of file app_adsiprog.c.

References ARG_NUMBER, ast_log, get_token(), LOG_WARNING, and process_token().

{
   char *gtime = get_token(&args, script, lineno);
   int ms;

   if (!gtime) {
      ast_log(LOG_WARNING, "Expecting number of milliseconds to wait at line %d of %s\n", lineno, script);
      return 0;
   }

   if (process_token(&ms, gtime, sizeof(ms), ARG_NUMBER)) {
      ast_log(LOG_WARNING, "Invalid delay milliseconds '%s' at line %d of %s\n", gtime, lineno, script);
      return 0;
   }

   buf[0] = 0x90;

   if (id == 11)
      buf[1] = ms / 100;
   else
      buf[1] = ms / 10;

   return 2;
}

send_dtmf()

static int send_dtmf ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 275 of file app_adsiprog.c.

References a, ARG_STRING, ast_log, dtmfstr, get_token(), LOG_WARNING, process_token(), and validdtmf.

{
   char dtmfstr[80], *a;
   int bytes = 0;

   if (!(a = get_token(&args, script, lineno))) {
      ast_log(LOG_WARNING, "Expecting something to send for SENDDTMF at line %d of %s\n", lineno, script);
      return 0;
   }

   if (process_token(dtmfstr, a, sizeof(dtmfstr) - 1, ARG_STRING)) {
      ast_log(LOG_WARNING, "Invalid token for SENDDTMF at line %d of %s\n", lineno, script);
      return 0;
   }

   a = dtmfstr;

   while (*a) {
      if (strchr(validdtmf, *a)) {
         *buf = *a;
         buf++;
         bytes++;
      } else
         ast_log(LOG_WARNING, "'%c' is not a valid DTMF tone at line %d of %s\n", *a, lineno, script);
      a++;
   }

   return bytes;
}

set_state()

static int set_state ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  istate, const char *  script, int  lineno  )

static

Definition at line 396 of file app_adsiprog.c.

References ARG_NUMBER, ast_log, get_token(), adsi_event::id, LOG_WARNING, process_token(), and state.

{
   char *gstate = get_token(&args, script, lineno);
   int state;

   if (!gstate) {
      ast_log(LOG_WARNING, "Expecting state number at line %d of %s\n", lineno, script);
      return 0;
   }

   if (process_token(&state, gstate, sizeof(state), ARG_NUMBER)) {
      ast_log(LOG_WARNING, "Invalid state number '%s' at line %d of %s\n", gstate, lineno, script);
      return 0;
   }

   buf[0] = id;
   buf[1] = state;

   return 2;
}

setflag()

static int setflag ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 460 of file app_adsiprog.c.

References ARG_STRING, ast_log, get_token(), getflagbyname(), adsi_event::id, adsi_flag::id, LOG_WARNING, and process_token().

{
   char *tok = get_token(&args, script, lineno);
   char sname[80];
   struct adsi_flag *flag;

   if (!tok) {
      ast_log(LOG_WARNING, "Setting flag requires a flag number at line %d of %s\n", lineno, script);
      return 0;
   }

   if (process_token(sname, tok, sizeof(sname) - 1, ARG_STRING)) {
      ast_log(LOG_WARNING, "Invalid flag '%s' at line %d of %s\n", tok, lineno, script);
      return 0;
   }

   if (!(flag = getflagbyname(state, sname, script, lineno, 0))) {
      ast_log(LOG_WARNING, "Flag '%s' is undeclared at line %d of %s\n", sname, lineno, script);
      return 0;
   }

   buf[0] = id;
   buf[1] = ((flag->id & 0x7) << 4) | 1;

   return 2;
}

showdisplay()

static int showdisplay ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 699 of file app_adsiprog.c.

References ARG_NUMBER, ARG_STRING, ast_log, get_token(), getdisplaybyname(), adsi_event::id, adsi_display::id, LOG_WARNING, and process_token().

{
   char *tok, dispname[80];
   int line = 0, flag = 0, cmd = 3;
   struct adsi_display *disp;

   /* Get display */
   if (!(tok = get_token(&args, script, lineno)) || process_token(dispname, tok, sizeof(dispname) - 1, ARG_STRING)) {
      ast_log(LOG_WARNING, "Invalid display name: %s at line %d of %s\n", tok ? tok : "<nothing>", lineno, script);
      return 0;
   }

   if (!(disp = getdisplaybyname(state, dispname, script, lineno, 0))) {
      ast_log(LOG_WARNING, "Display '%s' is undefined at line %d of %s\n", dispname, lineno, script);
      return 0;
   }

   if (!(tok = get_token(&args, script, lineno)) || strcasecmp(tok, "AT")) {
      ast_log(LOG_WARNING, "Missing token 'AT' at line %d of %s\n", lineno, script);
      return 0;
   }

   /* Get line number */
   if (!(tok = get_token(&args, script, lineno)) || process_token(&line, tok, sizeof(line), ARG_NUMBER)) {
      ast_log(LOG_WARNING, "Invalid line: '%s' at line %d of %s\n", tok ? tok : "<nothing>", lineno, script);
      return 0;
   }

   if ((tok = get_token(&args, script, lineno)) && !strcasecmp(tok, "NOUPDATE")) {
      cmd = 1;
      tok = get_token(&args, script, lineno);
   }

   if (tok && !strcasecmp(tok, "UNLESS")) {
      /* Check for trailing UNLESS flag */
      if (!(tok = get_token(&args, script, lineno)))
         ast_log(LOG_WARNING, "Missing argument for UNLESS clause at line %d of %s\n", lineno, script);
      else if (process_token(&flag, tok, sizeof(flag), ARG_NUMBER))
         ast_log(LOG_WARNING, "Invalid flag number '%s' at line %d of %s\n", tok, lineno, script);

      if ((tok = get_token(&args, script, lineno)))
         ast_log(LOG_WARNING, "Extra arguments after UNLESS clause: '%s' at line %d of %s\n", tok, lineno, script);
   }

   buf[0] = id;
   buf[1] = (cmd << 6) | (disp->id & 0x3f);
   buf[2] = ((line & 0x1f) << 3) | (flag & 0x7);

   return 3;
}

showkeys()

static int showkeys ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 652 of file app_adsiprog.c.

References ARG_STRING, ast_log, get_token(), getflagbyname(), getkeybyname(), adsi_event::id, adsi_soft_key::id, adsi_flag::id, LOG_WARNING, and process_token().

{
   char *tok, newkey[80];
   int bytes, x, flagid = 0;
   unsigned char keyid[6];
   struct adsi_soft_key *key;
   struct adsi_flag *flag;

   for (x = 0; x < 7; x++) {
      /* Up to 6 key arguments */
      if (!(tok = get_token(&args, script, lineno)))
         break;
      if (!strcasecmp(tok, "UNLESS")) {
         /* Check for trailing UNLESS flag */
         if (!(tok = get_token(&args, script, lineno)))
            ast_log(LOG_WARNING, "Missing argument for UNLESS clause at line %d of %s\n", lineno, script);
         else if (process_token(newkey, tok, sizeof(newkey) - 1, ARG_STRING))
            ast_log(LOG_WARNING, "Invalid flag name '%s' at line %d of %s\n", tok, lineno, script);
         else if (!(flag = getflagbyname(state, newkey, script, lineno, 0)))
            ast_log(LOG_WARNING, "Flag '%s' is undeclared at line %d of %s\n", newkey, lineno, script);
         else
            flagid = flag->id;
         if ((tok = get_token(&args, script, lineno)))
            ast_log(LOG_WARNING, "Extra arguments after UNLESS clause: '%s' at line %d of %s\n", tok, lineno, script);
         break;
      }
      if (x > 5) {
         ast_log(LOG_WARNING, "Only 6 keys can be defined, ignoring '%s' at line %d of %s\n", tok, lineno, script);
         break;
      }
      if (process_token(newkey, tok, sizeof(newkey) - 1, ARG_STRING)) {
         ast_log(LOG_WARNING, "Invalid token for key name: %s\n", tok);
         continue;
      }

      if (!(key = getkeybyname(state, newkey, script, lineno)))
         break;
      keyid[x] = key->id;
   }
   buf[0] = id;
   buf[1] = (flagid & 0x7) << 3 | (x & 0x7);
   for (bytes = 0; bytes < x; bytes++)
      buf[bytes + 2] = keyid[bytes];

   return 2 + x;
}

starttimer()

static int starttimer ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  istate, const char *  script, int  lineno  )

static

Definition at line 514 of file app_adsiprog.c.

References ARG_NUMBER, ast_log, get_token(), adsi_event::id, LOG_WARNING, and process_token().

{
   char *tok = get_token(&args, script, lineno);
   int secs;

   if (!tok) {
      ast_log(LOG_WARNING, "Missing number of seconds at line %d of %s\n", lineno, script);
      return 0;
   }

   if (process_token(&secs, tok, sizeof(secs), ARG_NUMBER)) {
      ast_log(LOG_WARNING, "Invalid number of seconds '%s' at line %d of %s\n", tok, lineno, script);
      return 0;
   }

   buf[0] = id;
   buf[1] = 0x1;
   buf[2] = secs;

   return 3;
}

subscript()

static int subscript ( char *  buf, char *  name, int  id, char *  args, struct adsi_script *  state, const char *  script, int  lineno  )

static

Definition at line 798 of file app_adsiprog.c.

References ARG_STRING, ast_log, get_token(), getsubbyname(), adsi_subscript::id, LOG_WARNING, process_token(), and sub.

{
   char *tok = get_token(&args, script, lineno);
   char subscr[80];
   struct adsi_subscript *sub;

   if (!tok) {
      ast_log(LOG_WARNING, "Missing subscript to call at line %d of %s\n", lineno, script);
      return 0;
   }

   if (process_token(subscr, tok, sizeof(subscr) - 1, ARG_STRING)) {
      ast_log(LOG_WARNING, "Invalid number of seconds '%s' at line %d of %s\n", tok, lineno, script);
      return 0;
   }

   if (!(sub = getsubbyname(state, subscr, script, lineno)))
      return 0;

   buf[0] = 0x9d;
   buf[1] = sub->id;

   return 2;
}

unload_module()

static int unload_module ( void  )

static

Definition at line 1590 of file app_adsiprog.c.

References app, and ast_unregister_application().

Referenced by load_module().

{
   return ast_unregister_application(app);
}

Variable Documentation

__mod_info

struct ast_module_info __mod_info = { .name = AST_MODULE, .flags = AST_MODFLAG_DEFAULT , .description = "Asterisk ADSI Programming Application" , .key = "This paragraph is copyright (c) 2006 by Digium, Inc. \In order for your module to load, it must return this \key via a function called \"key\". Any code which \includes this paragraph must be licensed under the GNU \General Public License version 2 or later (at your \option). In addition to Digium's general reservations \of rights, Digium expressly reserves the right to \allow other parties to license this paragraph under \different terms. Any use of Digium, Inc. trademarks or \logos (including \"Asterisk\" or \"Digium\") without \express written permission of Digium, Inc. is prohibited.\n" , .buildopt_sum = "30ef0c93b36035ec78c9cfd712d36d9b" , .support_level = AST_MODULE_SUPPORT_DEPRECATED, .load = load_module, .unload = unload_module, .requires = "res_adsi", }

static

Definition at line 1617 of file app_adsiprog.c.

app

const char app[] = "ADSIProg"

static

Definition at line 56 of file app_adsiprog.c.

Referenced by load_module(), and unload_module().

ast_module_info

const struct ast_module_info* ast_module_info = &__mod_info

static

Definition at line 1617 of file app_adsiprog.c.

events

const struct adsi_event events[]

static

Definition at line 85 of file app_adsiprog.c.

Referenced by add_new_event_cb(), ast_custom_function_find(), ast_io_add(), ast_io_change(), calendar_query_exec(), calendar_query_result_exec(), eventlist_destroy(), eventlist_destructor(), eventlist_duplicate(), events_handler(), handle_manager_show_event(), and handle_manager_show_events().

justify

const struct adsi_event justify[]

static

Definition at line 112 of file app_adsiprog.c.

Referenced by cpeid_setstatus().

kcmds

const struct adsi_key_cmd kcmds[]

static

Definition at line 893 of file app_adsiprog.c.

opcmds

const struct adsi_key_cmd opcmds[]

static

Definition at line 935 of file app_adsiprog.c.

validdtmf

char* validdtmf = "123456789*0#ABCD"

static

Definition at line 273 of file app_adsiprog.c.

Referenced by send_dtmf().