2 Unix SMB/CIFS implementation.
4 provide hooks into smbd C 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 "scripting/ejs/smbcalls.h"
25 #include "lib/appweb/ejs/ejs.h"
26 #include "lib/ldb/include/ldb.h"
29 perform an ldb search, returning an array of results
32 ldbSearch("dbfile", "expression");
33 var attrs = new Array("attr1", "attr2", "attr3");
34 ldbSearch("dbfile", "expression", attrs);
36 static int ejs_ldbSearch(MprVarHandle eid, int argc, struct MprVar **argv)
38 const char **attrs = NULL;
39 const char *expression, *dbfile;
40 TALLOC_CTX *tmp_ctx = talloc_new(mprMemCtx());
41 struct ldb_context *ldb;
43 struct ldb_message **res;
45 /* validate arguments */
46 if (argc < 2 || argc > 3 ||
47 argv[0]->type != MPR_TYPE_STRING) {
48 ejsSetErrorMsg(eid, "ldbSearch invalid arguments");
51 if (argc == 3 && argv[2]->type != MPR_TYPE_OBJECT) {
52 ejsSetErrorMsg(eid, "ldbSearch attributes must be an object");
56 dbfile = mprToString(argv[0]);
57 expression = mprToString(argv[1]);
59 attrs = mprToList(tmp_ctx, argv[2]);
61 if (dbfile == NULL || expression == NULL) {
62 ejsSetErrorMsg(eid, "ldbSearch invalid arguments");
66 ldb = ldb_wrap_connect(tmp_ctx, dbfile, 0, NULL);
68 ejsSetErrorMsg(eid, "ldbSearch failed to open %s", dbfile);
72 ret = ldb_search(ldb, NULL, LDB_SCOPE_DEFAULT, expression, attrs, &res);
74 ejsSetErrorMsg(eid, "ldbSearch failed - %s", ldb_errstring(ldb));
78 mpr_Return(eid, mprLdbArray(res, ret, "ldb_message"));
90 perform an ldb add or modify
92 static int ejs_ldbAddModify(MprVarHandle eid, int argc, char **argv,
93 int fn(struct ldb_context *, const struct ldb_message *))
95 const char *ldifstring, *dbfile;
96 struct ldb_context *ldb;
97 struct ldb_ldif *ldif;
101 ejsSetErrorMsg(eid, "ldbAddModify invalid arguments");
106 ldifstring = argv[1];
108 ldb = ldb_wrap_connect(mprMemCtx(), dbfile, 0, NULL);
110 ejsSetErrorMsg(eid, "ldbAddModify failed to open %s", dbfile);
114 while ((ldif = ldb_ldif_read_string(ldb, &ldifstring))) {
115 ret = fn(ldb, ldif->msg);
119 mpr_Return(eid, mprCreateBoolVar(ret == 0));
130 perform an ldb delete
132 ok = ldbDelete(dbfile, dn);
134 static int ejs_ldbDelete(MprVarHandle eid, int argc, char **argv)
136 const char *dn, *dbfile;
137 struct ldb_context *ldb;
141 ejsSetErrorMsg(eid, "ldbDelete invalid arguments");
148 ldb = ldb_wrap_connect(mprMemCtx(), dbfile, 0, NULL);
150 ejsSetErrorMsg(eid, "ldbDelete failed to open %s", dbfile);
154 ret = ldb_delete(ldb, dn);
156 mpr_Return(eid, mprCreateBoolVar(ret == 0));
166 perform an ldb rename
168 ok = ldbRename(dbfile, dn1, dn2);
170 static int ejs_ldbRename(MprVarHandle eid, int argc, char **argv)
172 const char *dn1, *dn2, *dbfile;
173 struct ldb_context *ldb;
177 ejsSetErrorMsg(eid, "ldbRename invalid arguments");
185 ldb = ldb_wrap_connect(mprMemCtx(), dbfile, 0, NULL);
187 ejsSetErrorMsg(eid, "ldbRename failed to open %s", dbfile);
191 ret = ldb_rename(ldb, dn1, dn2);
193 mpr_Return(eid, mprCreateBoolVar(ret == 0));
203 perform an ldb modify
206 ok = ldbModify("dbfile", ldifstring);
208 static int ejs_ldbAdd(MprVarHandle eid, int argc, char **argv)
210 return ejs_ldbAddModify(eid, argc, argv, ldb_add);
217 ok = ldbAdd("dbfile", ldifstring);
219 static int ejs_ldbModify(MprVarHandle eid, int argc, char **argv)
221 return ejs_ldbAddModify(eid, argc, argv, ldb_modify);
227 setup C functions that be called from ejs
229 void smb_setup_ejs_ldb(void)
231 ejsDefineCFunction(-1, "ldbSearch", ejs_ldbSearch, NULL, MPR_VAR_SCRIPT_HANDLE);
232 ejsDefineStringCFunction(-1, "ldbAdd", ejs_ldbAdd, NULL, MPR_VAR_SCRIPT_HANDLE);
233 ejsDefineStringCFunction(-1, "ldbModify", ejs_ldbModify, NULL, MPR_VAR_SCRIPT_HANDLE);
234 ejsDefineStringCFunction(-1, "ldbDelete", ejs_ldbDelete, NULL, MPR_VAR_SCRIPT_HANDLE);
235 ejsDefineStringCFunction(-1, "ldbRename", ejs_ldbRename, NULL, MPR_VAR_SCRIPT_HANDLE);