2 Unix SMB/CIFS implementation.
4 provide hooks into smbd C calls from ejs scripts
6 Copyright (C) Jelmer Vernooij 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/samba3/samba3.h"
29 static struct MprVar mprRegistry(struct samba3_regdb *reg)
31 struct MprVar mpv = mprObject("registry"), ks, vs, k, v;
34 ks = mprObject("array");
36 for (i = 0; i < reg->key_count; i++) {
37 k = mprObject("regkey");
39 mprSetVar(&k, "name", mprString(reg->keys[i].name));
41 vs = mprObject("array");
43 for (j = 0; j < reg->keys[i].value_count; j++) {
44 v = mprObject("regval");
46 mprSetVar(&v, "name", mprString(reg->keys[i].values[j].name));
47 mprSetVar(&v, "type", mprCreateIntegerVar(reg->keys[i].values[j].type));
48 mprSetVar(&v, "data", mprDataBlob(reg->keys[i].values[j].data));
50 mprAddArray(&vs, j, v);
53 mprSetVar(&k, "values", vs);
55 mprAddArray(&ks, i, k);
58 mprSetVar(&mpv, "keys", ks);
63 static struct MprVar mprPolicy(struct samba3_policy *pol)
65 struct MprVar mpv = mprObject("policy");
67 mprSetVar(&mpv, "min_password_length", mprCreateIntegerVar(pol->min_password_length));
68 mprSetVar(&mpv, "password_history", mprCreateIntegerVar(pol->password_history));
69 mprSetVar(&mpv, "user_must_logon_to_change_password", mprCreateIntegerVar(pol->user_must_logon_to_change_password));
70 mprSetVar(&mpv, "maximum_password_age", mprCreateIntegerVar(pol->maximum_password_age));
71 mprSetVar(&mpv, "minimum_password_age", mprCreateIntegerVar(pol->minimum_password_age));
72 mprSetVar(&mpv, "lockout_duration", mprCreateIntegerVar(pol->lockout_duration));
73 mprSetVar(&mpv, "reset_count_minutes", mprCreateIntegerVar(pol->reset_count_minutes));
74 mprSetVar(&mpv, "bad_lockout_minutes", mprCreateIntegerVar(pol->bad_lockout_minutes));
75 mprSetVar(&mpv, "disconnect_time", mprCreateIntegerVar(pol->disconnect_time));
76 mprSetVar(&mpv, "refuse_machine_password_change", mprCreateIntegerVar(pol->refuse_machine_password_change));
81 static struct MprVar mprIdmapDb(struct samba3_idmapdb *db)
83 struct MprVar mpv = mprObject("idmapdb"), mps, mp;
86 mprSetVar(&mpv, "user_hwm", mprCreateIntegerVar(db->user_hwm));
87 mprSetVar(&mpv, "group_hwm", mprCreateIntegerVar(db->group_hwm));
89 mps = mprObject("array");
91 for (i = 0; i < db->mapping_count; i++) {
93 mp = mprObject("idmap");
95 mprSetVar(&mp, "IDMAP_GROUP", mprCreateIntegerVar(IDMAP_GROUP));
96 mprSetVar(&mp, "IDMAP_USER", mprCreateIntegerVar(IDMAP_USER));
97 mprSetVar(&mp, "type", mprCreateIntegerVar(db->mappings[i].type));
98 mprSetVar(&mp, "unix_id", mprCreateIntegerVar(db->mappings[i].unix_id));
100 tmp = dom_sid_string(NULL, db->mappings[i].sid);
101 mprSetVar(&mp, "sid", mprString(tmp));
104 mprAddArray(&mps, i, mp);
107 mprSetVar(&mpv, "mappings", mps);
112 static struct MprVar mprGroupMappings(struct samba3_groupdb *db)
114 struct MprVar mpv = mprObject("array"), g;
117 for (i = 0; i < db->groupmap_count; i++) {
119 g = mprObject("group");
121 mprSetVar(&g, "gid", mprCreateIntegerVar(db->groupmappings[i].gid));
123 tmp = dom_sid_string(NULL, db->groupmappings[i].sid);
124 mprSetVar(&g, "sid", mprString(tmp));
127 mprSetVar(&g, "sid_name_use", mprCreateIntegerVar(db->groupmappings[i].sid_name_use));
128 mprSetVar(&g, "nt_name", mprString(db->groupmappings[i].nt_name));
129 mprSetVar(&g, "comment", mprString(db->groupmappings[i].comment));
131 mprAddArray(&mpv, i, g);
137 static struct MprVar mprAliases(struct samba3_groupdb *db)
139 struct MprVar mpv = mprObject("array"), a, am;
142 for (i = 0; i < db->alias_count; i++) {
144 a = mprObject("alias");
146 tmp = dom_sid_string(NULL, db->aliases[i].sid);
147 mprSetVar(&a, "sid", mprString(tmp));
150 am = mprObject("array");
152 for (j = 0; j < db->aliases[i].member_count; j++) {
153 tmp = dom_sid_string(NULL, db->aliases[i].members[j]);
154 mprAddArray(&am, j, mprString(tmp));
158 mprSetVar(&a, "members", am);
164 static struct MprVar mprDomainSecrets(struct samba3_domainsecrets *ds)
166 struct MprVar v, e = mprObject("domainsecrets");
170 mprSetVar(&e, "name", mprString(ds->name));
172 tmp = dom_sid_string(NULL, &ds->sid);
173 mprSetVar(&e, "sid", mprString(tmp));
176 tmp = GUID_string(NULL, &ds->guid);
177 mprSetVar(&e, "guid", mprString(tmp));
180 mprSetVar(&e, "plaintext_pw", mprString(ds->plaintext_pw));
182 mprSetVar(&e, "last_change_time", mprCreateIntegerVar(ds->last_change_time));
183 mprSetVar(&e, "sec_channel_type", mprCreateIntegerVar(ds->sec_channel_type));
185 v = mprObject("hash_pw");
187 blob.data = ds->hash_pw.hash;
189 mprSetVar(&v, "hash", mprDataBlob(blob));
191 mprSetVar(&v, "mod_time", mprCreateIntegerVar(ds->hash_pw.mod_time));
193 mprSetVar(&e, "hash_pw", v);
198 static struct MprVar mprSecrets(struct samba3_secrets *sec)
200 struct MprVar mpv = mprObject("samba3_secrets"), es, e;
203 es = mprObject("array");
205 for (i = 0; i < sec->ldappw_count; i++) {
206 e = mprObject("ldappw");
208 mprSetVar(&e, "dn", mprString(sec->ldappws[i].dn));
209 mprSetVar(&e, "password", mprString(sec->ldappws[i].password));
211 mprAddArray(&es, i, e);
214 mprSetVar(&mpv, "ldappws", es);
216 es = mprObject("array");
218 for (i = 0; i < sec->domain_count; i++) {
219 mprAddArray(&es, i, mprDomainSecrets(&sec->domains[i]));
222 mprSetVar(&mpv, "domains", es);
224 es = mprObject("trusted_domains");
226 for (i = 0; i < sec->trusted_domain_count; i++) {
230 e = mprObject("trusted_domain");
232 ns = mprObject("array");
234 for (j = 0; j < sec->trusted_domains[i].uni_name_len; j++) {
235 mprAddArray(&ns, j, mprString(sec->trusted_domains[i].uni_name[j]));
238 mprSetVar(&e, "uni_name", ns);
240 mprSetVar(&e, "pass", mprString(sec->trusted_domains[i].pass));
241 mprSetVar(&e, "mod_time", mprCreateIntegerVar(sec->trusted_domains[i].mod_time));
243 tmp = dom_sid_string(NULL, &sec->trusted_domains[i].domain_sid);
244 mprSetVar(&e, "domains_sid", mprString(tmp));
247 mprAddArray(&es, i, e);
250 mprSetVar(&mpv, "trusted_domains", es);
252 es = mprObject("array");
254 for (i = 0; i < sec->afs_keyfile_count; i++) {
257 e = mprObject("afs_keyfile");
259 mprSetVar(&e, "cell", mprString(sec->afs_keyfiles[i].cell));
261 ks = mprObject("array");
263 for (j = 0; j < 8; j++) {
264 struct MprVar k = mprObject("entry");
267 mprSetVar(&k, "kvno", mprCreateIntegerVar(sec->afs_keyfiles[i].entry[j].kvno));
268 blob.data = (uint8_t*)sec->afs_keyfiles[i].entry[j].key;
270 mprSetVar(&k, "key", mprDataBlob(blob));
272 mprAddArray(&ks, j, k);
275 mprSetVar(&e, "entry", ks);
277 mprSetVar(&e, "nkeys", mprCreateIntegerVar(sec->afs_keyfiles[i].nkeys));
279 mprAddArray(&es, i, e);
282 mprSetVar(&mpv, "afs_keyfiles", es);
284 mprSetVar(&mpv, "ipc_cred", mprCredentials(sec->ipc_cred));
289 static struct MprVar mprShares(struct samba3 *samba3)
291 struct MprVar mpv = mprObject("array"), s, ps, p;
294 for (i = 0; i < samba3->share_count; i++) {
295 s = mprObject("share");
297 mprSetVar(&s, "name", mprString(samba3->shares[i].name));
301 ps = mprObject("array");
303 for (j = 0; j < samba3->shares[i].parameter_count; j++) {
304 p = mprObject("parameter");
306 mprSetVar(&p, "name", mprString(samba3->shares[i].parameters[j].name));
307 mprSetVar(&p, "value", mprString(samba3->shares[i].parameters[j].value));
309 mprAddArray(&ps, j, p);
312 mprSetVar(&s, "parameters", ps);
318 static struct MprVar mprSamAccounts(struct samba3 *samba3)
320 struct MprVar mpv = mprObject("array"), m;
323 for (i = 0; i < samba3->samaccount_count; i++) {
324 struct samba3_samaccount *a = &samba3->samaccounts[i];
327 m = mprObject("samba3_samaccount");
329 mprSetVar(&m, "logon_time", mprCreateIntegerVar(a->logon_time));
330 mprSetVar(&m, "logoff_time", mprCreateIntegerVar(a->logoff_time));
331 mprSetVar(&m, "kickoff_time", mprCreateIntegerVar(a->kickoff_time));
332 mprSetVar(&m, "bad_password_time", mprCreateIntegerVar(a->bad_password_time));
333 mprSetVar(&m, "pass_last_set_time", mprCreateIntegerVar(a->pass_last_set_time));
334 mprSetVar(&m, "pass_can_change_time", mprCreateIntegerVar(a->pass_can_change_time));
335 mprSetVar(&m, "pass_must_change_time", mprCreateIntegerVar(a->pass_must_change_time));
336 mprSetVar(&m, "user_rid", mprCreateIntegerVar(a->user_rid));
337 mprSetVar(&m, "group_rid", mprCreateIntegerVar(a->group_rid));
338 mprSetVar(&m, "acct_ctrl", mprCreateIntegerVar(a->acct_ctrl));
339 mprSetVar(&m, "logon_divs", mprCreateIntegerVar(a->logon_divs));
340 mprSetVar(&m, "bad_password_count", mprCreateIntegerVar(a->bad_password_count));
341 mprSetVar(&m, "logon_count", mprCreateIntegerVar(a->logon_count));
342 mprSetVar(&m, "username", mprString(a->username));
343 mprSetVar(&m, "domain", mprString(a->domain));
344 mprSetVar(&m, "nt_username", mprString(a->nt_username));
345 mprSetVar(&m, "dir_drive", mprString(a->dir_drive));
346 mprSetVar(&m, "munged_dial", mprString(a->munged_dial));
347 mprSetVar(&m, "fullname", mprString(a->fullname));
348 mprSetVar(&m, "homedir", mprString(a->homedir));
349 mprSetVar(&m, "logon_script", mprString(a->logon_script));
350 mprSetVar(&m, "profile_path", mprString(a->profile_path));
351 mprSetVar(&m, "acct_desc", mprString(a->acct_desc));
352 mprSetVar(&m, "workstations", mprString(a->workstations));
354 blob.data = a->lm_pw.hash;
355 mprSetVar(&m, "lm_pw", mprDataBlob(blob));
356 blob.data = a->nt_pw.hash;
357 mprSetVar(&m, "nt_pw", mprDataBlob(blob));
359 mprAddArray(&mpv, i, m);
365 static struct MprVar mprWinsEntries(struct samba3 *samba3)
367 struct MprVar mpv = mprObject("array");
370 for (i = 0; i < samba3->winsdb_count; i++) {
371 struct MprVar w = mprObject("wins_entry"), ips;
373 mprSetVar(&w, "name", mprString(samba3->winsdb_entries[i].name));
374 mprSetVar(&w, "nb_flags", mprCreateIntegerVar(samba3->winsdb_entries[i].nb_flags));
375 mprSetVar(&w, "type", mprCreateIntegerVar(samba3->winsdb_entries[i].type));
376 mprSetVar(&w, "ttl", mprCreateIntegerVar(samba3->winsdb_entries[i].ttl));
378 ips = mprObject("array");
380 for (j = 0; j < samba3->winsdb_entries[i].ip_count; j++) {
381 mprAddArray(&ips, j, mprString(iface_n_ip(i)));
384 mprSetVar(&w, "ips", ips);
386 mprAddArray(&mpv, i, w);
392 static int ejs_get_param(MprVarHandle eid, int argc, struct MprVar **argv)
394 struct samba3 *samba3;
398 ejsSetErrorMsg(eid, "get_param invalid arguments");
402 samba3 = mprGetThisPtr(eid, "samba3");
404 tmp = samba3_get_param(samba3, mprToString(argv[0]), mprToString(argv[1]));
407 mpr_Return(eid, mprCreateUndefinedVar());
409 mpr_Return(eid, mprString(tmp));
415 static int ejs_find_domainsecrets(MprVarHandle eid, int argc, struct MprVar **argv)
417 struct samba3 *samba3 = NULL;
418 struct samba3_domainsecrets *sec;
421 ejsSetErrorMsg(eid, "find_domainsecrets invalid arguments");
425 samba3 = mprGetThisPtr(eid, "samba3");
427 sec = samba3_find_domainsecrets(samba3, mprToString(argv[0]));
430 mpr_Return(eid, mprCreateUndefinedVar());
432 mpr_Return(eid, mprDomainSecrets(sec));
441 initialise samba3 ejs subsystem
443 static int ejs_samba3_read(MprVarHandle eid, int argc, struct MprVar **argv)
445 struct MprVar mpv = mprObject("samba3");
446 struct samba3 *samba3;
450 ejsSetErrorMsg(eid, "samba3_read invalid arguments");
454 status = samba3_read(mprToString(argv[0]), mprToString(argv[0]), mprMemCtx(), &samba3);
456 if (NT_STATUS_IS_ERR(status)) {
457 ejsSetErrorMsg(eid, "samba3_read: error");
463 mprSetPtrChild(&mpv, "samba3", samba3);
464 mprSetVar(&mpv, "winsentries", mprWinsEntries(samba3));
465 mprSetVar(&mpv, "samaccounts", mprSamAccounts(samba3));
466 mprSetVar(&mpv, "shares", mprShares(samba3));
467 mprSetVar(&mpv, "secrets", mprSecrets(&samba3->secrets));
468 mprSetVar(&mpv, "groupmappings", mprGroupMappings(&samba3->group));
469 mprSetVar(&mpv, "aliases", mprAliases(&samba3->group));
470 mprSetVar(&mpv, "idmapdb", mprIdmapDb(&samba3->idmap));
471 mprSetVar(&mpv, "policy", mprPolicy(&samba3->policy));
472 mprSetVar(&mpv, "registry", mprRegistry(&samba3->registry));
473 mprSetCFunction(&mpv, "get_param", ejs_get_param);
474 mprSetCFunction(&mpv, "find_domainsecrets", ejs_find_domainsecrets);
476 mpr_Return(eid, mpv);
483 setup C functions that be called from ejs
485 void smb_setup_ejs_samba3(void)
487 ejsDefineCFunction(-1, "samba3_read", ejs_samba3_read, NULL, MPR_VAR_SCRIPT_HANDLE);