2 Unix SMB/CIFS implementation.
4 provide interfaces to rpc calls from ejs scripts
6 Copyright (C) Andrew Tridgell 2005
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
24 #include "lib/ejs/ejs.h"
25 #include "librpc/gen_ndr/ndr_security.h"
26 #include "librpc/gen_ndr/ndr_lsa.h"
27 #include "scripting/ejs/ejsrpc.h"
30 set the switch var to be used by the next union switch
32 void ejs_set_switch(struct ejs_rpc *ejs, uint32_t switch_var)
34 ejs->switch_var = switch_var;
38 panic in the ejs wrapper code
40 NTSTATUS ejs_panic(struct ejs_rpc *ejs, const char *why)
42 ejsSetErrorMsg(ejs->eid, "rpc_call '%s' failed - %s", ejs->callname, why);
43 return NT_STATUS_INTERNAL_ERROR;
47 find a mpr component, allowing for sub objects, using the '.' convention
49 static NTSTATUS mprGetVar(struct MprVar **v, const char *name)
51 const char *p = strchr(name, '.');
55 *v = mprGetProperty(*v, name, NULL);
57 DEBUG(1,("mprGetVar unable to find '%s'\n", name));
58 return NT_STATUS_INVALID_PARAMETER;
62 objname = talloc_strndup(mprMemCtx(), name, p-name);
63 NT_STATUS_HAVE_NO_MEMORY(objname);
64 *v = mprGetProperty(*v, objname, NULL);
65 NT_STATUS_HAVE_NO_MEMORY(*v);
66 status = mprGetVar(v, p+1);
73 set a mpr component, allowing for sub objects, using the '.' convention
75 static NTSTATUS mprSetVar(struct MprVar *v, const char *name, struct MprVar val)
77 const char *p = strchr(name, '.');
82 v2 = mprSetProperty(v, name, &val);
84 DEBUG(1,("mprSetVar unable to set '%s'\n", name));
85 return NT_STATUS_INVALID_PARAMETER_MIX;
89 objname = talloc_strndup(mprMemCtx(), name, p-name);
90 if (objname == NULL) {
91 return NT_STATUS_NO_MEMORY;
93 v2 = mprGetProperty(v, objname, NULL);
95 struct MprVar val2 = mprCreateObjVar(objname, MPR_DEFAULT_HASH_SIZE);
96 v2 = mprCreateProperty(v, objname, &val2);
98 status = mprSetVar(v2, p+1, val);
105 start the ejs pull process for a structure
107 NTSTATUS ejs_pull_struct_start(struct ejs_rpc *ejs, struct MprVar **v, const char *name)
109 return mprGetVar(v, name);
114 start the ejs push process for a structure
116 NTSTATUS ejs_push_struct_start(struct ejs_rpc *ejs, struct MprVar **v, const char *name)
118 NDR_CHECK(mprSetVar(*v, name, mprCreateObjVar(name, MPR_DEFAULT_HASH_SIZE)));
119 return mprGetVar(v, name);
123 pull a uint8 from a mpr variable to a C element
125 NTSTATUS ejs_pull_uint8(struct ejs_rpc *ejs,
126 struct MprVar *v, const char *name, uint8_t *r)
128 NDR_CHECK(mprGetVar(&v, name));
129 *r = mprVarToInteger(v);
134 NTSTATUS ejs_push_uint8(struct ejs_rpc *ejs,
135 struct MprVar *v, const char *name, const uint8_t *r)
137 return mprSetVar(v, name, mprCreateIntegerVar(*r));
141 pull a uint16 from a mpr variable to a C element
143 NTSTATUS ejs_pull_uint16(struct ejs_rpc *ejs,
144 struct MprVar *v, const char *name, uint16_t *r)
146 NDR_CHECK(mprGetVar(&v, name));
147 *r = mprVarToInteger(v);
152 NTSTATUS ejs_push_uint16(struct ejs_rpc *ejs,
153 struct MprVar *v, const char *name, const uint16_t *r)
155 return mprSetVar(v, name, mprCreateIntegerVar(*r));
159 pull a uint32 from a mpr variable to a C element
161 NTSTATUS ejs_pull_uint32(struct ejs_rpc *ejs,
162 struct MprVar *v, const char *name, uint32_t *r)
164 NDR_CHECK(mprGetVar(&v, name));
165 *r = mprVarToInteger(v);
169 NTSTATUS ejs_push_uint32(struct ejs_rpc *ejs,
170 struct MprVar *v, const char *name, const uint32_t *r)
172 return mprSetVar(v, name, mprCreateIntegerVar(*r));
176 pull a int32 from a mpr variable to a C element
178 NTSTATUS ejs_pull_int32(struct ejs_rpc *ejs,
179 struct MprVar *v, const char *name, int32_t *r)
181 NDR_CHECK(mprGetVar(&v, name));
182 *r = mprVarToInteger(v);
186 NTSTATUS ejs_push_int32(struct ejs_rpc *ejs,
187 struct MprVar *v, const char *name, const int32_t *r)
189 return mprSetVar(v, name, mprCreateIntegerVar(*r));
192 NTSTATUS ejs_pull_hyper(struct ejs_rpc *ejs,
193 struct MprVar *v, const char *name, uint64_t *r)
195 NDR_CHECK(mprGetVar(&v, name));
196 *r = mprVarToInteger(v);
200 NTSTATUS ejs_push_hyper(struct ejs_rpc *ejs,
201 struct MprVar *v, const char *name, const uint64_t *r)
203 return mprSetVar(v, name, mprCreateIntegerVar(*r));
206 NTSTATUS ejs_pull_dlong(struct ejs_rpc *ejs,
207 struct MprVar *v, const char *name, uint64_t *r)
209 NDR_CHECK(mprGetVar(&v, name));
210 *r = mprVarToInteger(v);
214 NTSTATUS ejs_push_dlong(struct ejs_rpc *ejs,
215 struct MprVar *v, const char *name, const uint64_t *r)
217 return mprSetVar(v, name, mprCreateIntegerVar(*r));
220 NTSTATUS ejs_pull_udlong(struct ejs_rpc *ejs,
221 struct MprVar *v, const char *name, uint64_t *r)
223 NDR_CHECK(mprGetVar(&v, name));
224 *r = mprVarToInteger(v);
228 NTSTATUS ejs_push_udlong(struct ejs_rpc *ejs,
229 struct MprVar *v, const char *name, const uint64_t *r)
231 return mprSetVar(v, name, mprCreateIntegerVar(*r));
234 NTSTATUS ejs_pull_NTTIME(struct ejs_rpc *ejs,
235 struct MprVar *v, const char *name, uint64_t *r)
237 NDR_CHECK(mprGetVar(&v, name));
238 *r = mprVarToInteger(v);
242 NTSTATUS ejs_push_NTTIME(struct ejs_rpc *ejs,
243 struct MprVar *v, const char *name, const uint64_t *r)
245 return mprSetVar(v, name, mprCreateIntegerVar(*r));
250 pull a enum from a mpr variable to a C element
251 a enum is just treating as an unsigned integer at this level
253 NTSTATUS ejs_pull_enum(struct ejs_rpc *ejs,
254 struct MprVar *v, const char *name, unsigned *r)
256 NDR_CHECK(mprGetVar(&v, name));
257 *r = mprVarToInteger(v);
262 NTSTATUS ejs_push_enum(struct ejs_rpc *ejs,
263 struct MprVar *v, const char *name, const unsigned *r)
265 return mprSetVar(v, name, mprCreateIntegerVar(*r));
272 NTSTATUS ejs_pull_string(struct ejs_rpc *ejs,
273 struct MprVar *v, const char *name, const char **s)
275 NDR_CHECK(mprGetVar(&v, name));
283 NTSTATUS ejs_push_string(struct ejs_rpc *ejs,
284 struct MprVar *v, const char *name, const char *s)
286 return mprSetVar(v, name, mprCreateStringVar(s, True));
292 void ejs_set_constant_int(int eid, const char *name, int value)
294 struct MprVar *v = ejsGetGlobalObject(eid);
295 mprSetVar(v, name, mprCreateIntegerVar(value));
299 setup a constant string
301 void ejs_set_constant_string(int eid, const char *name, const char *value)
303 struct MprVar *v = ejsGetGlobalObject(eid);
304 mprSetVar(v, name, mprCreateStringVar(value, False));
308 NTSTATUS ejs_pull_dom_sid(struct ejs_rpc *ejs,
309 struct MprVar *v, const char *name, struct dom_sid *r)
312 NDR_CHECK(mprGetVar(&v, name));
313 sid = dom_sid_parse_talloc(ejs, mprToString(v));
314 NT_STATUS_HAVE_NO_MEMORY(sid);
319 NTSTATUS ejs_push_dom_sid(struct ejs_rpc *ejs,
320 struct MprVar *v, const char *name, const struct dom_sid *r)
322 char *sidstr = dom_sid_string(ejs, r);
323 NT_STATUS_HAVE_NO_MEMORY(sidstr);
324 return mprSetVar(v, name, mprCreateStringVar(sidstr, True));
327 NTSTATUS ejs_pull_GUID(struct ejs_rpc *ejs,
328 struct MprVar *v, const char *name, struct GUID *r)
330 NDR_CHECK(mprGetVar(&v, name));
331 return GUID_from_string(mprToString(v), r);
334 NTSTATUS ejs_push_GUID(struct ejs_rpc *ejs,
335 struct MprVar *v, const char *name, const struct GUID *r)
337 char *guid = GUID_string(ejs, r);
338 NT_STATUS_HAVE_NO_MEMORY(guid);
339 return mprSetVar(v, name, mprCreateStringVar(guid, True));
342 NTSTATUS ejs_push_null(struct ejs_rpc *ejs, struct MprVar *v, const char *name)
344 return mprSetVar(v, name, mprCreatePtrVar(NULL, name));
347 BOOL ejs_pull_null(struct ejs_rpc *ejs, struct MprVar *v, const char *name)
349 NTSTATUS status = mprGetVar(&v, name);
350 if (!NT_STATUS_IS_OK(status)) {
353 if (v->type == MPR_TYPE_PTR && v->ptr == NULL) {
362 NTSTATUS ejs_pull_lsa_String(struct ejs_rpc *ejs,
363 struct MprVar *v, const char *name, struct lsa_String *r)
365 return ejs_pull_string(ejs, v, name, &r->string);
371 NTSTATUS ejs_push_lsa_String(struct ejs_rpc *ejs,
372 struct MprVar *v, const char *name, const struct lsa_String *r)
374 return ejs_push_string(ejs, v, name, r->string);