https://origsvn.digium.com/svn/asterisk/branches/1.4 ........ r113117 | tilghman | 2008-04-07 12:51:49 -0500 (Mon, 07 Apr 2008) | 3 lines Force ast_mktime() to check for DST, since strptime(3) does not. (Closes issue #12374) ........ git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@113172 65c4cc65-6c06-0410-ace0-fbb531ad65f3
891 lines
25 KiB
C
891 lines
25 KiB
C
/*
|
|
* Asterisk -- An open source telephony toolkit.
|
|
*
|
|
* Copyright (C) 2005-2006, Digium, Inc.
|
|
* Portions Copyright (C) 2005, Tilghman Lesher. All rights reserved.
|
|
* Portions Copyright (C) 2005, Anthony Minessale II
|
|
*
|
|
* 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 String manipulation dialplan functions
|
|
*
|
|
* \author Tilghman Lesher
|
|
* \author Anothony Minessale II
|
|
* \ingroup functions
|
|
*/
|
|
|
|
#include "asterisk.h"
|
|
|
|
ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
|
|
|
|
#include <regex.h>
|
|
#include <ctype.h>
|
|
|
|
#include "asterisk/module.h"
|
|
#include "asterisk/channel.h"
|
|
#include "asterisk/pbx.h"
|
|
#include "asterisk/utils.h"
|
|
#include "asterisk/app.h"
|
|
#include "asterisk/localtime.h"
|
|
|
|
static int function_fieldqty(struct ast_channel *chan, const char *cmd,
|
|
char *parse, char *buf, size_t len)
|
|
{
|
|
char *varsubst, varval[8192], *varval2 = varval;
|
|
int fieldcount = 0;
|
|
AST_DECLARE_APP_ARGS(args,
|
|
AST_APP_ARG(varname);
|
|
AST_APP_ARG(delim);
|
|
);
|
|
char delim[2] = "";
|
|
size_t delim_used;
|
|
|
|
if (chan)
|
|
ast_autoservice_start(chan);
|
|
|
|
AST_STANDARD_APP_ARGS(args, parse);
|
|
if (args.delim) {
|
|
ast_get_encoded_char(args.delim, delim, &delim_used);
|
|
|
|
varsubst = alloca(strlen(args.varname) + 4);
|
|
|
|
sprintf(varsubst, "${%s}", args.varname);
|
|
pbx_substitute_variables_helper(chan, varsubst, varval, sizeof(varval) - 1);
|
|
if (ast_strlen_zero(varval2))
|
|
fieldcount = 0;
|
|
else {
|
|
while (strsep(&varval2, delim))
|
|
fieldcount++;
|
|
}
|
|
} else {
|
|
fieldcount = 1;
|
|
}
|
|
snprintf(buf, len, "%d", fieldcount);
|
|
|
|
if (chan)
|
|
ast_autoservice_stop(chan);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function fieldqty_function = {
|
|
.name = "FIELDQTY",
|
|
.synopsis = "Count the fields, with an arbitrary delimiter",
|
|
.syntax = "FIELDQTY(<varname>,<delim>)",
|
|
.read = function_fieldqty,
|
|
};
|
|
|
|
static int filter(struct ast_channel *chan, const char *cmd, char *parse, char *buf,
|
|
size_t len)
|
|
{
|
|
AST_DECLARE_APP_ARGS(args,
|
|
AST_APP_ARG(allowed);
|
|
AST_APP_ARG(string);
|
|
);
|
|
char *outbuf = buf, ac;
|
|
char allowed[256] = "";
|
|
size_t allowedlen = 0;
|
|
|
|
AST_STANDARD_APP_ARGS(args, parse);
|
|
|
|
if (!args.string) {
|
|
ast_log(LOG_ERROR, "Usage: FILTER(<allowed-chars>,<string>)\n");
|
|
return -1;
|
|
}
|
|
|
|
/* Expand ranges */
|
|
for (; *(args.allowed) && allowedlen < sizeof(allowed); (args.allowed)++) {
|
|
char c1 = 0, c2 = 0;
|
|
size_t consumed = 0;
|
|
|
|
if (ast_get_encoded_char(args.allowed, &c1, &consumed))
|
|
return -1;
|
|
args.allowed += consumed;
|
|
|
|
if (*(args.allowed) == '-') {
|
|
if (ast_get_encoded_char(args.allowed + 1, &c2, &consumed))
|
|
c2 = -1;
|
|
args.allowed += consumed + 1;
|
|
|
|
/*!\note
|
|
* Looks a little strange, until you realize that we can overflow
|
|
* the size of a char.
|
|
*/
|
|
for (ac = c1; ac != c2 && allowedlen < sizeof(allowed) - 1; ac++)
|
|
allowed[allowedlen++] = ac;
|
|
allowed[allowedlen++] = ac;
|
|
|
|
ast_debug(4, "c1=%d, c2=%d\n", c1, c2);
|
|
|
|
/* Decrement before the loop increment */
|
|
(args.allowed)--;
|
|
} else
|
|
allowed[allowedlen++] = c1;
|
|
}
|
|
|
|
ast_debug(1, "Allowed: %s\n", allowed);
|
|
|
|
for (; *(args.string) && (buf + len - 1 > outbuf); (args.string)++) {
|
|
if (strchr(allowed, *(args.string)))
|
|
*outbuf++ = *(args.string);
|
|
}
|
|
*outbuf = '\0';
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function filter_function = {
|
|
.name = "FILTER",
|
|
.synopsis = "Filter the string to include only the allowed characters",
|
|
.syntax = "FILTER(<allowed-chars>,<string>)",
|
|
.read = filter,
|
|
.desc =
|
|
"Permits all characters listed in <allowed-chars>, filtering all others out.\n"
|
|
"In addition to literally listing the characters, you may also use ranges of\n"
|
|
"characters (delimited by a '-'), as well as hexadecimal characters started\n"
|
|
"with a \\x (i.e. \\x20) and octal characters started with \\0 (i.e. \\040).\n"
|
|
"Also, \\t, \\n, and \\r are recognized. If you want a literal '-' character,\n"
|
|
"simply prefix it with a '\\'\n",
|
|
};
|
|
|
|
static int regex(struct ast_channel *chan, const char *cmd, char *parse, char *buf,
|
|
size_t len)
|
|
{
|
|
AST_DECLARE_APP_ARGS(args,
|
|
AST_APP_ARG(null);
|
|
AST_APP_ARG(reg);
|
|
AST_APP_ARG(str);
|
|
);
|
|
int errcode;
|
|
regex_t regexbuf;
|
|
|
|
buf[0] = '\0';
|
|
|
|
AST_NONSTANDARD_APP_ARGS(args, parse, '"');
|
|
|
|
if (args.argc != 3) {
|
|
ast_log(LOG_ERROR, "Unexpected arguments: should have been in the form '\"<regex>\" <string>'\n");
|
|
return -1;
|
|
}
|
|
if ((*args.str == ' ') || (*args.str == '\t'))
|
|
args.str++;
|
|
|
|
ast_debug(1, "FUNCTION REGEX (%s)(%s)\n", args.reg, args.str);
|
|
|
|
if ((errcode = regcomp(®exbuf, args.reg, REG_EXTENDED | REG_NOSUB))) {
|
|
regerror(errcode, ®exbuf, buf, len);
|
|
ast_log(LOG_WARNING, "Malformed input %s(%s): %s\n", cmd, parse, buf);
|
|
return -1;
|
|
}
|
|
|
|
strcpy(buf, regexec(®exbuf, args.str, 0, NULL, 0) ? "0" : "1");
|
|
|
|
regfree(®exbuf);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function regex_function = {
|
|
.name = "REGEX",
|
|
.synopsis = "Regular Expression",
|
|
.desc =
|
|
"Returns 1 if data matches regular expression, or 0 otherwise.\n"
|
|
"Please note that the space following the double quotes separating the regex from the data\n"
|
|
"is optional and if present, is skipped. If a space is desired at the beginning of the data,\n"
|
|
"then put two spaces there; the second will not be skipped.\n",
|
|
.syntax = "REGEX(\"<regular expression>\" <data>)",
|
|
.read = regex,
|
|
};
|
|
|
|
#define HASH_PREFIX "~HASH~%s~"
|
|
#define HASH_FORMAT HASH_PREFIX "%s~"
|
|
|
|
static char *app_clearhash = "ClearHash";
|
|
static char *syn_clearhash = "Clear the keys from a specified hashname";
|
|
static char *desc_clearhash =
|
|
"ClearHash(<hashname>)\n"
|
|
" Clears all keys out of the specified hashname\n";
|
|
|
|
/* This function probably should migrate to main/pbx.c, as pbx_builtin_clearvar_prefix() */
|
|
static void clearvar_prefix(struct ast_channel *chan, const char *prefix)
|
|
{
|
|
struct ast_var_t *var;
|
|
int len = strlen(prefix);
|
|
AST_LIST_TRAVERSE_SAFE_BEGIN(&chan->varshead, var, entries) {
|
|
if (strncasecmp(prefix, ast_var_name(var), len) == 0) {
|
|
AST_LIST_REMOVE_CURRENT(entries);
|
|
ast_free(var);
|
|
}
|
|
}
|
|
AST_LIST_TRAVERSE_SAFE_END
|
|
}
|
|
|
|
static int exec_clearhash(struct ast_channel *chan, void *data)
|
|
{
|
|
char prefix[80];
|
|
snprintf(prefix, sizeof(prefix), HASH_PREFIX, data ? (char *)data : "null");
|
|
clearvar_prefix(chan, prefix);
|
|
return 0;
|
|
}
|
|
|
|
static int array(struct ast_channel *chan, const char *cmd, char *var,
|
|
const char *value)
|
|
{
|
|
AST_DECLARE_APP_ARGS(arg1,
|
|
AST_APP_ARG(var)[100];
|
|
);
|
|
AST_DECLARE_APP_ARGS(arg2,
|
|
AST_APP_ARG(val)[100];
|
|
);
|
|
char *origvar = "", *value2, varname[256];
|
|
int i, ishash = 0;
|
|
|
|
value2 = ast_strdupa(value);
|
|
if (!var || !value2)
|
|
return -1;
|
|
|
|
if (chan)
|
|
ast_autoservice_start(chan);
|
|
|
|
if (!strcmp(cmd, "HASH")) {
|
|
const char *var2 = pbx_builtin_getvar_helper(chan, "~ODBCFIELDS~");
|
|
origvar = var;
|
|
if (var2)
|
|
var = ast_strdupa(var2);
|
|
else {
|
|
if (chan)
|
|
ast_autoservice_stop(chan);
|
|
return -1;
|
|
}
|
|
ishash = 1;
|
|
}
|
|
|
|
/* The functions this will generally be used with are SORT and ODBC_*, which
|
|
* both return comma-delimited lists. However, if somebody uses literal lists,
|
|
* their commas will be translated to vertical bars by the load, and I don't
|
|
* want them to be surprised by the result. Hence, we prefer commas as the
|
|
* delimiter, but we'll fall back to vertical bars if commas aren't found.
|
|
*/
|
|
ast_debug(1, "array (%s=%s)\n", var, value2);
|
|
AST_STANDARD_APP_ARGS(arg1, var);
|
|
|
|
AST_STANDARD_APP_ARGS(arg2, value2);
|
|
|
|
for (i = 0; i < arg1.argc; i++) {
|
|
ast_debug(1, "array set value (%s=%s)\n", arg1.var[i],
|
|
arg2.val[i]);
|
|
if (i < arg2.argc) {
|
|
if (ishash) {
|
|
snprintf(varname, sizeof(varname), HASH_FORMAT, origvar, arg1.var[i]);
|
|
pbx_builtin_setvar_helper(chan, varname, arg2.val[i]);
|
|
} else {
|
|
pbx_builtin_setvar_helper(chan, arg1.var[i], arg2.val[i]);
|
|
}
|
|
} else {
|
|
/* We could unset the variable, by passing a NULL, but due to
|
|
* pushvar semantics, that could create some undesired behavior. */
|
|
if (ishash) {
|
|
snprintf(varname, sizeof(varname), HASH_FORMAT, origvar, arg1.var[i]);
|
|
pbx_builtin_setvar_helper(chan, varname, "");
|
|
} else {
|
|
pbx_builtin_setvar_helper(chan, arg1.var[i], "");
|
|
}
|
|
}
|
|
}
|
|
|
|
if (chan)
|
|
ast_autoservice_stop(chan);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int hashkeys_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
struct ast_var_t *newvar;
|
|
int plen;
|
|
char prefix[80];
|
|
snprintf(prefix, sizeof(prefix), HASH_PREFIX, data);
|
|
plen = strlen(prefix);
|
|
|
|
memset(buf, 0, len);
|
|
AST_LIST_TRAVERSE(&chan->varshead, newvar, entries) {
|
|
if (strncasecmp(prefix, ast_var_name(newvar), plen) == 0) {
|
|
/* Copy everything after the prefix */
|
|
strncat(buf, ast_var_name(newvar) + plen, len - strlen(buf) - 1);
|
|
/* Trim the trailing ~ */
|
|
buf[strlen(buf) - 1] = ',';
|
|
}
|
|
}
|
|
/* Trim the trailing comma */
|
|
buf[strlen(buf) - 1] = '\0';
|
|
return 0;
|
|
}
|
|
|
|
static int hash_write(struct ast_channel *chan, const char *cmd, char *var, const char *value)
|
|
{
|
|
char varname[256];
|
|
AST_DECLARE_APP_ARGS(arg,
|
|
AST_APP_ARG(hashname);
|
|
AST_APP_ARG(hashkey);
|
|
);
|
|
|
|
if (!strchr(var, ',')) {
|
|
/* Single argument version */
|
|
return array(chan, "HASH", var, value);
|
|
}
|
|
|
|
AST_STANDARD_APP_ARGS(arg, var);
|
|
snprintf(varname, sizeof(varname), HASH_FORMAT, arg.hashname, arg.hashkey);
|
|
pbx_builtin_setvar_helper(chan, varname, value);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int hash_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char varname[256];
|
|
const char *varvalue;
|
|
AST_DECLARE_APP_ARGS(arg,
|
|
AST_APP_ARG(hashname);
|
|
AST_APP_ARG(hashkey);
|
|
);
|
|
|
|
AST_STANDARD_APP_ARGS(arg, data);
|
|
if (arg.argc == 2) {
|
|
snprintf(varname, sizeof(varname), HASH_FORMAT, arg.hashname, arg.hashkey);
|
|
varvalue = pbx_builtin_getvar_helper(chan, varname);
|
|
if (varvalue)
|
|
ast_copy_string(buf, varvalue, len);
|
|
else
|
|
*buf = '\0';
|
|
} else if (arg.argc == 1) {
|
|
char colnames[4096];
|
|
int i;
|
|
AST_DECLARE_APP_ARGS(arg2,
|
|
AST_APP_ARG(col)[100];
|
|
);
|
|
|
|
/* Get column names, in no particular order */
|
|
hashkeys_read(chan, "HASHKEYS", arg.hashname, colnames, sizeof(colnames));
|
|
pbx_builtin_setvar_helper(chan, "~ODBCFIELDS~", colnames);
|
|
|
|
AST_STANDARD_APP_ARGS(arg2, colnames);
|
|
*buf = '\0';
|
|
|
|
/* Now get the corresponding column values, in exactly the same order */
|
|
for (i = 0; i < arg2.argc; i++) {
|
|
snprintf(varname, sizeof(varname), HASH_FORMAT, arg.hashname, arg2.col[i]);
|
|
varvalue = pbx_builtin_getvar_helper(chan, varname);
|
|
strncat(buf, varvalue, len - strlen(buf) - 1);
|
|
strncat(buf, ",", len - strlen(buf) - 1);
|
|
}
|
|
|
|
/* Strip trailing comma */
|
|
buf[strlen(buf) - 1] = '\0';
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function hash_function = {
|
|
.name = "HASH",
|
|
.synopsis = "Implementation of a dialplan associative array",
|
|
.syntax = "HASH(hashname[,hashkey])",
|
|
.write = hash_write,
|
|
.read = hash_read,
|
|
.desc =
|
|
"In two argument mode, gets and sets values to corresponding keys within a named\n"
|
|
"associative array. The single-argument mode will only work when assigned to from\n"
|
|
"a function defined by func_odbc.so.\n",
|
|
};
|
|
|
|
static struct ast_custom_function hashkeys_function = {
|
|
.name = "HASHKEYS",
|
|
.synopsis = "Retrieve the keys of a HASH()",
|
|
.syntax = "HASHKEYS(<hashname>)",
|
|
.read = hashkeys_read,
|
|
.desc =
|
|
"Returns a comma-delimited list of the current keys of an associative array\n"
|
|
"defined by the HASH() function. Note that if you iterate over the keys of\n"
|
|
"the result, adding keys during iteration will cause the result of the HASHKEYS\n"
|
|
"function to change.\n",
|
|
};
|
|
|
|
static struct ast_custom_function array_function = {
|
|
.name = "ARRAY",
|
|
.synopsis = "Allows setting multiple variables at once",
|
|
.syntax = "ARRAY(var1[,var2[...][,varN]])",
|
|
.write = array,
|
|
.desc =
|
|
"The comma-separated list passed as a value to which the function is set will\n"
|
|
"be interpreted as a set of values to which the comma-separated list of\n"
|
|
"variable names in the argument should be set.\n"
|
|
"Hence, Set(ARRAY(var1,var2)=1,2) will set var1 to 1 and var2 to 2.\n",
|
|
};
|
|
|
|
static int acf_sprintf(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
#define SPRINTF_FLAG 0
|
|
#define SPRINTF_WIDTH 1
|
|
#define SPRINTF_PRECISION 2
|
|
#define SPRINTF_LENGTH 3
|
|
#define SPRINTF_CONVERSION 4
|
|
int i, state = -1, argcount = 0;
|
|
char *formatstart = NULL, *bufptr = buf;
|
|
char formatbuf[256] = "";
|
|
int tmpi;
|
|
double tmpd;
|
|
AST_DECLARE_APP_ARGS(arg,
|
|
AST_APP_ARG(format);
|
|
AST_APP_ARG(var)[100];
|
|
);
|
|
|
|
AST_STANDARD_APP_ARGS(arg, data);
|
|
|
|
/* Scan the format, converting each argument into the requisite format type. */
|
|
for (i = 0; arg.format[i]; i++) {
|
|
switch (state) {
|
|
case SPRINTF_FLAG:
|
|
if (strchr("#0- +'I", arg.format[i]))
|
|
break;
|
|
state = SPRINTF_WIDTH;
|
|
case SPRINTF_WIDTH:
|
|
if (arg.format[i] >= '0' && arg.format[i] <= '9')
|
|
break;
|
|
|
|
/* Next character must be a period to go into a precision */
|
|
if (arg.format[i] == '.') {
|
|
state = SPRINTF_PRECISION;
|
|
} else {
|
|
state = SPRINTF_LENGTH;
|
|
i--;
|
|
}
|
|
break;
|
|
case SPRINTF_PRECISION:
|
|
if (arg.format[i] >= '0' && arg.format[i] <= '9')
|
|
break;
|
|
state = SPRINTF_LENGTH;
|
|
case SPRINTF_LENGTH:
|
|
if (strchr("hl", arg.format[i])) {
|
|
if (arg.format[i + 1] == arg.format[i])
|
|
i++;
|
|
state = SPRINTF_CONVERSION;
|
|
break;
|
|
} else if (strchr("Lqjzt", arg.format[i])) {
|
|
state = SPRINTF_CONVERSION;
|
|
break;
|
|
}
|
|
state = SPRINTF_CONVERSION;
|
|
case SPRINTF_CONVERSION:
|
|
if (strchr("diouxXc", arg.format[i])) {
|
|
/* Integer */
|
|
|
|
/* Isolate this format alone */
|
|
ast_copy_string(formatbuf, formatstart, sizeof(formatbuf));
|
|
formatbuf[&arg.format[i] - formatstart + 1] = '\0';
|
|
|
|
/* Convert the argument into the required type */
|
|
if (sscanf(arg.var[argcount++], "%d", &tmpi) != 1) {
|
|
ast_log(LOG_ERROR, "Argument '%s' is not an integer number for format '%s'\n", arg.var[argcount - 1], formatbuf);
|
|
goto sprintf_fail;
|
|
}
|
|
|
|
/* Format the argument */
|
|
snprintf(bufptr, buf + len - bufptr, formatbuf, tmpi);
|
|
|
|
/* Update the position of the next parameter to print */
|
|
bufptr = strchr(buf, '\0');
|
|
} else if (strchr("eEfFgGaA", arg.format[i])) {
|
|
/* Double */
|
|
|
|
/* Isolate this format alone */
|
|
ast_copy_string(formatbuf, formatstart, sizeof(formatbuf));
|
|
formatbuf[&arg.format[i] - formatstart + 1] = '\0';
|
|
|
|
/* Convert the argument into the required type */
|
|
if (sscanf(arg.var[argcount++], "%lf", &tmpd) != 1) {
|
|
ast_log(LOG_ERROR, "Argument '%s' is not a floating point number for format '%s'\n", arg.var[argcount - 1], formatbuf);
|
|
goto sprintf_fail;
|
|
}
|
|
|
|
/* Format the argument */
|
|
snprintf(bufptr, buf + len - bufptr, formatbuf, tmpd);
|
|
|
|
/* Update the position of the next parameter to print */
|
|
bufptr = strchr(buf, '\0');
|
|
} else if (arg.format[i] == 's') {
|
|
/* String */
|
|
|
|
/* Isolate this format alone */
|
|
ast_copy_string(formatbuf, formatstart, sizeof(formatbuf));
|
|
formatbuf[&arg.format[i] - formatstart + 1] = '\0';
|
|
|
|
/* Format the argument */
|
|
snprintf(bufptr, buf + len - bufptr, formatbuf, arg.var[argcount++]);
|
|
|
|
/* Update the position of the next parameter to print */
|
|
bufptr = strchr(buf, '\0');
|
|
} else if (arg.format[i] == '%') {
|
|
/* Literal data to copy */
|
|
*bufptr++ = arg.format[i];
|
|
} else {
|
|
/* Not supported */
|
|
|
|
/* Isolate this format alone */
|
|
ast_copy_string(formatbuf, formatstart, sizeof(formatbuf));
|
|
formatbuf[&arg.format[i] - formatstart + 1] = '\0';
|
|
|
|
ast_log(LOG_ERROR, "Format type not supported: '%s' with argument '%s'\n", formatbuf, arg.var[argcount++]);
|
|
goto sprintf_fail;
|
|
}
|
|
state = -1;
|
|
break;
|
|
default:
|
|
if (arg.format[i] == '%') {
|
|
state = SPRINTF_FLAG;
|
|
formatstart = &arg.format[i];
|
|
break;
|
|
} else {
|
|
/* Literal data to copy */
|
|
*bufptr++ = arg.format[i];
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
sprintf_fail:
|
|
return -1;
|
|
}
|
|
|
|
static struct ast_custom_function sprintf_function = {
|
|
.name = "SPRINTF",
|
|
.synopsis = "Format a variable according to a format string",
|
|
.syntax = "SPRINTF(<format>,<arg1>[,...<argN>])",
|
|
.read = acf_sprintf,
|
|
.desc =
|
|
"Parses the format string specified and returns a string matching that format.\n"
|
|
"Supports most options supported by sprintf(3). Returns a shortened string if\n"
|
|
"a format specifier is not recognized.\n",
|
|
};
|
|
|
|
static int quote(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char *bufptr = buf, *dataptr = data;
|
|
*bufptr++ = '"';
|
|
for (; bufptr < buf + len - 1; dataptr++) {
|
|
if (*dataptr == '\\') {
|
|
*bufptr++ = '\\';
|
|
*bufptr++ = '\\';
|
|
} else if (*dataptr == '"') {
|
|
*bufptr++ = '\\';
|
|
*bufptr++ = '"';
|
|
} else if (*dataptr == '\0') {
|
|
break;
|
|
} else {
|
|
*bufptr++ = *dataptr;
|
|
}
|
|
}
|
|
*bufptr++ = '"';
|
|
*bufptr = '\0';
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function quote_function = {
|
|
.name = "QUOTE",
|
|
.synopsis = "Quotes a given string, escaping embedded quotes as necessary",
|
|
.syntax = "QUOTE(<string>)",
|
|
.read = quote,
|
|
};
|
|
|
|
|
|
static int len(struct ast_channel *chan, const char *cmd, char *data, char *buf,
|
|
size_t len)
|
|
{
|
|
int length = 0;
|
|
|
|
if (data)
|
|
length = strlen(data);
|
|
|
|
snprintf(buf, len, "%d", length);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function len_function = {
|
|
.name = "LEN",
|
|
.synopsis = "Returns the length of the argument given",
|
|
.syntax = "LEN(<string>)",
|
|
.read = len,
|
|
};
|
|
|
|
static int acf_strftime(struct ast_channel *chan, const char *cmd, char *parse,
|
|
char *buf, size_t len)
|
|
{
|
|
AST_DECLARE_APP_ARGS(args,
|
|
AST_APP_ARG(epoch);
|
|
AST_APP_ARG(timezone);
|
|
AST_APP_ARG(format);
|
|
);
|
|
struct timeval tv;
|
|
struct ast_tm tm;
|
|
|
|
buf[0] = '\0';
|
|
|
|
AST_STANDARD_APP_ARGS(args, parse);
|
|
|
|
ast_get_timeval(args.epoch, &tv, ast_tvnow(), NULL);
|
|
ast_localtime(&tv, &tm, args.timezone);
|
|
|
|
if (!args.format)
|
|
args.format = "%c";
|
|
|
|
if (ast_strftime(buf, len, args.format, &tm) <= 0)
|
|
ast_log(LOG_WARNING, "C function strftime() output nothing?!!\n");
|
|
|
|
buf[len - 1] = '\0';
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function strftime_function = {
|
|
.name = "STRFTIME",
|
|
.synopsis = "Returns the current date/time in a specified format.",
|
|
.syntax = "STRFTIME([<epoch>][,[timezone][,format]])",
|
|
.desc =
|
|
"STRFTIME sports all of the same formats as the underlying C function\n"
|
|
"strftime(3) - see the man page for details. It also supports the\n"
|
|
"following format:\n"
|
|
" %[n]q - fractions of a second, with leading zeroes. For example, %3q will\n"
|
|
" give milliseconds and %1q will give tenths of a second. The default\n"
|
|
" is to output milliseconds (n=3). The common case is to use it in\n"
|
|
" combination with %S, as in \"%S.%3q\".\n",
|
|
.read = acf_strftime,
|
|
};
|
|
|
|
static int acf_strptime(struct ast_channel *chan, const char *cmd, char *data,
|
|
char *buf, size_t len)
|
|
{
|
|
AST_DECLARE_APP_ARGS(args,
|
|
AST_APP_ARG(timestring);
|
|
AST_APP_ARG(timezone);
|
|
AST_APP_ARG(format);
|
|
);
|
|
union {
|
|
struct ast_tm atm;
|
|
struct tm time;
|
|
} t = { { 0, }, };
|
|
|
|
buf[0] = '\0';
|
|
|
|
if (!data) {
|
|
ast_log(LOG_ERROR,
|
|
"Asterisk function STRPTIME() requires an argument.\n");
|
|
return -1;
|
|
}
|
|
|
|
AST_STANDARD_APP_ARGS(args, data);
|
|
|
|
if (ast_strlen_zero(args.format)) {
|
|
ast_log(LOG_ERROR,
|
|
"No format supplied to STRPTIME(<timestring>,<timezone>,<format>)");
|
|
return -1;
|
|
}
|
|
|
|
if (!strptime(args.timestring, args.format, &t.time)) {
|
|
ast_log(LOG_WARNING, "C function strptime() output nothing?!!\n");
|
|
} else {
|
|
struct timeval tv;
|
|
/* Since strptime(3) does not check DST, force ast_mktime() to calculate it. */
|
|
t.atm.tm_isdst = -1;
|
|
tv = ast_mktime(&t.atm, args.timezone);
|
|
snprintf(buf, len, "%d", (int) tv.tv_sec);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function strptime_function = {
|
|
.name = "STRPTIME",
|
|
.synopsis =
|
|
"Returns the epoch of the arbitrary date/time string structured as described in the format.",
|
|
.syntax = "STRPTIME(<datetime>,<timezone>,<format>)",
|
|
.desc =
|
|
"This is useful for converting a date into an EPOCH time, possibly to pass to\n"
|
|
"an application like SayUnixTime or to calculate the difference between two\n"
|
|
"date strings.\n"
|
|
"\n"
|
|
"Example:\n"
|
|
" ${STRPTIME(2006-03-01 07:30:35,America/Chicago,%Y-%m-%d %H:%M:%S)} returns 1141219835\n",
|
|
.read = acf_strptime,
|
|
};
|
|
|
|
static int function_eval(struct ast_channel *chan, const char *cmd, char *data,
|
|
char *buf, size_t len)
|
|
{
|
|
if (ast_strlen_zero(data)) {
|
|
ast_log(LOG_WARNING, "EVAL requires an argument: EVAL(<string>)\n");
|
|
return -1;
|
|
}
|
|
|
|
if (chan)
|
|
ast_autoservice_start(chan);
|
|
pbx_substitute_variables_helper(chan, data, buf, len - 1);
|
|
if (chan)
|
|
ast_autoservice_stop(chan);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function eval_function = {
|
|
.name = "EVAL",
|
|
.synopsis = "Evaluate stored variables.",
|
|
.syntax = "EVAL(<variable>)",
|
|
.desc = "Using EVAL basically causes a string to be evaluated twice.\n"
|
|
"When a variable or expression is in the dialplan, it will be\n"
|
|
"evaluated at runtime. However, if the result of the evaluation\n"
|
|
"is in fact a variable or expression, using EVAL will have it\n"
|
|
"evaluated a second time. For example, if the variable ${MYVAR}\n"
|
|
"contains \"${OTHERVAR}\", then the result of putting ${EVAL(${MYVAR})}\n"
|
|
"in the dialplan will be the contents of the variable, OTHERVAR.\n"
|
|
"Normally, by just putting ${MYVAR} in the dialplan, you would be\n"
|
|
"left with \"${OTHERVAR}\".\n",
|
|
.read = function_eval,
|
|
};
|
|
|
|
static int keypadhash(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char *bufptr, *dataptr;
|
|
|
|
for (bufptr = buf, dataptr = data; bufptr < buf + len - 1; dataptr++) {
|
|
if (*dataptr == '1') {
|
|
*bufptr++ = '1';
|
|
} else if (strchr("AaBbCc2", *dataptr)) {
|
|
*bufptr++ = '2';
|
|
} else if (strchr("DdEeFf3", *dataptr)) {
|
|
*bufptr++ = '3';
|
|
} else if (strchr("GgHhIi4", *dataptr)) {
|
|
*bufptr++ = '4';
|
|
} else if (strchr("JjKkLl5", *dataptr)) {
|
|
*bufptr++ = '5';
|
|
} else if (strchr("MmNnOo6", *dataptr)) {
|
|
*bufptr++ = '6';
|
|
} else if (strchr("PpQqRrSs7", *dataptr)) {
|
|
*bufptr++ = '7';
|
|
} else if (strchr("TtUuVv8", *dataptr)) {
|
|
*bufptr++ = '8';
|
|
} else if (strchr("WwXxYyZz9", *dataptr)) {
|
|
*bufptr++ = '9';
|
|
} else if (*dataptr == '0') {
|
|
*bufptr++ = '0';
|
|
} else if (*dataptr == '\0') {
|
|
*bufptr++ = '\0';
|
|
break;
|
|
}
|
|
}
|
|
buf[len - 1] = '\0';
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function keypadhash_function = {
|
|
.name = "KEYPADHASH",
|
|
.synopsis = "Hash the letters in the string into the equivalent keypad numbers.",
|
|
.syntax = "KEYPADHASH(<string>)",
|
|
.read = keypadhash,
|
|
.desc = "Example: ${KEYPADHASH(Les)} returns \"537\"\n",
|
|
};
|
|
|
|
static int string_toupper(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char *bufptr = buf, *dataptr = data;
|
|
|
|
while ((bufptr < buf + len - 1) && (*bufptr++ = toupper(*dataptr++)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function toupper_function = {
|
|
.name = "TOUPPER",
|
|
.synopsis = "Convert the string to upper case.",
|
|
.syntax = "TOUPPER(<string>)",
|
|
.read = string_toupper,
|
|
.desc = "Example: ${TOUPPER(Example)} returns \"EXAMPLE\"\n",
|
|
};
|
|
|
|
static int string_tolower(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char *bufptr = buf, *dataptr = data;
|
|
|
|
while ((bufptr < buf + len - 1) && (*bufptr++ = tolower(*dataptr++)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_custom_function tolower_function = {
|
|
.name = "TOLOWER",
|
|
.synopsis = "Convert the string to lower case.",
|
|
.syntax = "TOLOWER(<string>)",
|
|
.read = string_tolower,
|
|
.desc = "Example: ${TOLOWER(Example)} returns \"example\"\n",
|
|
};
|
|
|
|
static int unload_module(void)
|
|
{
|
|
int res = 0;
|
|
|
|
res |= ast_custom_function_unregister(&fieldqty_function);
|
|
res |= ast_custom_function_unregister(&filter_function);
|
|
res |= ast_custom_function_unregister(®ex_function);
|
|
res |= ast_custom_function_unregister(&array_function);
|
|
res |= ast_custom_function_unregister("e_function);
|
|
res |= ast_custom_function_unregister(&len_function);
|
|
res |= ast_custom_function_unregister(&strftime_function);
|
|
res |= ast_custom_function_unregister(&strptime_function);
|
|
res |= ast_custom_function_unregister(&eval_function);
|
|
res |= ast_custom_function_unregister(&keypadhash_function);
|
|
res |= ast_custom_function_unregister(&sprintf_function);
|
|
res |= ast_custom_function_unregister(&hashkeys_function);
|
|
res |= ast_custom_function_unregister(&hash_function);
|
|
res |= ast_unregister_application(app_clearhash);
|
|
res |= ast_custom_function_unregister(&toupper_function);
|
|
res |= ast_custom_function_unregister(&tolower_function);
|
|
|
|
return res;
|
|
}
|
|
|
|
static int load_module(void)
|
|
{
|
|
int res = 0;
|
|
|
|
res |= ast_custom_function_register(&fieldqty_function);
|
|
res |= ast_custom_function_register(&filter_function);
|
|
res |= ast_custom_function_register(®ex_function);
|
|
res |= ast_custom_function_register(&array_function);
|
|
res |= ast_custom_function_register("e_function);
|
|
res |= ast_custom_function_register(&len_function);
|
|
res |= ast_custom_function_register(&strftime_function);
|
|
res |= ast_custom_function_register(&strptime_function);
|
|
res |= ast_custom_function_register(&eval_function);
|
|
res |= ast_custom_function_register(&keypadhash_function);
|
|
res |= ast_custom_function_register(&sprintf_function);
|
|
res |= ast_custom_function_register(&hashkeys_function);
|
|
res |= ast_custom_function_register(&hash_function);
|
|
res |= ast_register_application(app_clearhash, exec_clearhash, syn_clearhash, desc_clearhash);
|
|
res |= ast_custom_function_register(&toupper_function);
|
|
res |= ast_custom_function_register(&tolower_function);
|
|
|
|
return res;
|
|
}
|
|
|
|
AST_MODULE_INFO_STANDARD(ASTERISK_GPL_KEY, "String handling dialplan functions");
|