r9725: Fix full output mode of samba3dump as well. Thanks to tridge for
[kai/samba.git] / source4 / 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 #if 0
30
31 struct samba3_secrets
32 {
33 };
34
35 #endif 
36
37 static struct MprVar mprRegistry(struct samba3_regdb *reg)
38 {
39         struct MprVar mpv = mprObject("registry"), ks, vs, k, v;
40         int i, j;
41
42         ks = mprObject("array");
43
44         for (i = 0; i < reg->key_count; i++) {
45                 k = mprObject("regkey");
46
47                 mprSetVar(&k, "name", mprString(reg->keys[i].name));
48
49                 vs = mprObject("array");
50                 
51                 for (j = 0; j < reg->keys[i].value_count; j++) {
52                         v = mprObject("regval");
53
54                         mprSetVar(&v, "name", mprString(reg->keys[i].values[j].name));
55                         mprSetVar(&v, "type", mprCreateIntegerVar(reg->keys[i].values[j].type));
56                         mprSetVar(&v, "data", mprDataBlob(reg->keys[i].values[j].data));
57
58                         mprAddArray(&vs, j, v);
59                 }
60
61                 mprSetVar(&k, "values", vs);
62
63                 mprAddArray(&ks, i, k);
64         }
65
66         mprSetVar(&mpv, "keys", ks);
67
68         return mpv;
69 }
70
71 static struct MprVar mprPolicy(struct samba3_policy *pol)
72 {
73         struct MprVar mpv = mprObject("policy");
74
75         mprSetVar(&mpv, "min_password_length", mprCreateIntegerVar(pol->min_password_length));
76         mprSetVar(&mpv, "password_history", mprCreateIntegerVar(pol->password_history));
77         mprSetVar(&mpv, "user_must_logon_to_change_password", mprCreateIntegerVar(pol->user_must_logon_to_change_password));
78         mprSetVar(&mpv, "maximum_password_age", mprCreateIntegerVar(pol->maximum_password_age));
79         mprSetVar(&mpv, "minimum_password_age", mprCreateIntegerVar(pol->minimum_password_age));
80         mprSetVar(&mpv, "lockout_duration", mprCreateIntegerVar(pol->lockout_duration));
81         mprSetVar(&mpv, "reset_count_minutes", mprCreateIntegerVar(pol->reset_count_minutes));
82         mprSetVar(&mpv, "bad_lockout_minutes", mprCreateIntegerVar(pol->bad_lockout_minutes));
83         mprSetVar(&mpv, "disconnect_time", mprCreateIntegerVar(pol->disconnect_time));
84         mprSetVar(&mpv, "refuse_machine_password_change", mprCreateIntegerVar(pol->refuse_machine_password_change));
85
86         return mpv;
87 }
88
89 static struct MprVar mprIdmapDb(struct samba3_idmapdb *db)
90 {
91         struct MprVar mpv = mprObject("idmapdb"), mps, mp;
92         int i;
93
94         mprSetVar(&mpv, "user_hwm", mprCreateIntegerVar(db->user_hwm));
95         mprSetVar(&mpv, "group_hwm", mprCreateIntegerVar(db->group_hwm));
96
97         mps = mprObject("array");
98
99         for (i = 0; i < db->mapping_count; i++) {
100                 char *tmp;
101                 mp = mprObject("idmap");
102
103                 mprSetVar(&mp, "IDMAP_GROUP", mprCreateIntegerVar(IDMAP_GROUP));
104                 mprSetVar(&mp, "IDMAP_USER", mprCreateIntegerVar(IDMAP_USER));
105                 mprSetVar(&mp, "type", mprCreateIntegerVar(db->mappings[i].type));
106                 mprSetVar(&mp, "unix_id", mprCreateIntegerVar(db->mappings[i].unix_id));
107
108                 tmp = dom_sid_string(NULL, db->mappings[i].sid);
109                 mprSetVar(&mp, "sid", mprString(tmp));
110                 talloc_free(tmp);
111
112                 mprAddArray(&mps, i, mp);
113         }
114
115         mprSetVar(&mpv, "mappings", mps);
116
117         return mpv;
118 }
119
120 static struct MprVar mprGroupMappings(struct samba3_groupdb *db)
121 {
122         struct MprVar mpv = mprObject("array"), g;
123         int i;
124
125         for (i = 0; i < db->groupmap_count; i++) {
126                 char *tmp;
127                 g = mprObject("group");
128
129                 mprSetVar(&g, "gid", mprCreateIntegerVar(db->groupmappings[i].gid));
130
131                 tmp = dom_sid_string(NULL, db->groupmappings[i].sid);
132                 mprSetVar(&g, "sid", mprString(tmp));
133                 talloc_free(tmp);
134
135                 mprSetVar(&g, "sid_name_use", mprCreateIntegerVar(db->groupmappings[i].sid_name_use));
136                 mprSetVar(&g, "nt_name", mprString(db->groupmappings[i].nt_name));
137                 mprSetVar(&g, "comment", mprString(db->groupmappings[i].comment));
138
139                 mprAddArray(&mpv, i, g);
140         }
141
142         return mpv;
143 }
144
145 static struct MprVar mprAliases(struct samba3_groupdb *db)
146 {
147         struct MprVar mpv = mprObject("array"), a, am;
148         int i, j;
149
150         for (i = 0; i < db->alias_count; i++) {
151                 char *tmp;
152                 a = mprObject("alias");
153
154                 tmp = dom_sid_string(NULL, db->aliases[i].sid);
155                 mprSetVar(&a, "sid", mprString(tmp));
156                 talloc_free(tmp);
157
158                 am = mprObject("array");
159
160                 for (j = 0; j < db->aliases[i].member_count; j++) {
161                         tmp = dom_sid_string(NULL, db->aliases[i].members[j]);
162                         mprAddArray(&am, j, mprString(tmp));
163                         talloc_free(tmp);
164                 }
165
166                 mprSetVar(&a, "members", am);
167         }
168
169         return mpv;
170 }
171
172 static struct MprVar mprSecrets(struct samba3_secrets *sec)
173 {
174         struct MprVar mpv = mprObject("samba3_secrets"), es, e;
175         int i;
176
177         es = mprObject("array");
178
179         for (i = 0; i < sec->ldappw_count; i++) {
180                 e = mprObject("ldappw");
181
182                 mprSetVar(&e, "dn", mprString(sec->ldappws[i].dn));
183                 mprSetVar(&e, "password", mprString(sec->ldappws[i].password));
184
185                 mprAddArray(&es, i, e);
186         }
187
188         mprSetVar(&mpv, "ldappws", es);
189
190         for (i = 0; i < sec->domain_count; i++) {
191                 char *tmp;
192                 struct MprVar v;
193                 e = mprObject("domainsecrets");
194
195                 mprSetVar(&e, "name", mprString(sec->domains[i].name));
196                 
197                 tmp = dom_sid_string(NULL, &sec->domains[i].sid);
198                 mprSetVar(&e, "sid", mprString(tmp));
199                 talloc_free(tmp);
200
201                 tmp = GUID_string(NULL, &sec->domains[i].guid);
202                 mprSetVar(&e, "guid", mprString(tmp));
203                 talloc_free(tmp);
204
205                 mprSetVar(&e, "plaintext_pw", mprString(sec->domains[i].plaintext_pw));
206
207                 mprSetVar(&e, "last_change_time", mprCreateIntegerVar(sec->domains[i].last_change_time));
208                 mprSetVar(&e, "sec_channel_type", mprCreateIntegerVar(sec->domains[i].sec_channel_type));
209
210                 v = mprObject("hash_pw");
211
212                 mprSetVar(&v, "hash", mprData(sec->domains[i].hash_pw.hash, 16));
213
214                 mprSetVar(&v, "mod_time", mprCreateIntegerVar(sec->domains[i].hash_pw.mod_time));
215
216                 mprSetVar(&e, "hash_pw", v);
217
218                 mprAddArray(&es, i, e);
219         }
220
221         mprSetVar(&mpv, "domains", es);
222
223         es = mprObject("trusted_domains");
224
225         for (i = 0; i < sec->trusted_domain_count; i++) {
226                 struct MprVar ns;
227                 char *tmp;
228                 int j;
229                 e = mprObject("trusted_domain");
230
231                 ns = mprObject("array");
232
233                 for (j = 0; j < sec->trusted_domains[i].uni_name_len; j++) {
234                         mprAddArray(&ns, j, mprString(sec->trusted_domains[i].uni_name[j]));
235                 }
236
237                 mprSetVar(&e, "uni_name", ns);
238
239                 mprSetVar(&e, "pass", mprString(sec->trusted_domains[i].pass));
240                 mprSetVar(&e, "mod_time", mprCreateIntegerVar(sec->trusted_domains[i].mod_time));
241
242                 tmp = dom_sid_string(NULL, &sec->trusted_domains[i].domain_sid);
243                 mprSetVar(&e, "domains_sid", mprString(tmp));
244                 talloc_free(tmp);
245
246                 mprAddArray(&es, i, e);
247         }
248
249         mprSetVar(&mpv, "trusted_domains", es);
250         
251         es = mprObject("array");
252
253         for (i = 0; i < sec->afs_keyfile_count; i++) {
254                 struct MprVar ks;
255                 int j;
256                 e = mprObject("afs_keyfile");
257
258                 mprSetVar(&e, "cell", mprString(sec->afs_keyfiles[i].cell));
259
260                 ks = mprObject("array");
261                 
262                 for (j = 0; j < 8; j++) {
263                         struct MprVar k = mprObject("entry");
264                         
265                         mprSetVar(&k, "kvno", mprCreateIntegerVar(sec->afs_keyfiles[i].entry[j].kvno));
266                         mprSetVar(&k, "key", mprData((uint8_t*)sec->afs_keyfiles[i].entry[j].key, 8));
267
268                         mprAddArray(&ks, j, k);
269                 }
270
271                 mprSetVar(&e, "entry", ks);
272
273                 mprSetVar(&e, "nkeys", mprCreateIntegerVar(sec->afs_keyfiles[i].nkeys));
274
275                 mprAddArray(&es, i, e);
276         }
277
278         mprSetVar(&mpv, "afs_keyfiles", es);
279
280         mprSetVar(&mpv, "ipc_cred", mprCredentials(sec->ipc_cred));
281
282         return mpv;
283 }
284
285 static struct MprVar mprShares(struct samba3 *samba3)
286 {
287         struct MprVar mpv = mprObject("array"), s, ps, p;
288         int i, j;
289
290         for (i = 0; i < samba3->share_count; i++) {
291                 s = mprObject("share");
292
293                 mprSetVar(&s, "name", mprString(samba3->shares[i].name));
294
295                 /* FIXME: secdesc */
296
297                 ps = mprObject("array");
298
299                 for (j = 0; j < samba3->shares[i].parameter_count; j++) {
300                         p = mprObject("parameter");
301
302                         mprSetVar(&p, "name", mprString(samba3->shares[i].parameters[j].name));
303                         mprSetVar(&p, "value", mprString(samba3->shares[i].parameters[j].value));
304
305                         mprAddArray(&ps, j, p);
306                 }
307
308                 mprSetVar(&s, "parameters", ps);
309         }
310
311         return mpv;
312 }
313
314 static struct MprVar mprSamAccounts(struct samba3 *samba3)
315 {
316         struct MprVar mpv = mprObject("array"), m;
317         int i;
318
319         for (i = 0; i < samba3->samaccount_count; i++) {
320                 struct samba3_samaccount *a = &samba3->samaccounts[i];
321
322                 m = mprObject("samba3_samaccount");
323
324                 mprSetVar(&m, "logon_time", mprCreateIntegerVar(a->logon_time));
325                 mprSetVar(&m, "logoff_time", mprCreateIntegerVar(a->logoff_time));
326                 mprSetVar(&m, "kickoff_time", mprCreateIntegerVar(a->kickoff_time));
327                 mprSetVar(&m, "bad_password_time", mprCreateIntegerVar(a->bad_password_time));
328                 mprSetVar(&m, "pass_last_set_time", mprCreateIntegerVar(a->pass_last_set_time));
329                 mprSetVar(&m, "pass_can_change_time", mprCreateIntegerVar(a->pass_can_change_time));
330                 mprSetVar(&m, "pass_must_change_time", mprCreateIntegerVar(a->pass_must_change_time));
331                 mprSetVar(&m, "user_rid", mprCreateIntegerVar(a->user_rid));
332                 mprSetVar(&m, "group_rid", mprCreateIntegerVar(a->group_rid));
333                 mprSetVar(&m, "acct_ctrl", mprCreateIntegerVar(a->acct_ctrl));
334                 mprSetVar(&m, "logon_divs", mprCreateIntegerVar(a->logon_divs));
335                 mprSetVar(&m, "bad_password_count", mprCreateIntegerVar(a->bad_password_count));
336                 mprSetVar(&m, "logon_count", mprCreateIntegerVar(a->logon_count));
337                 mprSetVar(&m, "username", mprString(a->username));
338                 mprSetVar(&m, "domain", mprString(a->domain));
339                 mprSetVar(&m, "nt_username", mprString(a->nt_username));
340                 mprSetVar(&m, "dir_drive", mprString(a->dir_drive));
341                 mprSetVar(&m, "munged_dial", mprString(a->munged_dial));
342                 mprSetVar(&m, "fullname", mprString(a->fullname));
343                 mprSetVar(&m, "homedir", mprString(a->homedir));
344                 mprSetVar(&m, "logon_script", mprString(a->logon_script));
345                 mprSetVar(&m, "profile_path", mprString(a->profile_path));
346                 mprSetVar(&m, "acct_desc", mprString(a->acct_desc));
347                 mprSetVar(&m, "workstations", mprString(a->workstations));
348
349                 /* FIXME: lm_pw_ptr, nt_pw_ptr */
350
351                 mprAddArray(&mpv, i, m);
352         }
353
354         return mpv;
355 }
356
357 static struct MprVar mprWinsEntries(struct samba3 *samba3)
358 {
359         struct MprVar mpv = mprObject("array");
360         int i, j;
361
362         for (i = 0; i < samba3->winsdb_count; i++) {
363                 struct MprVar w = mprObject("wins_entry"), ips;
364
365                 mprSetVar(&w, "name", mprString(samba3->winsdb_entries[i].name));
366                 mprSetVar(&w, "nb_flags", mprCreateIntegerVar(samba3->winsdb_entries[i].nb_flags));
367                 mprSetVar(&w, "type", mprCreateIntegerVar(samba3->winsdb_entries[i].type));
368                 mprSetVar(&w, "ttl", mprCreateIntegerVar(samba3->winsdb_entries[i].ttl));
369
370                 ips = mprObject("array");
371
372                 for (j = 0; j < samba3->winsdb_entries[i].ip_count; j++) {
373                         mprAddArray(&ips, j, mprString(iface_n_ip(i)));
374                 }
375
376                 mprSetVar(&w, "ips", ips);
377                 
378                 mprAddArray(&mpv, i, w);
379         }
380
381         return mpv;
382 }
383
384 /*
385   initialise samba3 ejs subsystem
386 */
387 static int ejs_samba3_read(MprVarHandle eid, int argc, struct MprVar **argv)
388 {
389         struct MprVar mpv = mprObject("samba3");
390         struct samba3 *samba3;
391         NTSTATUS status;
392
393         if (argc < 2) {
394                 ejsSetErrorMsg(eid, "samba3_read invalid arguments");
395                 return -1;
396         }
397
398         status = samba3_read(mprToString(argv[0]), mprToString(argv[0]), mprMemCtx(), &samba3);
399
400         if (NT_STATUS_IS_ERR(status)) {
401                 ejsSetErrorMsg(eid, "samba3_read: error");
402                 return -1;
403         }
404
405         mprSetVar(&mpv, "winsentries", mprWinsEntries(samba3));
406         mprSetVar(&mpv, "samaccounts", mprSamAccounts(samba3));
407         mprSetVar(&mpv, "shares", mprShares(samba3));
408         mprSetVar(&mpv, "secrets", mprSecrets(&samba3->secrets));
409         mprSetVar(&mpv, "groupmappings", mprGroupMappings(&samba3->group));
410         mprSetVar(&mpv, "aliases", mprAliases(&samba3->group));
411         mprSetVar(&mpv, "idmapdb", mprIdmapDb(&samba3->idmap));
412         mprSetVar(&mpv, "policy", mprPolicy(&samba3->policy));
413         mprSetVar(&mpv, "registry", mprRegistry(&samba3->registry));
414
415         mpr_Return(eid, mpv);
416         
417         return 0;
418 }
419
420
421 /*
422   setup C functions that be called from ejs
423 */
424 void smb_setup_ejs_samba3(void)
425 {
426         ejsDefineCFunction(-1, "samba3_read", ejs_samba3_read, NULL, MPR_VAR_SCRIPT_HANDLE);
427 }