b3c7eb2b59239bb11b017811080eaa0d8c7fd6ba
[asterisk/asterisk.git] / funcs / func_logic.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 1999 - 2005, Digium, Inc.
5  * Portions Copyright (C) 2005, Anthony Minessale II
6  *
7  * See http://www.asterisk.org for more information about
8  * the Asterisk project. Please do not directly contact
9  * any of the maintainers of this project for assistance;
10  * the project provides a web site, mailing lists and IRC
11  * channels for your use.
12  *
13  * This program is free software, distributed under the terms of
14  * the GNU General Public License Version 2. See the LICENSE file
15  * at the top of the source tree.
16  */
17
18 /*! \file
19  * 
20  * \brief Conditional logic dialplan functions
21  * 
22  * \author Anthony Minessale II
23  */
24
25 #include <stdlib.h>
26 #include <string.h>
27 #include <sys/types.h>
28
29 #include "asterisk.h"
30
31 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
32
33 #include "asterisk/module.h"
34 #include "asterisk/channel.h"
35 #include "asterisk/pbx.h"
36 #include "asterisk/logger.h"
37 #include "asterisk/utils.h"
38 #include "asterisk/app.h"
39
40 static char *isnull(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len) 
41 {
42         return data && *data ? "0" : "1";
43 }
44
45 static char *exists(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len) 
46 {
47         return data && *data ? "1" : "0";
48 }
49
50 static char *iftime(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len) 
51 {
52         struct ast_timing timing;
53         char *ret;
54         char *expr;
55         char *iftrue;
56         char *iffalse;
57
58         if (!(data = ast_strdupa(data)))
59                 return NULL;
60
61         data = ast_strip_quoted(data, "\"", "\"");
62         expr = strsep(&data, "?");
63         iftrue = strsep(&data, ":");
64         iffalse = data;
65
66         if (ast_strlen_zero(expr) || !(iftrue || iffalse)) {
67                 ast_log(LOG_WARNING, "Syntax IFTIME(<timespec>?[<true>][:<false>])\n");
68                 return NULL;
69         }
70
71         if (!ast_build_timing(&timing, expr)) {
72                 ast_log(LOG_WARNING, "Invalid Time Spec.\n");
73                 return NULL;
74         }
75
76         if (iftrue)
77                 iftrue = ast_strip_quoted(iftrue, "\"", "\"");
78         if (iffalse)
79                 iffalse = ast_strip_quoted(iffalse, "\"", "\"");
80
81         if ((ret = ast_check_timing(&timing) ? iftrue : iffalse)) {
82                 ast_copy_string(buf, ret, len);
83                 ret = buf;
84         } 
85         
86         return ret;
87 }
88
89 static char *acf_if(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len) 
90 {
91         char *ret;
92         char *expr;
93         char *iftrue;
94         char *iffalse;
95
96         if (!(data = ast_strdupa(data)))
97                 return NULL;
98
99         data = ast_strip_quoted(data, "\"", "\"");
100         expr = strsep(&data, "?");
101         iftrue = strsep(&data, ":");
102         iffalse = data;
103
104         if (ast_strlen_zero(expr) || !(iftrue || iffalse)) {
105                 ast_log(LOG_WARNING, "Syntax IF(<expr>?[<true>][:<false>])\n");
106                 return NULL;
107         }
108
109         expr = ast_strip(expr);
110         if (iftrue)
111                 iftrue = ast_strip_quoted(iftrue, "\"", "\"");
112         if (iffalse)
113                 iffalse = ast_strip_quoted(iffalse, "\"", "\"");
114
115         if ((ret = ast_true(expr) ? iftrue : iffalse)) {
116                 ast_copy_string(buf, ret, len);
117                 ret = buf;
118         } 
119         
120         return ret;
121 }
122
123 static char *set(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len) 
124 {
125         char *varname;
126         char *val;
127
128         if (!(data = ast_strdupa(data)))
129                 return NULL;
130
131         varname = strsep(&data, "=");
132         val = data;
133
134         if (ast_strlen_zero(varname) || !val) {
135                 ast_log(LOG_WARNING, "Syntax SET(<varname>=[<value>])\n");
136                 return NULL;
137         }
138
139         varname = ast_strip(varname);
140         val = ast_strip(val);
141         pbx_builtin_setvar_helper(chan, varname, val);
142         ast_copy_string(buf, val, len);
143
144         return buf;
145 }
146
147 static struct ast_custom_function isnull_function = {
148         .name = "ISNULL",
149         .synopsis = "NULL Test: Returns 1 if NULL or 0 otherwise",
150         .syntax = "ISNULL(<data>)",
151         .read = isnull,
152 };
153
154 static struct ast_custom_function set_function = {
155         .name = "SET",
156         .synopsis = "SET assigns a value to a channel variable",
157         .syntax = "SET(<varname>=[<value>])",
158         .read = set,
159 };
160
161 static struct ast_custom_function exists_function = {
162         .name = "EXISTS",
163         .synopsis = "Existence Test: Returns 1 if exists, 0 otherwise",
164         .syntax = "EXISTS(<data>)",
165         .read = exists,
166 };
167
168 static struct ast_custom_function if_function = {
169         .name = "IF",
170         .synopsis = "Conditional: Returns the data following '?' if true else the data following ':'",
171         .syntax = "IF(<expr>?[<true>][:<false>])",
172         .read = acf_if,
173 };
174
175 static struct ast_custom_function if_time_function = {
176         .name = "IFTIME",
177         .synopsis = "Temporal Conditional: Returns the data following '?' if true else the data following ':'",
178         .syntax = "IFTIME(<timespec>?[<true>][:<false>])",
179         .read = iftime,
180 };
181
182 static char *tdesc = "Logical dialplan functions";
183
184 int unload_module(void)
185 {
186         int res = 0;
187
188         res |= ast_custom_function_unregister(&isnull_function);
189         res |= ast_custom_function_unregister(&set_function);
190         res |= ast_custom_function_unregister(&exists_function);
191         res |= ast_custom_function_unregister(&if_function);
192         res |= ast_custom_function_unregister(&if_time_function);
193
194         return res;
195 }
196
197 int load_module(void)
198 {
199         int res = 0;
200
201         res |= ast_custom_function_register(&isnull_function);
202         res |= ast_custom_function_register(&set_function);
203         res |= ast_custom_function_register(&exists_function);
204         res |= ast_custom_function_register(&if_function);
205         res |= ast_custom_function_register(&if_time_function);
206
207         return res;
208 }
209
210 char *description(void)
211 {
212         return tdesc;
213 }
214
215 int usecount(void)
216 {
217         return 0;
218 }
219
220 char *key()
221 {
222         return ASTERISK_GPL_KEY;
223 }