?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
lib/tdb2: Fix wscript
[Samba.git] / lib / ldb / ldb_ldap / ldb_ldap.c
blob7e6ac903c8ad543c04af0f999eaa1b37668143dd
1 /*
2 ldb database library
3
4 Copyright (C) Andrew Tridgell 2004
5 Copyright (C) Simo Sorce 2006
6
7 ** NOTE! The following LGPL license applies to the ldb
8 ** library. This does NOT imply that all of Samba is released
9 ** under the LGPL
10
11 This library is free software; you can redistribute it and/or
12 modify it under the terms of the GNU Lesser General Public
13 License as published by the Free Software Foundation; either
14 version 3 of the License, or (at your option) any later version.
15
16 This library is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 Lesser General Public License for more details.
20
21 You should have received a copy of the GNU Lesser General Public
22 License along with this library; if not, see <http://www.gnu.org/licenses/>.
23 */
24
25 /*
26 * Name: ldb_ldap
27 *
28 * Component: ldb ldap backend
29 *
30 * Description: core files for LDAP backend
31 *
32 * Author: Andrew Tridgell
33 *
34 * Modifications:
35 *
36 * - description: make the module use asynchronous calls
37 * date: Feb 2006
38 * author: Simo Sorce
39 */
40
41 #include "replace.h"
42 #include "system/filesys.h"
43 #include "system/time.h"
44 #include "ldb_module.h"
45 #include "ldb_private.h"
46
47 #define LDAP_DEPRECATED 1
48 #include <ldap.h>
49
50 struct lldb_private {
51 LDAP *ldap;
52 };
53
54 struct lldb_context {
55 struct ldb_module *module;
56 struct ldb_request *req;
57
58 struct lldb_private *lldb;
59
60 struct ldb_control **controls;
61 int msgid;
62 };
63
64 static int lldb_ldap_to_ldb(int err) {
65 /* Ldap errors and ldb errors are defined to the same values */
66 return err;
67 }
68
69 /*
70 convert a ldb_message structure to a list of LDAPMod structures
71 ready for ldap_add() or ldap_modify()
72 */
73 static LDAPMod **lldb_msg_to_mods(void *mem_ctx, const struct ldb_message *msg, int use_flags)
74 {
75 LDAPMod **mods;
76 unsigned int i, j;
77 int num_mods = 0;
78
79 /* allocate maximum number of elements needed */
80 mods = talloc_array(mem_ctx, LDAPMod *, msg->num_elements+1);
81 if (!mods) {
82 errno = ENOMEM;
83 return NULL;
84 }
85 mods[0] = NULL;
86
87 for (i=0;i<msg->num_elements;i++) {
88 const struct ldb_message_element *el = &msg->elements[i];
89
90 mods[num_mods] = talloc(mods, LDAPMod);
91 if (!mods[num_mods]) {
92 goto failed;
93 }
94 mods[num_mods+1] = NULL;
95 mods[num_mods]->mod_op = LDAP_MOD_BVALUES;
96 if (use_flags) {
97 switch (el->flags & LDB_FLAG_MOD_MASK) {
98 case LDB_FLAG_MOD_ADD:
99 mods[num_mods]->mod_op |= LDAP_MOD_ADD;
100 break;
101 case LDB_FLAG_MOD_DELETE:
102 mods[num_mods]->mod_op |= LDAP_MOD_DELETE;
103 break;
104 case LDB_FLAG_MOD_REPLACE:
105 mods[num_mods]->mod_op |= LDAP_MOD_REPLACE;
106 break;
107 }
108 }
109 mods[num_mods]->mod_type = discard_const_p(char, el->name);
110 mods[num_mods]->mod_vals.modv_bvals = talloc_array(mods[num_mods],
111 struct berval *,
112 1+el->num_values);
113 if (!mods[num_mods]->mod_vals.modv_bvals) {
114 goto failed;
115 }
116
117 for (j=0;j<el->num_values;j++) {
118 mods[num_mods]->mod_vals.modv_bvals[j] = talloc(mods[num_mods]->mod_vals.modv_bvals,
119 struct berval);
120 if (!mods[num_mods]->mod_vals.modv_bvals[j]) {
121 goto failed;
122 }
123 mods[num_mods]->mod_vals.modv_bvals[j]->bv_val = (char *)el->values[j].data;
124 mods[num_mods]->mod_vals.modv_bvals[j]->bv_len = el->values[j].length;
125 }
126 mods[num_mods]->mod_vals.modv_bvals[j] = NULL;
127 num_mods++;
128 }
129
130 return mods;
131
132 failed:
133 talloc_free(mods);
134 return NULL;
135 }
136
137 /*
138 add a single set of ldap message values to a ldb_message
139 */
140 static int lldb_add_msg_attr(struct ldb_context *ldb,
141 struct ldb_message *msg,
142 const char *attr, struct berval **bval)
143 {
144 int count, i;
145 struct ldb_message_element *el;
146
147 count = ldap_count_values_len(bval);
148
149 if (count <= 0) {
150 return -1;
151 }
152
153 el = talloc_realloc(msg, msg->elements, struct ldb_message_element,
154 msg->num_elements + 1);
155 if (!el) {
156 errno = ENOMEM;
157 return -1;
158 }
159
160 msg->elements = el;
161
162 el = &msg->elements[msg->num_elements];
163
164 el->name = talloc_strdup(msg->elements, attr);
165 if (!el->name) {
166 errno = ENOMEM;
167 return -1;
168 }
169 el->flags = 0;
170
171 el->num_values = 0;
172 el->values = talloc_array(msg->elements, struct ldb_val, count);
173 if (!el->values) {
174 errno = ENOMEM;
175 return -1;
176 }
177
178 for (i=0;i<count;i++) {
179 /* we have to ensure this is null terminated so that
180 ldb_msg_find_attr_as_string() can work */
181 el->values[i].data = talloc_size(el->values, bval[i]->bv_len+1);
182 if (!el->values[i].data) {
183 errno = ENOMEM;
184 return -1;
185 }
186 memcpy(el->values[i].data, bval[i]->bv_val, bval[i]->bv_len);
187 el->values[i].data[bval[i]->bv_len] = 0;
188 el->values[i].length = bval[i]->bv_len;
189 el->num_values++;
190 }
191
192 msg->num_elements++;
193
194 return 0;
195 }
196
197 /*
198 search for matching records
199 */
200 static int lldb_search(struct lldb_context *lldb_ac)
201 {
202 struct ldb_context *ldb;
203 struct lldb_private *lldb = lldb_ac->lldb;
204 struct ldb_module *module = lldb_ac->module;
205 struct ldb_request *req = lldb_ac->req;
206 struct timeval tv;
207 int ldap_scope;
208 char *search_base;
209 char *expression;
210 int ret;
211
212 ldb = ldb_module_get_ctx(module);
213
214 if (!req->callback || !req->context) {
215 ldb_set_errstring(ldb, "Async interface called with NULL callback function or NULL context");
216 return LDB_ERR_OPERATIONS_ERROR;
217 }
218
219 if (req->op.search.tree == NULL) {
220 ldb_set_errstring(ldb, "Invalid expression parse tree");
221 return LDB_ERR_OPERATIONS_ERROR;
222 }
223
224 if (req->controls != NULL) {
225 ldb_debug(ldb, LDB_DEBUG_WARNING, "Controls are not yet supported by ldb_ldap backend!");
226 }
227
228 ldb_request_set_state(req, LDB_ASYNC_PENDING);
229
230 search_base = ldb_dn_alloc_linearized(lldb_ac, req->op.search.base);
231 if (req->op.search.base == NULL) {
232 search_base = talloc_strdup(lldb_ac, "");
233 }
234 if (search_base == NULL) {
235 return LDB_ERR_OPERATIONS_ERROR;
236 }
237
238 expression = ldb_filter_from_tree(lldb_ac, req->op.search.tree);
239 if (expression == NULL) {
240 return LDB_ERR_OPERATIONS_ERROR;
241 }
242
243 switch (req->op.search.scope) {
244 case LDB_SCOPE_BASE:
245 ldap_scope = LDAP_SCOPE_BASE;
246 break;
247 case LDB_SCOPE_ONELEVEL:
248 ldap_scope = LDAP_SCOPE_ONELEVEL;
249 break;
250 default:
251 ldap_scope = LDAP_SCOPE_SUBTREE;
252 break;
253 }
254
255 tv.tv_sec = req->timeout;
256 tv.tv_usec = 0;
257
258 ret = ldap_search_ext(lldb->ldap, search_base, ldap_scope,
259 expression,
260 discard_const_p(char *, req->op.search.attrs),
261 0,
262 NULL,
263 NULL,
264 &tv,
265 LDAP_NO_LIMIT,
266 &lldb_ac->msgid);
267
268 if (ret != LDAP_SUCCESS) {
269 ldb_set_errstring(ldb, ldap_err2string(ret));
270 }
271
272 return lldb_ldap_to_ldb(ret);
273 }
274
275 /*
276 add a record
277 */
278 static int lldb_add(struct lldb_context *lldb_ac)
279 {
280 struct ldb_context *ldb;
281 struct lldb_private *lldb = lldb_ac->lldb;
282 struct ldb_module *module = lldb_ac->module;
283 struct ldb_request *req = lldb_ac->req;
284 LDAPMod **mods;
285 char *dn;
286 int ret;
287
288 ldb = ldb_module_get_ctx(module);
289
290 ldb_request_set_state(req, LDB_ASYNC_PENDING);
291
292 mods = lldb_msg_to_mods(lldb_ac, req->op.add.message, 0);
293 if (mods == NULL) {
294 return LDB_ERR_OPERATIONS_ERROR;
295 }
296
297 dn = ldb_dn_alloc_linearized(lldb_ac, req->op.add.message->dn);
298 if (dn == NULL) {
299 return LDB_ERR_OPERATIONS_ERROR;
300 }
301
302 ret = ldap_add_ext(lldb->ldap, dn, mods,
303 NULL,
304 NULL,
305 &lldb_ac->msgid);
306
307 if (ret != LDAP_SUCCESS) {
308 ldb_set_errstring(ldb, ldap_err2string(ret));
309 }
310
311 return lldb_ldap_to_ldb(ret);
312 }
313
314 /*
315 modify a record
316 */
317 static int lldb_modify(struct lldb_context *lldb_ac)
318 {
319 struct ldb_context *ldb;
320 struct lldb_private *lldb = lldb_ac->lldb;
321 struct ldb_module *module = lldb_ac->module;
322 struct ldb_request *req = lldb_ac->req;
323 LDAPMod **mods;
324 char *dn;
325 int ret;
326
327 ldb = ldb_module_get_ctx(module);
328
329 ldb_request_set_state(req, LDB_ASYNC_PENDING);
330
331 mods = lldb_msg_to_mods(lldb_ac, req->op.mod.message, 1);
332 if (mods == NULL) {
333 return LDB_ERR_OPERATIONS_ERROR;
334 }
335
336 dn = ldb_dn_alloc_linearized(lldb_ac, req->op.mod.message->dn);
337 if (dn == NULL) {
338 return LDB_ERR_OPERATIONS_ERROR;
339 }
340
341 ret = ldap_modify_ext(lldb->ldap, dn, mods,
342 NULL,
343 NULL,
344 &lldb_ac->msgid);
345
346 if (ret != LDAP_SUCCESS) {
347 ldb_set_errstring(ldb, ldap_err2string(ret));
348 }
349
350 return lldb_ldap_to_ldb(ret);
351 }
352
353 /*
354 delete a record
355 */
356 static int lldb_delete(struct lldb_context *lldb_ac)
357 {
358 struct ldb_context *ldb;
359 struct lldb_private *lldb = lldb_ac->lldb;
360 struct ldb_module *module = lldb_ac->module;
361 struct ldb_request *req = lldb_ac->req;
362 char *dnstr;
363 int ret;
364
365 ldb = ldb_module_get_ctx(module);
366
367 ldb_request_set_state(req, LDB_ASYNC_PENDING);
368
369 dnstr = ldb_dn_alloc_linearized(lldb_ac, req->op.del.dn);
370
371 ret = ldap_delete_ext(lldb->ldap, dnstr,
372 NULL,
373 NULL,
374 &lldb_ac->msgid);
375
376 if (ret != LDAP_SUCCESS) {
377 ldb_set_errstring(ldb, ldap_err2string(ret));
378 }
379
380 return lldb_ldap_to_ldb(ret);
381 }
382
383 /*
384 rename a record
385 */
386 static int lldb_rename(struct lldb_context *lldb_ac)
387 {
388 struct ldb_context *ldb;
389 struct lldb_private *lldb = lldb_ac->lldb;
390 struct ldb_module *module = lldb_ac->module;
391 struct ldb_request *req = lldb_ac->req;
392 const char *rdn_name;
393 const struct ldb_val *rdn_val;
394 char *old_dn;
395 char *newrdn;
396 char *parentdn;
397 int ret;
398
399 ldb = ldb_module_get_ctx(module);
400
401 ldb_request_set_state(req, LDB_ASYNC_PENDING);
402
403 old_dn = ldb_dn_alloc_linearized(lldb_ac, req->op.rename.olddn);
404 if (old_dn == NULL) {
405 return LDB_ERR_OPERATIONS_ERROR;
406 }
407
408 rdn_name = ldb_dn_get_rdn_name(req->op.rename.newdn);
409 rdn_val = ldb_dn_get_rdn_val(req->op.rename.newdn);
410
411 if ((rdn_name != NULL) && (rdn_val != NULL)) {
412 newrdn = talloc_asprintf(lldb_ac, "%s=%s", rdn_name,
413 rdn_val->length > 0 ? ldb_dn_escape_value(lldb, *rdn_val) : "");
414 } else {
415 newrdn = talloc_strdup(lldb_ac, "");
416 }
417 if (!newrdn) {
418 return LDB_ERR_OPERATIONS_ERROR;
419 }
420
421 parentdn = ldb_dn_alloc_linearized(lldb_ac, ldb_dn_get_parent(lldb_ac, req->op.rename.newdn));
422 if (!parentdn) {
423 return LDB_ERR_OPERATIONS_ERROR;
424 }
425
426 ret = ldap_rename(lldb->ldap, old_dn, newrdn, parentdn,
427 1, NULL, NULL,
428 &lldb_ac->msgid);
429
430 if (ret != LDAP_SUCCESS) {
431 ldb_set_errstring(ldb, ldap_err2string(ret));
432 }
433
434 return lldb_ldap_to_ldb(ret);
435 }
436
437 static int lldb_start_trans(struct ldb_module *module)
438 {
439 /* TODO implement a local transaction mechanism here */
440
441 return LDB_SUCCESS;
442 }
443
444 static int lldb_end_trans(struct ldb_module *module)
445 {
446 /* TODO implement a local transaction mechanism here */
447
448 return LDB_SUCCESS;
449 }
450
451 static int lldb_del_trans(struct ldb_module *module)
452 {
453 /* TODO implement a local transaction mechanism here */
454
455 return LDB_SUCCESS;
456 }
457
458 static void lldb_request_done(struct lldb_context *ac,
459 struct ldb_control **ctrls, int error)
460 {
461 struct ldb_request *req;
462 struct ldb_reply *ares;
463
464 req = ac->req;
465
466 ares = talloc_zero(req, struct ldb_reply);
467 if (!ares) {
468 ldb_oom(ldb_module_get_ctx(ac->module));
469 req->callback(req, NULL);
470 return;
471 }
472 ares->type = LDB_REPLY_DONE;
473 ares->controls = talloc_steal(ares, ctrls);
474 ares->error = error;
475
476 req->callback(req, ares);
477 }
478
479 /* return false if the request is still in progress
480 * return true if the request is completed
481 */
482 static bool lldb_parse_result(struct lldb_context *ac, LDAPMessage *result)
483 {
484 struct ldb_context *ldb;
485 struct lldb_private *lldb = ac->lldb;
486 LDAPControl **serverctrlsp = NULL;
487 char **referralsp = NULL;
488 char *matcheddnp = NULL;
489 char *errmsgp = NULL;
490 LDAPMessage *msg;
491 int type;
492 struct ldb_message *ldbmsg;
493 char *referral;
494 bool callback_failed;
495 bool request_done;
496 bool lret;
497 unsigned int i;
498 int ret;
499
500 ldb = ldb_module_get_ctx(ac->module);
501
502 type = ldap_msgtype(result);
503 callback_failed = false;
504 request_done = false;
505
506 switch (type) {
507 case LDAP_RES_SEARCH_ENTRY:
508
509 msg = ldap_first_entry(lldb->ldap, result);
510 if (msg != NULL) {
511 BerElement *berptr = NULL;
512 char *attr, *dn;
513
514 ldbmsg = ldb_msg_new(ac);
515 if (!ldbmsg) {
516 ldb_oom(ldb);
517 ret = LDB_ERR_OPERATIONS_ERROR;
518 break;
519 }
520
521 dn = ldap_get_dn(lldb->ldap, msg);
522 if (!dn) {
523 ldb_oom(ldb);
524 talloc_free(ldbmsg);
525 ret = LDB_ERR_OPERATIONS_ERROR;
526 break;
527 }
528 ldbmsg->dn = ldb_dn_new(ldbmsg, ldb, dn);
529 if ( ! ldb_dn_validate(ldbmsg->dn)) {
530 ldb_asprintf_errstring(ldb, "Invalid DN '%s' in reply", dn);
531 talloc_free(ldbmsg);
532 ret = LDB_ERR_OPERATIONS_ERROR;
533 ldap_memfree(dn);
534 break;
535 }
536 ldap_memfree(dn);
537
538 ldbmsg->num_elements = 0;
539 ldbmsg->elements = NULL;
540
541 /* loop over all attributes */
542 for (attr=ldap_first_attribute(lldb->ldap, msg, &berptr);
543 attr;
544 attr=ldap_next_attribute(lldb->ldap, msg, berptr)) {
545 struct berval **bval;
546 bval = ldap_get_values_len(lldb->ldap, msg, attr);
547
548 if (bval) {
549 lldb_add_msg_attr(ldb, ldbmsg, attr, bval);
550 ldap_value_free_len(bval);
551 }
552 }
553 if (berptr) ber_free(berptr, 0);
554
555 ret = ldb_module_send_entry(ac->req, ldbmsg, NULL /* controls not yet supported */);
556 if (ret != LDB_SUCCESS) {
557 ldb_asprintf_errstring(ldb, "entry send failed: %s",
558 ldb_errstring(ldb));
559 callback_failed = true;
560 }
561 } else {
562 ret = LDB_ERR_OPERATIONS_ERROR;
563 }
564 break;
565
566 case LDAP_RES_SEARCH_REFERENCE:
567
568 ret = ldap_parse_reference(lldb->ldap, result,
569 &referralsp, &serverctrlsp, 0);
570 if (ret != LDAP_SUCCESS) {
571 ldb_asprintf_errstring(ldb, "ldap reference parse error: %s : %s",
572 ldap_err2string(ret), errmsgp);
573 ret = LDB_ERR_OPERATIONS_ERROR;
574 break;
575 }
576 if (referralsp == NULL) {
577 ldb_asprintf_errstring(ldb, "empty ldap referrals list");
578 ret = LDB_ERR_PROTOCOL_ERROR;
579 break;
580 }
581
582 for (i = 0; referralsp[i]; i++) {
583 referral = talloc_strdup(ac, referralsp[i]);
584
585 ret = ldb_module_send_referral(ac->req, referral);
586 if (ret != LDB_SUCCESS) {
587 ldb_asprintf_errstring(ldb, "referral send failed: %s",
588 ldb_errstring(ldb));
589 callback_failed = true;
590 break;
591 }
592 }
593 break;
594
595 case LDAP_RES_SEARCH_RESULT:
596 case LDAP_RES_MODIFY:
597 case LDAP_RES_ADD:
598 case LDAP_RES_DELETE:
599 case LDAP_RES_MODDN:
600
601 if (ldap_parse_result(lldb->ldap, result, &ret,
602 &matcheddnp, &errmsgp,
603 &referralsp, &serverctrlsp, 0) != LDAP_SUCCESS) {
604 ret = LDB_ERR_OPERATIONS_ERROR;
605 }
606 if (ret != LDB_SUCCESS) {
607 ldb_asprintf_errstring(ldb, "ldap parse error for type %d: %s : %s",
608 type, ldap_err2string(ret), errmsgp);
609 break;
610 }
611
612 if (serverctrlsp != NULL) {
613 /* FIXME: transform the LDAPControl list into an ldb_control one */
614 ac->controls = NULL;
615 }
616
617 request_done = true;
618 break;
619
620 default:
621 ldb_asprintf_errstring(ldb, "unknown ldap return type: %d", type);
622 ret = LDB_ERR_PROTOCOL_ERROR;
623 break;
624 }
625
626 if (ret != LDB_SUCCESS) {
627
628 /* if the callback failed the caller will have freed the
629 * request. Just return and don't try to use it */
630 if (callback_failed) {
631
632 /* tell lldb_wait to remove the request from the
633 * queue */
634 lret = true;
635 goto free_and_return;
636 }
637
638 request_done = true;
639 }
640
641 if (request_done) {
642 lldb_request_done(ac, ac->controls, ret);
643 lret = true;
644 goto free_and_return;
645 }
646
647 lret = false;
648
649 free_and_return:
650
651 if (matcheddnp) ldap_memfree(matcheddnp);
652 if (errmsgp && *errmsgp) {
653 ldb_set_errstring(ldb, errmsgp);
654 }
655 if (errmsgp) {
656 ldap_memfree(errmsgp);
657 }
658 if (referralsp) ldap_value_free(referralsp);
659 if (serverctrlsp) ldap_controls_free(serverctrlsp);
660
661 ldap_msgfree(result);
662
663 return lret;
664 }
665
666 static void lldb_timeout(struct tevent_context *ev,
667 struct tevent_timer *te,
668 struct timeval t,
669 void *private_data)
670 {
671 struct lldb_context *ac;
672 ac = talloc_get_type(private_data, struct lldb_context);
673
674 lldb_request_done(ac, NULL, LDB_ERR_TIME_LIMIT_EXCEEDED);
675 }
676
677 static void lldb_callback(struct tevent_context *ev,
678 struct tevent_timer *te,
679 struct timeval t,
680 void *private_data)
681 {
682 struct lldb_context *ac;
683 struct tevent_timer *lte;
684 struct timeval tv;
685 LDAPMessage *result;
686 int lret;
687
688 ac = talloc_get_type(private_data, struct lldb_context);
689
690 if (!ac->msgid) {
691 lldb_request_done(ac, NULL, LDB_ERR_OPERATIONS_ERROR);
692 return;
693 }
694
695 tv.tv_sec = 0;
696 tv.tv_usec = 0;
697 lret = ldap_result(ac->lldb->ldap, ac->msgid, 0, &tv, &result);
698 if (lret == 0) {
699 goto respin;
700 }
701 if (lret == -1) {
702 lldb_request_done(ac, NULL, LDB_ERR_OPERATIONS_ERROR);
703 return;
704 }
705
706 if ( ! lldb_parse_result(ac, result)) {
707 goto respin;
708 }
709
710 return;
711
712 respin:
713 tv.tv_sec = 0;
714 tv.tv_usec = 100;
715 lte = tevent_add_timer(ev, ac, tv, lldb_callback, ac);
716 if (NULL == lte) {
717 lldb_request_done(ac, NULL, LDB_ERR_OPERATIONS_ERROR);
718 }
719 }
720
721 static bool lldb_dn_is_special(struct ldb_request *req)
722 {
723 struct ldb_dn *dn = NULL;
724
725 switch (req->operation) {
726 case LDB_ADD:
727 dn = req->op.add.message->dn;
728 break;
729 case LDB_MODIFY:
730 dn = req->op.mod.message->dn;
731 break;
732 case LDB_DELETE:
733 dn = req->op.del.dn;
734 break;
735 case LDB_RENAME:
736 dn = req->op.rename.olddn;
737 break;
738 default:
739 break;
740 }
741
742 if (dn && ldb_dn_is_special(dn)) {
743 return true;
744 }
745 return false;
746 }
747
748 static void lldb_auto_done_callback(struct tevent_context *ev,
749 struct tevent_timer *te,
750 struct timeval t,
751 void *private_data)
752 {
753 struct lldb_context *ac;
754
755 ac = talloc_get_type(private_data, struct lldb_context);
756 lldb_request_done(ac, NULL, LDB_SUCCESS);
757 }
758
759 static int lldb_handle_request(struct ldb_module *module, struct ldb_request *req)
760 {
761 struct ldb_context *ldb;
762 struct lldb_private *lldb;
763 struct lldb_context *ac;
764 struct tevent_context *ev;
765 struct tevent_timer *te;
766 struct timeval tv;
767 int ret;
768
769 lldb = talloc_get_type(ldb_module_get_private(module), struct lldb_private);
770 ldb = ldb_module_get_ctx(module);
771
772 if (req->starttime == 0 || req->timeout == 0) {
773 ldb_set_errstring(ldb, "Invalid timeout settings");
774 return LDB_ERR_TIME_LIMIT_EXCEEDED;
775 }
776
777 ev = ldb_get_event_context(ldb);
778 if (NULL == ev) {
779 return LDB_ERR_OPERATIONS_ERROR;
780 }
781
782 ac = talloc_zero(ldb, struct lldb_context);
783 if (ac == NULL) {
784 ldb_set_errstring(ldb, "Out of Memory");
785 return LDB_ERR_OPERATIONS_ERROR;
786 }
787
788 ac->module = module;
789 ac->req = req;
790 ac->lldb = lldb;
791 ac->msgid = 0;
792
793 if (lldb_dn_is_special(req)) {
794 tv.tv_sec = 0;
795 tv.tv_usec = 0;
796 te = tevent_add_timer(ev, ac, tv,
797 lldb_auto_done_callback, ac);
798 if (NULL == te) {
799 return LDB_ERR_OPERATIONS_ERROR;
800 }
801
802 return LDB_SUCCESS;
803 }
804
805 switch (ac->req->operation) {
806 case LDB_SEARCH:
807 ret = lldb_search(ac);
808 break;
809 case LDB_ADD:
810 ret = lldb_add(ac);
811 break;
812 case LDB_MODIFY:
813 ret = lldb_modify(ac);
814 break;
815 case LDB_DELETE:
816 ret = lldb_delete(ac);
817 break;
818 case LDB_RENAME:
819 ret = lldb_rename(ac);
820 break;
821 default:
822 /* no other op supported */
823 ret = LDB_ERR_PROTOCOL_ERROR;
824 break;
825 }
826
827 if (ret != LDB_SUCCESS) {
828 lldb_request_done(ac, NULL, ret);
829 return ret;
830 }
831
832 tv.tv_sec = 0;
833 tv.tv_usec = 0;
834 te = tevent_add_timer(ev, ac, tv, lldb_callback, ac);
835 if (NULL == te) {
836 return LDB_ERR_OPERATIONS_ERROR;
837 }
838
839
840 tv.tv_sec = req->starttime + req->timeout;
841 tv.tv_usec = 0;
842 te = tevent_add_timer(ev, ac, tv, lldb_timeout, ac);
843 if (NULL == te) {
844 return LDB_ERR_OPERATIONS_ERROR;
845 }
846
847 return LDB_SUCCESS;
848 }
849
850 static const struct ldb_module_ops lldb_ops = {
851 .name = "ldap",
852 .search = lldb_handle_request,
853 .add = lldb_handle_request,
854 .modify = lldb_handle_request,
855 .del = lldb_handle_request,
856 .rename = lldb_handle_request,
857 .request = lldb_handle_request,
858 .start_transaction = lldb_start_trans,
859 .end_transaction = lldb_end_trans,
860 .del_transaction = lldb_del_trans,
861 };
862
863
864 static int lldb_destructor(struct lldb_private *lldb)
865 {
866 ldap_unbind(lldb->ldap);
867 return 0;
868 }
869
870
871 /*
872 optionally perform a bind
873 */
874 static int lldb_bind(struct ldb_module *module,
875 const char *options[])
876 {
877 const char *bind_mechanism;
878 struct lldb_private *lldb;
879 struct ldb_context *ldb = ldb_module_get_ctx(module);
880 int ret;
881
882 bind_mechanism = ldb_options_find(ldb, options, "bindMech");
883 if (bind_mechanism == NULL) {
884 /* no bind wanted */
885 return LDB_SUCCESS;
886 }
887
888 lldb = talloc_get_type(ldb_module_get_private(module), struct lldb_private);
889
890 if (strcmp(bind_mechanism, "simple") == 0) {
891 const char *bind_id, *bind_secret;
892
893 bind_id = ldb_options_find(ldb, options, "bindID");
894 bind_secret = ldb_options_find(ldb, options, "bindSecret");
895 if (bind_id == NULL || bind_secret == NULL) {
896 ldb_asprintf_errstring(ldb, "simple bind requires bindID and bindSecret");
897 return LDB_ERR_OPERATIONS_ERROR;
898 }
899
900 ret = ldap_simple_bind_s(lldb->ldap, bind_id, bind_secret);
901 if (ret != LDAP_SUCCESS) {
902 ldb_asprintf_errstring(ldb, "bind failed: %s", ldap_err2string(ret));
903 return ret;
904 }
905 return LDB_SUCCESS;
906 }
907
908 ldb_asprintf_errstring(ldb, "bind failed: unknown mechanism %s", bind_mechanism);
909 return LDB_ERR_INAPPROPRIATE_AUTHENTICATION;
910 }
911
912 /*
913 connect to the database
914 */
915 static int lldb_connect(struct ldb_context *ldb,
916 const char *url,
917 unsigned int flags,
918 const char *options[],
919 struct ldb_module **_module)
920 {
921 struct ldb_module *module;
922 struct lldb_private *lldb;
923 int version = 3;
924 int ret;
925
926 module = ldb_module_new(ldb, ldb, "ldb_ldap backend", &lldb_ops);
927 if (!module) return LDB_ERR_OPERATIONS_ERROR;
928
929 lldb = talloc_zero(module, struct lldb_private);
930 if (!lldb) {
931 ldb_oom(ldb);
932 goto failed;
933 }
934 ldb_module_set_private(module, lldb);
935
936 ret = ldap_initialize(&lldb->ldap, url);
937 if (ret != LDAP_SUCCESS) {
938 ldb_debug(ldb, LDB_DEBUG_FATAL, "ldap_initialize failed for URL '%s' - %s",
939 url, ldap_err2string(ret));
940 goto failed;
941 }
942
943 talloc_set_destructor(lldb, lldb_destructor);
944
945 ret = ldap_set_option(lldb->ldap, LDAP_OPT_PROTOCOL_VERSION, &version);
946 if (ret != LDAP_SUCCESS) {
947 ldb_debug(ldb, LDB_DEBUG_FATAL, "ldap_set_option failed - %s",
948 ldap_err2string(ret));
949 goto failed;
950 }
951
952 *_module = module;
953
954 ret = lldb_bind(module, options);
955 if (ret != LDB_SUCCESS) {
956 goto failed;
957 }
958
959
960 return LDB_SUCCESS;
961
962 failed:
963 talloc_free(module);
964 return LDB_ERR_OPERATIONS_ERROR;
965 }
966
967 /*
968 initialise the module
969 */
970 int ldb_ldap_init(const char *version)
971 {
972 int ret, i;
973 const char *names[] = { "ldap", "ldaps", "ldapi", NULL };
974 LDB_MODULE_CHECK_VERSION(version);
975 for (i=0; names[i]; i++) {
976 ret = ldb_register_backend(names[i], lldb_connect, false);
977 if (ret != LDB_SUCCESS) {
978 return ret;
979 }
980 }
981 return LDB_SUCCESS;
982 }
Samba GIT mirror