utils: only compile test_oLschema2ldif if fmemopen exists
[samba.git] / source3 / lib / namemap_cache.c
1 /*
2  * Unix SMB/CIFS implementation.
3  * Utils for caching sid2name and name2sid
4  * Copyright (C) Volker Lendecke 2017
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
18  */
19
20 #include "replace.h"
21 #include "namemap_cache.h"
22 #include "source3/lib/gencache.h"
23 #include "lib/util/debug.h"
24 #include "lib/util/strv.h"
25 #include "lib/util/util.h"
26 #include "lib/util/talloc_stack.h"
27 #include "lib/util/charset/charset.h"
28 #include "libcli/security/dom_sid.h"
29
30 bool namemap_cache_set_sid2name(const struct dom_sid *sid,
31                                 const char *domain, const char *name,
32                                 enum lsa_SidType type, time_t timeout)
33 {
34         char typebuf[16];
35         struct dom_sid_buf sidbuf;
36         char keybuf[sizeof(sidbuf.buf)+10];
37         char *val = NULL;
38         DATA_BLOB data;
39         int ret;
40         bool ok = false;
41
42         if ((sid == NULL) || is_null_sid(sid)) {
43                 return true;
44         }
45         if (domain == NULL) {
46                 domain = "";
47         }
48         if (name == NULL) {
49                 name = "";
50         }
51         if (type == SID_NAME_UNKNOWN) {
52                 domain = "";
53                 name = "";
54         }
55
56         snprintf(typebuf, sizeof(typebuf), "%d", (int)type);
57
58         ret = strv_add(talloc_tos(), &val, domain);
59         if (ret != 0) {
60                 DBG_DEBUG("strv_add failed: %s\n", strerror(ret));
61                 goto fail;
62         }
63         ret = strv_add(NULL, &val, name);
64         if (ret != 0) {
65                 DBG_DEBUG("strv_add failed: %s\n", strerror(ret));
66                 goto fail;
67         }
68         ret = strv_add(NULL, &val, typebuf);
69         if (ret != 0) {
70                 DBG_DEBUG("strv_add failed: %s\n", strerror(ret));
71                 goto fail;
72         }
73
74         dom_sid_str_buf(sid, &sidbuf);
75         snprintf(keybuf, sizeof(keybuf), "SID2NAME/%s", sidbuf.buf);
76
77         data = data_blob_const(val, talloc_get_size(val));
78
79         ok = gencache_set_data_blob(keybuf, data, timeout);
80         if (!ok) {
81                 DBG_DEBUG("gencache_set_data_blob failed\n");
82         }
83 fail:
84         TALLOC_FREE(val);
85         return ok;
86 }
87
88 struct namemap_cache_find_sid_state {
89         void (*fn)(const char *domain,
90                    const char *name,
91                    enum lsa_SidType type,
92                    bool expired,
93                    void *private_data);
94         void *private_data;
95         bool ok;
96 };
97
98 static void namemap_cache_find_sid_parser(
99         const struct gencache_timeout *timeout,
100         DATA_BLOB blob,
101         void *private_data)
102 {
103         struct namemap_cache_find_sid_state *state = private_data;
104         const char *strv = (const char *)blob.data;
105         size_t strv_len = blob.length;
106         const char *domain;
107         const char *name;
108         const char *typebuf;
109         int error = 0;
110         unsigned long type;
111
112         state->ok = false;
113
114         domain = strv_len_next(strv, strv_len, NULL);
115         if (domain == NULL) {
116                 return;
117         }
118         name = strv_len_next(strv, strv_len, domain);
119         if (name == NULL) {
120                 return;
121         }
122         typebuf = strv_len_next(strv, strv_len, name);
123         if (typebuf == NULL) {
124                 return;
125         }
126
127         type = smb_strtoul(typebuf, NULL, 10, &error, SMB_STR_FULL_STR_CONV);
128         if (error != 0) {
129                 return;
130         }
131
132         state->fn(domain,
133                   name,
134                   (enum lsa_SidType)type,
135                   gencache_timeout_expired(timeout),
136                   state->private_data);
137
138         state->ok = true;
139 }
140
141 bool namemap_cache_find_sid(const struct dom_sid *sid,
142                             void (*fn)(const char *domain,
143                                        const char *name,
144                                        enum lsa_SidType type,
145                                        bool expired,
146                                        void *private_data),
147                             void *private_data)
148 {
149         struct namemap_cache_find_sid_state state = {
150                 .fn = fn, .private_data = private_data
151         };
152         struct dom_sid_buf sidbuf;
153         char keybuf[sizeof(sidbuf.buf)+10];
154         bool ok;
155
156         dom_sid_str_buf(sid, &sidbuf);
157         snprintf(keybuf, sizeof(keybuf), "SID2NAME/%s", sidbuf.buf);
158
159         ok = gencache_parse(keybuf, namemap_cache_find_sid_parser, &state);
160         if (!ok) {
161                 DBG_DEBUG("gencache_parse(%s) failed\n", keybuf);
162                 return false;
163         }
164
165         if (!state.ok) {
166                 DBG_DEBUG("Could not parse %s, deleting\n", keybuf);
167                 gencache_del(keybuf);
168                 return false;
169         }
170
171         return true;
172 }
173
174 bool namemap_cache_set_name2sid(const char *domain, const char *name,
175                                 const struct dom_sid *sid,
176                                 enum lsa_SidType type,
177                                 time_t timeout)
178 {
179         char typebuf[16];
180         struct dom_sid_buf sidbuf = {{0}};
181         char *key;
182         char *key_upper;
183         char *val = NULL;
184         DATA_BLOB data;
185         int ret;
186         bool ok = false;
187
188         if (domain == NULL) {
189                 domain = "";
190         }
191         if (name == NULL) {
192                 name = "";
193         }
194         if (type != SID_NAME_UNKNOWN) {
195                 dom_sid_str_buf(sid, &sidbuf);
196         }
197
198         snprintf(typebuf, sizeof(typebuf), "%d", (int)type);
199
200         key = talloc_asprintf(talloc_tos(), "NAME2SID/%s\\%s", domain, name);
201         if (key == NULL) {
202                 DBG_DEBUG("talloc_asprintf failed\n");
203                 goto fail;
204         }
205         key_upper = strupper_talloc(key, key);
206         if (key_upper == NULL) {
207                 DBG_DEBUG("strupper_talloc failed\n");
208                 goto fail;
209         }
210
211         ret = strv_add(key, &val, sidbuf.buf);
212         if (ret != 0) {
213                 DBG_DEBUG("strv_add failed: %s\n", strerror(ret));
214                 goto fail;
215         }
216         ret = strv_add(NULL, &val, typebuf);
217         if (ret != 0) {
218                 DBG_DEBUG("strv_add failed: %s\n", strerror(ret));
219                 goto fail;
220         }
221
222         data = data_blob_const(val, talloc_get_size(val));
223
224         ok = gencache_set_data_blob(key_upper, data, timeout);
225         if (!ok) {
226                 DBG_DEBUG("gencache_set_data_blob failed\n");
227         }
228 fail:
229         TALLOC_FREE(key);
230         return ok;
231 }
232
233 struct namemap_cache_find_name_state {
234         void (*fn)(const struct dom_sid *sid,
235                    enum lsa_SidType type,
236                    bool expired,
237                    void *private_data);
238         void *private_data;
239         bool ok;
240 };
241
242 static void namemap_cache_find_name_parser(
243         const struct gencache_timeout *timeout,
244         DATA_BLOB blob,
245         void *private_data)
246 {
247         struct namemap_cache_find_name_state *state = private_data;
248         const char *strv = (const char *)blob.data;
249         size_t strv_len = blob.length;
250         const char *sidbuf;
251         const char *sid_endptr;
252         const char *typebuf;
253         int error = 0;
254         struct dom_sid sid;
255         unsigned long type;
256         bool ok;
257
258         state->ok = false;
259
260         sidbuf = strv_len_next(strv, strv_len, NULL);
261         if (sidbuf == NULL) {
262                 return;
263         }
264         typebuf = strv_len_next(strv, strv_len, sidbuf);
265         if (typebuf == NULL) {
266                 return;
267         }
268
269         ok = dom_sid_parse_endp(sidbuf, &sid, &sid_endptr);
270         if (!ok) {
271                 return;
272         }
273         if (*sid_endptr != '\0') {
274                 return;
275         }
276
277         type = smb_strtoul(typebuf, NULL, 10, &error, SMB_STR_FULL_STR_CONV);
278         if (error != 0) {
279                 return;
280         }
281
282         state->fn(&sid,
283                   (enum lsa_SidType)type,
284                   gencache_timeout_expired(timeout),
285                   state->private_data);
286
287         state->ok = true;
288 }
289
290 bool namemap_cache_find_name(const char *domain,
291                              const char *name,
292                              void (*fn)(const struct dom_sid *sid,
293                                         enum lsa_SidType type,
294                                         bool expired,
295                                         void *private_data),
296                              void *private_data)
297 {
298         struct namemap_cache_find_name_state state = {
299                 .fn = fn, .private_data = private_data
300         };
301         char *key;
302         char *key_upper;
303         bool ret = false;
304         bool ok;
305
306         key = talloc_asprintf(talloc_tos(), "NAME2SID/%s\\%s", domain, name);
307         if (key == NULL) {
308                 DBG_DEBUG("talloc_asprintf failed\n");
309                 return false;
310         }
311         key_upper = strupper_talloc(key, key);
312         if (key_upper == NULL) {
313                 DBG_DEBUG("strupper_talloc failed\n");
314                 goto fail;
315         }
316
317         ok = gencache_parse(key_upper, namemap_cache_find_name_parser, &state);
318         if (!ok) {
319                 DBG_DEBUG("gencache_parse(%s) failed\n", key_upper);
320                 goto fail;
321         }
322
323         if (!state.ok) {
324                 DBG_DEBUG("Could not parse %s, deleting\n", key_upper);
325                 goto fail;
326         }
327
328         ret = true;
329 fail:
330         TALLOC_FREE(key);
331         return ret;
332 }