1/* Copyright (C) 1996-2019 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996.
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 <ctype.h>
20#include <dlfcn.h>
21#include <errno.h>
22#include <netdb.h>
23#include <libc-lock.h>
24#include <search.h>
25#include <stdio.h>
26#include <stdio_ext.h>
27#include <stdlib.h>
28#include <string.h>
29
30#include <aliases.h>
31#include <grp.h>
32#include <netinet/ether.h>
33#include <pwd.h>
34#include <shadow.h>
35
36#if !defined DO_STATIC_NSS || defined SHARED
37# include <gnu/lib-names.h>
38#endif
39
40#include "nsswitch.h"
41#include "../nscd/nscd_proto.h"
42#include <sysdep.h>
43#include <config.h>
44
45#ifdef LINK_OBSOLETE_NSL
46# define DEFAULT_CONFIG "compat [NOTFOUND=return] files"
47# define DEFAULT_DEFCONFIG "nis [NOTFOUND=return] files"
48#else
49# define DEFAULT_CONFIG "files"
50# define DEFAULT_DEFCONFIG "files"
51#endif
52
53/* Prototypes for the local functions. */
54static name_database *nss_parse_file (const char *fname);
55static name_database_entry *nss_getline (char *line);
56static service_user *nss_parse_service_list (const char *line);
57#if !defined DO_STATIC_NSS || defined SHARED
58static service_library *nss_new_service (name_database *database,
59 const char *name);
60#endif
61
62
63/* Declare external database variables. */
64#define DEFINE_DATABASE(name) \
65 service_user *__nss_##name##_database attribute_hidden; \
66 weak_extern (__nss_##name##_database)
67#include "databases.def"
68#undef DEFINE_DATABASE
69
70/* Structure to map database name to variable. */
71static const struct
72{
73 const char name[10];
74 service_user **dbp;
75} databases[] =
76{
77#define DEFINE_DATABASE(name) \
78 { #name, &__nss_##name##_database },
79#include "databases.def"
80#undef DEFINE_DATABASE
81};
82#define ndatabases (sizeof (databases) / sizeof (databases[0]))
83
84#ifdef USE_NSCD
85/* Flags whether custom rules for database is set. */
86bool __nss_database_custom[NSS_DBSIDX_max];
87#endif
88
89
90__libc_lock_define_initialized (static, lock)
91
92#if !defined DO_STATIC_NSS || defined SHARED
93/* String with revision number of the shared object files. */
94static const char *const __nss_shlib_revision = LIBNSS_FILES_SO + 15;
95#endif
96
97/* The root of the whole data base. */
98static name_database *service_table;
99
100/* List of default service lists that were generated by glibc because
101 /etc/nsswitch.conf did not provide a value.
102 The list is only maintained so we can free such service lists in
103 __libc_freeres. */
104static name_database_entry *defconfig_entries;
105
106
107#if defined USE_NSCD && (!defined DO_STATIC_NSS || defined SHARED)
108/* Nonzero if this is the nscd process. */
109static bool is_nscd;
110/* The callback passed to the init functions when nscd is used. */
111static void (*nscd_init_cb) (size_t, struct traced_file *);
112#endif
113
114
115/* -1 == database not found
116 0 == database entry pointer stored */
117int
118__nss_database_lookup2 (const char *database, const char *alternate_name,
119 const char *defconfig, service_user **ni)
120{
121 /* Prevent multiple threads to change the service table. */
122 __libc_lock_lock (lock);
123
124 /* Reconsider database variable in case some other thread called
125 `__nss_configure_lookup' while we waited for the lock. */
126 if (*ni != NULL)
127 {
128 __libc_lock_unlock (lock);
129 return 0;
130 }
131
132 /* Are we initialized yet? */
133 if (service_table == NULL)
134 /* Read config file. */
135 service_table = nss_parse_file (_PATH_NSSWITCH_CONF);
136
137 /* Test whether configuration data is available. */
138 if (service_table != NULL)
139 {
140 /* Return first `service_user' entry for DATABASE. */
141 name_database_entry *entry;
142
143 /* XXX Could use some faster mechanism here. But each database is
144 only requested once and so this might not be critical. */
145 for (entry = service_table->entry; entry != NULL; entry = entry->next)
146 if (strcmp (database, entry->name) == 0)
147 *ni = entry->service;
148
149 if (*ni == NULL && alternate_name != NULL)
150 /* We haven't found an entry so far. Try to find it with the
151 alternative name. */
152 for (entry = service_table->entry; entry != NULL; entry = entry->next)
153 if (strcmp (alternate_name, entry->name) == 0)
154 *ni = entry->service;
155 }
156
157 /* No configuration data is available, either because nsswitch.conf
158 doesn't exist or because it doesn't have a line for this database.
159
160 DEFCONFIG specifies the default service list for this database,
161 or null to use the most common default. */
162 if (*ni == NULL)
163 {
164 *ni = nss_parse_service_list (defconfig ?: DEFAULT_DEFCONFIG);
165 if (*ni != NULL)
166 {
167 /* Record the memory we've just allocated in defconfig_entries list,
168 so we can free it later. */
169 name_database_entry *entry;
170
171 /* Allocate ENTRY plus size of name (1 here). */
172 entry = (name_database_entry *) malloc (sizeof (*entry) + 1);
173
174 if (entry != NULL)
175 {
176 entry->next = defconfig_entries;
177 entry->service = *ni;
178 entry->name[0] = '\0';
179 defconfig_entries = entry;
180 }
181 }
182 }
183
184 __libc_lock_unlock (lock);
185
186 return *ni != NULL ? 0 : -1;
187}
188libc_hidden_def (__nss_database_lookup2)
189
190
191/* -1 == not found
192 0 == function found
193 1 == finished */
194int
195__nss_lookup (service_user **ni, const char *fct_name, const char *fct2_name,
196 void **fctp)
197{
198 *fctp = __nss_lookup_function (*ni, fct_name);
199 if (*fctp == NULL && fct2_name != NULL)
200 *fctp = __nss_lookup_function (*ni, fct2_name);
201
202 while (*fctp == NULL
203 && nss_next_action (*ni, NSS_STATUS_UNAVAIL) == NSS_ACTION_CONTINUE
204 && (*ni)->next != NULL)
205 {
206 *ni = (*ni)->next;
207
208 *fctp = __nss_lookup_function (*ni, fct_name);
209 if (*fctp == NULL && fct2_name != NULL)
210 *fctp = __nss_lookup_function (*ni, fct2_name);
211 }
212
213 return *fctp != NULL ? 0 : (*ni)->next == NULL ? 1 : -1;
214}
215libc_hidden_def (__nss_lookup)
216
217
218/* -1 == not found
219 0 == adjusted for next function
220 1 == finished */
221int
222__nss_next2 (service_user **ni, const char *fct_name, const char *fct2_name,
223 void **fctp, int status, int all_values)
224{
225 if (all_values)
226 {
227 if (nss_next_action (*ni, NSS_STATUS_TRYAGAIN) == NSS_ACTION_RETURN
228 && nss_next_action (*ni, NSS_STATUS_UNAVAIL) == NSS_ACTION_RETURN
229 && nss_next_action (*ni, NSS_STATUS_NOTFOUND) == NSS_ACTION_RETURN
230 && nss_next_action (*ni, NSS_STATUS_SUCCESS) == NSS_ACTION_RETURN)
231 return 1;
232 }
233 else
234 {
235 /* This is really only for debugging. */
236 if (__builtin_expect (NSS_STATUS_TRYAGAIN > status
237 || status > NSS_STATUS_RETURN, 0))
238 __libc_fatal ("Illegal status in __nss_next.\n");
239
240 if (nss_next_action (*ni, status) == NSS_ACTION_RETURN)
241 return 1;
242 }
243
244 if ((*ni)->next == NULL)
245 return -1;
246
247 do
248 {
249 *ni = (*ni)->next;
250
251 *fctp = __nss_lookup_function (*ni, fct_name);
252 if (*fctp == NULL && fct2_name != NULL)
253 *fctp = __nss_lookup_function (*ni, fct2_name);
254 }
255 while (*fctp == NULL
256 && nss_next_action (*ni, NSS_STATUS_UNAVAIL) == NSS_ACTION_CONTINUE
257 && (*ni)->next != NULL);
258
259 return *fctp != NULL ? 0 : -1;
260}
261libc_hidden_def (__nss_next2)
262
263int
264__nss_configure_lookup (const char *dbname, const char *service_line)
265{
266 service_user *new_db;
267 size_t cnt;
268
269 for (cnt = 0; cnt < ndatabases; ++cnt)
270 {
271 int cmp = strcmp (dbname, databases[cnt].name);
272 if (cmp == 0)
273 break;
274 if (cmp < 0)
275 {
276 __set_errno (EINVAL);
277 return -1;
278 }
279 }
280
281 if (cnt == ndatabases)
282 {
283 __set_errno (EINVAL);
284 return -1;
285 }
286
287 /* Test whether it is really used. */
288 if (databases[cnt].dbp == NULL)
289 /* Nothing to do, but we could do. */
290 return 0;
291
292 /* Try to generate new data. */
293 new_db = nss_parse_service_list (service_line);
294 if (new_db == NULL)
295 {
296 /* Illegal service specification. */
297 __set_errno (EINVAL);
298 return -1;
299 }
300
301 /* Prevent multiple threads to change the service table. */
302 __libc_lock_lock (lock);
303
304 /* Install new rules. */
305 *databases[cnt].dbp = new_db;
306#ifdef USE_NSCD
307 __nss_database_custom[cnt] = true;
308#endif
309
310 __libc_lock_unlock (lock);
311
312 return 0;
313}
314
315
316/* Comparison function for searching NI->known tree. */
317static int
318known_compare (const void *p1, const void *p2)
319{
320 return p1 == p2 ? 0 : strcmp (*(const char *const *) p1,
321 *(const char *const *) p2);
322}
323
324
325#if !defined DO_STATIC_NSS || defined SHARED
326/* Load library. */
327static int
328nss_load_library (service_user *ni)
329{
330 if (ni->library == NULL)
331 {
332 /* This service has not yet been used. Fetch the service
333 library for it, creating a new one if need be. If there
334 is no service table from the file, this static variable
335 holds the head of the service_library list made from the
336 default configuration. */
337 static name_database default_table;
338 ni->library = nss_new_service (service_table ?: &default_table,
339 ni->name);
340 if (ni->library == NULL)
341 return -1;
342 }
343
344 if (ni->library->lib_handle == NULL)
345 {
346 /* Load the shared library. */
347 size_t shlen = (7 + strlen (ni->name) + 3
348 + strlen (__nss_shlib_revision) + 1);
349 int saved_errno = errno;
350 char shlib_name[shlen];
351
352 /* Construct shared object name. */
353 __stpcpy (__stpcpy (__stpcpy (__stpcpy (shlib_name,
354 "libnss_"),
355 ni->name),
356 ".so"),
357 __nss_shlib_revision);
358
359 ni->library->lib_handle = __libc_dlopen (shlib_name);
360 if (ni->library->lib_handle == NULL)
361 {
362 /* Failed to load the library. */
363 ni->library->lib_handle = (void *) -1l;
364 __set_errno (saved_errno);
365 }
366# ifdef USE_NSCD
367 else if (is_nscd)
368 {
369 /* Call the init function when nscd is used. */
370 size_t initlen = (5 + strlen (ni->name)
371 + strlen ("_init") + 1);
372 char init_name[initlen];
373
374 /* Construct the init function name. */
375 __stpcpy (__stpcpy (__stpcpy (init_name,
376 "_nss_"),
377 ni->name),
378 "_init");
379
380 /* Find the optional init function. */
381 void (*ifct) (void (*) (size_t, struct traced_file *))
382 = __libc_dlsym (ni->library->lib_handle, init_name);
383 if (ifct != NULL)
384 {
385 void (*cb) (size_t, struct traced_file *) = nscd_init_cb;
386# ifdef PTR_DEMANGLE
387 PTR_DEMANGLE (cb);
388# endif
389 ifct (cb);
390 }
391 }
392# endif
393 }
394
395 return 0;
396}
397#endif
398
399
400void *
401__nss_lookup_function (service_user *ni, const char *fct_name)
402{
403 void **found, *result;
404
405 /* We now modify global data. Protect it. */
406 __libc_lock_lock (lock);
407
408 /* Search the tree of functions previously requested. Data in the
409 tree are `known_function' structures, whose first member is a
410 `const char *', the lookup key. The search returns a pointer to
411 the tree node structure; the first member of the is a pointer to
412 our structure (i.e. what will be a `known_function'); since the
413 first member of that is the lookup key string, &FCT_NAME is close
414 enough to a pointer to our structure to use as a lookup key that
415 will be passed to `known_compare' (above). */
416
417 found = __tsearch (&fct_name, &ni->known, &known_compare);
418 if (found == NULL)
419 /* This means out-of-memory. */
420 result = NULL;
421 else if (*found != &fct_name)
422 {
423 /* The search found an existing structure in the tree. */
424 result = ((known_function *) *found)->fct_ptr;
425#ifdef PTR_DEMANGLE
426 PTR_DEMANGLE (result);
427#endif
428 }
429 else
430 {
431 /* This name was not known before. Now we have a node in the tree
432 (in the proper sorted position for FCT_NAME) that points to
433 &FCT_NAME instead of any real `known_function' structure.
434 Allocate a new structure and fill it in. */
435
436 known_function *known = malloc (sizeof *known);
437 if (! known)
438 {
439#if !defined DO_STATIC_NSS || defined SHARED
440 remove_from_tree:
441#endif
442 /* Oops. We can't instantiate this node properly.
443 Remove it from the tree. */
444 __tdelete (&fct_name, &ni->known, &known_compare);
445 free (known);
446 result = NULL;
447 }
448 else
449 {
450 /* Point the tree node at this new structure. */
451 *found = known;
452 known->fct_name = fct_name;
453
454#if !defined DO_STATIC_NSS || defined SHARED
455 /* Load the appropriate library. */
456 if (nss_load_library (ni) != 0)
457 /* This only happens when out of memory. */
458 goto remove_from_tree;
459
460 if (ni->library->lib_handle == (void *) -1l)
461 /* Library not found => function not found. */
462 result = NULL;
463 else
464 {
465 /* Get the desired function. */
466 size_t namlen = (5 + strlen (ni->name) + 1
467 + strlen (fct_name) + 1);
468 char name[namlen];
469
470 /* Construct the function name. */
471 __stpcpy (__stpcpy (__stpcpy (__stpcpy (name, "_nss_"),
472 ni->name),
473 "_"),
474 fct_name);
475
476 /* Look up the symbol. */
477 result = __libc_dlsym (ni->library->lib_handle, name);
478 }
479#else
480 /* We can't get function address dynamically in static linking. */
481 {
482# define DEFINE_ENT(h,nm) \
483 { #h"_get"#nm"ent_r", _nss_##h##_get##nm##ent_r }, \
484 { #h"_end"#nm"ent", _nss_##h##_end##nm##ent }, \
485 { #h"_set"#nm"ent", _nss_##h##_set##nm##ent },
486# define DEFINE_GET(h,nm) \
487 { #h"_get"#nm"_r", _nss_##h##_get##nm##_r },
488# define DEFINE_GETBY(h,nm,ky) \
489 { #h"_get"#nm"by"#ky"_r", _nss_##h##_get##nm##by##ky##_r },
490 static struct fct_tbl { const char *fname; void *fp; } *tp, tbl[] =
491 {
492# include "function.def"
493 { NULL, NULL }
494 };
495 size_t namlen = (5 + strlen (ni->name) + 1
496 + strlen (fct_name) + 1);
497 char name[namlen];
498
499 /* Construct the function name. */
500 __stpcpy (__stpcpy (__stpcpy (name, ni->name),
501 "_"),
502 fct_name);
503
504 result = NULL;
505 for (tp = &tbl[0]; tp->fname; tp++)
506 if (strcmp (tp->fname, name) == 0)
507 {
508 result = tp->fp;
509 break;
510 }
511 }
512#endif
513
514 /* Remember function pointer for later calls. Even if null, we
515 record it so a second try needn't search the library again. */
516 known->fct_ptr = result;
517#ifdef PTR_MANGLE
518 PTR_MANGLE (known->fct_ptr);
519#endif
520 }
521 }
522
523 /* Remove the lock. */
524 __libc_lock_unlock (lock);
525
526 return result;
527}
528libc_hidden_def (__nss_lookup_function)
529
530
531static name_database *
532nss_parse_file (const char *fname)
533{
534 FILE *fp;
535 name_database *result;
536 name_database_entry *last;
537 char *line;
538 size_t len;
539
540 /* Open the configuration file. */
541 fp = fopen (fname, "rce");
542 if (fp == NULL)
543 return NULL;
544
545 /* No threads use this stream. */
546 __fsetlocking (fp, FSETLOCKING_BYCALLER);
547
548 result = (name_database *) malloc (sizeof (name_database));
549 if (result == NULL)
550 {
551 fclose (fp);
552 return NULL;
553 }
554
555 result->entry = NULL;
556 result->library = NULL;
557 last = NULL;
558 line = NULL;
559 len = 0;
560 do
561 {
562 name_database_entry *this;
563 ssize_t n;
564
565 n = __getline (&line, &len, fp);
566 if (n < 0)
567 break;
568 if (line[n - 1] == '\n')
569 line[n - 1] = '\0';
570
571 /* Because the file format does not know any form of quoting we
572 can search forward for the next '#' character and if found
573 make it terminating the line. */
574 *__strchrnul (line, '#') = '\0';
575
576 /* If the line is blank it is ignored. */
577 if (line[0] == '\0')
578 continue;
579
580 /* Each line completely specifies the actions for a database. */
581 this = nss_getline (line);
582 if (this != NULL)
583 {
584 if (last != NULL)
585 last->next = this;
586 else
587 result->entry = this;
588
589 last = this;
590 }
591 }
592 while (!__feof_unlocked (fp));
593
594 /* Free the buffer. */
595 free (line);
596 /* Close configuration file. */
597 fclose (fp);
598
599 return result;
600}
601
602
603/* Read the source names:
604 `( <source> ( "[" "!"? (<status> "=" <action> )+ "]" )? )*'
605 */
606static service_user *
607nss_parse_service_list (const char *line)
608{
609 service_user *result = NULL, **nextp = &result;
610
611 while (1)
612 {
613 service_user *new_service;
614 const char *name;
615
616 while (isspace (line[0]))
617 ++line;
618 if (line[0] == '\0')
619 /* No source specified. */
620 return result;
621
622 /* Read <source> identifier. */
623 name = line;
624 while (line[0] != '\0' && !isspace (line[0]) && line[0] != '[')
625 ++line;
626 if (name == line)
627 return result;
628
629
630 new_service = (service_user *) malloc (sizeof (service_user)
631 + (line - name + 1));
632 if (new_service == NULL)
633 return result;
634
635 *((char *) __mempcpy (new_service->name, name, line - name)) = '\0';
636
637 /* Set default actions. */
638 new_service->actions[2 + NSS_STATUS_TRYAGAIN] = NSS_ACTION_CONTINUE;
639 new_service->actions[2 + NSS_STATUS_UNAVAIL] = NSS_ACTION_CONTINUE;
640 new_service->actions[2 + NSS_STATUS_NOTFOUND] = NSS_ACTION_CONTINUE;
641 new_service->actions[2 + NSS_STATUS_SUCCESS] = NSS_ACTION_RETURN;
642 new_service->actions[2 + NSS_STATUS_RETURN] = NSS_ACTION_RETURN;
643 new_service->library = NULL;
644 new_service->known = NULL;
645 new_service->next = NULL;
646
647 while (isspace (line[0]))
648 ++line;
649
650 if (line[0] == '[')
651 {
652 /* Read criterions. */
653 do
654 ++line;
655 while (line[0] != '\0' && isspace (line[0]));
656
657 do
658 {
659 int not;
660 enum nss_status status;
661 lookup_actions action;
662
663 /* Grok ! before name to mean all statii but that one. */
664 not = line[0] == '!';
665 if (not)
666 ++line;
667
668 /* Read status name. */
669 name = line;
670 while (line[0] != '\0' && !isspace (line[0]) && line[0] != '='
671 && line[0] != ']')
672 ++line;
673
674 /* Compare with known statii. */
675 if (line - name == 7)
676 {
677 if (__strncasecmp (name, "SUCCESS", 7) == 0)
678 status = NSS_STATUS_SUCCESS;
679 else if (__strncasecmp (name, "UNAVAIL", 7) == 0)
680 status = NSS_STATUS_UNAVAIL;
681 else
682 goto finish;
683 }
684 else if (line - name == 8)
685 {
686 if (__strncasecmp (name, "NOTFOUND", 8) == 0)
687 status = NSS_STATUS_NOTFOUND;
688 else if (__strncasecmp (name, "TRYAGAIN", 8) == 0)
689 status = NSS_STATUS_TRYAGAIN;
690 else
691 goto finish;
692 }
693 else
694 goto finish;
695
696 while (isspace (line[0]))
697 ++line;
698 if (line[0] != '=')
699 goto finish;
700 do
701 ++line;
702 while (isspace (line[0]));
703
704 name = line;
705 while (line[0] != '\0' && !isspace (line[0]) && line[0] != '='
706 && line[0] != ']')
707 ++line;
708
709 if (line - name == 6 && __strncasecmp (name, "RETURN", 6) == 0)
710 action = NSS_ACTION_RETURN;
711 else if (line - name == 8
712 && __strncasecmp (name, "CONTINUE", 8) == 0)
713 action = NSS_ACTION_CONTINUE;
714 else if (line - name == 5
715 && __strncasecmp (name, "MERGE", 5) == 0)
716 action = NSS_ACTION_MERGE;
717 else
718 goto finish;
719
720 if (not)
721 {
722 /* Save the current action setting for this status,
723 set them all to the given action, and reset this one. */
724 const lookup_actions save = new_service->actions[2 + status];
725 new_service->actions[2 + NSS_STATUS_TRYAGAIN] = action;
726 new_service->actions[2 + NSS_STATUS_UNAVAIL] = action;
727 new_service->actions[2 + NSS_STATUS_NOTFOUND] = action;
728 new_service->actions[2 + NSS_STATUS_SUCCESS] = action;
729 new_service->actions[2 + status] = save;
730 }
731 else
732 new_service->actions[2 + status] = action;
733
734 /* Skip white spaces. */
735 while (isspace (line[0]))
736 ++line;
737 }
738 while (line[0] != ']');
739
740 /* Skip the ']'. */
741 ++line;
742 }
743
744 *nextp = new_service;
745 nextp = &new_service->next;
746 continue;
747
748 finish:
749 free (new_service);
750 return result;
751 }
752}
753
754static name_database_entry *
755nss_getline (char *line)
756{
757 const char *name;
758 name_database_entry *result;
759 size_t len;
760
761 /* Ignore leading white spaces. ATTENTION: this is different from
762 what is implemented in Solaris. The Solaris man page says a line
763 beginning with a white space character is ignored. We regard
764 this as just another misfeature in Solaris. */
765 while (isspace (line[0]))
766 ++line;
767
768 /* Recognize `<database> ":"'. */
769 name = line;
770 while (line[0] != '\0' && !isspace (line[0]) && line[0] != ':')
771 ++line;
772 if (line[0] == '\0' || name == line)
773 /* Syntax error. */
774 return NULL;
775 *line++ = '\0';
776
777 len = strlen (name) + 1;
778
779 result = (name_database_entry *) malloc (sizeof (name_database_entry) + len);
780 if (result == NULL)
781 return NULL;
782
783 /* Save the database name. */
784 memcpy (result->name, name, len);
785
786 /* Parse the list of services. */
787 result->service = nss_parse_service_list (line);
788
789 result->next = NULL;
790 return result;
791}
792
793
794#if !defined DO_STATIC_NSS || defined SHARED
795static service_library *
796nss_new_service (name_database *database, const char *name)
797{
798 service_library **currentp = &database->library;
799
800 while (*currentp != NULL)
801 {
802 if (strcmp ((*currentp)->name, name) == 0)
803 return *currentp;
804 currentp = &(*currentp)->next;
805 }
806
807 /* We have to add the new service. */
808 *currentp = (service_library *) malloc (sizeof (service_library));
809 if (*currentp == NULL)
810 return NULL;
811
812 (*currentp)->name = name;
813 (*currentp)->lib_handle = NULL;
814 (*currentp)->next = NULL;
815
816 return *currentp;
817}
818#endif
819
820
821#if defined SHARED && defined USE_NSCD
822/* Load all libraries for the service. */
823static void
824nss_load_all_libraries (const char *service, const char *def)
825{
826 service_user *ni = NULL;
827
828 if (__nss_database_lookup2 (service, NULL, def, &ni) == 0)
829 while (ni != NULL)
830 {
831 nss_load_library (ni);
832 ni = ni->next;
833 }
834}
835
836
837/* Called by nscd and nscd alone. */
838void
839__nss_disable_nscd (void (*cb) (size_t, struct traced_file *))
840{
841# ifdef PTR_MANGLE
842 PTR_MANGLE (cb);
843# endif
844 nscd_init_cb = cb;
845 is_nscd = true;
846
847 /* Find all the relevant modules so that the init functions are called. */
848 nss_load_all_libraries ("passwd", DEFAULT_CONFIG);
849 nss_load_all_libraries ("group", DEFAULT_CONFIG);
850 nss_load_all_libraries ("hosts", "dns [!UNAVAIL=return] files");
851 nss_load_all_libraries ("services", NULL);
852
853 /* Disable all uses of NSCD. */
854 __nss_not_use_nscd_passwd = -1;
855 __nss_not_use_nscd_group = -1;
856 __nss_not_use_nscd_hosts = -1;
857 __nss_not_use_nscd_services = -1;
858 __nss_not_use_nscd_netgroup = -1;
859}
860#endif
861
862static void
863free_database_entries (name_database_entry *entry)
864{
865 while (entry != NULL)
866 {
867 name_database_entry *olde = entry;
868 service_user *service = entry->service;
869
870 while (service != NULL)
871 {
872 service_user *olds = service;
873
874 if (service->known != NULL)
875 __tdestroy (service->known, free);
876
877 service = service->next;
878 free (olds);
879 }
880
881 entry = entry->next;
882 free (olde);
883 }
884}
885
886/* Free all resources if necessary. */
887libc_freeres_fn (free_defconfig)
888{
889 name_database_entry *entry = defconfig_entries;
890
891 if (entry == NULL)
892 /* defconfig was not used. */
893 return;
894
895 /* Don't disturb ongoing other threads (if there are any). */
896 defconfig_entries = NULL;
897
898 free_database_entries (entry);
899}
900
901libc_freeres_fn (free_mem)
902{
903 name_database *top = service_table;
904 service_library *library;
905
906 if (top == NULL)
907 /* Maybe we have not read the nsswitch.conf file. */
908 return;
909
910 /* Don't disturb ongoing other threads (if there are any). */
911 service_table = NULL;
912
913 free_database_entries (top->entry);
914
915 library = top->library;
916 while (library != NULL)
917 {
918 service_library *oldl = library;
919
920 if (library->lib_handle && library->lib_handle != (void *) -1l)
921 __libc_dlclose (library->lib_handle);
922
923 library = library->next;
924 free (oldl);
925 }
926
927 free (top);
928}
929