1 /* $OpenBSD: ldapclient.c,v 1.31 2014/11/16 23:24:44 tedu Exp $ */
5 * Copyright (c) 2008 Alexander Schrijver <aschrijver@openbsd.org>
6 * Copyright (c) 2008 Pierre-Yves Ritschard <pyr@openbsd.org>
8 * Permission to use, copy, modify, and distribute this software for any
9 * purpose with or without fee is hereby granted, provided that the above
10 * copyright notice and this permission notice appear in all copies.
12 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
13 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
14 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
15 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
16 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
17 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
18 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
21 #include <sys/types.h>
22 #include <sys/param.h>
23 #include <sys/queue.h>
24 #include <sys/socket.h>
27 #include <netinet/in.h>
28 #include <arpa/inet.h>
45 void client_sig_handler(int, short, void *);
46 void client_dispatch_dns(int, short, void *);
47 void client_dispatch_parent(int, short, void *);
48 void client_shutdown(void);
49 void client_connect(int, short, void *);
50 void client_configure(struct env *);
51 void client_periodic_update(int, short, void *);
52 int client_build_req(struct idm *, struct idm_req *, struct aldap_message *,
54 int client_search_idm(struct env *, struct idm *, struct aldap *,
55 char **, char *, int, int, enum imsg_type);
56 int client_try_idm(struct env *, struct idm *);
57 int client_addr_init(struct idm *);
58 int client_addr_free(struct idm *);
60 struct aldap *client_aldap_open(struct ypldap_addr *);
63 * dummy wrapper to provide aldap_init with its fd's.
66 client_aldap_open(struct ypldap_addr *addr)
69 struct ypldap_addr *p;
71 for (p = addr; p != NULL; p = p->next) {
72 char hbuf[NI_MAXHOST], sbuf[NI_MAXSERV];
73 struct sockaddr *sa = (struct sockaddr *)&p->ss;
75 if (getnameinfo(sa, sa->sa_len, hbuf, sizeof(hbuf), sbuf,
76 sizeof(sbuf), NI_NUMERICHOST | NI_NUMERICSERV))
77 errx(1, "could not get numeric hostname");
79 if ((fd = socket(sa->sa_family, SOCK_STREAM, 0)) < 0)
82 if (connect(fd, sa, sa->sa_len) == 0)
85 warn("connect to %s port %s (%s) failed", hbuf, sbuf, "tcp");
92 return aldap_init(fd);
96 client_addr_init(struct idm *idm)
98 struct sockaddr_in *sa_in;
99 struct sockaddr_in6 *sa_in6;
100 struct ypldap_addr *h;
102 for (h = idm->idm_addr; h != NULL; h = h->next) {
103 switch (h->ss.ss_family) {
105 sa_in = (struct sockaddr_in *)&h->ss;
106 if (ntohs(sa_in->sin_port) == 0)
107 sa_in->sin_port = htons(LDAP_PORT);
108 idm->idm_state = STATE_DNS_DONE;
111 sa_in6 = (struct sockaddr_in6 *)&h->ss;
112 if (ntohs(sa_in6->sin6_port) == 0)
113 sa_in6->sin6_port = htons(LDAP_PORT);
114 idm->idm_state = STATE_DNS_DONE;
117 fatalx("king bula sez: wrong AF in client_addr_init");
126 client_addr_free(struct idm *idm)
128 struct ypldap_addr *h, *p;
130 if (idm->idm_addr == NULL)
133 for (h = idm->idm_addr; h != NULL; h = p) {
138 idm->idm_addr = NULL;
144 client_sig_handler(int sig, short event, void *p)
152 fatalx("unexpected signal");
157 client_dispatch_dns(int fd, short events, void *p)
162 struct ypldap_addr *h;
168 struct imsgev *iev = env->sc_iev_dns;
169 struct imsgbuf *ibuf = &iev->ibuf;
171 if ((events & (EV_READ | EV_WRITE)) == 0)
172 fatalx("unknown event");
174 if (events & EV_READ) {
175 if ((n = imsg_read(ibuf)) == -1 && errno != EAGAIN)
176 fatal("imsg_read error");
180 if (events & EV_WRITE) {
181 if ((n = msgbuf_write(&ibuf->w)) == -1 && errno != EAGAIN)
182 fatal("msgbuf_write");
189 if ((n = imsg_get(ibuf, &imsg)) == -1)
190 fatal("client_dispatch_dns: imsg_get error");
194 switch (imsg.hdr.type) {
196 TAILQ_FOREACH(idm, &env->sc_idms, idm_entry)
197 if (idm->idm_id == imsg.hdr.peerid)
200 log_warnx("IMSG_HOST_DNS with invalid peerID");
203 if (idm->idm_addr != NULL) {
204 log_warnx("IMSG_HOST_DNS but addr != NULL!");
208 dlen = imsg.hdr.len - IMSG_HEADER_SIZE;
209 if (dlen == 0) { /* no data -> temp error */
210 idm->idm_state = STATE_DNS_TEMPFAIL;
214 data = (u_char *)imsg.data;
215 while (dlen >= sizeof(struct sockaddr_storage)) {
216 if ((h = calloc(1, sizeof(struct ypldap_addr))) ==
219 memcpy(&h->ss, data, sizeof(h->ss));
221 if (idm->idm_addr == NULL)
224 h->next = idm->idm_addr;
228 data += sizeof(h->ss);
229 dlen -= sizeof(h->ss);
232 fatalx("IMSG_HOST_DNS: dlen != 0");
234 client_addr_init(idm);
243 TAILQ_FOREACH(idm, &env->sc_idms, idm_entry) {
244 if (client_try_idm(env, idm) == -1)
245 idm->idm_state = STATE_LDAP_FAIL;
247 if (idm->idm_state < STATE_LDAP_DONE)
251 imsg_compose_event(env->sc_iev, IMSG_END_UPDATE, 0, 0, -1,
258 /* this pipe is dead, so remove the event handler */
260 event_loopexit(NULL);
265 client_dispatch_parent(int fd, short events, void *p)
271 struct imsgev *iev = env->sc_iev;
272 struct imsgbuf *ibuf = &iev->ibuf;
274 if ((events & (EV_READ | EV_WRITE)) == 0)
275 fatalx("unknown event");
277 if (events & EV_READ) {
278 if ((n = imsg_read(ibuf)) == -1 && errno != EAGAIN)
279 fatal("imsg_read error");
283 if (events & EV_WRITE) {
284 if ((n = msgbuf_write(&ibuf->w)) == -1 && errno != EAGAIN)
285 fatal("msgbuf_write");
292 if ((n = imsg_get(ibuf, &imsg)) == -1)
293 fatal("client_dispatch_parent: imsg_get error");
297 switch (imsg.hdr.type) {
298 case IMSG_CONF_START: {
301 if (env->sc_flags & F_CONFIGURING) {
302 log_warnx("configuration already in progress");
305 memcpy(¶ms, imsg.data, sizeof(params));
306 log_debug("configuration starting");
307 env->sc_flags |= F_CONFIGURING;
309 memcpy(&env->sc_conf_tv, ¶ms.sc_conf_tv,
310 sizeof(env->sc_conf_tv));
311 env->sc_flags |= params.sc_flags;
314 case IMSG_CONF_IDM: {
317 if (!(env->sc_flags & F_CONFIGURING))
319 if ((idm = calloc(1, sizeof(*idm))) == NULL)
321 memcpy(idm, imsg.data, sizeof(*idm));
323 TAILQ_INSERT_TAIL(&env->sc_idms, idm, idm_entry);
327 env->sc_flags &= ~F_CONFIGURING;
328 log_debug("applying configuration");
329 client_configure(env);
332 log_debug("client_dispatch_parent: unexpect imsg %d",
344 /* this pipe is dead, so remove the event handler */
346 event_loopexit(NULL);
351 client_shutdown(void)
353 log_info("ldap client exiting");
358 ldapclient(int pipe_main2client[2])
363 struct event ev_sigint;
364 struct event ev_sigterm;
367 switch (pid = fork()) {
369 fatal("cannot fork");
377 bzero(&env, sizeof(env));
378 TAILQ_INIT(&env.sc_idms);
380 if ((pw = getpwnam(YPLDAP_USER)) == NULL)
383 if (socketpair(AF_UNIX, SOCK_STREAM, PF_UNSPEC, pipe_dns) == -1)
385 dns_pid = ypldap_dns(pipe_dns, pw);
389 if (chroot(pw->pw_dir) == -1)
391 if (chdir("/") == -1)
394 #warning disabling chrooting in DEBUG mode
396 setproctitle("ldap client");
397 ypldap_process = PROC_CLIENT;
400 if (setgroups(1, &pw->pw_gid) ||
401 setresgid(pw->pw_gid, pw->pw_gid, pw->pw_gid) ||
402 setresuid(pw->pw_uid, pw->pw_uid, pw->pw_uid))
403 fatal("cannot drop privileges");
405 #warning disabling privilege revocation in DEBUG mode
409 signal(SIGPIPE, SIG_IGN);
410 signal_set(&ev_sigint, SIGINT, client_sig_handler, NULL);
411 signal_set(&ev_sigterm, SIGTERM, client_sig_handler, NULL);
412 signal_add(&ev_sigint, NULL);
413 signal_add(&ev_sigterm, NULL);
415 close(pipe_main2client[0]);
416 if ((env.sc_iev = calloc(1, sizeof(*env.sc_iev))) == NULL)
418 if ((env.sc_iev_dns = calloc(1, sizeof(*env.sc_iev_dns))) == NULL)
421 env.sc_iev->events = EV_READ;
422 env.sc_iev->data = &env;
423 imsg_init(&env.sc_iev->ibuf, pipe_main2client[1]);
424 env.sc_iev->handler = client_dispatch_parent;
425 event_set(&env.sc_iev->ev, env.sc_iev->ibuf.fd, env.sc_iev->events,
426 env.sc_iev->handler, &env);
427 event_add(&env.sc_iev->ev, NULL);
429 env.sc_iev_dns->events = EV_READ;
430 env.sc_iev_dns->data = &env;
431 imsg_init(&env.sc_iev_dns->ibuf, pipe_dns[0]);
432 env.sc_iev_dns->handler = client_dispatch_dns;
433 event_set(&env.sc_iev_dns->ev, env.sc_iev_dns->ibuf.fd,
434 env.sc_iev_dns->events, env.sc_iev_dns->handler, &env);
435 event_add(&env.sc_iev_dns->ev, NULL);
445 client_build_req(struct idm *idm, struct idm_req *ir, struct aldap_message *m,
446 int min_attr, int max_attr)
451 bzero(ir, sizeof(*ir));
452 for (i = min_attr; i < max_attr; i++) {
453 if (idm->idm_flags & F_FIXED_ATTR(i)) {
454 if (strlcat(ir->ir_line, idm->idm_attrs[i],
455 sizeof(ir->ir_line)) >= sizeof(ir->ir_line))
457 * entry yields a line > 1024, trash it.
462 ir->ir_key.ik_uid = strtonum(
463 idm->idm_attrs[i], 0,
465 } else if (i == ATTR_GR_GID) {
466 ir->ir_key.ik_gid = strtonum(
467 idm->idm_attrs[i], 0,
470 } else if (idm->idm_list & F_LIST(i)) {
471 aldap_match_attr(m, idm->idm_attrs[i], &ldap_attrs);
472 for (k = 0; k >= 0 && ldap_attrs && ldap_attrs[k] != NULL; k++) {
473 /* XXX: Fail when attributes have illegal characters e.g. ',' */
474 if (strlcat(ir->ir_line, ldap_attrs[k],
475 sizeof(ir->ir_line)) >= sizeof(ir->ir_line))
477 if (ldap_attrs[k+1] != NULL)
478 if (strlcat(ir->ir_line, ",",
480 >= sizeof(ir->ir_line)) {
481 aldap_free_attr(ldap_attrs);
485 aldap_free_attr(ldap_attrs);
487 if (aldap_match_attr(m, idm->idm_attrs[i], &ldap_attrs) == -1)
489 if (ldap_attrs[0] == NULL)
491 if (strlcat(ir->ir_line, ldap_attrs[0],
492 sizeof(ir->ir_line)) >= sizeof(ir->ir_line)) {
493 aldap_free_attr(ldap_attrs);
497 ir->ir_key.ik_uid = strtonum(
498 ldap_attrs[0], 0, UID_MAX, NULL);
499 } else if (i == ATTR_GR_GID) {
500 ir->ir_key.ik_uid = strtonum(
501 ldap_attrs[0], 0, GID_MAX, NULL);
503 aldap_free_attr(ldap_attrs);
506 if (i + 1 != max_attr)
507 if (strlcat(ir->ir_line, ":",
508 sizeof(ir->ir_line)) >= sizeof(ir->ir_line))
516 client_search_idm(struct env *env, struct idm *idm, struct aldap *al,
517 char **attrs, char *filter, int min_attr, int max_attr,
521 struct aldap_message *m;
522 struct aldap_page_control *pg = NULL;
526 dn = idm->idm_basedn;
527 if (type == IMSG_GRP_ENTRY && idm->idm_groupdn[0] != '\0')
528 dn = idm->idm_groupdn;
531 if (aldap_search(al, dn, LDAP_SCOPE_SUBTREE,
532 filter, attrs, 0, 0, 0, pg) == -1) {
533 aldap_get_errno(al, &errstr);
534 log_debug("%s", errstr);
543 while ((m = aldap_parse(al)) != NULL) {
544 if (al->msgid != m->msgid) {
548 if (m->message_type == LDAP_RES_SEARCH_RESULT) {
549 if (m->page != NULL && m->page->cookie_len != 0)
558 if (m->message_type != LDAP_RES_SEARCH_ENTRY) {
562 if (client_build_req(idm, &ir, m, min_attr, max_attr) == 0)
563 imsg_compose_event(env->sc_iev, type, 0, 0, -1,
568 } while (pg != NULL);
582 client_try_idm(struct env *env, struct idm *idm)
585 char *attrs[ATTR_MAX+1];
587 struct aldap_message *m;
591 if ((al = client_aldap_open(idm->idm_addr)) == NULL)
594 if (idm->idm_flags & F_NEEDAUTH) {
596 if (aldap_bind(al, idm->idm_binddn, idm->idm_bindcred) == -1)
600 if ((m = aldap_parse(al)) == NULL)
602 where = "verifying msgid";
603 if (al->msgid != m->msgid) {
610 bzero(attrs, sizeof(attrs));
611 for (i = 0, j = 0; i < ATTR_MAX; i++) {
612 if (idm->idm_flags & F_FIXED_ATTR(i))
614 attrs[j++] = idm->idm_attrs[i];
619 * build password line.
622 log_debug("searching password entries");
623 if (client_search_idm(env, idm, al, attrs,
624 idm->idm_filters[FILTER_USER], 0, ATTR_MAX, IMSG_PW_ENTRY) == -1)
627 bzero(attrs, sizeof(attrs));
628 for (i = ATTR_GR_MIN, j = 0; i < ATTR_GR_MAX; i++) {
629 if (idm->idm_flags & F_FIXED_ATTR(i))
631 attrs[j++] = idm->idm_attrs[i];
639 log_debug("searching group entries");
640 if (client_search_idm(env, idm, al, attrs,
641 idm->idm_filters[FILTER_GROUP], ATTR_GR_MIN, ATTR_GR_MAX,
642 IMSG_GRP_ENTRY) == -1)
647 idm->idm_state = STATE_LDAP_DONE;
652 log_debug("directory %s errored out in %s", idm->idm_name, where);
657 client_periodic_update(int fd, short event, void *p)
664 /* If LDAP isn't finished, notify the master process to trash the
666 TAILQ_FOREACH(idm, &env->sc_idms, idm_entry) {
667 if (idm->idm_state < STATE_LDAP_DONE)
670 idm->idm_state = STATE_NONE;
672 client_addr_free(idm);
675 log_debug("trash the update");
676 imsg_compose_event(env->sc_iev, IMSG_TRASH_UPDATE, 0, 0, -1,
680 client_configure(env);
684 client_configure(struct env *env)
690 log_debug("connecting to directories");
692 imsg_compose_event(env->sc_iev, IMSG_START_UPDATE, 0, 0, -1, NULL, 0);
694 /* Start the DNS lookups */
695 TAILQ_FOREACH(idm, &env->sc_idms, idm_entry) {
696 dlen = strlen(idm->idm_name) + 1;
697 imsg_compose_event(env->sc_iev_dns, IMSG_HOST_DNS, idm->idm_id,
698 0, -1, idm->idm_name, dlen);
701 tv.tv_sec = env->sc_conf_tv.tv_sec;
702 tv.tv_usec = env->sc_conf_tv.tv_usec;
703 evtimer_set(&env->sc_conf_ev, client_periodic_update, env);
704 evtimer_add(&env->sc_conf_ev, &tv);