91e58873df28a1ad996cf0488381214e02f59158
[jelmer/samba4-debian.git] / source / scripting / ejs / smbcalls.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    provide hooks into smbd C calls from ejs scripts
5
6    Copyright (C) Andrew Tridgell 2005
7    Copyright (C) Tim Potter 2005
8    
9    This program is free software; you can redistribute it and/or modify
10    it under the terms of the GNU General Public License as published by
11    the Free Software Foundation; either version 3 of the License, or
12    (at your option) any later version.
13    
14    This program is distributed in the hope that it will be useful,
15    but WITHOUT ANY WARRANTY; without even the implied warranty of
16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17    GNU General Public License for more details.
18    
19    You should have received a copy of the GNU General Public License
20    along with this program.  If not, see <http://www.gnu.org/licenses/>.
21 */
22
23 #include "includes.h"
24 #include "param/param.h"
25 #include "scripting/ejs/smbcalls.h"
26 #include "build.h"
27 #include "version.h"
28
29 /*
30   return the type of a variable
31 */
32 static int ejs_typeof(MprVarHandle eid, int argc, struct MprVar **argv)
33 {
34         const struct {
35                 MprType type;
36                 const char *name;
37         } types[] = {
38                 { MPR_TYPE_UNDEFINED,        "undefined" },
39                 { MPR_TYPE_NULL,             "object" },
40                 { MPR_TYPE_BOOL,             "boolean" },
41                 { MPR_TYPE_CFUNCTION,        "function" },
42                 { MPR_TYPE_FLOAT,            "number" },
43                 { MPR_TYPE_INT,              "number" },
44                 { MPR_TYPE_INT64,            "number" },
45                 { MPR_TYPE_OBJECT,           "object" },
46                 { MPR_TYPE_FUNCTION,         "function" },
47                 { MPR_TYPE_STRING,           "string" },
48                 { MPR_TYPE_STRING_CFUNCTION, "function" },
49                 { MPR_TYPE_PTR,              "pointer" }
50         };
51         int i;
52         const char *type = NULL;
53
54         if (argc != 1) return -1;
55         
56         for (i=0;i<ARRAY_SIZE(types);i++) {
57                 if (argv[0]->type == types[i].type) {
58                         type = types[i].name;
59                         break;
60                 }
61         }
62         if (type == NULL) return -1;
63
64         mpr_ReturnString(eid, type);
65         return 0;
66 }
67
68 /*
69   return the native type of a variable
70 */
71 static int ejs_typeof_native(MprVarHandle eid, int argc, struct MprVar **argv)
72 {
73         const struct {
74                 MprType type;
75                 const char *name;
76         } types[] = {
77                 { MPR_TYPE_UNDEFINED,        "undefined" },
78                 { MPR_TYPE_NULL,             "null" },
79                 { MPR_TYPE_BOOL,             "boolean" },
80                 { MPR_TYPE_CFUNCTION,        "c_function" },
81                 { MPR_TYPE_FLOAT,            "float" },
82                 { MPR_TYPE_INT,              "integer" },
83                 { MPR_TYPE_INT64,            "integer64" },
84                 { MPR_TYPE_OBJECT,           "object" },
85                 { MPR_TYPE_FUNCTION,         "js_function" },
86                 { MPR_TYPE_STRING,           "string" },
87                 { MPR_TYPE_STRING_CFUNCTION, "string_c_function" },
88                 { MPR_TYPE_PTR,              "pointer" }
89         };
90         int i;
91         const char *type = NULL;
92
93         if (argc != 1) return -1;
94         
95         for (i=0;i<ARRAY_SIZE(types);i++) {
96                 if (argv[0]->type == types[i].type) {
97                         type = types[i].name;
98                         break;
99                 }
100         }
101         if (type == NULL) return -1;
102
103         mpr_ReturnString(eid, type);
104         return 0;
105 }
106
107 /*
108   libinclude() allows you to include js files using a search path specified
109   in "js include =" in smb.conf. 
110 */
111 static int ejs_libinclude(int eid, int argc, char **argv)
112 {
113         int i, j;
114         const char **js_include = lp_js_include(global_loadparm);
115
116         if (js_include == NULL || js_include[0] == NULL) {
117                 ejsSetErrorMsg(eid, "js include path not set");
118                 return -1;
119         }
120
121         for (i = 0; i < argc; i++) {
122                 const char *script = argv[i];
123                 struct MprVar result;
124                 char *path, *emsg;
125                 int ret;
126
127                 /* use specfied path to search for requested file */
128                 for (j=0;js_include[j];j++) {
129                         path = talloc_asprintf(mprMemCtx(), "%s/%s", js_include[j], script);
130                         if (path == NULL) {
131                                 return -1;
132                         }
133                         if (file_exist(path)) {
134
135                                 ret = ejsEvalFile(eid, path, &result, &emsg);
136                                 talloc_free(path);
137                                 if (ret < 0) {
138                                         ejsSetErrorMsg(eid, "%s: %s", script, emsg);
139                                         return -1;
140                                 }
141                                 break;
142                         }
143                         talloc_free(path);
144                 }
145
146                 if (js_include[j] == NULL) {
147                         ejsSetErrorMsg(eid, "unable to include '%s'", script);
148                         return -1;
149                 }
150         }
151         return 0;
152 }
153
154 /*
155   return the current version
156 */
157 static int ejs_version(MprVarHandle eid, int argc, struct MprVar **argv)
158 {
159         mpr_ReturnString(eid, SAMBA_VERSION_STRING);
160         return 0;
161 }
162
163
164 static void (*ejs_exception_handler) (const char *) = NULL;
165
166 _PUBLIC_ void ejs_exception(const char *reason)
167 {
168         ejs_exception_handler(reason);          
169 }
170
171 /*
172   setup C functions that be called from ejs
173 */
174 void smb_setup_ejs_functions(void (*exception_handler)(const char *))
175 {
176         init_module_fn static_init[] = STATIC_smbcalls_MODULES;
177         init_module_fn *shared_init;
178
179         ejs_exception_handler = exception_handler;
180
181         smb_setup_ejs_cli();
182         smb_setup_ejs_options();
183         smb_setup_ejs_credentials();
184         smb_setup_ejs_param();
185         smb_setup_ejs_literal();
186         
187         shared_init = load_samba_modules(NULL, "smbcalls");
188         
189         run_init_functions(static_init);
190         run_init_functions(shared_init);
191
192         talloc_free(shared_init);
193
194         ejsDefineCFunction(-1, "typeof", ejs_typeof, NULL, MPR_VAR_SCRIPT_HANDLE);
195         ejsDefineCFunction(-1, "nativeTypeOf", ejs_typeof_native, NULL, MPR_VAR_SCRIPT_HANDLE);
196         ejsDefineStringCFunction(-1, "libinclude", ejs_libinclude, NULL, MPR_VAR_SCRIPT_HANDLE);
197         ejsDefineCFunction(-1, "version", ejs_version, NULL, MPR_VAR_SCRIPT_HANDLE);
198 }
199