2 Unix SMB/CIFS implementation.
3 Infrastructure for async ldap client requests
4 Copyright (C) Volker Lendecke 2009
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.
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.
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/>.
22 static bool tevent_req_is_ldap_error(struct tevent_req *req, int *perr)
24 enum tevent_req_state state;
27 if (!tevent_req_is_error(req, &state, &err)) {
31 case TEVENT_REQ_TIMED_OUT:
32 *perr = TLDAP_TIMEOUT;
34 case TEVENT_REQ_NO_MEMORY:
35 *perr = TLDAP_NO_MEMORY;
37 case TEVENT_REQ_USER_ERROR:
41 *perr = TLDAP_OPERATIONS_ERROR;
47 struct tldap_context {
54 struct tevent_queue *outgoing;
55 struct tevent_req **pending;
57 /* For the sync wrappers we need something like get_last_error... */
60 char *res_diagnosticmessage;
64 void (*log_fn)(void *context, enum tldap_debug_level level,
65 const char *fmt, va_list ap);
69 struct tldap_message {
70 struct asn1_data *data;
77 struct tldap_attribute *attribs;
80 void tldap_set_debug(struct tldap_context *ld,
81 void (*log_fn)(void *log_private,
82 enum tldap_debug_level level,
84 va_list ap) PRINTF_ATTRIBUTE(3,0),
88 ld->log_private = log_private;
91 static void tldap_debug(struct tldap_context *ld,
92 enum tldap_debug_level level,
99 if (ld->log_fn == NULL) {
103 ld->log_fn(ld->log_private, level, fmt, ap);
107 static int tldap_next_msgid(struct tldap_context *ld)
111 result = ld->msgid++;
112 if (ld->msgid == 2147483647) {
118 struct tldap_context *tldap_context_create(TALLOC_CTX *mem_ctx, int fd)
120 struct tldap_context *ctx;
122 ctx = talloc_zero(mem_ctx, struct tldap_context);
129 ctx->outgoing = tevent_queue_create(ctx, "tldap_outgoing");
130 if (ctx->outgoing == NULL) {
137 struct read_ldap_state {
142 static ssize_t read_ldap_more(uint8_t *buf, size_t buflen, void *private_data)
144 struct read_ldap_state *state = talloc_get_type_abort(
145 private_data, struct read_ldap_state);
150 /* We've been here, we're done */
155 * From ldap.h: LDAP_TAG_MESSAGE is 0x30
157 if (buf[0] != 0x30) {
162 if ((len & 0x80) == 0) {
167 lensize = (len & 0x7f);
171 /* Please get us the full length */
174 if (buflen > 2 + lensize) {
178 if (buflen != 2 + lensize) {
182 for (i=0; i<lensize; i++) {
183 len = (len << 8) | buf[2+i];
188 static void read_ldap_done(struct tevent_req *subreq);
190 static struct tevent_req *read_ldap_send(TALLOC_CTX *mem_ctx,
191 struct tevent_context *ev,
194 struct tevent_req *req, *subreq;
195 struct read_ldap_state *state;
197 req = tevent_req_create(mem_ctx, &state, struct read_ldap_state);
203 subreq = read_packet_send(state, ev, fd, 2, read_ldap_more, state);
204 if (tevent_req_nomem(subreq, req)) {
205 return tevent_req_post(req, ev);
207 tevent_req_set_callback(subreq, read_ldap_done, req);
211 static void read_ldap_done(struct tevent_req *subreq)
213 struct tevent_req *req = tevent_req_callback_data(
214 subreq, struct tevent_req);
215 struct read_ldap_state *state = tevent_req_data(
216 req, struct read_ldap_state);
220 nread = read_packet_recv(subreq, state, &state->buf, &err);
223 tevent_req_error(req, err);
226 tevent_req_done(req);
229 static ssize_t read_ldap_recv(struct tevent_req *req, TALLOC_CTX *mem_ctx,
230 uint8_t **pbuf, int *perrno)
232 struct read_ldap_state *state = tevent_req_data(
233 req, struct read_ldap_state);
235 if (tevent_req_is_unix_error(req, perrno)) {
238 *pbuf = talloc_move(mem_ctx, &state->buf);
239 return talloc_get_size(*pbuf);
242 static bool asn1_blob(const struct asn1_data *asn1, DATA_BLOB *blob)
244 if (asn1->has_error) {
247 if (asn1->nesting != NULL) {
250 blob->data = asn1->data;
251 blob->length = asn1->length;
255 static void asn1_load_nocopy(struct asn1_data *data, uint8_t *buf, size_t len)
262 struct tldap_msg_state {
263 struct tldap_context *ld;
264 struct tevent_context *ev;
268 struct asn1_data *data;
272 static void tldap_msg_sent(struct tevent_req *subreq);
273 static void tldap_msg_received(struct tevent_req *subreq);
275 static struct tevent_req *tldap_msg_send(TALLOC_CTX *mem_ctx,
276 struct tevent_context *ev,
277 struct tldap_context *ld,
278 int id, struct asn1_data *data)
280 struct tevent_req *req, *subreq;
281 struct tldap_msg_state *state;
284 req = tevent_req_create(mem_ctx, &state, struct tldap_msg_state);
294 if (!asn1_blob(data, &blob)) {
295 tevent_req_error(req, TLDAP_ENCODING_ERROR);
296 return tevent_req_post(req, ev);
299 state->iov.iov_base = blob.data;
300 state->iov.iov_len = blob.length;
302 subreq = writev_send(state, ev, ld->outgoing, ld->fd, false,
304 if (tevent_req_nomem(subreq, req)) {
305 return tevent_req_post(req, ev);
307 tevent_req_set_callback(subreq, tldap_msg_sent, req);
311 static void tldap_msg_unset_pending(struct tevent_req *req)
313 struct tldap_msg_state *state = tevent_req_data(
314 req, struct tldap_msg_state);
315 struct tldap_context *ld = state->ld;
316 int num_pending = talloc_array_length(ld->pending);
319 if (num_pending == 1) {
320 TALLOC_FREE(ld->pending);
324 for (i=0; i<num_pending; i++) {
325 if (req == ld->pending[i]) {
329 if (i == num_pending) {
331 * Something's seriously broken. Just returning here is the
332 * right thing nevertheless, the point of this routine is to
333 * remove ourselves from cli->pending.
339 * Remove ourselves from the cli->pending array
341 if (num_pending > 1) {
342 ld->pending[i] = ld->pending[num_pending-1];
346 * No NULL check here, we're shrinking by sizeof(void *), and
347 * talloc_realloc just adjusts the size for this.
349 ld->pending = talloc_realloc(NULL, ld->pending, struct tevent_req *,
354 static int tldap_msg_destructor(struct tevent_req *req)
356 tldap_msg_unset_pending(req);
360 static bool tldap_msg_set_pending(struct tevent_req *req)
362 struct tldap_msg_state *state = tevent_req_data(
363 req, struct tldap_msg_state);
364 struct tldap_context *ld;
365 struct tevent_req **pending;
367 struct tevent_req *subreq;
370 num_pending = talloc_array_length(ld->pending);
372 pending = talloc_realloc(ld, ld->pending, struct tevent_req *,
374 if (pending == NULL) {
377 pending[num_pending] = req;
378 ld->pending = pending;
379 talloc_set_destructor(req, tldap_msg_destructor);
381 if (num_pending > 0) {
386 * We're the first ones, add the read_ldap request that waits for the
387 * answer from the server
389 subreq = read_ldap_send(ld->pending, state->ev, ld->fd);
390 if (subreq == NULL) {
391 tldap_msg_unset_pending(req);
394 tevent_req_set_callback(subreq, tldap_msg_received, ld);
398 static void tldap_msg_sent(struct tevent_req *subreq)
400 struct tevent_req *req = tevent_req_callback_data(
401 subreq, struct tevent_req);
405 nwritten = writev_recv(subreq, &err);
407 if (nwritten == -1) {
408 tevent_req_error(req, TLDAP_SERVER_DOWN);
412 if (!tldap_msg_set_pending(req)) {
413 tevent_req_nomem(NULL, req);
418 static int tldap_msg_msgid(struct tevent_req *req)
420 struct tldap_msg_state *state = tevent_req_data(
421 req, struct tldap_msg_state);
426 static void tldap_msg_received(struct tevent_req *subreq)
428 struct tldap_context *ld = tevent_req_callback_data(
429 subreq, struct tldap_context);
430 struct tevent_req *req;
431 struct tldap_msg_state *state;
432 struct tevent_context *ev;
433 struct asn1_data *data;
441 received = read_ldap_recv(subreq, talloc_tos(), &inbuf, &err);
443 if (received == -1) {
444 status = TLDAP_SERVER_DOWN;
448 data = asn1_init(talloc_tos());
450 status = TLDAP_NO_MEMORY;
453 asn1_load_nocopy(data, inbuf, received);
456 ok &= asn1_start_tag(data, ASN1_SEQUENCE(0));
457 ok &= asn1_read_Integer(data, &id);
460 status = TLDAP_PROTOCOL_ERROR;
464 num_pending = talloc_array_length(ld->pending);
466 for (i=0; i<num_pending; i++) {
467 if (id == tldap_msg_msgid(ld->pending[i])) {
471 if (i == num_pending) {
472 /* Dump unexpected reply */
477 req = ld->pending[i];
478 state = tevent_req_data(req, struct tldap_msg_state);
480 state->inbuf = talloc_move(state, &inbuf);
481 state->data = talloc_move(state, &data);
485 talloc_set_destructor(req, NULL);
486 tldap_msg_destructor(req);
487 tevent_req_done(req);
490 if (talloc_array_length(ld->pending) > 0) {
491 state = tevent_req_data(ld->pending[0],
492 struct tldap_msg_state);
493 subreq = read_ldap_send(ld->pending, state->ev, ld->fd);
494 if (subreq == NULL) {
495 status = TLDAP_NO_MEMORY;
498 tevent_req_set_callback(subreq, tldap_msg_received, ld);
503 while (talloc_array_length(ld->pending) > 0) {
504 req = ld->pending[0];
505 talloc_set_destructor(req, NULL);
506 tldap_msg_destructor(req);
507 tevent_req_error(req, status);
511 static int tldap_msg_recv(struct tevent_req *req, TALLOC_CTX *mem_ctx,
512 struct tldap_message **pmsg)
514 struct tldap_msg_state *state = tevent_req_data(
515 req, struct tldap_msg_state);
516 struct tldap_message *msg;
520 if (tevent_req_is_ldap_error(req, &err)) {
524 if (!asn1_peek_uint8(state->data, &msgtype)) {
525 return TLDAP_PROTOCOL_ERROR;
529 return TLDAP_SUCCESS;
532 msg = talloc_zero(mem_ctx, struct tldap_message);
534 return TLDAP_NO_MEMORY;
538 msg->inbuf = talloc_move(msg, &state->inbuf);
539 msg->data = talloc_move(msg, &state->data);
543 return TLDAP_SUCCESS;
546 struct tldap_req_state {
548 struct asn1_data *out;
549 struct tldap_message *result;
553 char *res_diagnosticmessage;
557 static struct tevent_req *tldap_req_create(TALLOC_CTX *mem_ctx,
558 struct tldap_context *ld,
559 struct tldap_req_state **pstate)
561 struct tevent_req *req;
562 struct tldap_req_state *state;
564 req = tevent_req_create(mem_ctx, &state, struct tldap_req_state);
569 state->out = asn1_init(state);
570 if (state->out == NULL) {
574 state->result = NULL;
575 state->id = tldap_next_msgid(ld);
577 asn1_push_tag(state->out, ASN1_SEQUENCE(0));
578 asn1_write_Integer(state->out, state->id);
584 static void tldap_save_errors(struct tldap_context *ctx,
585 struct tevent_req *req)
587 struct tldap_req_state *state = tevent_req_data(
588 req, struct tldap_req_state);
590 TALLOC_FREE(ctx->res_matcheddn);
591 TALLOC_FREE(ctx->res_diagnosticmessage);
592 TALLOC_FREE(ctx->res_referral);
594 ctx->lderr = state->lderr;
595 ctx->res_matcheddn = talloc_move(ctx, &state->res_matcheddn);
596 ctx->res_diagnosticmessage = talloc_move(
597 ctx, &state->res_diagnosticmessage);
598 ctx->res_referral = talloc_move(ctx, &state->res_referral);
601 static char *blob2string_talloc(TALLOC_CTX *mem_ctx, DATA_BLOB blob)
603 char *result = talloc_array(mem_ctx, char, blob.length+1);
604 memcpy(result, blob.data, blob.length);
605 result[blob.length] = '\0';
609 static bool asn1_read_OctetString_talloc(TALLOC_CTX *mem_ctx,
610 struct asn1_data *data,
614 if (!asn1_read_OctetString(data, mem_ctx, &string))
616 *result = blob2string_talloc(mem_ctx, string);
617 data_blob_free(&string);
621 static bool tldap_decode_response(struct tldap_req_state *state)
623 struct asn1_data *data = state->result->data;
626 ok &= asn1_read_enumerated(data, &state->lderr);
627 ok &= asn1_read_OctetString_talloc(state, data, &state->res_matcheddn);
628 ok &= asn1_read_OctetString_talloc(state, data,
629 &state->res_diagnosticmessage);
630 if (asn1_peek_tag(data, ASN1_CONTEXT(3))) {
631 ok &= asn1_start_tag(data, ASN1_CONTEXT(3));
632 ok &= asn1_read_OctetString_talloc(
633 state, data, &state->res_referral);
634 ok &= asn1_end_tag(data);
636 state->res_referral = NULL;
642 static void tldap_sasl_bind_done(struct tevent_req *subreq);
644 struct tevent_req *tldap_sasl_bind_send(TALLOC_CTX *mem_ctx,
645 struct tevent_context *ev,
646 struct tldap_context *ld,
648 const char *mechanism,
650 struct tldap_control **sctrls,
651 struct tldap_control **cctrls)
653 struct tevent_req *req, *subreq;
654 struct tldap_req_state *state;
656 req = tldap_req_create(mem_ctx, ld, &state);
665 asn1_push_tag(state->out, TLDAP_REQ_BIND);
666 asn1_write_Integer(state->out, ld->ld_version);
667 asn1_write_OctetString(state->out, dn, (dn != NULL) ? strlen(dn) : 0);
669 if (mechanism == NULL) {
670 asn1_push_tag(state->out, ASN1_CONTEXT_SIMPLE(0));
671 asn1_write(state->out, creds->data, creds->length);
672 asn1_pop_tag(state->out);
674 asn1_push_tag(state->out, ASN1_CONTEXT(3));
675 asn1_write_OctetString(state->out, mechanism,
677 if ((creds != NULL) && (creds->data != NULL)) {
678 asn1_write_OctetString(state->out, creds->data,
681 asn1_pop_tag(state->out);
684 if (!asn1_pop_tag(state->out)) {
685 tevent_req_error(req, TLDAP_ENCODING_ERROR);
686 return tevent_req_post(req, ev);
689 subreq = tldap_msg_send(state, ev, ld, state->id, state->out);
690 if (tevent_req_nomem(subreq, req)) {
691 return tevent_req_post(req, ev);
693 tevent_req_set_callback(subreq, tldap_sasl_bind_done, req);
697 static void tldap_sasl_bind_done(struct tevent_req *subreq)
699 struct tevent_req *req = tevent_req_callback_data(
700 subreq, struct tevent_req);
701 struct tldap_req_state *state = tevent_req_data(
702 req, struct tldap_req_state);
705 err = tldap_msg_recv(subreq, state, &state->result);
707 if (err != TLDAP_SUCCESS) {
708 tevent_req_error(req, err);
711 if (state->result->type != TLDAP_RES_BIND) {
712 tevent_req_error(req, TLDAP_PROTOCOL_ERROR);
715 if (!asn1_start_tag(state->result->data, state->result->type) ||
716 !tldap_decode_response(state) ||
717 !asn1_end_tag(state->result->data)) {
718 tevent_req_error(req, TLDAP_DECODING_ERROR);
722 * TODO: pull the reply blob
724 if (state->lderr != TLDAP_SUCCESS) {
725 tevent_req_error(req, state->lderr);
728 tevent_req_done(req);
731 int tldap_sasl_bind_recv(struct tevent_req *req)
735 if (tevent_req_is_ldap_error(req, &err)) {
738 return TLDAP_SUCCESS;
741 int tldap_sasl_bind(struct tldap_context *ld,
743 const char *mechanism,
745 struct tldap_control **sctrls,
746 struct tldap_control **cctrls)
748 TALLOC_CTX *frame = talloc_stackframe();
749 struct tevent_context *ev;
750 struct tevent_req *req;
753 ev = event_context_init(frame);
755 result = TLDAP_NO_MEMORY;
759 req = tldap_sasl_bind_send(frame, ev, ld, dn, mechanism, creds,
762 result = TLDAP_NO_MEMORY;
766 if (!tevent_req_poll(req, ev)) {
767 result = TLDAP_OPERATIONS_ERROR;
771 result = tldap_sasl_bind_recv(req);
772 tldap_save_errors(ld, req);
778 struct tevent_req *tldap_simple_bind_send(TALLOC_CTX *mem_ctx,
779 struct tevent_context *ev,
780 struct tldap_context *ld,
786 if (passwd != NULL) {
787 cred.data = (uint8_t *)passwd;
788 cred.length = strlen(passwd);
790 cred.data = (uint8_t *)"";
793 return tldap_sasl_bind_send(mem_ctx, ev, ld, dn, NULL, &cred, NULL,
797 int tldap_simple_bind_recv(struct tevent_req *req)
799 return tldap_sasl_bind_recv(req);
802 int tldap_simple_bind(struct tldap_context *ld, const char *dn,
807 if (passwd != NULL) {
808 cred.data = (uint8_t *)passwd;
809 cred.length = strlen(passwd);
811 cred.data = (uint8_t *)"";
814 return tldap_sasl_bind(ld, dn, NULL, &cred, NULL, NULL);
817 /*****************************************************************************/
820 * This piece has a dependency on ldb, the ldb_parse_tree() function is used.
821 * In case we want to separate out tldap, we need to copy or rewrite it.
824 #include "lib/ldb/include/ldb.h"
825 #include "lib/ldb/include/ldb_errors.h"
827 static bool ldap_push_filter(struct asn1_data *data,
828 struct ldb_parse_tree *tree)
832 switch (tree->operation) {
836 ASN1_CONTEXT(tree->operation==LDB_OP_AND?0:1));
837 for (i=0; i<tree->u.list.num_elements; i++) {
838 if (!ldap_push_filter(data,
839 tree->u.list.elements[i])) {
847 asn1_push_tag(data, ASN1_CONTEXT(2));
848 if (!ldap_push_filter(data, tree->u.isnot.child)) {
854 case LDB_OP_EQUALITY:
856 asn1_push_tag(data, ASN1_CONTEXT(3));
857 asn1_write_OctetString(data, tree->u.equality.attr,
858 strlen(tree->u.equality.attr));
859 asn1_write_OctetString(data, tree->u.equality.value.data,
860 tree->u.equality.value.length);
864 case LDB_OP_SUBSTRING:
866 SubstringFilter ::= SEQUENCE {
867 type AttributeDescription,
868 -- at least one must be present
869 substrings SEQUENCE OF CHOICE {
870 initial [0] LDAPString,
872 final [2] LDAPString } }
874 asn1_push_tag(data, ASN1_CONTEXT(4));
875 asn1_write_OctetString(data, tree->u.substring.attr,
876 strlen(tree->u.substring.attr));
877 asn1_push_tag(data, ASN1_SEQUENCE(0));
879 if (!tree->u.substring.start_with_wildcard) {
880 asn1_push_tag(data, ASN1_CONTEXT_SIMPLE(0));
881 asn1_write_DATA_BLOB_LDAPString(
882 data, tree->u.substring.chunks[i]);
886 while (tree->u.substring.chunks[i]) {
889 if ((!tree->u.substring.chunks[i + 1]) &&
890 (tree->u.substring.end_with_wildcard == 0)) {
895 asn1_push_tag(data, ASN1_CONTEXT_SIMPLE(ctx));
896 asn1_write_DATA_BLOB_LDAPString(
897 data, tree->u.substring.chunks[i]);
906 /* greaterOrEqual test */
907 asn1_push_tag(data, ASN1_CONTEXT(5));
908 asn1_write_OctetString(data, tree->u.comparison.attr,
909 strlen(tree->u.comparison.attr));
910 asn1_write_OctetString(data, tree->u.comparison.value.data,
911 tree->u.comparison.value.length);
916 /* lessOrEqual test */
917 asn1_push_tag(data, ASN1_CONTEXT(6));
918 asn1_write_OctetString(data, tree->u.comparison.attr,
919 strlen(tree->u.comparison.attr));
920 asn1_write_OctetString(data, tree->u.comparison.value.data,
921 tree->u.comparison.value.length);
927 asn1_push_tag(data, ASN1_CONTEXT_SIMPLE(7));
928 asn1_write_LDAPString(data, tree->u.present.attr);
930 return !data->has_error;
934 asn1_push_tag(data, ASN1_CONTEXT(8));
935 asn1_write_OctetString(data, tree->u.comparison.attr,
936 strlen(tree->u.comparison.attr));
937 asn1_write_OctetString(data, tree->u.comparison.value.data,
938 tree->u.comparison.value.length);
942 case LDB_OP_EXTENDED:
944 MatchingRuleAssertion ::= SEQUENCE {
945 matchingRule [1] MatchingRuleID OPTIONAL,
946 type [2] AttributeDescription OPTIONAL,
947 matchValue [3] AssertionValue,
948 dnAttributes [4] BOOLEAN DEFAULT FALSE
951 asn1_push_tag(data, ASN1_CONTEXT(9));
952 if (tree->u.extended.rule_id) {
953 asn1_push_tag(data, ASN1_CONTEXT_SIMPLE(1));
954 asn1_write_LDAPString(data, tree->u.extended.rule_id);
957 if (tree->u.extended.attr) {
958 asn1_push_tag(data, ASN1_CONTEXT_SIMPLE(2));
959 asn1_write_LDAPString(data, tree->u.extended.attr);
962 asn1_push_tag(data, ASN1_CONTEXT_SIMPLE(3));
963 asn1_write_DATA_BLOB_LDAPString(data, &tree->u.extended.value);
965 asn1_push_tag(data, ASN1_CONTEXT_SIMPLE(4));
966 asn1_write_uint8(data, tree->u.extended.dnAttributes);
974 return !data->has_error;
977 static bool tldap_push_filter(struct asn1_data *data, const char *filter)
979 struct ldb_parse_tree *tree;
982 tree = ldb_parse_tree(talloc_tos(), filter);
986 ret = ldap_push_filter(data, tree);
991 /*****************************************************************************/
993 static void tldap_search_done(struct tevent_req *subreq);
995 struct tevent_req *tldap_search_send(TALLOC_CTX *mem_ctx,
996 struct tevent_context *ev,
997 struct tldap_context *ld,
998 const char *base, int scope,
1003 struct tldap_control **sctrls,
1004 struct tldap_control **cctrls,
1009 struct tevent_req *req, *subreq;
1010 struct tldap_req_state *state;
1013 req = tldap_req_create(mem_ctx, ld, &state);
1018 asn1_push_tag(state->out, TLDAP_REQ_SEARCH);
1019 asn1_write_OctetString(state->out, base, strlen(base));
1020 asn1_write_enumerated(state->out, scope);
1021 asn1_write_enumerated(state->out, deref);
1022 asn1_write_Integer(state->out, sizelimit);
1023 asn1_write_Integer(state->out, timelimit);
1024 asn1_write_BOOLEAN(state->out, attrsonly);
1026 if (!tldap_push_filter(state->out, filter)) {
1027 goto encoding_error;
1030 asn1_push_tag(state->out, ASN1_SEQUENCE(0));
1031 for (i=0; i<num_attrs; i++) {
1032 asn1_write_OctetString(state->out, attrs[i], strlen(attrs[i]));
1034 asn1_pop_tag(state->out);
1035 asn1_pop_tag(state->out);
1037 subreq = tldap_msg_send(state, ev, ld, state->id, state->out);
1038 if (tevent_req_nomem(subreq, req)) {
1039 return tevent_req_post(req, ev);
1041 tevent_req_set_callback(subreq, tldap_search_done, req);
1045 tevent_req_error(req, TLDAP_ENCODING_ERROR);
1046 return tevent_req_post(req, ev);
1049 static void tldap_search_done(struct tevent_req *subreq)
1051 struct tevent_req *req = tevent_req_callback_data(
1052 subreq, struct tevent_req);
1053 struct tldap_req_state *state = tevent_req_data(
1054 req, struct tldap_req_state);
1057 err = tldap_msg_recv(subreq, state, &state->result);
1058 if (err != TLDAP_SUCCESS) {
1059 tevent_req_error(req, err);
1062 switch (state->result->type) {
1063 case TLDAP_RES_SEARCH_ENTRY:
1064 case TLDAP_RES_SEARCH_REFERENCE:
1065 tevent_req_notify_callback(req);
1066 if (!tldap_msg_set_pending(subreq)) {
1067 tevent_req_nomem(NULL, req);
1071 case TLDAP_RES_SEARCH_RESULT:
1072 TALLOC_FREE(subreq);
1073 if (!asn1_start_tag(state->result->data,
1074 state->result->type) ||
1075 !tldap_decode_response(state) ||
1076 !asn1_end_tag(state->result->data)) {
1077 tevent_req_error(req, TLDAP_DECODING_ERROR);
1080 tevent_req_done(req);
1083 tevent_req_error(req, TLDAP_PROTOCOL_ERROR);
1088 int tldap_search_recv(struct tevent_req *req, TALLOC_CTX *mem_ctx,
1089 struct tldap_message **pmsg)
1091 struct tldap_req_state *state = tevent_req_data(
1092 req, struct tldap_req_state);
1095 if (!tevent_req_is_in_progress(req)
1096 && tevent_req_is_ldap_error(req, &err)) {
1100 if (tevent_req_is_in_progress(req)) {
1101 switch (state->result->type) {
1102 case TLDAP_RES_SEARCH_ENTRY:
1103 case TLDAP_RES_SEARCH_REFERENCE:
1106 return TLDAP_OPERATIONS_ERROR;
1110 *pmsg = state->result;
1111 return TLDAP_SUCCESS;
1114 struct tldap_sync_search_state {
1115 TALLOC_CTX *mem_ctx;
1116 struct tldap_message **entries;
1117 struct tldap_message **refs;
1121 static void tldap_search_cb(struct tevent_req *req)
1123 struct tldap_sync_search_state *state =
1124 (struct tldap_sync_search_state *)
1125 tevent_req_callback_data_void(req);
1126 struct tldap_message *msg, **tmp;
1127 int rc, num_entries, num_refs;
1129 rc = tldap_search_recv(req, talloc_tos(), &msg);
1130 if (rc != TLDAP_SUCCESS) {
1135 switch (tldap_msg_type(msg)) {
1136 case TLDAP_RES_SEARCH_ENTRY:
1137 num_entries = talloc_array_length(state->entries);
1138 tmp = talloc_realloc(state->mem_ctx, state->entries,
1139 struct tldap_message *, num_entries + 1);
1141 state->rc = TLDAP_NO_MEMORY;
1144 state->entries = tmp;
1145 state->entries[num_entries] = talloc_move(state->entries,
1148 case TLDAP_RES_SEARCH_REFERENCE:
1149 num_refs = talloc_array_length(state->refs);
1150 tmp = talloc_realloc(state->mem_ctx, state->refs,
1151 struct tldap_message *, num_refs + 1);
1153 state->rc = TLDAP_NO_MEMORY;
1157 state->refs[num_refs] = talloc_move(state->refs, &msg);
1159 case TLDAP_RES_SEARCH_RESULT:
1160 state->rc = TLDAP_SUCCESS;
1163 state->rc = TLDAP_PROTOCOL_ERROR;
1168 int tldap_search(struct tldap_context *ld,
1169 const char *base, int scope, const char *filter,
1170 const char **attrs, int num_attrs, int attrsonly,
1171 struct tldap_control **sctrls, struct tldap_control **cctrls,
1172 int timelimit, int sizelimit, int deref,
1173 TALLOC_CTX *mem_ctx, struct tldap_message ***entries,
1174 struct tldap_message ***refs)
1176 TALLOC_CTX *frame = talloc_stackframe();
1177 struct tevent_context *ev;
1178 struct tevent_req *req;
1179 struct tldap_sync_search_state state;
1182 state.mem_ctx = mem_ctx;
1183 state.rc = TLDAP_SUCCESS;
1185 ev = event_context_init(frame);
1187 state.rc = TLDAP_NO_MEMORY;
1191 req = tldap_search_send(frame, ev, ld, base, scope, filter,
1192 attrs, num_attrs, attrsonly,
1193 sctrls, cctrls, timelimit,
1196 state.rc = TLDAP_NO_MEMORY;
1200 tevent_req_set_callback(req, tldap_search_cb, &state);
1202 while (tevent_req_is_in_progress(req)
1203 && (state.rc == TLDAP_SUCCESS)) {
1204 if (tevent_loop_once(ev) == -1) {
1205 return TLDAP_OPERATIONS_ERROR;
1209 if (state.rc != TLDAP_SUCCESS) {
1213 if (entries != NULL) {
1214 *entries = state.entries;
1216 TALLOC_FREE(state.entries);
1221 TALLOC_FREE(state.refs);
1223 tldap_save_errors(ld, req);
1229 static bool tldap_parse_search_entry(struct tldap_message *msg)
1231 int num_attribs = 0;
1233 asn1_start_tag(msg->data, msg->type);
1237 asn1_read_OctetString_talloc(msg, msg->data, &msg->dn);
1238 if (msg->dn == NULL) {
1243 * Attributes: We overallocate msg->attribs by one, so that while
1244 * looping over the attributes we can directly parse into the last
1245 * array element. Same for the values in the inner loop.
1248 msg->attribs = talloc_array(msg, struct tldap_attribute, 1);
1249 if (msg->attribs == NULL) {
1253 asn1_start_tag(msg->data, ASN1_SEQUENCE(0));
1254 while (asn1_peek_tag(msg->data, ASN1_SEQUENCE(0))) {
1255 struct tldap_attribute *attrib;
1258 attrib = &msg->attribs[num_attribs];
1259 attrib->values = talloc_array(msg->attribs, DATA_BLOB, 1);
1260 if (attrib->values == NULL) {
1263 asn1_start_tag(msg->data, ASN1_SEQUENCE(0));
1264 asn1_read_OctetString_talloc(msg->attribs, msg->data,
1266 asn1_start_tag(msg->data, ASN1_SET);
1268 while (asn1_peek_tag(msg->data, ASN1_OCTET_STRING)) {
1269 asn1_read_OctetString(msg->data, msg,
1270 &attrib->values[num_values]);
1272 attrib->values = talloc_realloc(
1273 msg->attribs, attrib->values, DATA_BLOB,
1275 if (attrib->values == NULL) {
1280 attrib->values = talloc_realloc(msg->attribs, attrib->values,
1281 DATA_BLOB, num_values);
1282 attrib->num_values = num_values;
1284 asn1_end_tag(msg->data); /* ASN1_SET */
1285 asn1_end_tag(msg->data); /* ASN1_SEQUENCE(0) */
1286 msg->attribs = talloc_realloc(
1287 msg, msg->attribs, struct tldap_attribute,
1289 if (msg->attribs == NULL) {
1294 msg->attribs = talloc_realloc(
1295 msg, msg->attribs, struct tldap_attribute, num_attribs);
1296 asn1_end_tag(msg->data);
1297 if (msg->data->has_error) {
1303 bool tldap_entry_dn(struct tldap_message *msg, char **dn)
1305 if ((msg->dn == NULL) && (!tldap_parse_search_entry(msg))) {
1312 bool tldap_entry_attributes(struct tldap_message *msg, int *num_attributes,
1313 struct tldap_attribute **attributes)
1315 if ((msg->dn == NULL) && (!tldap_parse_search_entry(msg))) {
1318 *attributes = msg->attribs;
1319 *num_attributes = talloc_array_length(msg->attribs);
1323 static void tldap_simple_done(struct tevent_req *subreq, int type)
1325 struct tevent_req *req = tevent_req_callback_data(
1326 subreq, struct tevent_req);
1327 struct tldap_req_state *state = tevent_req_data(
1328 req, struct tldap_req_state);
1331 err = tldap_msg_recv(subreq, state, &state->result);
1332 TALLOC_FREE(subreq);
1333 if (err != TLDAP_SUCCESS) {
1334 tevent_req_error(req, err);
1337 if (state->result->type != type) {
1338 tevent_req_error(req, TLDAP_PROTOCOL_ERROR);
1341 if (!asn1_start_tag(state->result->data, state->result->type) ||
1342 !tldap_decode_response(state) ||
1343 !asn1_end_tag(state->result->data)) {
1344 tevent_req_error(req, TLDAP_DECODING_ERROR);
1347 if (state->lderr != TLDAP_SUCCESS) {
1348 tevent_req_error(req, state->lderr);
1351 tevent_req_done(req);
1354 static int tldap_simple_recv(struct tevent_req *req)
1357 if (tevent_req_is_ldap_error(req, &err)) {
1360 return TLDAP_SUCCESS;
1363 static void tldap_add_done(struct tevent_req *subreq);
1365 struct tevent_req *tldap_add_send(TALLOC_CTX *mem_ctx,
1366 struct tevent_context *ev,
1367 struct tldap_context *ld,
1370 struct tldap_mod *attributes,
1371 struct tldap_control **sctrls,
1372 struct tldap_control **cctrls)
1374 struct tevent_req *req, *subreq;
1375 struct tldap_req_state *state;
1378 req = tldap_req_create(mem_ctx, ld, &state);
1383 asn1_push_tag(state->out, TLDAP_REQ_ADD);
1384 asn1_write_OctetString(state->out, dn, strlen(dn));
1385 asn1_push_tag(state->out, ASN1_SEQUENCE(0));
1387 for (i=0; i<num_attributes; i++) {
1388 struct tldap_mod *attrib = &attributes[i];
1389 asn1_push_tag(state->out, ASN1_SEQUENCE(0));
1390 asn1_write_OctetString(state->out, attrib->attribute,
1391 strlen(attrib->attribute));
1392 asn1_push_tag(state->out, ASN1_SET);
1393 for (j=0; j<attrib->num_values; j++) {
1394 asn1_write_OctetString(state->out,
1395 attrib->values[j].data,
1396 attrib->values[j].length);
1398 asn1_pop_tag(state->out);
1399 asn1_pop_tag(state->out);
1402 asn1_pop_tag(state->out);
1403 asn1_pop_tag(state->out);
1405 subreq = tldap_msg_send(state, ev, ld, state->id, state->out);
1406 if (tevent_req_nomem(subreq, req)) {
1407 return tevent_req_post(req, ev);
1409 tevent_req_set_callback(subreq, tldap_add_done, req);
1414 static void tldap_add_done(struct tevent_req *subreq)
1416 return tldap_simple_done(subreq, TLDAP_RES_ADD);
1419 int tldap_add_recv(struct tevent_req *req)
1421 return tldap_simple_recv(req);
1424 int tldap_add(struct tldap_context *ld, const char *dn,
1425 int num_attributes, struct tldap_mod *attributes,
1426 struct tldap_control **sctrls, struct tldap_control **cctrls)
1428 TALLOC_CTX *frame = talloc_stackframe();
1429 struct tevent_context *ev;
1430 struct tevent_req *req;
1433 ev = event_context_init(frame);
1435 result = TLDAP_NO_MEMORY;
1439 req = tldap_add_send(frame, ev, ld, dn, num_attributes, attributes,
1442 result = TLDAP_NO_MEMORY;
1446 if (!tevent_req_poll(req, ev)) {
1447 result = TLDAP_OPERATIONS_ERROR;
1451 result = tldap_add_recv(req);
1452 tldap_save_errors(ld, req);
1458 static void tldap_modify_done(struct tevent_req *subreq);
1460 struct tevent_req *tldap_modify_send(TALLOC_CTX *mem_ctx,
1461 struct tevent_context *ev,
1462 struct tldap_context *ld,
1464 int num_mods, struct tldap_mod *mods,
1465 struct tldap_control **sctrls,
1466 struct tldap_control **cctrls)
1468 struct tevent_req *req, *subreq;
1469 struct tldap_req_state *state;
1472 req = tldap_req_create(mem_ctx, ld, &state);
1477 asn1_push_tag(state->out, TLDAP_REQ_MODIFY);
1478 asn1_write_OctetString(state->out, dn, strlen(dn));
1479 asn1_push_tag(state->out, ASN1_SEQUENCE(0));
1481 for (i=0; i<num_mods; i++) {
1482 struct tldap_mod *mod = &mods[i];
1483 asn1_push_tag(state->out, ASN1_SEQUENCE(0));
1484 asn1_write_enumerated(state->out, mod->mod_op),
1485 asn1_push_tag(state->out, ASN1_SEQUENCE(0));
1486 asn1_write_OctetString(state->out, mod->attribute,
1487 strlen(mod->attribute));
1488 asn1_push_tag(state->out, ASN1_SET);
1489 for (j=0; j<mod->num_values; j++) {
1490 asn1_write_OctetString(state->out,
1491 mod->values[j].data,
1492 mod->values[j].length);
1494 asn1_pop_tag(state->out);
1495 asn1_pop_tag(state->out);
1496 asn1_pop_tag(state->out);
1499 asn1_pop_tag(state->out);
1500 asn1_pop_tag(state->out);
1502 subreq = tldap_msg_send(state, ev, ld, state->id, state->out);
1503 if (tevent_req_nomem(subreq, req)) {
1504 return tevent_req_post(req, ev);
1506 tevent_req_set_callback(subreq, tldap_modify_done, req);
1511 static void tldap_modify_done(struct tevent_req *subreq)
1513 return tldap_simple_done(subreq, TLDAP_RES_MODIFY);
1516 int tldap_modify_recv(struct tevent_req *req)
1518 return tldap_simple_recv(req);
1521 int tldap_modify(struct tldap_context *ld, const char *dn,
1522 int num_mods, struct tldap_mod *mods,
1523 struct tldap_control **sctrls, struct tldap_control **cctrls)
1525 TALLOC_CTX *frame = talloc_stackframe();
1526 struct tevent_context *ev;
1527 struct tevent_req *req;
1530 ev = event_context_init(frame);
1532 result = TLDAP_NO_MEMORY;
1536 req = tldap_modify_send(frame, ev, ld, dn, num_mods, mods,
1539 result = TLDAP_NO_MEMORY;
1543 if (!tevent_req_poll(req, ev)) {
1544 result = TLDAP_OPERATIONS_ERROR;
1548 result = tldap_modify_recv(req);
1549 tldap_save_errors(ld, req);
1555 static void tldap_delete_done(struct tevent_req *subreq);
1557 struct tevent_req *tldap_delete_send(TALLOC_CTX *mem_ctx,
1558 struct tevent_context *ev,
1559 struct tldap_context *ld,
1561 struct tldap_control **sctrls,
1562 struct tldap_control **cctrls)
1564 struct tevent_req *req, *subreq;
1565 struct tldap_req_state *state;
1567 req = tldap_req_create(mem_ctx, ld, &state);
1572 asn1_push_tag(state->out, TLDAP_REQ_DELETE);
1573 asn1_write(state->out, dn, strlen(dn));
1574 asn1_pop_tag(state->out);
1576 subreq = tldap_msg_send(state, ev, ld, state->id, state->out);
1577 if (tevent_req_nomem(subreq, req)) {
1578 return tevent_req_post(req, ev);
1580 tevent_req_set_callback(subreq, tldap_delete_done, req);
1585 static void tldap_delete_done(struct tevent_req *subreq)
1587 return tldap_simple_done(subreq, TLDAP_RES_DELETE);
1590 int tldap_delete_recv(struct tevent_req *req)
1592 return tldap_simple_recv(req);
1595 int tldap_delete(struct tldap_context *ld, const char *dn,
1596 struct tldap_control **sctrls, struct tldap_control **cctrls)
1598 TALLOC_CTX *frame = talloc_stackframe();
1599 struct tevent_context *ev;
1600 struct tevent_req *req;
1603 ev = event_context_init(frame);
1605 result = TLDAP_NO_MEMORY;
1609 req = tldap_delete_send(frame, ev, ld, dn, sctrls, cctrls);
1611 result = TLDAP_NO_MEMORY;
1615 if (!tevent_req_poll(req, ev)) {
1616 result = TLDAP_OPERATIONS_ERROR;
1620 result = tldap_delete_recv(req);
1621 tldap_save_errors(ld, req);
1627 int tldap_msg_id(const struct tldap_message *msg)
1632 int tldap_msg_type(const struct tldap_message *msg)
1637 const char *tldap_req_matcheddn(struct tevent_req *req)
1639 struct tldap_req_state *state = tevent_req_data(
1640 req, struct tldap_req_state);
1641 return state->res_matcheddn;
1644 const char *tldap_req_diagnosticmessage(struct tevent_req *req)
1646 struct tldap_req_state *state = tevent_req_data(
1647 req, struct tldap_req_state);
1648 return state->res_diagnosticmessage;
1651 const char *tldap_req_referral(struct tevent_req *req)
1653 struct tldap_req_state *state = tevent_req_data(
1654 req, struct tldap_req_state);
1655 return state->res_referral;
1658 const char *tldap_ctx_matcheddn(struct tldap_context *ctx)
1660 return ctx->res_matcheddn;
1663 const char *tldap_ctx_diagnosticmessage(struct tldap_context *ctx)
1665 return ctx->res_diagnosticmessage;
1668 const char *tldap_ctx_referral(struct tldap_context *ctx)
1670 return ctx->res_referral;
1673 const char *tldap_err2string(int rc)
1675 const char *res = NULL;
1678 * This would normally be a table, but the error codes are not fully
1679 * sequential. Let the compiler figure out the optimum implementation
1685 res = "TLDAP_SUCCESS";
1687 case TLDAP_OPERATIONS_ERROR:
1688 res = "TLDAP_OPERATIONS_ERROR";
1690 case TLDAP_PROTOCOL_ERROR:
1691 res = "TLDAP_PROTOCOL_ERROR";
1693 case TLDAP_TIMELIMIT_EXCEEDED:
1694 res = "TLDAP_TIMELIMIT_EXCEEDED";
1696 case TLDAP_SIZELIMIT_EXCEEDED:
1697 res = "TLDAP_SIZELIMIT_EXCEEDED";
1699 case TLDAP_COMPARE_FALSE:
1700 res = "TLDAP_COMPARE_FALSE";
1702 case TLDAP_COMPARE_TRUE:
1703 res = "TLDAP_COMPARE_TRUE";
1705 case TLDAP_STRONG_AUTH_NOT_SUPPORTED:
1706 res = "TLDAP_STRONG_AUTH_NOT_SUPPORTED";
1708 case TLDAP_STRONG_AUTH_REQUIRED:
1709 res = "TLDAP_STRONG_AUTH_REQUIRED";
1711 case TLDAP_REFERRAL:
1712 res = "TLDAP_REFERRAL";
1714 case TLDAP_ADMINLIMIT_EXCEEDED:
1715 res = "TLDAP_ADMINLIMIT_EXCEEDED";
1717 case TLDAP_UNAVAILABLE_CRITICAL_EXTENSION:
1718 res = "TLDAP_UNAVAILABLE_CRITICAL_EXTENSION";
1720 case TLDAP_CONFIDENTIALITY_REQUIRED:
1721 res = "TLDAP_CONFIDENTIALITY_REQUIRED";
1723 case TLDAP_SASL_BIND_IN_PROGRESS:
1724 res = "TLDAP_SASL_BIND_IN_PROGRESS";
1726 case TLDAP_NO_SUCH_ATTRIBUTE:
1727 res = "TLDAP_NO_SUCH_ATTRIBUTE";
1729 case TLDAP_UNDEFINED_TYPE:
1730 res = "TLDAP_UNDEFINED_TYPE";
1732 case TLDAP_INAPPROPRIATE_MATCHING:
1733 res = "TLDAP_INAPPROPRIATE_MATCHING";
1735 case TLDAP_CONSTRAINT_VIOLATION:
1736 res = "TLDAP_CONSTRAINT_VIOLATION";
1738 case TLDAP_TYPE_OR_VALUE_EXISTS:
1739 res = "TLDAP_TYPE_OR_VALUE_EXISTS";
1741 case TLDAP_INVALID_SYNTAX:
1742 res = "TLDAP_INVALID_SYNTAX";
1744 case TLDAP_NO_SUCH_OBJECT:
1745 res = "TLDAP_NO_SUCH_OBJECT";
1747 case TLDAP_ALIAS_PROBLEM:
1748 res = "TLDAP_ALIAS_PROBLEM";
1750 case TLDAP_INVALID_DN_SYNTAX:
1751 res = "TLDAP_INVALID_DN_SYNTAX";
1754 res = "TLDAP_IS_LEAF";
1756 case TLDAP_ALIAS_DEREF_PROBLEM:
1757 res = "TLDAP_ALIAS_DEREF_PROBLEM";
1759 case TLDAP_INAPPROPRIATE_AUTH:
1760 res = "TLDAP_INAPPROPRIATE_AUTH";
1762 case TLDAP_INVALID_CREDENTIALS:
1763 res = "TLDAP_INVALID_CREDENTIALS";
1765 case TLDAP_INSUFFICIENT_ACCESS:
1766 res = "TLDAP_INSUFFICIENT_ACCESS";
1771 case TLDAP_UNAVAILABLE:
1772 res = "TLDAP_UNAVAILABLE";
1774 case TLDAP_UNWILLING_TO_PERFORM:
1775 res = "TLDAP_UNWILLING_TO_PERFORM";
1777 case TLDAP_LOOP_DETECT:
1778 res = "TLDAP_LOOP_DETECT";
1780 case TLDAP_NAMING_VIOLATION:
1781 res = "TLDAP_NAMING_VIOLATION";
1783 case TLDAP_OBJECT_CLASS_VIOLATION:
1784 res = "TLDAP_OBJECT_CLASS_VIOLATION";
1786 case TLDAP_NOT_ALLOWED_ON_NONLEAF:
1787 res = "TLDAP_NOT_ALLOWED_ON_NONLEAF";
1789 case TLDAP_NOT_ALLOWED_ON_RDN:
1790 res = "TLDAP_NOT_ALLOWED_ON_RDN";
1792 case TLDAP_ALREADY_EXISTS:
1793 res = "TLDAP_ALREADY_EXISTS";
1795 case TLDAP_NO_OBJECT_CLASS_MODS:
1796 res = "TLDAP_NO_OBJECT_CLASS_MODS";
1798 case TLDAP_RESULTS_TOO_LARGE:
1799 res = "TLDAP_RESULTS_TOO_LARGE";
1801 case TLDAP_AFFECTS_MULTIPLE_DSAS:
1802 res = "TLDAP_AFFECTS_MULTIPLE_DSAS";
1805 res = "TLDAP_OTHER";
1807 case TLDAP_SERVER_DOWN:
1808 res = "TLDAP_SERVER_DOWN";
1810 case TLDAP_LOCAL_ERROR:
1811 res = "TLDAP_LOCAL_ERROR";
1813 case TLDAP_ENCODING_ERROR:
1814 res = "TLDAP_ENCODING_ERROR";
1816 case TLDAP_DECODING_ERROR:
1817 res = "TLDAP_DECODING_ERROR";
1820 res = "TLDAP_TIMEOUT";
1822 case TLDAP_AUTH_UNKNOWN:
1823 res = "TLDAP_AUTH_UNKNOWN";
1825 case TLDAP_FILTER_ERROR:
1826 res = "TLDAP_FILTER_ERROR";
1828 case TLDAP_USER_CANCELLED:
1829 res = "TLDAP_USER_CANCELLED";
1831 case TLDAP_PARAM_ERROR:
1832 res = "TLDAP_PARAM_ERROR";
1834 case TLDAP_NO_MEMORY:
1835 res = "TLDAP_NO_MEMORY";
1837 case TLDAP_CONNECT_ERROR:
1838 res = "TLDAP_CONNECT_ERROR";
1840 case TLDAP_NOT_SUPPORTED:
1841 res = "TLDAP_NOT_SUPPORTED";
1843 case TLDAP_CONTROL_NOT_FOUND:
1844 res = "TLDAP_CONTROL_NOT_FOUND";
1846 case TLDAP_NO_RESULTS_RETURNED:
1847 res = "TLDAP_NO_RESULTS_RETURNED";
1849 case TLDAP_MORE_RESULTS_TO_RETURN:
1850 res = "TLDAP_MORE_RESULTS_TO_RETURN";
1852 case TLDAP_CLIENT_LOOP:
1853 res = "TLDAP_CLIENT_LOOP";
1855 case TLDAP_REFERRAL_LIMIT_EXCEEDED:
1856 res = "TLDAP_REFERRAL_LIMIT_EXCEEDED";
1859 res = talloc_asprintf(talloc_tos(), "Unknown LDAP Error (%d)",
1864 res = "Unknown LDAP Error";