r9797: - let us parse replication packets with linked attributes fine,
[samba.git] / source / scripting / ejs / smbcalls_samba3.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    provide hooks into smbd C calls from ejs scripts
5
6    Copyright (C) Jelmer Vernooij 2005
7    
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.
12    
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.
17    
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.
21 */
22
23 #include "includes.h"
24 #include "scripting/ejs/smbcalls.h"
25 #include "lib/appweb/ejs/ejs.h"
26 #include "lib/samba3/samba3.h"
27
28
29 static struct MprVar mprRegistry(struct samba3_regdb *reg)
30 {
31         struct MprVar mpv = mprObject("registry"), ks, vs, k, v;
32         int i, j;
33
34         ks = mprObject("array");
35
36         for (i = 0; i < reg->key_count; i++) {
37                 k = mprObject("regkey");
38
39                 mprSetVar(&k, "name", mprString(reg->keys[i].name));
40
41                 vs = mprObject("array");
42                 
43                 for (j = 0; j < reg->keys[i].value_count; j++) {
44                         v = mprObject("regval");
45
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));
49
50                         mprAddArray(&vs, j, v);
51                 }
52
53                 mprSetVar(&k, "values", vs);
54
55                 mprAddArray(&ks, i, k);
56         }
57
58         mprSetVar(&mpv, "keys", ks);
59
60         return mpv;
61 }
62
63 static struct MprVar mprPolicy(struct samba3_policy *pol)
64 {
65         struct MprVar mpv = mprObject("policy");
66
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));
77
78         return mpv;
79 }
80
81 static struct MprVar mprIdmapDb(struct samba3_idmapdb *db)
82 {
83         struct MprVar mpv = mprObject("idmapdb"), mps, mp;
84         int i;
85
86         mprSetVar(&mpv, "user_hwm", mprCreateIntegerVar(db->user_hwm));
87         mprSetVar(&mpv, "group_hwm", mprCreateIntegerVar(db->group_hwm));
88
89         mps = mprObject("array");
90
91         for (i = 0; i < db->mapping_count; i++) {
92                 char *tmp;
93                 mp = mprObject("idmap");
94
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));
99
100                 tmp = dom_sid_string(NULL, db->mappings[i].sid);
101                 mprSetVar(&mp, "sid", mprString(tmp));
102                 talloc_free(tmp);
103
104                 mprAddArray(&mps, i, mp);
105         }
106
107         mprSetVar(&mpv, "mappings", mps);
108
109         return mpv;
110 }
111
112 static struct MprVar mprGroupMappings(struct samba3_groupdb *db)
113 {
114         struct MprVar mpv = mprObject("array"), g;
115         int i;
116
117         for (i = 0; i < db->groupmap_count; i++) {
118                 char *tmp;
119                 g = mprObject("group");
120
121                 mprSetVar(&g, "gid", mprCreateIntegerVar(db->groupmappings[i].gid));
122
123                 tmp = dom_sid_string(NULL, db->groupmappings[i].sid);
124                 mprSetVar(&g, "sid", mprString(tmp));
125                 talloc_free(tmp);
126
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));
130
131                 mprAddArray(&mpv, i, g);
132         }
133
134         return mpv;
135 }
136
137 static struct MprVar mprAliases(struct samba3_groupdb *db)
138 {
139         struct MprVar mpv = mprObject("array"), a, am;
140         int i, j;
141
142         for (i = 0; i < db->alias_count; i++) {
143                 char *tmp;
144                 a = mprObject("alias");
145
146                 tmp = dom_sid_string(NULL, db->aliases[i].sid);
147                 mprSetVar(&a, "sid", mprString(tmp));
148                 talloc_free(tmp);
149
150                 am = mprObject("array");
151
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));
155                         talloc_free(tmp);
156                 }
157
158                 mprSetVar(&a, "members", am);
159         }
160
161         return mpv;
162 }
163
164 static struct MprVar mprDomainSecrets(struct samba3_domainsecrets *ds)
165 {
166         struct MprVar v, e = mprObject("domainsecrets");
167         char *tmp;
168         DATA_BLOB blob;
169
170         mprSetVar(&e, "name", mprString(ds->name));
171
172         tmp = dom_sid_string(NULL, &ds->sid);
173         mprSetVar(&e, "sid", mprString(tmp));
174         talloc_free(tmp);
175
176         tmp = GUID_string(NULL, &ds->guid);
177         mprSetVar(&e, "guid", mprString(tmp));
178         talloc_free(tmp);
179
180         mprSetVar(&e, "plaintext_pw", mprString(ds->plaintext_pw));
181
182         mprSetVar(&e, "last_change_time", mprCreateIntegerVar(ds->last_change_time));
183         mprSetVar(&e, "sec_channel_type", mprCreateIntegerVar(ds->sec_channel_type));
184
185         v = mprObject("hash_pw");
186
187         blob.data = ds->hash_pw.hash;
188         blob.length = 16;
189         mprSetVar(&v, "hash", mprDataBlob(blob));
190
191         mprSetVar(&v, "mod_time", mprCreateIntegerVar(ds->hash_pw.mod_time));
192
193         mprSetVar(&e, "hash_pw", v);
194
195         return e;
196 }
197
198 static struct MprVar mprSecrets(struct samba3_secrets *sec)
199 {
200         struct MprVar mpv = mprObject("samba3_secrets"), es, e;
201         int i;
202
203         es = mprObject("array");
204
205         for (i = 0; i < sec->ldappw_count; i++) {
206                 e = mprObject("ldappw");
207
208                 mprSetVar(&e, "dn", mprString(sec->ldappws[i].dn));
209                 mprSetVar(&e, "password", mprString(sec->ldappws[i].password));
210
211                 mprAddArray(&es, i, e);
212         }
213
214         mprSetVar(&mpv, "ldappws", es);
215
216         es = mprObject("array");
217
218         for (i = 0; i < sec->domain_count; i++) {
219                 mprAddArray(&es, i, mprDomainSecrets(&sec->domains[i]));
220         }
221
222         mprSetVar(&mpv, "domains", es);
223
224         es = mprObject("trusted_domains");
225
226         for (i = 0; i < sec->trusted_domain_count; i++) {
227                 struct MprVar ns;
228                 char *tmp;
229                 int j;
230                 e = mprObject("trusted_domain");
231
232                 ns = mprObject("array");
233
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]));
236                 }
237
238                 mprSetVar(&e, "uni_name", ns);
239
240                 mprSetVar(&e, "pass", mprString(sec->trusted_domains[i].pass));
241                 mprSetVar(&e, "mod_time", mprCreateIntegerVar(sec->trusted_domains[i].mod_time));
242
243                 tmp = dom_sid_string(NULL, &sec->trusted_domains[i].domain_sid);
244                 mprSetVar(&e, "domains_sid", mprString(tmp));
245                 talloc_free(tmp);
246
247                 mprAddArray(&es, i, e);
248         }
249
250         mprSetVar(&mpv, "trusted_domains", es);
251         
252         es = mprObject("array");
253
254         for (i = 0; i < sec->afs_keyfile_count; i++) {
255                 struct MprVar ks;
256                 int j;
257                 e = mprObject("afs_keyfile");
258
259                 mprSetVar(&e, "cell", mprString(sec->afs_keyfiles[i].cell));
260
261                 ks = mprObject("array");
262                 
263                 for (j = 0; j < 8; j++) {
264                         struct MprVar k = mprObject("entry");
265                         DATA_BLOB blob;
266                         
267                         mprSetVar(&k, "kvno", mprCreateIntegerVar(sec->afs_keyfiles[i].entry[j].kvno));
268                         blob.data = (uint8_t*)sec->afs_keyfiles[i].entry[j].key;
269                         blob.length = 8;
270                         mprSetVar(&k, "key", mprDataBlob(blob));
271
272                         mprAddArray(&ks, j, k);
273                 }
274
275                 mprSetVar(&e, "entry", ks);
276
277                 mprSetVar(&e, "nkeys", mprCreateIntegerVar(sec->afs_keyfiles[i].nkeys));
278
279                 mprAddArray(&es, i, e);
280         }
281
282         mprSetVar(&mpv, "afs_keyfiles", es);
283
284         mprSetVar(&mpv, "ipc_cred", mprCredentials(sec->ipc_cred));
285
286         return mpv;
287 }
288
289 static struct MprVar mprShares(struct samba3 *samba3)
290 {
291         struct MprVar mpv = mprObject("array"), s, ps, p;
292         int i, j;
293
294         for (i = 0; i < samba3->share_count; i++) {
295                 s = mprObject("share");
296
297                 mprSetVar(&s, "name", mprString(samba3->shares[i].name));
298
299                 /* FIXME: secdesc */
300
301                 ps = mprObject("array");
302
303                 for (j = 0; j < samba3->shares[i].parameter_count; j++) {
304                         p = mprObject("parameter");
305
306                         mprSetVar(&p, "name", mprString(samba3->shares[i].parameters[j].name));
307                         mprSetVar(&p, "value", mprString(samba3->shares[i].parameters[j].value));
308
309                         mprAddArray(&ps, j, p);
310                 }
311
312                 mprSetVar(&s, "parameters", ps);
313         }
314
315         return mpv;
316 }
317
318 static struct MprVar mprSamAccounts(struct samba3 *samba3)
319 {
320         struct MprVar mpv = mprObject("array"), m;
321         int i;
322
323         for (i = 0; i < samba3->samaccount_count; i++) {
324                 struct samba3_samaccount *a = &samba3->samaccounts[i];
325                 DATA_BLOB blob;
326
327                 m = mprObject("samba3_samaccount");
328
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));
353                 blob.length = 16;
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));
358
359                 mprAddArray(&mpv, i, m);
360         }
361
362         return mpv;
363 }
364
365 static struct MprVar mprWinsEntries(struct samba3 *samba3)
366 {
367         struct MprVar mpv = mprObject("array");
368         int i, j;
369
370         for (i = 0; i < samba3->winsdb_count; i++) {
371                 struct MprVar w = mprObject("wins_entry"), ips;
372
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));
377
378                 ips = mprObject("array");
379
380                 for (j = 0; j < samba3->winsdb_entries[i].ip_count; j++) {
381                         mprAddArray(&ips, j, mprString(iface_n_ip(i)));
382                 }
383
384                 mprSetVar(&w, "ips", ips);
385                 
386                 mprAddArray(&mpv, i, w);
387         }
388
389         return mpv;
390 }
391
392 static int ejs_get_param(MprVarHandle eid, int argc, struct MprVar **argv)
393 {
394         struct samba3 *samba3;
395         const char *tmp;
396
397         if (argc < 2) {
398                 ejsSetErrorMsg(eid, "get_param invalid arguments");
399                 return -1;
400         }
401
402         samba3 = mprGetThisPtr(eid, "samba3");
403         mprAssert(samba3);
404         tmp = samba3_get_param(samba3, mprToString(argv[0]), mprToString(argv[1]));
405
406         if (tmp == NULL) {
407                 mpr_Return(eid, mprCreateUndefinedVar());
408         } else {
409                 mpr_Return(eid, mprString(tmp));
410         }
411
412         return 0;
413 }
414
415 static int ejs_find_domainsecrets(MprVarHandle eid, int argc, struct MprVar **argv)
416 {
417         struct samba3 *samba3 = NULL;
418         struct samba3_domainsecrets *sec;
419
420         if (argc < 1) {
421                 ejsSetErrorMsg(eid, "find_domainsecrets invalid arguments");
422                 return -1;
423         }
424
425         samba3 = mprGetThisPtr(eid, "samba3");
426         mprAssert(samba3);
427         sec = samba3_find_domainsecrets(samba3, mprToString(argv[0]));
428
429         if (sec == NULL) {
430                 mpr_Return(eid, mprCreateUndefinedVar());
431         } else {
432                 mpr_Return(eid, mprDomainSecrets(sec));
433         }
434
435         return 0;
436 }
437
438
439
440 /*
441   initialise samba3 ejs subsystem
442 */
443 static int ejs_samba3_read(MprVarHandle eid, int argc, struct MprVar **argv)
444 {
445         struct MprVar mpv = mprObject("samba3");
446         struct samba3 *samba3;
447         NTSTATUS status;
448
449         if (argc < 2) {
450                 ejsSetErrorMsg(eid, "samba3_read invalid arguments");
451                 return -1;
452         }
453
454         status = samba3_read(mprToString(argv[0]), mprToString(argv[0]), mprMemCtx(), &samba3);
455
456         if (NT_STATUS_IS_ERR(status)) {
457                 ejsSetErrorMsg(eid, "samba3_read: error");
458                 return -1;
459         }
460
461         mprAssert(samba3);
462         
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);
475
476         mpr_Return(eid, mpv);
477         
478         return 0;
479 }
480
481
482 /*
483   setup C functions that be called from ejs
484 */
485 void smb_setup_ejs_samba3(void)
486 {
487         ejsDefineCFunction(-1, "samba3_read", ejs_samba3_read, NULL, MPR_VAR_SCRIPT_HANDLE);
488 }