diff options
Diffstat (limited to 'trunk/res/res_agi.c')
-rw-r--r-- | trunk/res/res_agi.c | 2992 |
1 files changed, 2992 insertions, 0 deletions
diff --git a/trunk/res/res_agi.c b/trunk/res/res_agi.c new file mode 100644 index 000000000..75692089b --- /dev/null +++ b/trunk/res/res_agi.c @@ -0,0 +1,2992 @@ +/* + * Asterisk -- An open source telephony toolkit. + * + * Copyright (C) 1999 - 2006, Digium, Inc. + * + * Mark Spencer <markster@digium.com> + * + * See http://www.asterisk.org for more information about + * the Asterisk project. Please do not directly contact + * any of the maintainers of this project for assistance; + * the project provides a web site, mailing lists and IRC + * channels for your use. + * + * This program is free software, distributed under the terms of + * the GNU General Public License Version 2. See the LICENSE file + * at the top of the source tree. + */ + +/*! \file + * + * \brief AGI - the Asterisk Gateway Interface + * + * \author Mark Spencer <markster@digium.com> + */ + +#include "asterisk.h" + +ASTERISK_FILE_VERSION(__FILE__, "$Revision$") + +#include <math.h> +#include <signal.h> +#include <sys/time.h> +#include <sys/wait.h> +#include <sys/stat.h> +#include <pthread.h> + +#include "asterisk/paths.h" /* use many ast_config_AST_*_DIR */ +#include "asterisk/network.h" +#include "asterisk/file.h" +#include "asterisk/channel.h" +#include "asterisk/pbx.h" +#include "asterisk/module.h" +#include "asterisk/astdb.h" +#include "asterisk/callerid.h" +#include "asterisk/cli.h" +#include "asterisk/image.h" +#include "asterisk/say.h" +#include "asterisk/app.h" +#include "asterisk/dsp.h" +#include "asterisk/musiconhold.h" +#include "asterisk/utils.h" +#include "asterisk/lock.h" +#include "asterisk/strings.h" +#include "asterisk/agi.h" +#include "asterisk/manager.h" +#include "asterisk/version.h" +#include "asterisk/speech.h" +#include "asterisk/manager.h" + +#define MAX_ARGS 128 +#define AGI_NANDFS_RETRY 3 +#define AGI_BUF_LEN 2048 + +static char *app = "AGI"; + +static char *eapp = "EAGI"; + +static char *deadapp = "DeadAGI"; + +static char *synopsis = "Executes an AGI compliant application"; +static char *esynopsis = "Executes an EAGI compliant application"; +static char *deadsynopsis = "Executes AGI on a hungup channel"; + +static char *descrip = +" [E|Dead]AGI(command,args): Executes an Asterisk Gateway Interface compliant\n" +"program on a channel. AGI allows Asterisk to launch external programs\n" +"written in any language to control a telephony channel, play audio,\n" +"read DTMF digits, etc. by communicating with the AGI protocol on stdin\n" +"and stdout.\n" +" This channel will stop dialplan execution on hangup inside of this\n" +"application, except when using DeadAGI. Otherwise, dialplan execution\n" +"will continue normally.\n" +" A locally executed AGI script will receive SIGHUP on hangup from the channel\n" +"except when using DeadAGI. This can be disabled by setting the AGISIGHUP channel\n" +"variable to \"no\" before executing the AGI application.\n" +" Using 'EAGI' provides enhanced AGI, with incoming audio available out of band\n" +"on file descriptor 3\n\n" +" Use the CLI command 'agi show' to list available agi commands\n" +" This application sets the following channel variable upon completion:\n" +" AGISTATUS The status of the attempt to the run the AGI script\n" +" text string, one of SUCCESS | FAILURE | NOTFOUND | HANGUP\n"; + +static int agidebug = 0; + +#define TONE_BLOCK_SIZE 200 + +/* Max time to connect to an AGI remote host */ +#define MAX_AGI_CONNECT 2000 + +#define AGI_PORT 4573 + +enum agi_result { + AGI_RESULT_SUCCESS, + AGI_RESULT_SUCCESS_FAST, + AGI_RESULT_SUCCESS_ASYNC, + AGI_RESULT_FAILURE, + AGI_RESULT_NOTFOUND, + AGI_RESULT_HANGUP, +}; + +static agi_command *find_command(char *cmds[], int exact); + +AST_THREADSTORAGE(agi_buf); +#define AGI_BUF_INITSIZE 256 + +int ast_agi_fdprintf(struct ast_channel *chan, int fd, char *fmt, ...) +{ + int res = 0; + va_list ap; + struct ast_str *buf; + + if (!(buf = ast_str_thread_get(&agi_buf, AGI_BUF_INITSIZE))) + return -1; + + va_start(ap, fmt); + res = ast_str_set_va(&buf, 0, fmt, ap); + va_end(ap); + + if (res == -1) { + ast_log(LOG_ERROR, "Out of memory\n"); + return -1; + } + + if (agidebug) { + if (chan) { + ast_verbose("<%s>AGI Tx >> %s", chan->name, buf->str); + } else { + ast_verbose("AGI Tx >> %s", buf->str); + } + } + + return ast_carefulwrite(fd, buf->str, buf->used, 100); +} + +/* linked list of AGI commands ready to be executed by Async AGI */ +struct agi_cmd { + char *cmd_buffer; + char *cmd_id; + AST_LIST_ENTRY(agi_cmd) entry; +}; + +static void free_agi_cmd(struct agi_cmd *cmd) +{ + ast_free(cmd->cmd_buffer); + ast_free(cmd->cmd_id); + ast_free(cmd); +} + +/* AGI datastore destructor */ +static void agi_destroy_commands_cb(void *data) +{ + struct agi_cmd *cmd; + AST_LIST_HEAD(, agi_cmd) *chan_cmds = data; + AST_LIST_LOCK(chan_cmds); + while ( (cmd = AST_LIST_REMOVE_HEAD(chan_cmds, entry)) ) { + free_agi_cmd(cmd); + } + AST_LIST_UNLOCK(chan_cmds); + AST_LIST_HEAD_DESTROY(chan_cmds); + ast_free(chan_cmds); +} + +/* channel datastore to keep the queue of AGI commands in the channel */ +static const struct ast_datastore_info agi_commands_datastore_info = { + .type = "AsyncAGI", + .destroy = agi_destroy_commands_cb +}; + +static const char mandescr_asyncagi[] = +"Description: Add an AGI command to the execute queue of the channel in Async AGI\n" +"Variables:\n" +" *Channel: Channel that is currently in Async AGI\n" +" *Command: Application to execute\n" +" CommandID: comand id. This will be sent back in CommandID header of AsyncAGI exec event notification\n" +"\n"; + +static struct agi_cmd *get_agi_cmd(struct ast_channel *chan) +{ + struct ast_datastore *store; + struct agi_cmd *cmd; + AST_LIST_HEAD(, agi_cmd) *agi_commands; + + ast_channel_lock(chan); + store = ast_channel_datastore_find(chan, &agi_commands_datastore_info, NULL); + ast_channel_unlock(chan); + if (!store) { + ast_log(LOG_ERROR, "Hu? datastore disappeared at Async AGI on Channel %s!\n", chan->name); + return NULL; + } + agi_commands = store->data; + AST_LIST_LOCK(agi_commands); + cmd = AST_LIST_REMOVE_HEAD(agi_commands, entry); + AST_LIST_UNLOCK(agi_commands); + return cmd; +} + +/* channel is locked when calling this one either from the CLI or manager thread */ +static int add_agi_cmd(struct ast_channel *chan, const char *cmd_buff, const char *cmd_id) +{ + struct ast_datastore *store; + struct agi_cmd *cmd; + AST_LIST_HEAD(, agi_cmd) *agi_commands; + + store = ast_channel_datastore_find(chan, &agi_commands_datastore_info, NULL); + if (!store) { + ast_log(LOG_WARNING, "Channel %s is not at Async AGI.\n", chan->name); + return -1; + } + agi_commands = store->data; + cmd = ast_calloc(1, sizeof(*cmd)); + if (!cmd) { + return -1; + } + cmd->cmd_buffer = ast_strdup(cmd_buff); + if (!cmd->cmd_buffer) { + ast_free(cmd); + return -1; + } + cmd->cmd_id = ast_strdup(cmd_id); + if (!cmd->cmd_id) { + ast_free(cmd->cmd_buffer); + ast_free(cmd); + return -1; + } + AST_LIST_LOCK(agi_commands); + AST_LIST_INSERT_TAIL(agi_commands, cmd, entry); + AST_LIST_UNLOCK(agi_commands); + return 0; +} + +static int add_to_agi(struct ast_channel *chan) +{ + struct ast_datastore *datastore; + AST_LIST_HEAD(, agi_cmd) *agi_cmds_list; + + /* check if already on AGI */ + ast_channel_lock(chan); + datastore = ast_channel_datastore_find(chan, &agi_commands_datastore_info, NULL); + ast_channel_unlock(chan); + if (datastore) { + /* we already have an AGI datastore, let's just + return success */ + return 0; + } + + /* the channel has never been on Async AGI, + let's allocate it's datastore */ + datastore = ast_channel_datastore_alloc(&agi_commands_datastore_info, "AGI"); + if (!datastore) { + return -1; + } + agi_cmds_list = ast_calloc(1, sizeof(*agi_cmds_list)); + if (!agi_cmds_list) { + ast_log(LOG_ERROR, "Unable to allocate Async AGI commands list.\n"); + ast_channel_datastore_free(datastore); + return -1; + } + datastore->data = agi_cmds_list; + AST_LIST_HEAD_INIT(agi_cmds_list); + ast_channel_lock(chan); + ast_channel_datastore_add(chan, datastore); + ast_channel_unlock(chan); + return 0; +} + +/*! + * \brief CLI command to add applications to execute in Async AGI + * \param e + * \param cmd + * \param a + * + * \retval CLI_SUCCESS on success + * \retval NULL when init or tab completion is used +*/ +static char *handle_cli_agi_add_cmd(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a) +{ + struct ast_channel *chan; + switch (cmd) { + case CLI_INIT: + e->command = "agi exec"; + e->usage = "Usage: agi exec <channel name> <app and arguments> [id]\n" + " Add AGI command to the execute queue of the specified channel in Async AGI\n"; + return NULL; + case CLI_GENERATE: + if (a->pos == 2) + return ast_complete_channels(a->line, a->word, a->pos, a->n, 2); + return NULL; + } + + if (a->argc < 4) + return CLI_SHOWUSAGE; + chan = ast_get_channel_by_name_locked(a->argv[2]); + if (!chan) { + ast_log(LOG_WARNING, "Channel %s does not exists or cannot lock it\n", a->argv[2]); + return CLI_FAILURE; + } + if (add_agi_cmd(chan, a->argv[3], (a->argc > 4 ? a->argv[4] : ""))) { + ast_log(LOG_WARNING, "failed to add AGI command to queue of channel %s\n", chan->name); + ast_channel_unlock(chan); + return CLI_FAILURE; + } + ast_log(LOG_DEBUG, "Added AGI command to channel %s queue\n", chan->name); + ast_channel_unlock(chan); + return CLI_SUCCESS; +} + +/*! + * \brief Add a new command to execute by the Async AGI application + * \param s + * \param m + * + * It will append the application to the specified channel's queue + * if the channel is not inside Async AGI application it will return an error + * \retval 0 on success or incorrect use + * \retval 1 on failure to add the command ( most likely because the channel + * is not in Async AGI loop ) +*/ +static int action_add_agi_cmd(struct mansession *s, const struct message *m) +{ + const char *channel = astman_get_header(m, "Channel"); + const char *cmdbuff = astman_get_header(m, "Command"); + const char *cmdid = astman_get_header(m, "CommandID"); + struct ast_channel *chan; + char buf[256]; + if (ast_strlen_zero(channel) || ast_strlen_zero(cmdbuff)) { + astman_send_error(s, m, "Both, Channel and Command are *required*"); + return 0; + } + chan = ast_get_channel_by_name_locked(channel); + if (!chan) { + snprintf(buf, sizeof(buf), "Channel %s does not exists or cannot get its lock", channel); + astman_send_error(s, m, buf); + return 1; + } + if (add_agi_cmd(chan, cmdbuff, cmdid)) { + snprintf(buf, sizeof(buf), "Failed to add AGI command to channel %s queue", chan->name); + astman_send_error(s, m, buf); + ast_channel_unlock(chan); + return 1; + } + astman_send_ack(s, m, "Added AGI command to queue"); + ast_channel_unlock(chan); + return 0; +} + +static int agi_handle_command(struct ast_channel *chan, AGI *agi, char *buf, int dead); +static void setup_env(struct ast_channel *chan, char *request, int fd, int enhanced, int argc, char *argv[]); +static enum agi_result launch_asyncagi(struct ast_channel *chan, char *argv[], int *efd) +{ +/* This buffer sizes might cause truncation if the AGI command writes more data + than AGI_BUF_SIZE as result. But let's be serious, is there an AGI command + that writes a response larger than 1024 bytes?, I don't think so, most of + them are just result=blah stuff. However probably if GET VARIABLE is called + and the variable has large amount of data, that could be a problem. We could + make this buffers dynamic, but let's leave that as a second step. + + AMI_BUF_SIZE is twice AGI_BUF_SIZE just for the sake of choosing a safe + number. Some characters of AGI buf will be url encoded to be sent to manager + clients. An URL encoded character will take 3 bytes, but again, to cause + truncation more than about 70% of the AGI buffer should be URL encoded for + that to happen. Not likely at all. + + On the other hand. I wonder if read() could eventually return less data than + the amount already available in the pipe? If so, how to deal with that? + So far, my tests on Linux have not had any problems. + */ +#define AGI_BUF_SIZE 1024 +#define AMI_BUF_SIZE 2048 + struct ast_frame *f; + struct agi_cmd *cmd; + int res, fds[2]; + int timeout = 100; + char agi_buffer[AGI_BUF_SIZE + 1]; + char ami_buffer[AMI_BUF_SIZE]; + enum agi_result returnstatus = AGI_RESULT_SUCCESS_ASYNC; + AGI async_agi; + + if (efd) { + ast_log(LOG_WARNING, "Async AGI does not support Enhanced AGI yet\n"); + return AGI_RESULT_FAILURE; + } + + /* add AsyncAGI datastore to the channel */ + if (add_to_agi(chan)) { + ast_log(LOG_ERROR, "failed to start Async AGI on channel %s\n", chan->name); + return AGI_RESULT_FAILURE; + } + + /* this pipe allows us to create a "fake" AGI struct to use + the AGI commands */ + res = pipe(fds); + if (res) { + ast_log(LOG_ERROR, "failed to create Async AGI pipe\n"); + /* intentionally do not remove datastore, added with + add_to_agi(), from channel. It will be removed when + the channel is hung up anyways */ + return AGI_RESULT_FAILURE; + } + /* handlers will get the pipe write fd and we read the AGI responses + from the pipe read fd */ + async_agi.fd = fds[1]; + async_agi.ctrl = fds[1]; + async_agi.audio = -1; /* no audio support */ + async_agi.fast = 0; + + /* notify possible manager users of a new channel ready to + receive commands */ + setup_env(chan, "async", fds[1], 0, 0, NULL); + /* read the environment */ + res = read(fds[0], agi_buffer, AGI_BUF_SIZE); + if (!res) { + ast_log(LOG_ERROR, "failed to read from Async AGI pipe on channel %s\n", chan->name); + returnstatus = AGI_RESULT_FAILURE; + goto quit; + } + agi_buffer[res] = '\0'; + /* encode it and send it thru the manager so whoever is going to take + care of AGI commands on this channel can decide which AGI commands + to execute based on the setup info */ + ast_uri_encode(agi_buffer, ami_buffer, AMI_BUF_SIZE, 1); + manager_event(EVENT_FLAG_CALL, "AsyncAGI", "SubEvent: Start\r\nChannel: %s\r\nEnv: %s\r\n", chan->name, ami_buffer); + while (1) { + /* bail out if we need to hangup */ + if (ast_check_hangup(chan)) { + ast_log(LOG_DEBUG, "ast_check_hangup returned true on chan %s\n", chan->name); + break; + } + /* retrieve a command + (commands are added via the manager or the cli threads) */ + cmd = get_agi_cmd(chan); + if (cmd) { + /* OK, we have a command, let's call the + command handler. */ + res = agi_handle_command(chan, &async_agi, cmd->cmd_buffer, 0); + if ((res < 0) || (res == AST_PBX_KEEPALIVE)) { + free_agi_cmd(cmd); + break; + } + /* the command handler must have written to our fake + AGI struct fd (the pipe), let's read the response */ + res = read(fds[0], agi_buffer, AGI_BUF_SIZE); + if (!res) { + returnstatus = AGI_RESULT_FAILURE; + ast_log(LOG_ERROR, "failed to read from AsyncAGI pipe on channel %s\n", chan->name); + free_agi_cmd(cmd); + break; + } + /* we have a response, let's send the response thru the + manager. Include the CommandID if it was specified + when the command was added */ + agi_buffer[res] = '\0'; + ast_uri_encode(agi_buffer, ami_buffer, AMI_BUF_SIZE, 1); + if (ast_strlen_zero(cmd->cmd_id)) + manager_event(EVENT_FLAG_CALL, "AsyncAGI", "SubEvent: Exec\r\nChannel: %s\r\nResult: %s\r\n", chan->name, ami_buffer); + else + manager_event(EVENT_FLAG_CALL, "AsyncAGI", "SubEvent: Exec\r\nChannel: %s\r\nCommandID: %s\r\nResult: %s\r\n", chan->name, cmd->cmd_id, ami_buffer); + free_agi_cmd(cmd); + } else { + /* no command so far, wait a bit for a frame to read */ + res = ast_waitfor(chan, timeout); + if (res < 0) { + ast_log(LOG_DEBUG, "ast_waitfor returned <= 0 on chan %s\n", chan->name); + break; + } + if (res == 0) + continue; + f = ast_read(chan); + if (!f) { + ast_log(LOG_DEBUG, "No frame read on channel %s, going out ...\n", chan->name); + returnstatus = AGI_RESULT_HANGUP; + break; + } + /* is there any other frame we should care about + besides AST_CONTROL_HANGUP? */ + if (f->frametype == AST_FRAME_CONTROL && f->subclass == AST_CONTROL_HANGUP) { + ast_log(LOG_DEBUG, "Got HANGUP frame on channel %s, going out ...\n", chan->name); + ast_frfree(f); + break; + } + ast_frfree(f); + } + } +quit: + /* notify manager users this channel cannot be + controlled anymore by Async AGI */ + manager_event(EVENT_FLAG_CALL, "AsyncAGI", "SubEvent: End\r\nChannel: %s\r\n", chan->name); + + /* close the pipe */ + close(fds[0]); + close(fds[1]); + + /* intentionally don't get rid of the datastore. So commands can be + still in the queue in case AsyncAGI gets called again. + Datastore destructor will be called on channel destroy anyway */ + + return returnstatus; + +#undef AGI_BUF_SIZE +#undef AMI_BUF_SIZE +} + +/* launch_netscript: The fastagi handler. + FastAGI defaults to port 4573 */ +static enum agi_result launch_netscript(char *agiurl, char *argv[], int *fds, int *efd, int *opid) +{ + int s, flags, res, port = AGI_PORT; + struct pollfd pfds[1]; + char *host, *c, *script = ""; + struct sockaddr_in sin; + struct hostent *hp; + struct ast_hostent ahp; + + /* agiusl is "agi://host.domain[:port][/script/name]" */ + host = ast_strdupa(agiurl + 6); /* Remove agi:// */ + /* Strip off any script name */ + if ((c = strchr(host, '/'))) { + *c = '\0'; + c++; + script = c; + } + if ((c = strchr(host, ':'))) { + *c = '\0'; + c++; + port = atoi(c); + } + if (efd) { + ast_log(LOG_WARNING, "AGI URI's don't support Enhanced AGI yet\n"); + return -1; + } + if (!(hp = ast_gethostbyname(host, &ahp))) { + ast_log(LOG_WARNING, "Unable to locate host '%s'\n", host); + return -1; + } + if ((s = socket(AF_INET, SOCK_STREAM, 0)) < 0) { + ast_log(LOG_WARNING, "Unable to create socket: %s\n", strerror(errno)); + return -1; + } + if ((flags = fcntl(s, F_GETFL)) < 0) { + ast_log(LOG_WARNING, "Fcntl(F_GETFL) failed: %s\n", strerror(errno)); + close(s); + return -1; + } + if (fcntl(s, F_SETFL, flags | O_NONBLOCK) < 0) { + ast_log(LOG_WARNING, "Fnctl(F_SETFL) failed: %s\n", strerror(errno)); + close(s); + return -1; + } + memset(&sin, 0, sizeof(sin)); + sin.sin_family = AF_INET; + sin.sin_port = htons(port); + memcpy(&sin.sin_addr, hp->h_addr, sizeof(sin.sin_addr)); + if (connect(s, (struct sockaddr *)&sin, sizeof(sin)) && (errno != EINPROGRESS)) { + ast_log(LOG_WARNING, "Connect failed with unexpected error: %s\n", strerror(errno)); + close(s); + return AGI_RESULT_FAILURE; + } + + pfds[0].fd = s; + pfds[0].events = POLLOUT; + while ((res = poll(pfds, 1, MAX_AGI_CONNECT)) != 1) { + if (errno != EINTR) { + if (!res) { + ast_log(LOG_WARNING, "FastAGI connection to '%s' timed out after MAX_AGI_CONNECT (%d) milliseconds.\n", + agiurl, MAX_AGI_CONNECT); + } else + ast_log(LOG_WARNING, "Connect to '%s' failed: %s\n", agiurl, strerror(errno)); + close(s); + return AGI_RESULT_FAILURE; + } + } + + if (ast_agi_fdprintf(NULL, s, "agi_network: yes\n") < 0) { + if (errno != EINTR) { + ast_log(LOG_WARNING, "Connect to '%s' failed: %s\n", agiurl, strerror(errno)); + close(s); + return AGI_RESULT_FAILURE; + } + } + + /* If we have a script parameter, relay it to the fastagi server */ + /* Script parameters take the form of: AGI(agi://my.example.com/?extension=${EXTEN}) */ + if (!ast_strlen_zero(script)) + ast_agi_fdprintf(NULL, s, "agi_network_script: %s\n", script); + + ast_debug(4, "Wow, connected!\n"); + fds[0] = s; + fds[1] = s; + *opid = -1; + return AGI_RESULT_SUCCESS_FAST; +} + +static enum agi_result launch_script(struct ast_channel *chan, char *script, char *argv[], int *fds, int *efd, int *opid) +{ + char tmp[256]; + int pid, toast[2], fromast[2], audio[2], x, res; + sigset_t signal_set, old_set; + struct stat st; + + if (!strncasecmp(script, "agi://", 6)) + return launch_netscript(script, argv, fds, efd, opid); + if (!strncasecmp(script, "agi:async", sizeof("agi:async")-1)) + return launch_asyncagi(chan, argv, efd); + + if (script[0] != '/') { + snprintf(tmp, sizeof(tmp), "%s/%s", ast_config_AST_AGI_DIR, script); + script = tmp; + } + + /* Before even trying let's see if the file actually exists */ + if (stat(script, &st)) { + ast_log(LOG_WARNING, "Failed to execute '%s': File does not exist.\n", script); + return AGI_RESULT_NOTFOUND; + } + + if (pipe(toast)) { + ast_log(LOG_WARNING, "Unable to create toast pipe: %s\n",strerror(errno)); + return AGI_RESULT_FAILURE; + } + if (pipe(fromast)) { + ast_log(LOG_WARNING, "unable to create fromast pipe: %s\n", strerror(errno)); + close(toast[0]); + close(toast[1]); + return AGI_RESULT_FAILURE; + } + if (efd) { + if (pipe(audio)) { + ast_log(LOG_WARNING, "unable to create audio pipe: %s\n", strerror(errno)); + close(fromast[0]); + close(fromast[1]); + close(toast[0]); + close(toast[1]); + return AGI_RESULT_FAILURE; + } + res = fcntl(audio[1], F_GETFL); + if (res > -1) + res = fcntl(audio[1], F_SETFL, res | O_NONBLOCK); + if (res < 0) { + ast_log(LOG_WARNING, "unable to set audio pipe parameters: %s\n", strerror(errno)); + close(fromast[0]); + close(fromast[1]); + close(toast[0]); + close(toast[1]); + close(audio[0]); + close(audio[1]); + return AGI_RESULT_FAILURE; + } + } + + /* Block SIGHUP during the fork - prevents a race */ + sigfillset(&signal_set); + pthread_sigmask(SIG_BLOCK, &signal_set, &old_set); + if ((pid = fork()) < 0) { + ast_log(LOG_WARNING, "Failed to fork(): %s\n", strerror(errno)); + pthread_sigmask(SIG_SETMASK, &old_set, NULL); + return AGI_RESULT_FAILURE; + } + if (!pid) { + /* Pass paths to AGI via environmental variables */ + setenv("AST_CONFIG_DIR", ast_config_AST_CONFIG_DIR, 1); + setenv("AST_CONFIG_FILE", ast_config_AST_CONFIG_FILE, 1); + setenv("AST_MODULE_DIR", ast_config_AST_MODULE_DIR, 1); + setenv("AST_SPOOL_DIR", ast_config_AST_SPOOL_DIR, 1); + setenv("AST_MONITOR_DIR", ast_config_AST_MONITOR_DIR, 1); + setenv("AST_VAR_DIR", ast_config_AST_VAR_DIR, 1); + setenv("AST_DATA_DIR", ast_config_AST_DATA_DIR, 1); + setenv("AST_LOG_DIR", ast_config_AST_LOG_DIR, 1); + setenv("AST_AGI_DIR", ast_config_AST_AGI_DIR, 1); + setenv("AST_KEY_DIR", ast_config_AST_KEY_DIR, 1); + setenv("AST_RUN_DIR", ast_config_AST_RUN_DIR, 1); + + /* Don't run AGI scripts with realtime priority -- it causes audio stutter */ + ast_set_priority(0); + + /* Redirect stdin and out, provide enhanced audio channel if desired */ + dup2(fromast[0], STDIN_FILENO); + dup2(toast[1], STDOUT_FILENO); + if (efd) + dup2(audio[0], STDERR_FILENO + 1); + else + close(STDERR_FILENO + 1); + + /* Before we unblock our signals, return our trapped signals back to the defaults */ + signal(SIGHUP, SIG_DFL); + signal(SIGCHLD, SIG_DFL); + signal(SIGINT, SIG_DFL); + signal(SIGURG, SIG_DFL); + signal(SIGTERM, SIG_DFL); + signal(SIGPIPE, SIG_DFL); + signal(SIGXFSZ, SIG_DFL); + + /* unblock important signal handlers */ + if (pthread_sigmask(SIG_UNBLOCK, &signal_set, NULL)) { + ast_log(LOG_WARNING, "unable to unblock signals for AGI script: %s\n", strerror(errno)); + _exit(1); + } + + /* Close everything but stdin/out/error */ + for (x = STDERR_FILENO + 2; x < 1024; x++) + close(x); + + /* Execute script */ + /* XXX argv should be deprecated in favor of passing agi_argX paramaters */ + execv(script, argv); + /* Can't use ast_log since FD's are closed */ + fprintf(stdout, "verbose \"Failed to execute '%s': %s\" 2\n", script, strerror(errno)); + fflush(stdout); + _exit(1); + } + pthread_sigmask(SIG_SETMASK, &old_set, NULL); + ast_verb(3, "Launched AGI Script %s\n", script); + fds[0] = toast[0]; + fds[1] = fromast[1]; + if (efd) + *efd = audio[1]; + /* close what we're not using in the parent */ + close(toast[1]); + close(fromast[0]); + + if (efd) + close(audio[0]); + + *opid = pid; + return AGI_RESULT_SUCCESS; +} + +static void setup_env(struct ast_channel *chan, char *request, int fd, int enhanced, int argc, char *argv[]) +{ + int count; + + /* Print initial environment, with agi_request always being the first + thing */ + ast_agi_fdprintf(chan, fd, "agi_request: %s\n", request); + ast_agi_fdprintf(chan, fd, "agi_channel: %s\n", chan->name); + ast_agi_fdprintf(chan, fd, "agi_language: %s\n", chan->language); + ast_agi_fdprintf(chan, fd, "agi_type: %s\n", chan->tech->type); + ast_agi_fdprintf(chan, fd, "agi_uniqueid: %s\n", chan->uniqueid); + ast_agi_fdprintf(chan, fd, "agi_version: %s\n", ast_get_version()); + + /* ANI/DNIS */ + ast_agi_fdprintf(chan, fd, "agi_callerid: %s\n", S_OR(chan->cid.cid_num, "unknown")); + ast_agi_fdprintf(chan, fd, "agi_calleridname: %s\n", S_OR(chan->cid.cid_name, "unknown")); + ast_agi_fdprintf(chan, fd, "agi_callingpres: %d\n", chan->cid.cid_pres); + ast_agi_fdprintf(chan, fd, "agi_callingani2: %d\n", chan->cid.cid_ani2); + ast_agi_fdprintf(chan, fd, "agi_callington: %d\n", chan->cid.cid_ton); + ast_agi_fdprintf(chan, fd, "agi_callingtns: %d\n", chan->cid.cid_tns); + ast_agi_fdprintf(chan, fd, "agi_dnid: %s\n", S_OR(chan->cid.cid_dnid, "unknown")); + ast_agi_fdprintf(chan, fd, "agi_rdnis: %s\n", S_OR(chan->cid.cid_rdnis, "unknown")); + + /* Context information */ + ast_agi_fdprintf(chan, fd, "agi_context: %s\n", chan->context); + ast_agi_fdprintf(chan, fd, "agi_extension: %s\n", chan->exten); + ast_agi_fdprintf(chan, fd, "agi_priority: %d\n", chan->priority); + ast_agi_fdprintf(chan, fd, "agi_enhanced: %s\n", enhanced ? "1.0" : "0.0"); + + /* User information */ + ast_agi_fdprintf(chan, fd, "agi_accountcode: %s\n", chan->accountcode ? chan->accountcode : ""); + ast_agi_fdprintf(chan, fd, "agi_threadid: %ld\n", (long)pthread_self()); + + /* Send any parameters to the fastagi server that have been passed via the agi application */ + /* Agi application paramaters take the form of: AGI(/path/to/example/script|${EXTEN}) */ + for(count = 1; count < argc; count++) + ast_agi_fdprintf(chan, fd, "agi_arg_%d: %s\n", count, argv[count]); + + /* End with empty return */ + ast_agi_fdprintf(chan, fd, "\n"); +} + +static int handle_answer(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res = 0; + + /* Answer the channel */ + if (chan->_state != AST_STATE_UP) + res = ast_answer(chan); + + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_waitfordigit(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, to; + + if (argc != 4) + return RESULT_SHOWUSAGE; + if (sscanf(argv[3], "%d", &to) != 1) + return RESULT_SHOWUSAGE; + res = ast_waitfordigit_full(chan, to, agi->audio, agi->ctrl); + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_sendtext(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res; + + if (argc != 3) + return RESULT_SHOWUSAGE; + + /* At the moment, the parser (perhaps broken) returns with + the last argument PLUS the newline at the end of the input + buffer. This probably needs to be fixed, but I wont do that + because other stuff may break as a result. The right way + would probably be to strip off the trailing newline before + parsing, then here, add a newline at the end of the string + before sending it to ast_sendtext --DUDE */ + res = ast_sendtext(chan, argv[2]); + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_recvchar(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res; + + if (argc != 3) + return RESULT_SHOWUSAGE; + + res = ast_recvchar(chan,atoi(argv[2])); + if (res == 0) { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (timeout)\n", res); + return RESULT_SUCCESS; + } + if (res > 0) { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return RESULT_SUCCESS; + } + else { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (hangup)\n", res); + return RESULT_FAILURE; + } +} + +static int handle_recvtext(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + char *buf; + + if (argc != 3) + return RESULT_SHOWUSAGE; + + buf = ast_recvtext(chan,atoi(argv[2])); + if (buf) { + ast_agi_fdprintf(chan, agi->fd, "200 result=1 (%s)\n", buf); + ast_free(buf); + } else { + ast_agi_fdprintf(chan, agi->fd, "200 result=-1\n"); + } + return RESULT_SUCCESS; +} + +static int handle_tddmode(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, x; + + if (argc != 3) + return RESULT_SHOWUSAGE; + + if (!strncasecmp(argv[2],"on",2)) + x = 1; + else + x = 0; + if (!strncasecmp(argv[2],"mate",4)) + x = 2; + if (!strncasecmp(argv[2],"tdd",3)) + x = 1; + res = ast_channel_setoption(chan, AST_OPTION_TDD, &x, sizeof(char), 0); + if (res != RESULT_SUCCESS) + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + return RESULT_SUCCESS; +} + +static int handle_sendimage(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res; + + if (argc != 3) + return RESULT_SHOWUSAGE; + + res = ast_send_image(chan, argv[2]); + if (!ast_check_hangup(chan)) + res = 0; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_controlstreamfile(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res = 0, skipms = 3000; + char *fwd = NULL, *rev = NULL, *pause = NULL, *stop = NULL; + + if (argc < 5 || argc > 9) + return RESULT_SHOWUSAGE; + + if (!ast_strlen_zero(argv[4])) + stop = argv[4]; + else + stop = NULL; + + if ((argc > 5) && (sscanf(argv[5], "%d", &skipms) != 1)) + return RESULT_SHOWUSAGE; + + if (argc > 6 && !ast_strlen_zero(argv[6])) + fwd = argv[6]; + else + fwd = "#"; + + if (argc > 7 && !ast_strlen_zero(argv[7])) + rev = argv[7]; + else + rev = "*"; + + if (argc > 8 && !ast_strlen_zero(argv[8])) + pause = argv[8]; + else + pause = NULL; + + res = ast_control_streamfile(chan, argv[3], fwd, rev, stop, pause, NULL, skipms, NULL); + + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_streamfile(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, vres; + struct ast_filestream *fs, *vfs; + long sample_offset = 0, max_length; + char *edigits = ""; + + if (argc < 4 || argc > 5) + return RESULT_SHOWUSAGE; + + if (argv[3]) + edigits = argv[3]; + + if ((argc > 4) && (sscanf(argv[4], "%ld", &sample_offset) != 1)) + return RESULT_SHOWUSAGE; + + if (!(fs = ast_openstream(chan, argv[2], chan->language))) { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d endpos=%ld\n", 0, sample_offset); + return RESULT_SUCCESS; + } + + if ((vfs = ast_openvstream(chan, argv[2], chan->language))) + ast_debug(1, "Ooh, found a video stream, too\n"); + + ast_verb(3, "Playing '%s' (escape_digits=%s) (sample_offset %ld)\n", argv[2], edigits, sample_offset); + + ast_seekstream(fs, 0, SEEK_END); + max_length = ast_tellstream(fs); + ast_seekstream(fs, sample_offset, SEEK_SET); + res = ast_applystream(chan, fs); + if (vfs) + vres = ast_applystream(chan, vfs); + ast_playstream(fs); + if (vfs) + ast_playstream(vfs); + + res = ast_waitstream_full(chan, argv[3], agi->audio, agi->ctrl); + /* this is to check for if ast_waitstream closed the stream, we probably are at + * the end of the stream, return that amount, else check for the amount */ + sample_offset = (chan->stream) ? ast_tellstream(fs) : max_length; + ast_stopstream(chan); + if (res == 1) { + /* Stop this command, don't print a result line, as there is a new command */ + return RESULT_SUCCESS; + } + ast_agi_fdprintf(chan, agi->fd, "200 result=%d endpos=%ld\n", res, sample_offset); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +/* get option - really similar to the handle_streamfile, but with a timeout */ +static int handle_getoption(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, vres; + struct ast_filestream *fs, *vfs; + long sample_offset = 0, max_length; + int timeout = 0; + char *edigits = ""; + + if ( argc < 4 || argc > 5 ) + return RESULT_SHOWUSAGE; + + if ( argv[3] ) + edigits = argv[3]; + + if ( argc == 5 ) + timeout = atoi(argv[4]); + else if (chan->pbx->dtimeout) { + /* by default dtimeout is set to 5sec */ + timeout = chan->pbx->dtimeout * 1000; /* in msec */ + } + + if (!(fs = ast_openstream(chan, argv[2], chan->language))) { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d endpos=%ld\n", 0, sample_offset); + ast_log(LOG_WARNING, "Unable to open %s\n", argv[2]); + return RESULT_SUCCESS; + } + + if ((vfs = ast_openvstream(chan, argv[2], chan->language))) + ast_debug(1, "Ooh, found a video stream, too\n"); + + ast_verb(3, "Playing '%s' (escape_digits=%s) (timeout %d)\n", argv[2], edigits, timeout); + + ast_seekstream(fs, 0, SEEK_END); + max_length = ast_tellstream(fs); + ast_seekstream(fs, sample_offset, SEEK_SET); + res = ast_applystream(chan, fs); + if (vfs) + vres = ast_applystream(chan, vfs); + ast_playstream(fs); + if (vfs) + ast_playstream(vfs); + + res = ast_waitstream_full(chan, argv[3], agi->audio, agi->ctrl); + /* this is to check for if ast_waitstream closed the stream, we probably are at + * the end of the stream, return that amount, else check for the amount */ + sample_offset = (chan->stream)?ast_tellstream(fs):max_length; + ast_stopstream(chan); + if (res == 1) { + /* Stop this command, don't print a result line, as there is a new command */ + return RESULT_SUCCESS; + } + + /* If the user didnt press a key, wait for digitTimeout*/ + if (res == 0 ) { + res = ast_waitfordigit_full(chan, timeout, agi->audio, agi->ctrl); + /* Make sure the new result is in the escape digits of the GET OPTION */ + if ( !strchr(edigits,res) ) + res=0; + } + + ast_agi_fdprintf(chan, agi->fd, "200 result=%d endpos=%ld\n", res, sample_offset); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + + + + +/*--- handle_saynumber: Say number in various language syntaxes ---*/ +/* While waiting, we're sending a NULL. */ +static int handle_saynumber(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, num; + + if (argc < 4 || argc > 5) + return RESULT_SHOWUSAGE; + if (sscanf(argv[2], "%d", &num) != 1) + return RESULT_SHOWUSAGE; + res = ast_say_number_full(chan, num, argv[3], chan->language, argc > 4 ? argv[4] : NULL, agi->audio, agi->ctrl); + if (res == 1) + return RESULT_SUCCESS; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_saydigits(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, num; + + if (argc != 4) + return RESULT_SHOWUSAGE; + if (sscanf(argv[2], "%d", &num) != 1) + return RESULT_SHOWUSAGE; + + res = ast_say_digit_str_full(chan, argv[2], argv[3], chan->language, agi->audio, agi->ctrl); + if (res == 1) /* New command */ + return RESULT_SUCCESS; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_sayalpha(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res; + + if (argc != 4) + return RESULT_SHOWUSAGE; + + res = ast_say_character_str_full(chan, argv[2], argv[3], chan->language, agi->audio, agi->ctrl); + if (res == 1) /* New command */ + return RESULT_SUCCESS; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_saydate(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, num; + + if (argc != 4) + return RESULT_SHOWUSAGE; + if (sscanf(argv[2], "%d", &num) != 1) + return RESULT_SHOWUSAGE; + res = ast_say_date(chan, num, argv[3], chan->language); + if (res == 1) + return RESULT_SUCCESS; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_saytime(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, num; + + if (argc != 4) + return RESULT_SHOWUSAGE; + if (sscanf(argv[2], "%d", &num) != 1) + return RESULT_SHOWUSAGE; + res = ast_say_time(chan, num, argv[3], chan->language); + if (res == 1) + return RESULT_SUCCESS; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_saydatetime(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res = 0; + time_t unixtime; + char *format, *zone = NULL; + + if (argc < 4) + return RESULT_SHOWUSAGE; + + if (argc > 4) { + format = argv[4]; + } else { + /* XXX this doesn't belong here, but in the 'say' module */ + if (!strcasecmp(chan->language, "de")) { + format = "A dBY HMS"; + } else { + format = "ABdY 'digits/at' IMp"; + } + } + + if (argc > 5 && !ast_strlen_zero(argv[5])) + zone = argv[5]; + + if (ast_get_time_t(argv[2], &unixtime, 0, NULL)) + return RESULT_SHOWUSAGE; + + res = ast_say_date_with_format(chan, unixtime, argv[3], chan->language, format, zone); + if (res == 1) + return RESULT_SUCCESS; + + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_sayphonetic(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res; + + if (argc != 4) + return RESULT_SHOWUSAGE; + + res = ast_say_phonetic_str_full(chan, argv[2], argv[3], chan->language, agi->audio, agi->ctrl); + if (res == 1) /* New command */ + return RESULT_SUCCESS; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + return (res >= 0) ? RESULT_SUCCESS : RESULT_FAILURE; +} + +static int handle_getdata(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int res, max, timeout; + char data[1024]; + + if (argc < 3) + return RESULT_SHOWUSAGE; + if (argc >= 4) + timeout = atoi(argv[3]); + else + timeout = 0; + if (argc >= 5) + max = atoi(argv[4]); + else + max = 1024; + res = ast_app_getdata_full(chan, argv[2], data, max, timeout, agi->audio, agi->ctrl); + if (res == 2) /* New command */ + return RESULT_SUCCESS; + else if (res == 1) + ast_agi_fdprintf(chan, agi->fd, "200 result=%s (timeout)\n", data); + else if (res < 0 ) + ast_agi_fdprintf(chan, agi->fd, "200 result=-1\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=%s\n", data); + return RESULT_SUCCESS; +} + +static int handle_setcontext(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + + if (argc != 3) + return RESULT_SHOWUSAGE; + ast_copy_string(chan->context, argv[2], sizeof(chan->context)); + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; +} + +static int handle_setextension(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + if (argc != 3) + return RESULT_SHOWUSAGE; + ast_copy_string(chan->exten, argv[2], sizeof(chan->exten)); + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; +} + +static int handle_setpriority(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + int pri; + + if (argc != 3) + return RESULT_SHOWUSAGE; + + if (sscanf(argv[2], "%d", &pri) != 1) { + if ((pri = ast_findlabel_extension(chan, chan->context, chan->exten, argv[2], chan->cid.cid_num)) < 1) + return RESULT_SHOWUSAGE; + } + + ast_explicit_goto(chan, NULL, NULL, pri); + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; +} + +static int handle_recordfile(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + struct ast_filestream *fs; + struct ast_frame *f; + struct timeval start; + long sample_offset = 0; + int res = 0; + int ms; + + struct ast_dsp *sildet=NULL; /* silence detector dsp */ + int totalsilence = 0; + int dspsilence = 0; + int silence = 0; /* amount of silence to allow */ + int gotsilence = 0; /* did we timeout for silence? */ + char *silencestr=NULL; + int rfmt=0; + + + /* XXX EAGI FIXME XXX */ + + if (argc < 6) + return RESULT_SHOWUSAGE; + if (sscanf(argv[5], "%d", &ms) != 1) + return RESULT_SHOWUSAGE; + + if (argc > 6) + silencestr = strchr(argv[6],'s'); + if ((argc > 7) && (!silencestr)) + silencestr = strchr(argv[7],'s'); + if ((argc > 8) && (!silencestr)) + silencestr = strchr(argv[8],'s'); + + if (silencestr) { + if (strlen(silencestr) > 2) { + if ((silencestr[0] == 's') && (silencestr[1] == '=')) { + silencestr++; + silencestr++; + if (silencestr) + silence = atoi(silencestr); + if (silence > 0) + silence *= 1000; + } + } + } + + if (silence > 0) { + rfmt = chan->readformat; + res = ast_set_read_format(chan, AST_FORMAT_SLINEAR); + if (res < 0) { + ast_log(LOG_WARNING, "Unable to set to linear mode, giving up\n"); + return -1; + } + sildet = ast_dsp_new(); + if (!sildet) { + ast_log(LOG_WARNING, "Unable to create silence detector :(\n"); + return -1; + } + ast_dsp_set_threshold(sildet, 256); + } + + /* backward compatibility, if no offset given, arg[6] would have been + * caught below and taken to be a beep, else if it is a digit then it is a + * offset */ + if ((argc >6) && (sscanf(argv[6], "%ld", &sample_offset) != 1) && (!strchr(argv[6], '='))) + res = ast_streamfile(chan, "beep", chan->language); + + if ((argc > 7) && (!strchr(argv[7], '='))) + res = ast_streamfile(chan, "beep", chan->language); + + if (!res) + res = ast_waitstream(chan, argv[4]); + if (res) { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (randomerror) endpos=%ld\n", res, sample_offset); + } else { + fs = ast_writefile(argv[2], argv[3], NULL, O_CREAT | O_WRONLY | (sample_offset ? O_APPEND : 0), 0, AST_FILE_MODE); + if (!fs) { + res = -1; + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (writefile)\n", res); + if (sildet) + ast_dsp_free(sildet); + return RESULT_FAILURE; + } + + /* Request a video update */ + ast_indicate(chan, AST_CONTROL_VIDUPDATE); + + chan->stream = fs; + ast_applystream(chan,fs); + /* really should have checks */ + ast_seekstream(fs, sample_offset, SEEK_SET); + ast_truncstream(fs); + + start = ast_tvnow(); + while ((ms < 0) || ast_tvdiff_ms(ast_tvnow(), start) < ms) { + res = ast_waitfor(chan, -1); + if (res < 0) { + ast_closestream(fs); + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (waitfor) endpos=%ld\n", res,sample_offset); + if (sildet) + ast_dsp_free(sildet); + return RESULT_FAILURE; + } + f = ast_read(chan); + if (!f) { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (hangup) endpos=%ld\n", -1, sample_offset); + ast_closestream(fs); + if (sildet) + ast_dsp_free(sildet); + return RESULT_FAILURE; + } + switch(f->frametype) { + case AST_FRAME_DTMF: + if (strchr(argv[4], f->subclass)) { + /* This is an interrupting chracter, so rewind to chop off any small + amount of DTMF that may have been recorded + */ + ast_stream_rewind(fs, 200); + ast_truncstream(fs); + sample_offset = ast_tellstream(fs); + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (dtmf) endpos=%ld\n", f->subclass, sample_offset); + ast_closestream(fs); + ast_frfree(f); + if (sildet) + ast_dsp_free(sildet); + return RESULT_SUCCESS; + } + break; + case AST_FRAME_VOICE: + ast_writestream(fs, f); + /* this is a safe place to check progress since we know that fs + * is valid after a write, and it will then have our current + * location */ + sample_offset = ast_tellstream(fs); + if (silence > 0) { + dspsilence = 0; + ast_dsp_silence(sildet, f, &dspsilence); + if (dspsilence) { + totalsilence = dspsilence; + } else { + totalsilence = 0; + } + if (totalsilence > silence) { + /* Ended happily with silence */ + gotsilence = 1; + break; + } + } + break; + case AST_FRAME_VIDEO: + ast_writestream(fs, f); + default: + /* Ignore all other frames */ + break; + } + ast_frfree(f); + if (gotsilence) + break; + } + + if (gotsilence) { + ast_stream_rewind(fs, silence-1000); + ast_truncstream(fs); + sample_offset = ast_tellstream(fs); + } + ast_agi_fdprintf(chan, agi->fd, "200 result=%d (timeout) endpos=%ld\n", res, sample_offset); + ast_closestream(fs); + } + + if (silence > 0) { + res = ast_set_read_format(chan, rfmt); + if (res) + ast_log(LOG_WARNING, "Unable to restore read format on '%s'\n", chan->name); + ast_dsp_free(sildet); + } + return RESULT_SUCCESS; +} + +static int handle_autohangup(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + int timeout; + + if (argc != 3) + return RESULT_SHOWUSAGE; + if (sscanf(argv[2], "%d", &timeout) != 1) + return RESULT_SHOWUSAGE; + if (timeout < 0) + timeout = 0; + if (timeout) + chan->whentohangup = time(NULL) + timeout; + else + chan->whentohangup = 0; + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; +} + +static int handle_hangup(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + struct ast_channel *c; + + if (argc == 1) { + /* no argument: hangup the current channel */ + ast_softhangup(chan,AST_SOFTHANGUP_EXPLICIT); + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + return RESULT_SUCCESS; + } else if (argc == 2) { + /* one argument: look for info on the specified channel */ + c = ast_get_channel_by_name_locked(argv[1]); + if (c) { + /* we have a matching channel */ + ast_softhangup(c,AST_SOFTHANGUP_EXPLICIT); + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + ast_channel_unlock(c); + return RESULT_SUCCESS; + } + /* if we get this far no channel name matched the argument given */ + ast_agi_fdprintf(chan, agi->fd, "200 result=-1\n"); + return RESULT_SUCCESS; + } else { + return RESULT_SHOWUSAGE; + } +} + +static int handle_exec(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + int res; + struct ast_app *app; + + if (argc < 2) + return RESULT_SHOWUSAGE; + + ast_verb(3, "AGI Script Executing Application: (%s) Options: (%s)\n", argv[1], argv[2]); + + if ((app = pbx_findapp(argv[1]))) { + res = pbx_exec(chan, app, argv[2]); + } else { + ast_log(LOG_WARNING, "Could not find application (%s)\n", argv[1]); + res = -2; + } + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", res); + + /* Even though this is wrong, users are depending upon this result. */ + return res; +} + +static int handle_setcallerid(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + char tmp[256]=""; + char *l = NULL, *n = NULL; + + if (argv[2]) { + ast_copy_string(tmp, argv[2], sizeof(tmp)); + ast_callerid_parse(tmp, &n, &l); + if (l) + ast_shrink_phone_number(l); + else + l = ""; + if (!n) + n = ""; + ast_set_callerid(chan, l, n, NULL); + } + + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + return RESULT_SUCCESS; +} + +static int handle_channelstatus(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + struct ast_channel *c; + if (argc == 2) { + /* no argument: supply info on the current channel */ + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", chan->_state); + return RESULT_SUCCESS; + } else if (argc == 3) { + /* one argument: look for info on the specified channel */ + c = ast_get_channel_by_name_locked(argv[2]); + if (c) { + ast_agi_fdprintf(chan, agi->fd, "200 result=%d\n", c->_state); + ast_channel_unlock(c); + return RESULT_SUCCESS; + } + /* if we get this far no channel name matched the argument given */ + ast_agi_fdprintf(chan, agi->fd, "200 result=-1\n"); + return RESULT_SUCCESS; + } else { + return RESULT_SHOWUSAGE; + } +} + +static int handle_setvariable(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + if (argv[3]) + pbx_builtin_setvar_helper(chan, argv[2], argv[3]); + + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + return RESULT_SUCCESS; +} + +static int handle_getvariable(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + char *ret; + char tempstr[1024]; + + if (argc != 3) + return RESULT_SHOWUSAGE; + + /* check if we want to execute an ast_custom_function */ + if (!ast_strlen_zero(argv[2]) && (argv[2][strlen(argv[2]) - 1] == ')')) { + ret = ast_func_read(chan, argv[2], tempstr, sizeof(tempstr)) ? NULL : tempstr; + } else { + pbx_retrieve_variable(chan, argv[2], &ret, tempstr, sizeof(tempstr), NULL); + } + + if (ret) + ast_agi_fdprintf(chan, agi->fd, "200 result=1 (%s)\n", ret); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + + return RESULT_SUCCESS; +} + +static int handle_getvariablefull(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + char tmp[4096]; + struct ast_channel *chan2=NULL; + + if ((argc != 4) && (argc != 5)) + return RESULT_SHOWUSAGE; + if (argc == 5) { + chan2 = ast_get_channel_by_name_locked(argv[4]); + } else { + chan2 = chan; + } + if (chan2) { + pbx_substitute_variables_helper(chan2, argv[3], tmp, sizeof(tmp) - 1); + ast_agi_fdprintf(chan, agi->fd, "200 result=1 (%s)\n", tmp); + } else { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + } + if (chan2 && (chan2 != chan)) + ast_channel_unlock(chan2); + return RESULT_SUCCESS; +} + +static int handle_verbose(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + int level = 0; + char *prefix; + + if (argc < 2) + return RESULT_SHOWUSAGE; + + if (argv[2]) + sscanf(argv[2], "%d", &level); + + switch (level) { + case 4: + prefix = VERBOSE_PREFIX_4; + break; + case 3: + prefix = VERBOSE_PREFIX_3; + break; + case 2: + prefix = VERBOSE_PREFIX_2; + break; + case 1: + default: + prefix = VERBOSE_PREFIX_1; + break; + } + + if (level <= option_verbose) + ast_verbose("%s %s: %s\n", prefix, chan->data, argv[1]); + + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + + return RESULT_SUCCESS; +} + +static int handle_dbget(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + int res; + char tmp[256]; + + if (argc != 4) + return RESULT_SHOWUSAGE; + res = ast_db_get(argv[2], argv[3], tmp, sizeof(tmp)); + if (res) + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=1 (%s)\n", tmp); + + return RESULT_SUCCESS; +} + +static int handle_dbput(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + int res; + + if (argc != 5) + return RESULT_SHOWUSAGE; + res = ast_db_put(argv[2], argv[3], argv[4]); + ast_agi_fdprintf(chan, agi->fd, "200 result=%c\n", res ? '0' : '1'); + return RESULT_SUCCESS; +} + +static int handle_dbdel(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + int res; + + if (argc != 4) + return RESULT_SHOWUSAGE; + res = ast_db_del(argv[2], argv[3]); + ast_agi_fdprintf(chan, agi->fd, "200 result=%c\n", res ? '0' : '1'); + return RESULT_SUCCESS; +} + +static int handle_dbdeltree(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + int res; + + if ((argc < 3) || (argc > 4)) + return RESULT_SHOWUSAGE; + if (argc == 4) + res = ast_db_deltree(argv[2], argv[3]); + else + res = ast_db_deltree(argv[2], NULL); + + ast_agi_fdprintf(chan, agi->fd, "200 result=%c\n", res ? '0' : '1'); + return RESULT_SUCCESS; +} + +static char *handle_cli_agi_debug(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a) +{ + switch (cmd) { + case CLI_INIT: + e->command = "agi debug [off]"; + e->usage = + "Usage: agi debug [off]\n" + " Enables/disables dumping of AGI transactions for\n" + " debugging purposes.\n"; + return NULL; + + case CLI_GENERATE: + return NULL; + } + if (a->argc < e->args - 1 || a->argc > e->args ) + return CLI_SHOWUSAGE; + if (a->argc == e->args - 1) { + agidebug = 1; + } else { + if (strncasecmp(a->argv[e->args - 1], "off", 3) == 0) { + agidebug = 0; + } else { + return CLI_SHOWUSAGE; + } + } + ast_cli(a->fd, "AGI Debugging %sabled\n", agidebug ? "En" : "Dis"); + return CLI_SUCCESS; +} + +static int handle_noop(struct ast_channel *chan, AGI *agi, int arg, char *argv[]) +{ + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; +} + +static int handle_setmusic(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + if (!strncasecmp(argv[2], "on", 2)) + ast_moh_start(chan, argc > 3 ? argv[3] : NULL, NULL); + else if (!strncasecmp(argv[2], "off", 3)) + ast_moh_stop(chan); + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; +} + +static int handle_speechcreate(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + /* If a structure already exists, return an error */ + if (agi->speech) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + if ((agi->speech = ast_speech_new(argv[2], AST_FORMAT_SLINEAR))) + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + + return RESULT_SUCCESS; +} + +static int handle_speechset(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + /* Check for minimum arguments */ + if (argc != 3) + return RESULT_SHOWUSAGE; + + /* Check to make sure speech structure exists */ + if (!agi->speech) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + ast_speech_change(agi->speech, argv[2], argv[3]); + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + + return RESULT_SUCCESS; +} + +static int handle_speechdestroy(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + if (agi->speech) { + ast_speech_destroy(agi->speech); + agi->speech = NULL; + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + } else { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + } + + return RESULT_SUCCESS; +} + +static int handle_speechloadgrammar(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + if (argc != 5) + return RESULT_SHOWUSAGE; + + if (!agi->speech) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + if (ast_speech_grammar_load(agi->speech, argv[3], argv[4])) + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + + return RESULT_SUCCESS; +} + +static int handle_speechunloadgrammar(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + if (argc != 4) + return RESULT_SHOWUSAGE; + + if (!agi->speech) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + if (ast_speech_grammar_unload(agi->speech, argv[3])) + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + + return RESULT_SUCCESS; +} + +static int handle_speechactivategrammar(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + if (argc != 4) + return RESULT_SHOWUSAGE; + + if (!agi->speech) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + if (ast_speech_grammar_activate(agi->speech, argv[3])) + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + + return RESULT_SUCCESS; +} + +static int handle_speechdeactivategrammar(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + if (argc != 4) + return RESULT_SHOWUSAGE; + + if (!agi->speech) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + if (ast_speech_grammar_deactivate(agi->speech, argv[3])) + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + else + ast_agi_fdprintf(chan, agi->fd, "200 result=1\n"); + + return RESULT_SUCCESS; +} + +static int speech_streamfile(struct ast_channel *chan, const char *filename, const char *preflang, int offset) +{ + struct ast_filestream *fs = NULL; + + if (!(fs = ast_openstream(chan, filename, preflang))) + return -1; + + if (offset) + ast_seekstream(fs, offset, SEEK_SET); + + if (ast_applystream(chan, fs)) + return -1; + + if (ast_playstream(fs)) + return -1; + + return 0; +} + +static int handle_speechrecognize(struct ast_channel *chan, AGI *agi, int argc, char **argv) +{ + struct ast_speech *speech = agi->speech; + char *prompt, dtmf = 0, tmp[4096] = "", *buf = tmp; + int timeout = 0, offset = 0, old_read_format = 0, res = 0, i = 0; + long current_offset = 0; + const char *reason = NULL; + struct ast_frame *fr = NULL; + struct ast_speech_result *result = NULL; + size_t left = sizeof(tmp); + time_t start = 0, current; + + if (argc < 4) + return RESULT_SHOWUSAGE; + + if (!speech) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + prompt = argv[2]; + timeout = atoi(argv[3]); + + /* If offset is specified then convert from text to integer */ + if (argc == 5) + offset = atoi(argv[4]); + + /* We want frames coming in signed linear */ + old_read_format = chan->readformat; + if (ast_set_read_format(chan, AST_FORMAT_SLINEAR)) { + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return RESULT_SUCCESS; + } + + /* Setup speech structure */ + if (speech->state == AST_SPEECH_STATE_NOT_READY || speech->state == AST_SPEECH_STATE_DONE) { + ast_speech_change_state(speech, AST_SPEECH_STATE_NOT_READY); + ast_speech_start(speech); + } + + /* Start playing prompt */ + speech_streamfile(chan, prompt, chan->language, offset); + + /* Go into loop reading in frames, passing to speech thingy, checking for hangup, all that jazz */ + while (ast_strlen_zero(reason)) { + /* Run scheduled items */ + ast_sched_runq(chan->sched); + + /* See maximum time of waiting */ + if ((res = ast_sched_wait(chan->sched)) < 0) + res = 1000; + + /* Wait for frame */ + if (ast_waitfor(chan, res) > 0) { + if (!(fr = ast_read(chan))) { + reason = "hangup"; + break; + } + } + + /* Perform timeout check */ + if ((timeout > 0) && (start > 0)) { + time(¤t); + if ((current - start) >= timeout) { + reason = "timeout"; + if (fr) + ast_frfree(fr); + break; + } + } + + /* Check the speech structure for any changes */ + ast_mutex_lock(&speech->lock); + + /* See if we need to quiet the audio stream playback */ + if (ast_test_flag(speech, AST_SPEECH_QUIET) && chan->stream) { + current_offset = ast_tellstream(chan->stream); + ast_stopstream(chan); + ast_clear_flag(speech, AST_SPEECH_QUIET); + } + + /* Check each state */ + switch (speech->state) { + case AST_SPEECH_STATE_READY: + /* If the stream is done, start timeout calculation */ + if ((timeout > 0) && ((!chan->stream) || (chan->streamid == -1 && chan->timingfunc == NULL))) { + ast_stopstream(chan); + time(&start); + } + /* Write audio frame data into speech engine if possible */ + if (fr && fr->frametype == AST_FRAME_VOICE) + ast_speech_write(speech, fr->data, fr->datalen); + break; + case AST_SPEECH_STATE_WAIT: + /* Cue waiting sound if not already playing */ + if ((!chan->stream) || (chan->streamid == -1 && chan->timingfunc == NULL)) { + ast_stopstream(chan); + /* If a processing sound exists, or is not none - play it */ + if (!ast_strlen_zero(speech->processing_sound) && strcasecmp(speech->processing_sound, "none")) + speech_streamfile(chan, speech->processing_sound, chan->language, 0); + } + break; + case AST_SPEECH_STATE_DONE: + /* Get the results */ + speech->results = ast_speech_results_get(speech); + /* Change state to not ready */ + ast_speech_change_state(speech, AST_SPEECH_STATE_NOT_READY); + reason = "speech"; + break; + default: + break; + } + ast_mutex_unlock(&speech->lock); + + /* Check frame for DTMF or hangup */ + if (fr) { + if (fr->frametype == AST_FRAME_DTMF) { + reason = "dtmf"; + dtmf = fr->subclass; + } else if (fr->frametype == AST_FRAME_CONTROL && fr->subclass == AST_CONTROL_HANGUP) { + reason = "hangup"; + } + ast_frfree(fr); + } + } + + if (!strcasecmp(reason, "speech")) { + /* Build string containing speech results */ + for (result = speech->results; result; result = AST_LIST_NEXT(result, list)) { + /* Build result string */ + ast_build_string(&buf, &left, "%sscore%d=%d text%d=\"%s\" grammar%d=%s", (i > 0 ? " " : ""), i, result->score, i, result->text, i, result->grammar); + /* Increment result count */ + i++; + } + /* Print out */ + ast_agi_fdprintf(chan, agi->fd, "200 result=1 (speech) endpos=%ld results=%d %s\n", current_offset, i, tmp); + } else if (!strcasecmp(reason, "dtmf")) { + ast_agi_fdprintf(chan, agi->fd, "200 result=1 (digit) digit=%c endpos=%ld\n", dtmf, current_offset); + } else if (!strcasecmp(reason, "hangup") || !strcasecmp(reason, "timeout")) { + ast_agi_fdprintf(chan, agi->fd, "200 result=1 (%s) endpos=%ld\n", reason, current_offset); + } else { + ast_agi_fdprintf(chan, agi->fd, "200 result=0 endpos=%ld\n", current_offset); + } + + return RESULT_SUCCESS; +} + +static int handle_asyncagi_break(struct ast_channel *chan, AGI *agi, int argc, char *argv[]) +{ + ast_agi_fdprintf(chan, agi->fd, "200 result=0\n"); + return AST_PBX_KEEPALIVE; +} + +static char usage_setmusic[] = +" Usage: SET MUSIC ON <on|off> <class>\n" +" Enables/Disables the music on hold generator. If <class> is\n" +" not specified, then the default music on hold class will be used.\n" +" Always returns 0.\n"; + +static char usage_dbput[] = +" Usage: DATABASE PUT <family> <key> <value>\n" +" Adds or updates an entry in the Asterisk database for a\n" +" given family, key, and value.\n" +" Returns 1 if successful, 0 otherwise.\n"; + +static char usage_dbget[] = +" Usage: DATABASE GET <family> <key>\n" +" Retrieves an entry in the Asterisk database for a\n" +" given family and key.\n" +" Returns 0 if <key> is not set. Returns 1 if <key>\n" +" is set and returns the variable in parentheses.\n" +" Example return code: 200 result=1 (testvariable)\n"; + +static char usage_dbdel[] = +" Usage: DATABASE DEL <family> <key>\n" +" Deletes an entry in the Asterisk database for a\n" +" given family and key.\n" +" Returns 1 if successful, 0 otherwise.\n"; + +static char usage_dbdeltree[] = +" Usage: DATABASE DELTREE <family> [keytree]\n" +" Deletes a family or specific keytree within a family\n" +" in the Asterisk database.\n" +" Returns 1 if successful, 0 otherwise.\n"; + +static char usage_verbose[] = +" Usage: VERBOSE <message> <level>\n" +" Sends <message> to the console via verbose message system.\n" +" <level> is the the verbose level (1-4)\n" +" Always returns 1.\n"; + +static char usage_getvariable[] = +" Usage: GET VARIABLE <variablename>\n" +" Returns 0 if <variablename> is not set. Returns 1 if <variablename>\n" +" is set and returns the variable in parentheses.\n" +" example return code: 200 result=1 (testvariable)\n"; + +static char usage_getvariablefull[] = +" Usage: GET FULL VARIABLE <variablename> [<channel name>]\n" +" Returns 0 if <variablename> is not set or channel does not exist. Returns 1\n" +"if <variablename> is set and returns the variable in parenthesis. Understands\n" +"complex variable names and builtin variables, unlike GET VARIABLE.\n" +" example return code: 200 result=1 (testvariable)\n"; + +static char usage_setvariable[] = +" Usage: SET VARIABLE <variablename> <value>\n"; + +static char usage_channelstatus[] = +" Usage: CHANNEL STATUS [<channelname>]\n" +" Returns the status of the specified channel.\n" +" If no channel name is given the returns the status of the\n" +" current channel. Return values:\n" +" 0 Channel is down and available\n" +" 1 Channel is down, but reserved\n" +" 2 Channel is off hook\n" +" 3 Digits (or equivalent) have been dialed\n" +" 4 Line is ringing\n" +" 5 Remote end is ringing\n" +" 6 Line is up\n" +" 7 Line is busy\n"; + +static char usage_setcallerid[] = +" Usage: SET CALLERID <number>\n" +" Changes the callerid of the current channel.\n"; + +static char usage_exec[] = +" Usage: EXEC <application> <options>\n" +" Executes <application> with given <options>.\n" +" Returns whatever the application returns, or -2 on failure to find application\n"; + +static char usage_hangup[] = +" Usage: HANGUP [<channelname>]\n" +" Hangs up the specified channel.\n" +" If no channel name is given, hangs up the current channel\n"; + +static char usage_answer[] = +" Usage: ANSWER\n" +" Answers channel if not already in answer state. Returns -1 on\n" +" channel failure, or 0 if successful.\n"; + +static char usage_waitfordigit[] = +" Usage: WAIT FOR DIGIT <timeout>\n" +" Waits up to 'timeout' milliseconds for channel to receive a DTMF digit.\n" +" Returns -1 on channel failure, 0 if no digit is received in the timeout, or\n" +" the numerical value of the ascii of the digit if one is received. Use -1\n" +" for the timeout value if you desire the call to block indefinitely.\n"; + +static char usage_sendtext[] = +" Usage: SEND TEXT \"<text to send>\"\n" +" Sends the given text on a channel. Most channels do not support the\n" +" transmission of text. Returns 0 if text is sent, or if the channel does not\n" +" support text transmission. Returns -1 only on error/hangup. Text\n" +" consisting of greater than one word should be placed in quotes since the\n" +" command only accepts a single argument.\n"; + +static char usage_recvchar[] = +" Usage: RECEIVE CHAR <timeout>\n" +" Receives a character of text on a channel. Specify timeout to be the\n" +" maximum time to wait for input in milliseconds, or 0 for infinite. Most channels\n" +" do not support the reception of text. Returns the decimal value of the character\n" +" if one is received, or 0 if the channel does not support text reception. Returns\n" +" -1 only on error/hangup.\n"; + +static char usage_recvtext[] = +" Usage: RECEIVE TEXT <timeout>\n" +" Receives a string of text on a channel. Specify timeout to be the\n" +" maximum time to wait for input in milliseconds, or 0 for infinite. Most channels\n" +" do not support the reception of text. Returns -1 for failure or 1 for success, and the string in parentheses.\n"; + +static char usage_tddmode[] = +" Usage: TDD MODE <on|off>\n" +" Enable/Disable TDD transmission/reception on a channel. Returns 1 if\n" +" successful, or 0 if channel is not TDD-capable.\n"; + +static char usage_sendimage[] = +" Usage: SEND IMAGE <image>\n" +" Sends the given image on a channel. Most channels do not support the\n" +" transmission of images. Returns 0 if image is sent, or if the channel does not\n" +" support image transmission. Returns -1 only on error/hangup. Image names\n" +" should not include extensions.\n"; + +static char usage_streamfile[] = +" Usage: STREAM FILE <filename> <escape digits> [sample offset]\n" +" Send the given file, allowing playback to be interrupted by the given\n" +" digits, if any. Use double quotes for the digits if you wish none to be\n" +" permitted. If sample offset is provided then the audio will seek to sample\n" +" offset before play starts. Returns 0 if playback completes without a digit\n" +" being pressed, or the ASCII numerical value of the digit if one was pressed,\n" +" or -1 on error or if the channel was disconnected. Remember, the file\n" +" extension must not be included in the filename.\n"; + +static char usage_controlstreamfile[] = +" Usage: CONTROL STREAM FILE <filename> <escape digits> [skipms] [ffchar] [rewchr] [pausechr]\n" +" Send the given file, allowing playback to be controled by the given\n" +" digits, if any. Use double quotes for the digits if you wish none to be\n" +" permitted. Returns 0 if playback completes without a digit\n" +" being pressed, or the ASCII numerical value of the digit if one was pressed,\n" +" or -1 on error or if the channel was disconnected. Remember, the file\n" +" extension must not be included in the filename.\n\n" +" Note: ffchar and rewchar default to * and # respectively.\n"; + +static char usage_getoption[] = +" Usage: GET OPTION <filename> <escape_digits> [timeout]\n" +" Behaves similar to STREAM FILE but used with a timeout option.\n"; + +static char usage_saynumber[] = +" Usage: SAY NUMBER <number> <escape digits> [gender]\n" +" Say a given number, returning early if any of the given DTMF digits\n" +" are received on the channel. Returns 0 if playback completes without a digit\n" +" being pressed, or the ASCII numerical value of the digit if one was pressed or\n" +" -1 on error/hangup.\n"; + +static char usage_saydigits[] = +" Usage: SAY DIGITS <number> <escape digits>\n" +" Say a given digit string, returning early if any of the given DTMF digits\n" +" are received on the channel. Returns 0 if playback completes without a digit\n" +" being pressed, or the ASCII numerical value of the digit if one was pressed or\n" +" -1 on error/hangup.\n"; + +static char usage_sayalpha[] = +" Usage: SAY ALPHA <number> <escape digits>\n" +" Say a given character string, returning early if any of the given DTMF digits\n" +" are received on the channel. Returns 0 if playback completes without a digit\n" +" being pressed, or the ASCII numerical value of the digit if one was pressed or\n" +" -1 on error/hangup.\n"; + +static char usage_saydate[] = +" Usage: SAY DATE <date> <escape digits>\n" +" Say a given date, returning early if any of the given DTMF digits are\n" +" received on the channel. <date> is number of seconds elapsed since 00:00:00\n" +" on January 1, 1970, Coordinated Universal Time (UTC). Returns 0 if playback\n" +" completes without a digit being pressed, or the ASCII numerical value of the\n" +" digit if one was pressed or -1 on error/hangup.\n"; + +static char usage_saytime[] = +" Usage: SAY TIME <time> <escape digits>\n" +" Say a given time, returning early if any of the given DTMF digits are\n" +" received on the channel. <time> is number of seconds elapsed since 00:00:00\n" +" on January 1, 1970, Coordinated Universal Time (UTC). Returns 0 if playback\n" +" completes without a digit being pressed, or the ASCII numerical value of the\n" +" digit if one was pressed or -1 on error/hangup.\n"; + +static char usage_saydatetime[] = +" Usage: SAY DATETIME <time> <escape digits> [format] [timezone]\n" +" Say a given time, returning early if any of the given DTMF digits are\n" +" received on the channel. <time> is number of seconds elapsed since 00:00:00\n" +" on January 1, 1970, Coordinated Universal Time (UTC). [format] is the format\n" +" the time should be said in. See voicemail.conf (defaults to \"ABdY\n" +" 'digits/at' IMp\"). Acceptable values for [timezone] can be found in\n" +" /usr/share/zoneinfo. Defaults to machine default. Returns 0 if playback\n" +" completes without a digit being pressed, or the ASCII numerical value of the\n" +" digit if one was pressed or -1 on error/hangup.\n"; + +static char usage_sayphonetic[] = +" Usage: SAY PHONETIC <string> <escape digits>\n" +" Say a given character string with phonetics, returning early if any of the\n" +" given DTMF digits are received on the channel. Returns 0 if playback\n" +" completes without a digit pressed, the ASCII numerical value of the digit\n" +" if one was pressed, or -1 on error/hangup.\n"; + +static char usage_getdata[] = +" Usage: GET DATA <file to be streamed> [timeout] [max digits]\n" +" Stream the given file, and recieve DTMF data. Returns the digits received\n" +"from the channel at the other end.\n"; + +static char usage_setcontext[] = +" Usage: SET CONTEXT <desired context>\n" +" Sets the context for continuation upon exiting the application.\n"; + +static char usage_setextension[] = +" Usage: SET EXTENSION <new extension>\n" +" Changes the extension for continuation upon exiting the application.\n"; + +static char usage_setpriority[] = +" Usage: SET PRIORITY <priority>\n" +" Changes the priority for continuation upon exiting the application.\n" +" The priority must be a valid priority or label.\n"; + +static char usage_recordfile[] = +" Usage: RECORD FILE <filename> <format> <escape digits> <timeout> \\\n" +" [offset samples] [BEEP] [s=silence]\n" +" Record to a file until a given dtmf digit in the sequence is received\n" +" Returns -1 on hangup or error. The format will specify what kind of file\n" +" will be recorded. The timeout is the maximum record time in milliseconds, or\n" +" -1 for no timeout. \"Offset samples\" is optional, and, if provided, will seek\n" +" to the offset without exceeding the end of the file. \"silence\" is the number\n" +" of seconds of silence allowed before the function returns despite the\n" +" lack of dtmf digits or reaching timeout. Silence value must be\n" +" preceeded by \"s=\" and is also optional.\n"; + +static char usage_autohangup[] = +" Usage: SET AUTOHANGUP <time>\n" +" Cause the channel to automatically hangup at <time> seconds in the\n" +" future. Of course it can be hungup before then as well. Setting to 0 will\n" +" cause the autohangup feature to be disabled on this channel.\n"; + +static char usage_break_aagi[] = +" Usage: ASYNCAGI BREAK\n" +" Break the Async AGI loop.\n"; + +static char usage_noop[] = +" Usage: NoOp\n" +" Does nothing.\n"; + +static char usage_speechcreate[] = +" Usage: SPEECH CREATE <engine>\n" +" Create a speech object to be used by the other Speech AGI commands.\n"; + +static char usage_speechset[] = +" Usage: SPEECH SET <name> <value>\n" +" Set an engine-specific setting.\n"; + +static char usage_speechdestroy[] = +" Usage: SPEECH DESTROY\n" +" Destroy the speech object created by SPEECH CREATE.\n"; + +static char usage_speechloadgrammar[] = +" Usage: SPEECH LOAD GRAMMAR <grammar name> <path to grammar>\n" +" Loads the specified grammar as the specified name.\n"; + +static char usage_speechunloadgrammar[] = +" Usage: SPEECH UNLOAD GRAMMAR <grammar name>\n" +" Unloads the specified grammar.\n"; + +static char usage_speechactivategrammar[] = +" Usage: SPEECH ACTIVATE GRAMMAR <grammar name>\n" +" Activates the specified grammar on the speech object.\n"; + +static char usage_speechdeactivategrammar[] = +" Usage: SPEECH DEACTIVATE GRAMMAR <grammar name>\n" +" Deactivates the specified grammar on the speech object.\n"; + +static char usage_speechrecognize[] = +" Usage: SPEECH RECOGNIZE <prompt> <timeout> [<offset>]\n" +" Plays back given prompt while listening for speech and dtmf.\n"; + +/*! + * \brief AGI commands list + */ +static struct agi_command commands[] = { + { { "answer", NULL }, handle_answer, "Answer channel", usage_answer , 0 }, + { { "channel", "status", NULL }, handle_channelstatus, "Returns status of the connected channel", usage_channelstatus , 0 }, + { { "database", "del", NULL }, handle_dbdel, "Removes database key/value", usage_dbdel , 1 }, + { { "database", "deltree", NULL }, handle_dbdeltree, "Removes database keytree/value", usage_dbdeltree , 1 }, + { { "database", "get", NULL }, handle_dbget, "Gets database value", usage_dbget , 1 }, + { { "database", "put", NULL }, handle_dbput, "Adds/updates database value", usage_dbput , 1 }, + { { "exec", NULL }, handle_exec, "Executes a given Application", usage_exec , 1 }, + { { "get", "data", NULL }, handle_getdata, "Prompts for DTMF on a channel", usage_getdata , 0 }, + { { "get", "full", "variable", NULL }, handle_getvariablefull, "Evaluates a channel expression", usage_getvariablefull , 1 }, + { { "get", "option", NULL }, handle_getoption, "Stream file, prompt for DTMF, with timeout", usage_getoption , 0 }, + { { "get", "variable", NULL }, handle_getvariable, "Gets a channel variable", usage_getvariable , 1 }, + { { "hangup", NULL }, handle_hangup, "Hangup the current channel", usage_hangup , 0 }, + { { "noop", NULL }, handle_noop, "Does nothing", usage_noop , 1 }, + { { "receive", "char", NULL }, handle_recvchar, "Receives one character from channels supporting it", usage_recvchar , 0 }, + { { "receive", "text", NULL }, handle_recvtext, "Receives text from channels supporting it", usage_recvtext , 0 }, + { { "record", "file", NULL }, handle_recordfile, "Records to a given file", usage_recordfile , 0 }, + { { "say", "alpha", NULL }, handle_sayalpha, "Says a given character string", usage_sayalpha , 0 }, + { { "say", "digits", NULL }, handle_saydigits, "Says a given digit string", usage_saydigits , 0 }, + { { "say", "number", NULL }, handle_saynumber, "Says a given number", usage_saynumber , 0 }, + { { "say", "phonetic", NULL }, handle_sayphonetic, "Says a given character string with phonetics", usage_sayphonetic , 0 }, + { { "say", "date", NULL }, handle_saydate, "Says a given date", usage_saydate , 0 }, + { { "say", "time", NULL }, handle_saytime, "Says a given time", usage_saytime , 0 }, + { { "say", "datetime", NULL }, handle_saydatetime, "Says a given time as specfied by the format given", usage_saydatetime , 0 }, + { { "send", "image", NULL }, handle_sendimage, "Sends images to channels supporting it", usage_sendimage , 0 }, + { { "send", "text", NULL }, handle_sendtext, "Sends text to channels supporting it", usage_sendtext , 0 }, + { { "set", "autohangup", NULL }, handle_autohangup, "Autohangup channel in some time", usage_autohangup , 0 }, + { { "set", "callerid", NULL }, handle_setcallerid, "Sets callerid for the current channel", usage_setcallerid , 0 }, + { { "set", "context", NULL }, handle_setcontext, "Sets channel context", usage_setcontext , 0 }, + { { "set", "extension", NULL }, handle_setextension, "Changes channel extension", usage_setextension , 0 }, + { { "set", "music", NULL }, handle_setmusic, "Enable/Disable Music on hold generator", usage_setmusic , 0 }, + { { "set", "priority", NULL }, handle_setpriority, "Set channel dialplan priority", usage_setpriority , 0 }, + { { "set", "variable", NULL }, handle_setvariable, "Sets a channel variable", usage_setvariable , 1 }, + { { "stream", "file", NULL }, handle_streamfile, "Sends audio file on channel", usage_streamfile , 0 }, + { { "control", "stream", "file", NULL }, handle_controlstreamfile, "Sends audio file on channel and allows the listner to control the stream", usage_controlstreamfile , 0 }, + { { "tdd", "mode", NULL }, handle_tddmode, "Toggles TDD mode (for the deaf)", usage_tddmode , 0 }, + { { "verbose", NULL }, handle_verbose, "Logs a message to the asterisk verbose log", usage_verbose , 1 }, + { { "wait", "for", "digit", NULL }, handle_waitfordigit, "Waits for a digit to be pressed", usage_waitfordigit , 0 }, + { { "speech", "create", NULL }, handle_speechcreate, "Creates a speech object", usage_speechcreate, 0 }, + { { "speech", "set", NULL }, handle_speechset, "Sets a speech engine setting", usage_speechset, 0 }, + { { "speech", "destroy", NULL }, handle_speechdestroy, "Destroys a speech object", usage_speechdestroy, 1 }, + { { "speech", "load", "grammar", NULL }, handle_speechloadgrammar, "Loads a grammar", usage_speechloadgrammar, 0 }, + { { "speech", "unload", "grammar", NULL }, handle_speechunloadgrammar, "Unloads a grammar", usage_speechunloadgrammar, 1 }, + { { "speech", "activate", "grammar", NULL }, handle_speechactivategrammar, "Activates a grammar", usage_speechactivategrammar, 0 }, + { { "speech", "deactivate", "grammar", NULL }, handle_speechdeactivategrammar, "Deactivates a grammar", usage_speechdeactivategrammar, 0 }, + { { "speech", "recognize", NULL }, handle_speechrecognize, "Recognizes speech", usage_speechrecognize, 0 }, + { { "asyncagi", "break", NULL }, handle_asyncagi_break, "Break AsyncAGI loop", usage_break_aagi, 0 }, +}; + +static AST_RWLIST_HEAD_STATIC(agi_commands, agi_command); + +static char *help_workhorse(int fd, char *match[]) +{ + char fullcmd[80], matchstr[80]; + struct agi_command *e; + + if (match) + ast_join(matchstr, sizeof(matchstr), match); + + ast_cli(fd, "%5.5s %30.30s %s\n","Dead","Command","Description"); + AST_RWLIST_RDLOCK(&agi_commands); + AST_RWLIST_TRAVERSE(&agi_commands, e, list) { + if (!e->cmda[0]) + break; + /* Hide commands that start with '_' */ + if ((e->cmda[0])[0] == '_') + continue; + ast_join(fullcmd, sizeof(fullcmd), e->cmda); + if (match && strncasecmp(matchstr, fullcmd, strlen(matchstr))) + continue; + ast_cli(fd, "%5.5s %30.30s %s\n", e->dead ? "Yes" : "No" , fullcmd, e->summary); + } + AST_RWLIST_UNLOCK(&agi_commands); + + return CLI_SUCCESS; +} + +int ast_agi_register(struct ast_module *mod, agi_command *cmd) +{ + char fullcmd[80]; + + ast_join(fullcmd, sizeof(fullcmd), cmd->cmda); + + if (!find_command(cmd->cmda,1)) { + cmd->mod = mod; + AST_RWLIST_WRLOCK(&agi_commands); + AST_LIST_INSERT_TAIL(&agi_commands, cmd, list); + AST_RWLIST_UNLOCK(&agi_commands); + if (mod != ast_module_info->self) + ast_module_ref(ast_module_info->self); + ast_verb(2, "AGI Command '%s' registered\n",fullcmd); + return 1; + } else { + ast_log(LOG_WARNING, "Command already registered!\n"); + return 0; + } +} + +int ast_agi_unregister(struct ast_module *mod, agi_command *cmd) +{ + struct agi_command *e; + int unregistered = 0; + char fullcmd[80]; + + ast_join(fullcmd, sizeof(fullcmd), cmd->cmda); + + AST_RWLIST_WRLOCK(&agi_commands); + AST_RWLIST_TRAVERSE_SAFE_BEGIN(&agi_commands, e, list) { + if (cmd == e) { + AST_RWLIST_REMOVE_CURRENT(list); + if (mod != ast_module_info->self) + ast_module_unref(ast_module_info->self); + unregistered=1; + break; + } + } + AST_RWLIST_TRAVERSE_SAFE_END; + AST_RWLIST_UNLOCK(&agi_commands); + if (unregistered) + ast_verb(2, "AGI Command '%s' unregistered\n",fullcmd); + else + ast_log(LOG_WARNING, "Unable to unregister command: '%s'!\n",fullcmd); + return unregistered; +} + +void ast_agi_register_multiple(struct ast_module *mod, agi_command *cmd, int len) +{ + int i; + + for (i = 0; i < len; i++) + ast_agi_register(mod, cmd + i); + +} + +void ast_agi_unregister_multiple(struct ast_module *mod, agi_command *cmd, int len) +{ + int i; + + for (i = 0; i < len; i++) + ast_agi_unregister(mod, cmd + i); +} + +static agi_command *find_command(char *cmds[], int exact) +{ + int y, match; + struct agi_command *e; + + AST_RWLIST_RDLOCK(&agi_commands); + AST_RWLIST_TRAVERSE(&agi_commands, e, list) { + if (!e->cmda[0]) + break; + /* start optimistic */ + match = 1; + for (y = 0; match && cmds[y]; y++) { + /* If there are no more words in the command (and we're looking for + an exact match) or there is a difference between the two words, + then this is not a match */ + if (!e->cmda[y] && !exact) + break; + /* don't segfault if the next part of a command doesn't exist */ + if (!e->cmda[y]) + return NULL; + if (strcasecmp(e->cmda[y], cmds[y])) + match = 0; + } + /* If more words are needed to complete the command then this is not + a candidate (unless we're looking for a really inexact answer */ + if ((exact > -1) && e->cmda[y]) + match = 0; + if (match) + return e; + } + AST_RWLIST_UNLOCK(&agi_commands); + return NULL; +} + +static int parse_args(char *s, int *max, char *argv[]) +{ + int x = 0, quoted = 0, escaped = 0, whitespace = 1; + char *cur; + + cur = s; + while(*s) { + switch(*s) { + case '"': + /* If it's escaped, put a literal quote */ + if (escaped) + goto normal; + else + quoted = !quoted; + if (quoted && whitespace) { + /* If we're starting a quote, coming off white space start a new word, too */ + argv[x++] = cur; + whitespace=0; + } + escaped = 0; + break; + case ' ': + case '\t': + if (!quoted && !escaped) { + /* If we're not quoted, mark this as whitespace, and + end the previous argument */ + whitespace = 1; + *(cur++) = '\0'; + } else + /* Otherwise, just treat it as anything else */ + goto normal; + break; + case '\\': + /* If we're escaped, print a literal, otherwise enable escaping */ + if (escaped) { + goto normal; + } else { + escaped=1; + } + break; + default: +normal: + if (whitespace) { + if (x >= MAX_ARGS -1) { + ast_log(LOG_WARNING, "Too many arguments, truncating\n"); + break; + } + /* Coming off of whitespace, start the next argument */ + argv[x++] = cur; + whitespace=0; + } + *(cur++) = *s; + escaped=0; + } + s++; + } + /* Null terminate */ + *(cur++) = '\0'; + argv[x] = NULL; + *max = x; + return 0; +} + +static int agi_handle_command(struct ast_channel *chan, AGI *agi, char *buf, int dead) +{ + char *argv[MAX_ARGS]; + int argc = MAX_ARGS, res; + agi_command *c; + const char *ami_res = "Unknown Result"; + char *ami_cmd = ast_strdupa(buf); + int command_id = ast_random(), resultcode = 200; + + manager_event(EVENT_FLAG_CALL, "AGIExec", + "SubEvent: Start\r\n" + "Channel: %s\r\n" + "CommandId: %d\r\n" + "Command: %s\r\n", chan->name, command_id, ami_cmd); + parse_args(buf, &argc, argv); + if ((c = find_command(argv, 0)) && (!dead || (dead && c->dead))) { + /* if this command wasnt registered by res_agi, be sure to usecount + the module we are using */ + if (c->mod != ast_module_info->self) + ast_module_ref(c->mod); + res = c->handler(chan, agi, argc, argv); + if (c->mod != ast_module_info->self) + ast_module_unref(c->mod); + switch (res) { + case RESULT_SHOWUSAGE: ami_res = "Usage"; resultcode = 520; break; + case AST_PBX_KEEPALIVE: ami_res = "KeepAlive"; resultcode = 210; break; + case RESULT_FAILURE: ami_res = "Failure"; resultcode = -1; break; + case RESULT_SUCCESS: ami_res = "Success"; resultcode = 200; break; + } + manager_event(EVENT_FLAG_CALL, "AGIExec", + "SubEvent: End\r\n" + "Channel: %s\r\n" + "CommandId: %d\r\n" + "Command: %s\r\n" + "ResultCode: %d\r\n" + "Result: %s\r\n", chan->name, command_id, ami_cmd, resultcode, ami_res); + switch(res) { + case RESULT_SHOWUSAGE: + ast_agi_fdprintf(chan, agi->fd, "520-Invalid command syntax. Proper usage follows:\n"); + ast_agi_fdprintf(chan, agi->fd, c->usage); + ast_agi_fdprintf(chan, agi->fd, "520 End of proper usage.\n"); + break; + case AST_PBX_KEEPALIVE: + /* We've been asked to keep alive, so do so */ + return AST_PBX_KEEPALIVE; + break; + case RESULT_FAILURE: + /* They've already given the failure. We've been hung up on so handle this + appropriately */ + return -1; + } + } else if ((c = find_command(argv, 0))) { + ast_agi_fdprintf(chan, agi->fd, "511 Command Not Permitted on a dead channel\n"); + manager_event(EVENT_FLAG_CALL, "AGIExec", + "SubEvent: End\r\n" + "Channel: %s\r\n" + "CommandId: %d\r\n" + "Command: %s\r\n" + "ResultCode: 511\r\n" + "Result: Command not permitted on a dead channel\r\n", chan->name, command_id, ami_cmd); + } else { + ast_agi_fdprintf(chan, agi->fd, "510 Invalid or unknown command\n"); + manager_event(EVENT_FLAG_CALL, "AGIExec", + "SubEvent: End\r\n" + "Channel: %s\r\n" + "CommandId: %d\r\n" + "Command: %s\r\n" + "ResultCode: 510\r\n" + "Result: Invalid or unknown command\r\n", chan->name, command_id, ami_cmd); + } + return 0; +} +static enum agi_result run_agi(struct ast_channel *chan, char *request, AGI *agi, int pid, int *status, int dead, int argc, char *argv[]) +{ + struct ast_channel *c; + int outfd, ms, needhup = 0; + enum agi_result returnstatus = AGI_RESULT_SUCCESS; + struct ast_frame *f; + char buf[AGI_BUF_LEN]; + char *res = NULL; + FILE *readf; + /* how many times we'll retry if ast_waitfor_nandfs will return without either + channel or file descriptor in case select is interrupted by a system call (EINTR) */ + int retry = AGI_NANDFS_RETRY; + + if (!(readf = fdopen(agi->ctrl, "r"))) { + ast_log(LOG_WARNING, "Unable to fdopen file descriptor\n"); + if (pid > -1) + kill(pid, SIGHUP); + close(agi->ctrl); + return AGI_RESULT_FAILURE; + } + setlinebuf(readf); + setup_env(chan, request, agi->fd, (agi->audio > -1), argc, argv); + for (;;) { + if (needhup) { + needhup = 0; + dead = 1; + if (pid > -1) + kill(pid, SIGHUP); + } + ms = -1; + c = ast_waitfor_nandfds(&chan, dead ? 0 : 1, &agi->ctrl, 1, NULL, &outfd, &ms); + if (c) { + retry = AGI_NANDFS_RETRY; + /* Idle the channel until we get a command */ + f = ast_read(c); + if (!f) { + ast_debug(1, "%s hungup\n", chan->name); + returnstatus = AGI_RESULT_HANGUP; + needhup = 1; + continue; + } else { + /* If it's voice, write it to the audio pipe */ + if ((agi->audio > -1) && (f->frametype == AST_FRAME_VOICE)) { + /* Write, ignoring errors */ + write(agi->audio, f->data, f->datalen); + } + ast_frfree(f); + } + } else if (outfd > -1) { + size_t len = sizeof(buf); + size_t buflen = 0; + + retry = AGI_NANDFS_RETRY; + buf[0] = '\0'; + + while (buflen < (len - 1)) { + res = fgets(buf + buflen, len, readf); + if (feof(readf)) + break; + if (ferror(readf) && ((errno != EINTR) && (errno != EAGAIN))) + break; + if (res != NULL && !agi->fast) + break; + buflen = strlen(buf); + if (buflen && buf[buflen - 1] == '\n') + break; + len -= buflen; + if (agidebug) + ast_verbose( "AGI Rx << temp buffer %s - errno %s\n", buf, strerror(errno)); + } + + if (!buf[0]) { + /* Program terminated */ + if (returnstatus && returnstatus != AST_PBX_KEEPALIVE) + returnstatus = -1; + ast_verb(3, "<%s>AGI Script %s completed, returning %d\n", chan->name, request, returnstatus); + if (pid > 0) + waitpid(pid, status, 0); + /* No need to kill the pid anymore, since they closed us */ + pid = -1; + break; + } + + /* get rid of trailing newline, if any */ + if (*buf && buf[strlen(buf) - 1] == '\n') + buf[strlen(buf) - 1] = 0; + if (agidebug) + ast_verbose("<%s>AGI Rx << %s\n", chan->name, buf); + returnstatus |= agi_handle_command(chan, agi, buf, dead); + /* If the handle_command returns -1, we need to stop */ + if ((returnstatus < 0) || (returnstatus == AST_PBX_KEEPALIVE)) { + needhup = 1; + continue; + } + } else { + if (--retry <= 0) { + ast_log(LOG_WARNING, "No channel, no fd?\n"); + returnstatus = AGI_RESULT_FAILURE; + break; + } + } + } + /* Notify process */ + if (pid > -1) { + const char *sighup = pbx_builtin_getvar_helper(chan, "AGISIGHUP"); + if (ast_strlen_zero(sighup) || !ast_false(sighup)) { + if (kill(pid, SIGHUP)) + ast_log(LOG_WARNING, "unable to send SIGHUP to AGI process %d: %s\n", pid, strerror(errno)); + } + } + fclose(readf); + return returnstatus; +} + +static char *handle_cli_agi_show(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a) +{ + struct agi_command *command; + char fullcmd[80]; + + switch (cmd) { + case CLI_INIT: + e->command = "agi show"; + e->usage = + "Usage: agi show [topic]\n" + " When called with a topic as an argument, displays usage\n" + " information on the given command. If called without a\n" + " topic, it provides a list of AGI commands.\n"; + break; + case CLI_GENERATE: + return NULL; + } + if (a->argc < e->args) + return CLI_SHOWUSAGE; + if (a->argc > e->args) { + command = find_command(a->argv + e->args, 1); + if (command) { + ast_cli(a->fd, command->usage); + ast_cli(a->fd, " Runs Dead : %s\n", command->dead ? "Yes" : "No"); + } else { + if (find_command(a->argv + e->args, -1)) { + return help_workhorse(a->fd, a->argv + e->args); + } else { + ast_join(fullcmd, sizeof(fullcmd), a->argv + e->args); + ast_cli(a->fd, "No such command '%s'.\n", fullcmd); + } + } + } else { + return help_workhorse(a->fd, NULL); + } + return CLI_SUCCESS; +} + +/*! \brief Convert string to use HTML escaped characters + \note Maybe this should be a generic function? +*/ +static void write_html_escaped(FILE *htmlfile, char *str) +{ + char *cur = str; + + while(*cur) { + switch (*cur) { + case '<': + fprintf(htmlfile, "%s", "<"); + break; + case '>': + fprintf(htmlfile, "%s", ">"); + break; + case '&': + fprintf(htmlfile, "%s", "&"); + break; + case '"': + fprintf(htmlfile, "%s", """); + break; + default: + fprintf(htmlfile, "%c", *cur); + break; + } + cur++; + } + + return; +} + +static char *handle_cli_agi_dumphtml(struct ast_cli_entry *e, int cmd, struct ast_cli_args *a) +{ + struct agi_command *command; + char fullcmd[80]; + FILE *htmlfile; + + switch (cmd) { + case CLI_INIT: + e->command = "agi dumphtml"; + e->usage = + "Usage: agi dumphtml <filename>\n" + " Dumps the AGI command list in HTML format to the given\n" + " file.\n"; + return NULL; + case CLI_GENERATE: + return NULL; + } + if (a->argc < e->args + 1) + return CLI_SHOWUSAGE; + + if (!(htmlfile = fopen(a->argv[2], "wt"))) { + ast_cli(a->fd, "Could not create file '%s'\n", a->argv[2]); + return CLI_SHOWUSAGE; + } + + fprintf(htmlfile, "<HTML>\n<HEAD>\n<TITLE>AGI Commands</TITLE>\n</HEAD>\n"); + fprintf(htmlfile, "<BODY>\n<CENTER><B><H1>AGI Commands</H1></B></CENTER>\n\n"); + fprintf(htmlfile, "<TABLE BORDER=\"0\" CELLSPACING=\"10\">\n"); + + AST_RWLIST_RDLOCK(&agi_commands); + AST_RWLIST_TRAVERSE(&agi_commands, command, list) { + char *stringp, *tempstr; + + if (!command->cmda[0]) /* end ? */ + break; + /* Hide commands that start with '_' */ + if ((command->cmda[0])[0] == '_') + continue; + ast_join(fullcmd, sizeof(fullcmd), command->cmda); + + fprintf(htmlfile, "<TR><TD><TABLE BORDER=\"1\" CELLPADDING=\"5\" WIDTH=\"100%%\">\n"); + fprintf(htmlfile, "<TR><TH ALIGN=\"CENTER\"><B>%s - %s</B></TH></TR>\n", fullcmd, command->summary); + + stringp = command->usage; + tempstr = strsep(&stringp, "\n"); + + fprintf(htmlfile, "<TR><TD ALIGN=\"CENTER\">"); + write_html_escaped(htmlfile, tempstr); + fprintf(htmlfile, "</TD></TR>\n"); + fprintf(htmlfile, "<TR><TD ALIGN=\"CENTER\">\n"); + + while ((tempstr = strsep(&stringp, "\n")) != NULL) { + write_html_escaped(htmlfile, tempstr); + fprintf(htmlfile, "<BR>\n"); + } + fprintf(htmlfile, "</TD></TR>\n"); + fprintf(htmlfile, "</TABLE></TD></TR>\n\n"); + } + AST_RWLIST_UNLOCK(&agi_commands); + fprintf(htmlfile, "</TABLE>\n</BODY>\n</HTML>\n"); + fclose(htmlfile); + ast_cli(a->fd, "AGI HTML commands dumped to: %s\n", a->argv[2]); + return CLI_SUCCESS; +} + +static int agi_exec_full(struct ast_channel *chan, void *data, int enhanced, int dead) +{ + enum agi_result res; + struct ast_module_user *u; + char buf[AGI_BUF_LEN] = "", *tmp = buf; + int fds[2], efd = -1, pid; + AST_DECLARE_APP_ARGS(args, + AST_APP_ARG(arg)[MAX_ARGS]; + ); + AGI agi; + + if (ast_strlen_zero(data)) { + ast_log(LOG_WARNING, "AGI requires an argument (script)\n"); + return -1; + } + if (dead) + ast_log(LOG_NOTICE, "Hungup channel detected, running agi in dead mode.\n"); + ast_copy_string(buf, data, sizeof(buf)); + memset(&agi, 0, sizeof(agi)); + AST_STANDARD_APP_ARGS(args, tmp); + args.argv[args.argc] = NULL; + + u = ast_module_user_add(chan); +#if 0 + /* Answer if need be */ + if (chan->_state != AST_STATE_UP) { + if (ast_answer(chan)) { + ast_module_user_remove(u); + return -1; + } + } +#endif + res = launch_script(chan, args.argv[0], args.argv, fds, enhanced ? &efd : NULL, &pid); + /* Async AGI do not require run_agi(), so just proceed if normal AGI + or Fast AGI are setup with success. */ + if (res == AGI_RESULT_SUCCESS || res == AGI_RESULT_SUCCESS_FAST) { + int status = 0; + agi.fd = fds[1]; + agi.ctrl = fds[0]; + agi.audio = efd; + agi.fast = (res == AGI_RESULT_SUCCESS_FAST) ? 1 : 0; + res = run_agi(chan, args.argv[0], &agi, pid, &status, dead, args.argc, args.argv); + /* If the fork'd process returns non-zero, set AGISTATUS to FAILURE */ + if ((res == AGI_RESULT_SUCCESS || res == AGI_RESULT_SUCCESS_FAST) && status) + res = AGI_RESULT_FAILURE; + if (fds[1] != fds[0]) + close(fds[1]); + if (efd > -1) + close(efd); + ast_unreplace_sigchld(); + } + ast_module_user_remove(u); + + switch (res) { + case AGI_RESULT_SUCCESS: + case AGI_RESULT_SUCCESS_FAST: + case AGI_RESULT_SUCCESS_ASYNC: + pbx_builtin_setvar_helper(chan, "AGISTATUS", "SUCCESS"); + break; + case AGI_RESULT_FAILURE: + pbx_builtin_setvar_helper(chan, "AGISTATUS", "FAILURE"); + break; + case AGI_RESULT_NOTFOUND: + pbx_builtin_setvar_helper(chan, "AGISTATUS", "NOTFOUND"); + break; + case AGI_RESULT_HANGUP: + pbx_builtin_setvar_helper(chan, "AGISTATUS", "HANGUP"); + return -1; + } + + return 0; +} + +static int agi_exec(struct ast_channel *chan, void *data) +{ + if (!ast_check_hangup(chan)) + return agi_exec_full(chan, data, 0, 0); + else + return agi_exec_full(chan, data, 0, 1); +} + +static int eagi_exec(struct ast_channel *chan, void *data) +{ + int readformat, res; + + if (ast_check_hangup(chan)) { + ast_log(LOG_ERROR, "If you want to run AGI on hungup channels you should use DeadAGI!\n"); + return 0; + } + readformat = chan->readformat; + if (ast_set_read_format(chan, AST_FORMAT_SLINEAR)) { + ast_log(LOG_WARNING, "Unable to set channel '%s' to linear mode\n", chan->name); + return -1; + } + res = agi_exec_full(chan, data, 1, 0); + if (!res) { + if (ast_set_read_format(chan, readformat)) { + ast_log(LOG_WARNING, "Unable to restore channel '%s' to format %s\n", chan->name, ast_getformatname(readformat)); + } + } + return res; +} + +static int deadagi_exec(struct ast_channel *chan, void *data) +{ + ast_log(LOG_WARNING, "DeadAGI has been deprecated, please use AGI in all cases!\n"); + return agi_exec(chan, data); +} + +static struct ast_cli_entry cli_agi[] = { + AST_CLI_DEFINE(handle_cli_agi_add_cmd, "Add AGI command to a channel in Async AGI"), + AST_CLI_DEFINE(handle_cli_agi_debug, "Enable/Disable AGI debugging"), + AST_CLI_DEFINE(handle_cli_agi_show, "List AGI commands or specific help"), + AST_CLI_DEFINE(handle_cli_agi_dumphtml, "Dumps a list of AGI commands in HTML format") +}; + +static int unload_module(void) +{ + ast_cli_unregister_multiple(cli_agi, sizeof(cli_agi) / sizeof(struct ast_cli_entry)); + ast_agi_unregister_multiple(ast_module_info->self, commands, sizeof(commands) / sizeof(struct agi_command)); + ast_unregister_application(eapp); + ast_unregister_application(deadapp); + ast_manager_unregister("AGI"); + return ast_unregister_application(app); +} + +static int load_module(void) +{ + ast_cli_register_multiple(cli_agi, sizeof(cli_agi) / sizeof(struct ast_cli_entry)); + ast_agi_register_multiple(ast_module_info->self, commands, sizeof(commands) / sizeof(struct agi_command)); + ast_register_application(deadapp, deadagi_exec, deadsynopsis, descrip); + ast_register_application(eapp, eagi_exec, esynopsis, descrip); + ast_manager_register2("AGI", EVENT_FLAG_CALL, action_add_agi_cmd, "Add an AGI command to execute by Async AGI", mandescr_asyncagi); + return ast_register_application(app, agi_exec, synopsis, descrip); +} + +AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_GLOBAL_SYMBOLS, "Asterisk Gateway Interface (AGI)", + .load = load_module, + .unload = unload_module, + ); |