1/* Copyright (C) 1997-2018 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Thorsten Kukuk <kukuk@vt.uni-paderborn.de>, 1997.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
18
19#include <errno.h>
20#include <fcntl.h>
21#include <string.h>
22#include <libintl.h>
23#include <rpc/rpc.h>
24#include <rpc/auth.h>
25#include <rpcsvc/nis.h>
26#include <sys/socket.h>
27#include <sys/stat.h>
28#include <unistd.h>
29#include <netinet/in.h>
30#include <arpa/inet.h>
31#include <libc-lock.h>
32
33#include "nis_xdr.h"
34#include "nis_intern.h"
35#include <libnsl.h>
36#include <shlib-compat.h>
37
38static const struct timeval RPCTIMEOUT = {10, 0};
39static const struct timeval UDPTIMEOUT = {5, 0};
40
41extern u_short __pmap_getnisport (struct sockaddr_in *address, u_long program,
42 u_long version, u_int protocol);
43
44unsigned long int
45inetstr2int (const char *str)
46{
47 size_t j = 0;
48 for (size_t i = 0; str[i] != '\0'; ++i)
49 if (str[i] == '.' && __builtin_expect (++j == 4, 0))
50 {
51 char buffer[i + 1];
52 buffer[i] = '\0';
53 return inet_addr (memcpy (buffer, str, i));
54 }
55
56 return inet_addr (str);
57}
58
59void
60__nisbind_destroy (dir_binding *bind)
61{
62 if (bind->clnt != NULL)
63 {
64 if (bind->use_auth)
65 auth_destroy (bind->clnt->cl_auth);
66 clnt_destroy (bind->clnt);
67 }
68}
69libnsl_hidden_nolink_def (__nisbind_destroy, GLIBC_2_1)
70
71nis_error
72__nisbind_next (dir_binding *bind)
73{
74 if (bind->clnt != NULL)
75 {
76 if (bind->use_auth)
77 auth_destroy (bind->clnt->cl_auth);
78 clnt_destroy (bind->clnt);
79 bind->clnt = NULL;
80 }
81
82 if (bind->trys >= bind->server_len)
83 return NIS_FAIL;
84
85 for (u_int j = bind->current_ep + 1;
86 j < bind->server_val[bind->server_used].ep.ep_len; ++j)
87 if (strcmp (bind->server_val[bind->server_used].ep.ep_val[j].family,
88 "inet") == 0)
89 if (bind->server_val[bind->server_used].ep.ep_val[j].proto[0] == '-')
90 {
91 bind->current_ep = j;
92 return NIS_SUCCESS;
93 }
94
95 ++bind->trys;
96 ++bind->server_used;
97 if (bind->server_used >= bind->server_len)
98 bind->server_used = 0;
99
100 for (u_int j = 0; j < bind->server_val[bind->server_used].ep.ep_len; ++j)
101 if (strcmp (bind->server_val[bind->server_used].ep.ep_val[j].family,
102 "inet") == 0)
103 if (bind->server_val[bind->server_used].ep.ep_val[j].proto[0] == '-')
104 {
105 bind->current_ep = j;
106 return NIS_SUCCESS;
107 }
108
109 return NIS_FAIL;
110}
111libnsl_hidden_nolink_def (__nisbind_next, GLIBC_2_1)
112
113static struct ckey_cache_entry
114{
115 struct in_addr inaddr;
116 in_port_t port;
117 unsigned int protocol;
118 des_block ckey;
119} *ckey_cache;
120static size_t ckey_cache_size;
121static size_t ckey_cache_allocated;
122static pid_t ckey_cache_pid;
123static uid_t ckey_cache_euid;
124__libc_lock_define_initialized (static, ckey_cache_lock)
125
126static bool_t
127get_ckey (des_block *ckey, struct sockaddr_in *addr, unsigned int protocol)
128{
129 size_t i;
130 pid_t pid = getpid ();
131 uid_t euid = geteuid ();
132 bool_t ret = FALSE;
133
134 __libc_lock_lock (ckey_cache_lock);
135
136 if (ckey_cache_pid != pid || ckey_cache_euid != euid)
137 {
138 ckey_cache_size = 0;
139 ckey_cache_pid = pid;
140 ckey_cache_euid = euid;
141 }
142
143 for (i = 0; i < ckey_cache_size; ++i)
144 if (ckey_cache[i].port == addr->sin_port
145 && ckey_cache[i].protocol == protocol
146 && memcmp (&ckey_cache[i].inaddr, &addr->sin_addr,
147 sizeof (addr->sin_addr)) == 0)
148 {
149 *ckey = ckey_cache[i].ckey;
150 ret = TRUE;
151 break;
152 }
153
154 if (!ret && key_gendes (ckey) >= 0)
155 {
156 ret = TRUE;
157 /* Don't grow the cache indefinitely. */
158 if (ckey_cache_size == 256)
159 ckey_cache_size = 0;
160 if (ckey_cache_size == ckey_cache_allocated)
161 {
162 size_t size = ckey_cache_allocated ? ckey_cache_allocated * 2 : 16;
163 struct ckey_cache_entry *new_cache
164 = realloc (ckey_cache, size * sizeof (*ckey_cache));
165 if (new_cache != NULL)
166 {
167 ckey_cache = new_cache;
168 ckey_cache_allocated = size;
169 }
170 }
171 ckey_cache[ckey_cache_size].inaddr = addr->sin_addr;
172 ckey_cache[ckey_cache_size].port = addr->sin_port;
173 ckey_cache[ckey_cache_size].protocol = protocol;
174 ckey_cache[ckey_cache_size++].ckey = *ckey;
175 }
176
177 __libc_lock_unlock (ckey_cache_lock);
178 return ret;
179}
180
181nis_error
182__nisbind_connect (dir_binding *dbp)
183{
184 nis_server *serv;
185 u_short port;
186
187 if (dbp == NULL)
188 return NIS_FAIL;
189
190 serv = &dbp->server_val[dbp->server_used];
191
192 memset (&dbp->addr, '\0', sizeof (dbp->addr));
193 dbp->addr.sin_family = AF_INET;
194
195 dbp->addr.sin_addr.s_addr =
196 inetstr2int (serv->ep.ep_val[dbp->current_ep].uaddr);
197
198 if (dbp->addr.sin_addr.s_addr == INADDR_NONE)
199 return NIS_FAIL;
200
201 /* Check, if the host is online and rpc.nisd is running. Much faster
202 then the clnt*_create functions: */
203 port = __pmap_getnisport (&dbp->addr, NIS_PROG, NIS_VERSION,
204 dbp->use_udp ? IPPROTO_UDP : IPPROTO_TCP);
205 if (port == 0)
206 return NIS_RPCERROR;
207
208 dbp->addr.sin_port = htons (port);
209 dbp->socket = RPC_ANYSOCK;
210 if (dbp->use_udp)
211 dbp->clnt = clntudp_create (&dbp->addr, NIS_PROG, NIS_VERSION,
212 UDPTIMEOUT, &dbp->socket);
213 else
214 dbp->clnt = clnttcp_create (&dbp->addr, NIS_PROG, NIS_VERSION,
215 &dbp->socket, 0, 0);
216
217 if (dbp->clnt == NULL)
218 return NIS_RPCERROR;
219
220 clnt_control (dbp->clnt, CLSET_TIMEOUT, (caddr_t) &RPCTIMEOUT);
221 /* If the program exists, close the socket */
222 if (fcntl (dbp->socket, F_SETFD, 1) == -1)
223 perror ("fcntl: F_SETFD");
224
225 if (dbp->use_auth)
226 {
227 if (serv->key_type == NIS_PK_DH)
228 {
229 char netname[MAXNETNAMELEN + 1];
230 char *p;
231 des_block ckey;
232
233 p = stpcpy (netname, "unix@");
234 strncpy (p, serv->name, MAXNETNAMELEN - 5);
235 netname[MAXNETNAMELEN] = '\0';
236 dbp->clnt->cl_auth = NULL;
237 if (get_ckey (&ckey, &dbp->addr,
238 dbp->use_udp ? IPPROTO_UDP : IPPROTO_TCP))
239 dbp->clnt->cl_auth =
240 authdes_pk_create (netname, &serv->pkey, 300, NULL, &ckey);
241 if (!dbp->clnt->cl_auth)
242 dbp->clnt->cl_auth = authunix_create_default ();
243 }
244 else
245 dbp->clnt->cl_auth = authunix_create_default ();
246 }
247
248 return NIS_SUCCESS;
249}
250libnsl_hidden_nolink_def (__nisbind_connect, GLIBC_2_1)
251
252nis_error
253__nisbind_create (dir_binding *dbp, const nis_server *serv_val,
254 unsigned int serv_len, unsigned int server_used,
255 unsigned int current_ep, unsigned int flags)
256{
257 dbp->clnt = NULL;
258
259 dbp->server_len = serv_len;
260 dbp->server_val = (nis_server *)serv_val;
261
262 if (flags & USE_DGRAM)
263 dbp->use_udp = TRUE;
264 else
265 dbp->use_udp = FALSE;
266
267 if (flags & NO_AUTHINFO)
268 dbp->use_auth = FALSE;
269 else
270 dbp->use_auth = TRUE;
271
272 if (flags & MASTER_ONLY)
273 dbp->master_only = TRUE;
274 else
275 dbp->master_only = FALSE;
276
277 /* We try the first server */
278 dbp->trys = 1;
279
280 dbp->class = -1;
281 if (server_used == ~0)
282 {
283 if (__nis_findfastest (dbp) < 1)
284 return NIS_NAMEUNREACHABLE;
285 }
286 else
287 {
288 dbp->server_used = server_used;
289 dbp->current_ep = current_ep;
290 }
291
292 return NIS_SUCCESS;
293}
294libnsl_hidden_nolink_def (__nisbind_create, GLIBC_2_1)
295
296/* __nisbind_connect (dbp) must be run before calling this function !
297 So we could use the same binding twice */
298nis_error
299__do_niscall3 (dir_binding *dbp, u_long prog, xdrproc_t xargs, caddr_t req,
300 xdrproc_t xres, caddr_t resp, unsigned int flags, nis_cb *cb)
301{
302 enum clnt_stat result;
303 nis_error retcode;
304
305 if (dbp == NULL)
306 return NIS_NAMEUNREACHABLE;
307
308 do
309 {
310 again:
311 result = clnt_call (dbp->clnt, prog, xargs, req, xres, resp, RPCTIMEOUT);
312
313 if (result != RPC_SUCCESS)
314 retcode = NIS_RPCERROR;
315 else
316 {
317 switch (prog)
318 {
319 case NIS_IBLIST:
320 if ((((nis_result *)resp)->status == NIS_CBRESULTS) &&
321 (cb != NULL))
322 {
323 __nis_do_callback (dbp, &((nis_result *) resp)->cookie, cb);
324 break;
325 }
326 /* Yes, the missing break is correct. If we doesn't have to
327 start a callback, look if we have to search another server */
328 case NIS_LOOKUP:
329 case NIS_ADD:
330 case NIS_MODIFY:
331 case NIS_REMOVE:
332 case NIS_IBADD:
333 case NIS_IBMODIFY:
334 case NIS_IBREMOVE:
335 case NIS_IBFIRST:
336 case NIS_IBNEXT:
337 if (((nis_result *)resp)->status == NIS_SYSTEMERROR
338 || ((nis_result *)resp)->status == NIS_NOSUCHNAME
339 || ((nis_result *)resp)->status == NIS_NOT_ME)
340 {
341 next_server:
342 if (__nisbind_next (dbp) == NIS_SUCCESS)
343 {
344 while (__nisbind_connect (dbp) != NIS_SUCCESS)
345 {
346 if (__nisbind_next (dbp) != NIS_SUCCESS)
347 return NIS_SUCCESS;
348 }
349 }
350 else
351 break; /* No more servers to search in */
352 goto again;
353 }
354 break;
355 case NIS_FINDDIRECTORY:
356 if (((fd_result *)resp)->status == NIS_SYSTEMERROR
357 || ((fd_result *)resp)->status == NIS_NOSUCHNAME
358 || ((fd_result *)resp)->status == NIS_NOT_ME)
359 goto next_server;
360 break;
361 case NIS_DUMPLOG: /* log_result */
362 case NIS_DUMP:
363 if (((log_result *)resp)->lr_status == NIS_SYSTEMERROR
364 || ((log_result *)resp)->lr_status == NIS_NOSUCHNAME
365 || ((log_result *)resp)->lr_status == NIS_NOT_ME)
366 goto next_server;
367 break;
368 default:
369 break;
370 }
371 retcode = NIS_SUCCESS;
372 }
373 }
374 while ((flags & HARD_LOOKUP) && retcode == NIS_RPCERROR);
375
376 return retcode;
377}
378libnsl_hidden_nolink_def (__do_niscall3, GLIBC_PRIVATE)
379
380
381nis_error
382__do_niscall2 (const nis_server *server, u_int server_len, u_long prog,
383 xdrproc_t xargs, caddr_t req, xdrproc_t xres, caddr_t resp,
384 unsigned int flags, nis_cb *cb)
385{
386 dir_binding dbp;
387 nis_error status;
388
389 if (flags & MASTER_ONLY)
390 server_len = 1;
391
392 status = __nisbind_create (&dbp, server, server_len, ~0, ~0, flags);
393 if (status != NIS_SUCCESS)
394 return status;
395
396 while (__nisbind_connect (&dbp) != NIS_SUCCESS)
397 if (__nisbind_next (&dbp) != NIS_SUCCESS)
398 return NIS_NAMEUNREACHABLE;
399
400 status = __do_niscall3 (&dbp, prog, xargs, req, xres, resp, flags, cb);
401
402 __nisbind_destroy (&dbp);
403
404 return status;
405
406}
407
408static directory_obj *
409rec_dirsearch (const_nis_name name, directory_obj *dir, nis_error *status)
410{
411 fd_result *fd_res;
412 XDR xdrs;
413
414 switch (nis_dir_cmp (name, dir->do_name))
415 {
416 case SAME_NAME:
417 *status = NIS_SUCCESS;
418 return dir;
419 case NOT_SEQUENTIAL:
420 /* NOT_SEQUENTIAL means, go one up and try it there ! */
421 case HIGHER_NAME:
422 { /* We need data from a parent domain */
423 directory_obj *obj;
424 const char *ndomain = __nis_domain_of (dir->do_name);
425
426 /* The root server of our domain is a replica of the parent
427 domain ! (Now I understand why a root server must be a
428 replica of the parent domain) */
429 fd_res = __nis_finddirectory (dir, ndomain);
430 if (fd_res == NULL)
431 {
432 nis_free_directory (dir);
433 *status = NIS_NOMEMORY;
434 return NULL;
435 }
436 *status = fd_res->status;
437 if (fd_res->status != NIS_SUCCESS)
438 {
439 /* Try the current directory obj, maybe it works */
440 __free_fdresult (fd_res);
441 return dir;
442 }
443 nis_free_directory (dir);
444 obj = calloc (1, sizeof (directory_obj));
445 if (obj == NULL)
446 {
447 __free_fdresult (fd_res);
448 *status = NIS_NOMEMORY;
449 return NULL;
450 }
451 xdrmem_create (&xdrs, fd_res->dir_data.dir_data_val,
452 fd_res->dir_data.dir_data_len, XDR_DECODE);
453 _xdr_directory_obj (&xdrs, obj);
454 xdr_destroy (&xdrs);
455 __free_fdresult (fd_res);
456
457 /* We have found a NIS+ server serving ndomain, now
458 let us search for "name" */
459 return rec_dirsearch (name, obj, status);
460 }
461 break;
462 case LOWER_NAME:
463 {
464 directory_obj *obj;
465 size_t namelen = strlen (name);
466 char leaf[namelen + 3];
467 char domain[namelen + 3];
468 const char *ndomain;
469 char *cp;
470
471 strcpy (domain, name);
472
473 do
474 {
475 if (domain[0] == '\0')
476 {
477 nis_free_directory (dir);
478 return NULL;
479 }
480 nis_leaf_of_r (domain, leaf, sizeof (leaf));
481 ndomain = __nis_domain_of (domain);
482 memmove (domain, ndomain, strlen (ndomain) + 1);
483 }
484 while (nis_dir_cmp (domain, dir->do_name) != SAME_NAME);
485
486 cp = rawmemchr (leaf, '\0');
487 *cp++ = '.';
488 strcpy (cp, domain);
489
490 fd_res = __nis_finddirectory (dir, leaf);
491 if (fd_res == NULL)
492 {
493 nis_free_directory (dir);
494 *status = NIS_NOMEMORY;
495 return NULL;
496 }
497 *status = fd_res->status;
498 if (fd_res->status != NIS_SUCCESS)
499 {
500 /* Try the current directory object, maybe it works */
501 __free_fdresult (fd_res);
502 return dir;
503 }
504 nis_free_directory (dir);
505 obj = calloc (1, sizeof(directory_obj));
506 if (obj == NULL)
507 {
508 __free_fdresult (fd_res);
509 *status = NIS_NOMEMORY;
510 return NULL;
511 }
512 xdrmem_create (&xdrs, fd_res->dir_data.dir_data_val,
513 fd_res->dir_data.dir_data_len, XDR_DECODE);
514 _xdr_directory_obj (&xdrs, obj);
515 xdr_destroy (&xdrs);
516 __free_fdresult (fd_res);
517 /* We have found a NIS+ server serving ndomain, now
518 let us search for "name" */
519 return rec_dirsearch (name, obj, status);
520 }
521 break;
522 case BAD_NAME:
523 nis_free_directory (dir);
524 *status = NIS_BADNAME;
525 return NULL;
526 }
527 nis_free_directory (dir);
528 *status = NIS_FAIL;
529 return NULL;
530}
531
532/* We try to query the current server for the searched object,
533 maybe he know about it ? */
534static directory_obj *
535first_shoot (const_nis_name name, directory_obj *dir)
536{
537 directory_obj *obj = NULL;
538 fd_result *fd_res;
539 XDR xdrs;
540
541 if (nis_dir_cmp (name, dir->do_name) == SAME_NAME)
542 return dir;
543
544 fd_res = __nis_finddirectory (dir, name);
545 if (fd_res == NULL)
546 return NULL;
547 if (fd_res->status == NIS_SUCCESS
548 && (obj = calloc (1, sizeof (directory_obj))) != NULL)
549 {
550 xdrmem_create (&xdrs, fd_res->dir_data.dir_data_val,
551 fd_res->dir_data.dir_data_len, XDR_DECODE);
552 _xdr_directory_obj (&xdrs, obj);
553 xdr_destroy (&xdrs);
554
555 if (strcmp (dir->do_name, obj->do_name) != 0)
556 {
557 nis_free_directory (obj);
558 obj = NULL;
559 }
560 }
561
562 __free_fdresult (fd_res);
563
564 if (obj != NULL)
565 nis_free_directory (dir);
566
567 return obj;
568}
569
570static struct nis_server_cache
571{
572 int search_parent;
573 int uses;
574 unsigned int size;
575 unsigned int server_used;
576 unsigned int current_ep;
577 time_t expires;
578 char name[];
579} *nis_server_cache[16];
580static time_t nis_cold_start_mtime;
581__libc_lock_define_initialized (static, nis_server_cache_lock)
582
583static directory_obj *
584nis_server_cache_search (const_nis_name name, int search_parent,
585 unsigned int *server_used, unsigned int *current_ep,
586 struct timeval *now)
587{
588 directory_obj *ret = NULL;
589 int i;
590 char *addr;
591 XDR xdrs;
592 struct stat64 st;
593
594 int saved_errno = errno;
595 if (stat64 ("/var/nis/NIS_COLD_START", &st) < 0)
596 st.st_mtime = nis_cold_start_mtime + 1;
597 __set_errno (saved_errno);
598
599 __libc_lock_lock (nis_server_cache_lock);
600
601 for (i = 0; i < 16; ++i)
602 if (nis_server_cache[i] == NULL)
603 continue;
604 else if (st.st_mtime != nis_cold_start_mtime
605 || now->tv_sec > nis_server_cache[i]->expires)
606 {
607 free (nis_server_cache[i]);
608 nis_server_cache[i] = NULL;
609 }
610 else if (nis_server_cache[i]->search_parent == search_parent
611 && strcmp (nis_server_cache[i]->name, name) == 0)
612 {
613 ret = calloc (1, sizeof (directory_obj));
614 if (ret == NULL)
615 break;
616
617 addr = rawmemchr (nis_server_cache[i]->name, '\0') + 8;
618 addr = (char *) ((uintptr_t) addr & ~(uintptr_t) 7);
619 xdrmem_create (&xdrs, addr, nis_server_cache[i]->size, XDR_DECODE);
620 if (!_xdr_directory_obj (&xdrs, ret))
621 {
622 xdr_destroy (&xdrs);
623 free (ret);
624 ret = NULL;
625 free (nis_server_cache[i]);
626 nis_server_cache[i] = NULL;
627 break;
628 }
629 xdr_destroy (&xdrs);
630 *server_used = nis_server_cache[i]->server_used;
631 *current_ep = nis_server_cache[i]->current_ep;
632 break;
633 }
634
635 nis_cold_start_mtime = st.st_mtime;
636
637 __libc_lock_unlock (nis_server_cache_lock);
638 return ret;
639}
640
641static void
642nis_server_cache_add (const_nis_name name, int search_parent,
643 directory_obj *dir, unsigned int server_used,
644 unsigned int current_ep, struct timeval *now)
645{
646 struct nis_server_cache **loc;
647 struct nis_server_cache *new;
648 struct nis_server_cache *old;
649 int i;
650 char *addr;
651 unsigned int size;
652 XDR xdrs;
653
654 if (dir == NULL)
655 return;
656
657 size = xdr_sizeof ((xdrproc_t) _xdr_directory_obj, (char *) dir);
658 new = calloc (1, sizeof (*new) + strlen (name) + 8 + size);
659 if (new == NULL)
660 return;
661 new->search_parent = search_parent;
662 new->uses = 1;
663 new->expires = now->tv_sec + dir->do_ttl;
664 new->size = size;
665 new->server_used = server_used;
666 new->current_ep = current_ep;
667 addr = stpcpy (new->name, name) + 8;
668 addr = (char *) ((uintptr_t) addr & ~(uintptr_t) 7);
669
670 xdrmem_create(&xdrs, addr, size, XDR_ENCODE);
671 if (!_xdr_directory_obj (&xdrs, dir))
672 {
673 xdr_destroy (&xdrs);
674 free (new);
675 return;
676 }
677 xdr_destroy (&xdrs);
678
679 __libc_lock_lock (nis_server_cache_lock);
680
681 /* Choose which entry should be evicted from the cache. */
682 loc = &nis_server_cache[0];
683 if (*loc != NULL)
684 {
685 for (i = 1; i < 16; ++i)
686 if (nis_server_cache[i] == NULL)
687 {
688 loc = &nis_server_cache[i];
689 break;
690 }
691 else if ((*loc)->uses > nis_server_cache[i]->uses
692 || ((*loc)->uses == nis_server_cache[i]->uses
693 && (*loc)->expires > nis_server_cache[i]->expires))
694 loc = &nis_server_cache[i];
695 }
696 old = *loc;
697 *loc = new;
698
699 __libc_lock_unlock (nis_server_cache_lock);
700 free (old);
701}
702
703nis_error
704__nisfind_server (const_nis_name name, int search_parent,
705 directory_obj **dir, dir_binding *dbp, unsigned int flags)
706{
707 nis_error result = NIS_SUCCESS;
708 nis_error status;
709 directory_obj *obj;
710 struct timeval now;
711 unsigned int server_used = ~0;
712 unsigned int current_ep = ~0;
713
714 if (name == NULL)
715 return NIS_BADNAME;
716
717 if (*dir != NULL)
718 return NIS_SUCCESS;
719
720 (void) gettimeofday (&now, NULL);
721
722 if ((flags & NO_CACHE) == 0)
723 *dir = nis_server_cache_search (name, search_parent, &server_used,
724 &current_ep, &now);
725 if (*dir != NULL)
726 {
727 unsigned int server_len = (*dir)->do_servers.do_servers_len;
728 if (flags & MASTER_ONLY)
729 {
730 server_len = 1;
731 if (server_used != 0)
732 {
733 server_used = ~0;
734 current_ep = ~0;
735 }
736 }
737 result = __nisbind_create (dbp, (*dir)->do_servers.do_servers_val,
738 server_len, server_used, current_ep, flags);
739 if (result != NIS_SUCCESS)
740 {
741 nis_free_directory (*dir);
742 *dir = NULL;
743 }
744 return result;
745 }
746
747 int saved_errno = errno;
748 *dir = readColdStartFile ();
749 __set_errno (saved_errno);
750 if (*dir == NULL)
751 /* No /var/nis/NIS_COLD_START->no NIS+ installed. */
752 return NIS_UNAVAIL;
753
754 /* Try at first, if servers in "dir" know our object */
755 const char *search_name = name;
756 if (search_parent)
757 search_name = __nis_domain_of (name);
758 obj = first_shoot (search_name, *dir);
759 if (obj == NULL)
760 {
761 obj = rec_dirsearch (search_name, *dir, &status);
762 if (obj == NULL)
763 result = status;
764 }
765
766 if (result == NIS_SUCCESS)
767 {
768 unsigned int server_len = obj->do_servers.do_servers_len;
769 if (flags & MASTER_ONLY)
770 server_len = 1;
771 result = __nisbind_create (dbp, obj->do_servers.do_servers_val,
772 server_len, ~0, ~0, flags);
773 if (result == NIS_SUCCESS)
774 {
775 if ((flags & MASTER_ONLY) == 0
776 || obj->do_servers.do_servers_len == 1)
777 {
778 server_used = dbp->server_used;
779 current_ep = dbp->current_ep;
780 }
781 if ((flags & NO_CACHE) == 0)
782 nis_server_cache_add (name, search_parent, obj,
783 server_used, current_ep, &now);
784 }
785 else
786 {
787 nis_free_directory (obj);
788 obj = NULL;
789 }
790 }
791
792 *dir = obj;
793
794 return result;
795}
796
797
798nis_error
799__prepare_niscall (const_nis_name name, directory_obj **dirp,
800 dir_binding *bptrp, unsigned int flags)
801{
802 nis_error retcode = __nisfind_server (name, 1, dirp, bptrp, flags);
803 if (__glibc_unlikely (retcode != NIS_SUCCESS))
804 return retcode;
805
806 do
807 if (__nisbind_connect (bptrp) == NIS_SUCCESS)
808 return NIS_SUCCESS;
809 while (__nisbind_next (bptrp) == NIS_SUCCESS);
810
811 __nisbind_destroy (bptrp);
812 memset (bptrp, '\0', sizeof (*bptrp));
813
814 retcode = NIS_NAMEUNREACHABLE;
815 nis_free_directory (*dirp);
816 *dirp = NULL;
817
818 return retcode;
819}
820libnsl_hidden_nolink_def (__prepare_niscall, GLIBC_PRIVATE)
821
822
823nis_error
824__do_niscall (const_nis_name name, u_long prog, xdrproc_t xargs,
825 caddr_t req, xdrproc_t xres, caddr_t resp, unsigned int flags,
826 nis_cb *cb)
827{
828 dir_binding bptr;
829 directory_obj *dir = NULL;
830 int saved_errno = errno;
831
832 nis_error retcode = __prepare_niscall (name, &dir, &bptr, flags);
833 if (retcode == NIS_SUCCESS)
834 {
835 retcode = __do_niscall3 (&bptr, prog, xargs, req, xres, resp, flags, cb);
836
837 __nisbind_destroy (&bptr);
838
839 nis_free_directory (dir);
840 }
841
842 __set_errno (saved_errno);
843
844 return retcode;
845}
846