1/* Prototype for the setgrent functions we use here. */
2typedef enum nss_status (*set_function) (void);
3
4/* Prototype for the endgrent functions we use here. */
5typedef enum nss_status (*end_function) (void);
6
7/* Prototype for the setgrent functions we use here. */
8typedef enum nss_status (*get_function) (struct group *, char *,
9 size_t, int *);
10
11
12static enum nss_status
13compat_call (service_user *nip, const char *user, gid_t group, long int *start,
14 long int *size, gid_t **groupsp, long int limit, int *errnop)
15{
16 struct group grpbuf;
17 enum nss_status status;
18 set_function setgrent_fct;
19 get_function getgrent_fct;
20 end_function endgrent_fct;
21 gid_t *groups = *groupsp;
22
23 getgrent_fct = __nss_lookup_function (nip, "getgrent_r");
24 if (getgrent_fct == NULL)
25 return NSS_STATUS_UNAVAIL;
26
27 setgrent_fct = __nss_lookup_function (nip, "setgrent");
28 if (setgrent_fct)
29 {
30 status = DL_CALL_FCT (setgrent_fct, ());
31 if (status != NSS_STATUS_SUCCESS)
32 return status;
33 }
34
35 endgrent_fct = __nss_lookup_function (nip, "endgrent");
36
37 struct scratch_buffer tmpbuf;
38 scratch_buffer_init (&tmpbuf);
39 enum nss_status result = NSS_STATUS_SUCCESS;
40
41 do
42 {
43 while ((status = DL_CALL_FCT (getgrent_fct,
44 (&grpbuf, tmpbuf.data, tmpbuf.length,
45 errnop)),
46 status == NSS_STATUS_TRYAGAIN)
47 && *errnop == ERANGE)
48 {
49 if (!scratch_buffer_grow (&tmpbuf))
50 {
51 result = NSS_STATUS_TRYAGAIN;
52 goto done;
53 }
54 }
55
56 if (status != NSS_STATUS_SUCCESS)
57 goto done;
58
59 if (grpbuf.gr_gid != group)
60 {
61 char **m;
62
63 for (m = grpbuf.gr_mem; *m != NULL; ++m)
64 if (strcmp (*m, user) == 0)
65 {
66 /* Check whether the group is already on the list. */
67 long int cnt;
68 for (cnt = 0; cnt < *start; ++cnt)
69 if (groups[cnt] == grpbuf.gr_gid)
70 break;
71
72 if (cnt == *start)
73 {
74 /* Matches user and not yet on the list. Insert
75 this group. */
76 if (__glibc_unlikely (*start == *size))
77 {
78 /* Need a bigger buffer. */
79 gid_t *newgroups;
80 long int newsize;
81
82 if (limit > 0 && *size == limit)
83 /* We reached the maximum. */
84 goto done;
85
86 if (limit <= 0)
87 newsize = 2 * *size;
88 else
89 newsize = MIN (limit, 2 * *size);
90
91 newgroups = realloc (groups,
92 newsize * sizeof (*groups));
93 if (newgroups == NULL)
94 goto done;
95 *groupsp = groups = newgroups;
96 *size = newsize;
97 }
98
99 groups[*start] = grpbuf.gr_gid;
100 *start += 1;
101 }
102
103 break;
104 }
105 }
106 }
107 while (status == NSS_STATUS_SUCCESS);
108
109 done:
110 scratch_buffer_free (&tmpbuf);
111
112 if (endgrent_fct)
113 DL_CALL_FCT (endgrent_fct, ());
114
115 return result;
116}
117