build function modules independently (no more pbx_functions.so)
[asterisk/asterisk.git] / funcs / func_env.c
1 /*
2  * Asterisk -- An open source telephony toolkit.
3  *
4  * Copyright (C) 1999 - 2005, Digium, Inc.
5  *
6  * See http://www.asterisk.org for more information about
7  * the Asterisk project. Please do not directly contact
8  * any of the maintainers of this project for assistance;
9  * the project provides a web site, mailing lists and IRC
10  * channels for your use.
11  *
12  * This program is free software, distributed under the terms of
13  * the GNU General Public License Version 2. See the LICENSE file
14  * at the top of the source tree.
15  */
16
17 /*! \file
18  *
19  * \brief Environment related dialplan functions
20  * 
21  */
22
23 #include <stdlib.h>
24 #include <string.h>
25 #include <sys/types.h>
26 #include <sys/stat.h>
27
28 #include "asterisk.h"
29
30 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
31
32 #include "asterisk/module.h"
33 #include "asterisk/channel.h"
34 #include "asterisk/pbx.h"
35 #include "asterisk/logger.h"
36 #include "asterisk/utils.h"
37 #include "asterisk/app.h"
38
39 static char *env_read(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len) 
40 {
41         char *ret = "";
42
43         if (data) {
44                 ret = getenv(data);
45                 if (!ret)
46                         ret = "";
47         }
48         ast_copy_string(buf, ret, len);
49
50         return buf;
51 }
52
53 static void env_write(struct ast_channel *chan, char *cmd, char *data, const char *value) 
54 {
55         if (!ast_strlen_zero(data)) {
56                 if (!ast_strlen_zero(value)) {
57                         setenv(data, value, 1);
58                 } else {
59                         unsetenv(data);
60                 }
61         }
62 }
63
64 static char *stat_read(struct ast_channel *chan, char *cmd, char *data, char *buf, size_t len)
65 {
66         char *action;
67         struct stat s;
68
69         ast_copy_string(buf, "0", len);
70         if (!data) {
71                 ast_log(LOG_ERROR, "Out of memory\n");
72                 return buf;
73         }
74
75         action = strsep(&data, "|");
76         if (stat(data, &s)) {
77                 return buf;
78         } else {
79                 switch (*action) {
80                 case 'e':
81                         ast_copy_string(buf, "1", len);
82                         break;
83                 case 's':
84                         snprintf(buf, len, "%d", (unsigned int)s.st_size);
85                         break;
86                 case 'f':
87                         snprintf(buf, len, "%d", S_ISREG(s.st_mode) ? 1 : 0);
88                         break;
89                 case 'd':
90                         snprintf(buf, len, "%d", S_ISDIR(s.st_mode) ? 1 : 0);
91                         break;
92                 case 'M':
93                         snprintf(buf, len, "%d", (int)s.st_mtime);
94                         break;
95                 case 'A':
96                         snprintf(buf, len, "%d", (int)s.st_mtime);
97                         break;
98                 case 'C':
99                         snprintf(buf, len, "%d", (int)s.st_ctime);
100                         break;
101                 case 'm':
102                         snprintf(buf, len, "%o", (int)s.st_mode);
103                         break;
104                 }
105         }
106         return buf;
107 }
108
109 static struct ast_custom_function env_function = {
110         .name = "ENV",
111         .synopsis = "Gets or sets the environment variable specified",
112         .syntax = "ENV(<envname>)",
113         .read = env_read,
114         .write = env_write,
115 };
116
117 static struct ast_custom_function stat_function = {
118         .name = "STAT",
119         .synopsis = "Does a check on the specified file",
120         .syntax = "STAT(<flag>,<filename>)",
121         .read = stat_read,
122         .desc =
123 "flag may be one of the following:\n"
124 "  d - Checks if the file is a directory\n"
125 "  e - Checks if the file exists\n"
126 "  f - Checks if the file is a regular file\n"
127 "  m - Returns the file mode (in octal)\n"
128 "  s - Returns the size (in bytes) of the file\n"
129 "  A - Returns the epoch at which the file was last accessed\n"
130 "  C - Returns the epoch at which the inode was last changed\n"
131 "  M - Returns the epoch at which the file was last modified\n",
132 };
133
134
135 static char *tdesc = "Environment/filesystem dialplan functions";
136
137 int unload_module(void)
138 {
139         int res = 0;
140
141         res |= ast_custom_function_unregister(&env_function);
142         res |= ast_custom_function_unregister(&stat_function);
143
144         return res;
145 }
146
147 int load_module(void)
148 {
149         int res = 0;
150
151         res |= ast_custom_function_register(&env_function);
152         res |= ast_custom_function_register(&stat_function);
153
154         return res;
155 }
156
157 char *description(void)
158 {
159         return tdesc;
160 }
161
162 int usecount(void)
163 {
164         return 0;
165 }
166
167 char *key()
168 {
169         return ASTERISK_GPL_KEY;
170 }
171
172 /*
173 Local Variables:
174 mode: C
175 c-file-style: "linux"
176 indent-tabs-mode: nil
177 End:
178 */