git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@5689 65c4cc65-6c06-0410-ace0-fbb531ad65f3
206 lines
5.2 KiB
C
Executable file
206 lines
5.2 KiB
C
Executable file
/*
|
|
* Asterisk -- A telephony toolkit for Linux.
|
|
*
|
|
* String manipulation dialplan functions
|
|
*
|
|
* Copyright (C) 2005, Digium, Inc.
|
|
* Portions Copyright (C) 2005, Tilghman Lesher. All rights reserved.
|
|
* Portions Copyright (C) 2005, Anthony Minessale II
|
|
*
|
|
* This program is free software, distributed under the terms of
|
|
* the GNU General Public License
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <sys/types.h>
|
|
#include <regex.h>
|
|
|
|
#include "asterisk/channel.h"
|
|
#include "asterisk/pbx.h"
|
|
#include "asterisk/logger.h"
|
|
#include "asterisk/utils.h"
|
|
#include "asterisk/app.h"
|
|
#include "asterisk/localtime.h"
|
|
|
|
static char *function_fieldqty(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char *varname, *varval, workspace[256];
|
|
char *delim = ast_strdupa(data);
|
|
int fieldcount = 0;
|
|
|
|
if (delim) {
|
|
varname = strsep(&delim, "|");
|
|
pbx_retrieve_variable(chan, varname, &varval, workspace, sizeof(workspace), NULL);
|
|
while (strsep(&varval, delim))
|
|
fieldcount++;
|
|
snprintf(buf, len, "%d", fieldcount);
|
|
} else {
|
|
ast_log(LOG_ERROR, "Out of memory\n");
|
|
strncpy(buf, "1", len);
|
|
}
|
|
return buf;
|
|
}
|
|
|
|
#ifndef BUILTIN_FUNC
|
|
static
|
|
#endif
|
|
struct ast_custom_function fieldqty_function = {
|
|
.name = "FIELDQTY",
|
|
.synopsis = "Count the fields, with an arbitrary delimiter",
|
|
.syntax = "FIELDQTY(<varname>,<delim>)",
|
|
.read = function_fieldqty,
|
|
};
|
|
|
|
static char *builtin_function_regex(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char *ret_true = "1", *ret_false = "0", *ret;
|
|
char *arg, *earg, *tmp, errstr[256] = "";
|
|
int errcode;
|
|
regex_t regexbuf;
|
|
|
|
ret = ret_false; /* convince me otherwise */
|
|
tmp = ast_strdupa(data);
|
|
if (tmp) {
|
|
/* Regex in quotes */
|
|
arg = strchr(tmp, '"');
|
|
if (arg) {
|
|
arg++;
|
|
earg = strrchr(arg, '"');
|
|
if (earg) {
|
|
*earg = '\0';
|
|
}
|
|
} else {
|
|
arg = tmp;
|
|
}
|
|
|
|
if ((errcode = regcomp(®exbuf, arg, REG_EXTENDED | REG_NOSUB))) {
|
|
regerror(errcode, ®exbuf, errstr, sizeof(errstr));
|
|
ast_log(LOG_WARNING, "Malformed input %s(%s): %s\n", cmd, data, errstr);
|
|
ret = NULL;
|
|
} else {
|
|
ret = regexec(®exbuf, data, 0, NULL, 0) ? ret_false : ret_true;
|
|
}
|
|
regfree(®exbuf);
|
|
} else {
|
|
ast_log(LOG_ERROR, "Out of memory in %s(%s)\n", cmd, data);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
#ifndef BUILTIN_FUNC
|
|
static
|
|
#endif
|
|
struct ast_custom_function regex_function = {
|
|
.name = "REGEX",
|
|
.synopsis = "Regular Expression: Returns 1 if data matches regular expression.",
|
|
.syntax = "REGEX(\"<regular expression>\" <data>)",
|
|
.read = builtin_function_regex,
|
|
};
|
|
|
|
static char *builtin_function_len(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
int length = 0;
|
|
if (data) {
|
|
length = strlen(data);
|
|
}
|
|
snprintf(buf, len, "%d", length);
|
|
return buf;
|
|
}
|
|
|
|
#ifndef BUILTIN_FUNC
|
|
static
|
|
#endif
|
|
struct ast_custom_function len_function = {
|
|
.name = "LEN",
|
|
.synopsis = "Returns the length of the argument given",
|
|
.syntax = "LEN(<string>)",
|
|
.read = builtin_function_len,
|
|
};
|
|
|
|
static char *acf_strftime(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
char *format, *epoch, *timezone;
|
|
long epochi;
|
|
struct timeval tv;
|
|
struct tm time;
|
|
|
|
if (data) {
|
|
format = ast_strdupa(data);
|
|
if (format) {
|
|
epoch = strsep(&format, "|");
|
|
timezone = strsep(&format, "|");
|
|
|
|
if (epoch && !ast_strlen_zero(epoch) && sscanf(epoch, "%ld", &epochi) == 1) {
|
|
} else if (!gettimeofday(&tv, NULL)) {
|
|
epochi = tv.tv_sec;
|
|
} else {
|
|
ast_log(LOG_ERROR, "Cannot gettimeofday() ?!!\n");
|
|
return "";
|
|
}
|
|
|
|
ast_localtime(&epochi, &time, timezone);
|
|
|
|
if (!format) {
|
|
format = "%c";
|
|
}
|
|
|
|
buf[0] = '\0';
|
|
if (! strftime(buf, len, format, &time)) {
|
|
ast_log(LOG_WARNING, "C function strftime() output nothing?!!\n");
|
|
}
|
|
buf[len - 1] = '\0';
|
|
|
|
return buf;
|
|
} else {
|
|
ast_log(LOG_ERROR, "Out of memory\n");
|
|
}
|
|
} else {
|
|
ast_log(LOG_ERROR, "Asterisk function STRFTIME() requires an argument.\n");
|
|
}
|
|
return "";
|
|
}
|
|
|
|
#ifndef BUILTIN_FUNC
|
|
static
|
|
#endif
|
|
struct ast_custom_function strftime_function = {
|
|
.name = "STRFTIME",
|
|
.synopsis = "Returns the current date/time in a specified format.",
|
|
.syntax = "STRFTIME([<epoch>][,[timezone][,format]])",
|
|
.read = acf_strftime,
|
|
};
|
|
|
|
static char *function_eval(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len)
|
|
{
|
|
if (!data || ast_strlen_zero(data)) {
|
|
ast_log(LOG_WARNING, "EVAL requires an argument: EVAL(<variable>)\n");
|
|
return buf;
|
|
}
|
|
|
|
pbx_substitute_variables_helper(chan, data, buf, len - 1);
|
|
|
|
return buf;
|
|
}
|
|
|
|
#ifndef BUILTIN_FUNC
|
|
static
|
|
#endif
|
|
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,
|
|
};
|
|
|