Initial import from FreeBSD RELENG_4:
[dragonfly.git] / crypto / openssh / openbsd-compat / getgrouplist.c
1 /*
2  * Copyright (c) 1991, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  */
33
34 #include "includes.h"
35
36 #ifndef HAVE_GETGROUPLIST
37
38 #if defined(LIBC_SCCS) && !defined(lint)
39 static char rcsid[] = "$OpenBSD: getgrouplist.c,v 1.7 1997/08/19 19:13:27 deraadt Exp $";
40 #endif /* LIBC_SCCS and not lint */
41
42 /*
43  * get credential
44  */
45 #include <sys/types.h>
46 #include <string.h>
47 #include <grp.h>
48
49 int
50 getgrouplist(uname, agroup, groups, grpcnt)
51         const char *uname;
52         gid_t agroup;
53         register gid_t *groups;
54         int *grpcnt;
55 {
56         register struct group *grp;
57         register int i, ngroups;
58         int ret, maxgroups;
59         int bail;
60
61         ret = 0;
62         ngroups = 0;
63         maxgroups = *grpcnt;
64
65         /*
66          * install primary group
67          */
68         if (ngroups >= maxgroups) {
69                 *grpcnt = ngroups;
70                 return (-1);
71         }
72         groups[ngroups++] = agroup;
73
74         /*
75          * Scan the group file to find additional groups.
76          */
77         setgrent();
78         while ((grp = getgrent())) {
79                 if (grp->gr_gid == agroup)
80                         continue;
81                 for (bail = 0, i = 0; bail == 0 && i < ngroups; i++)
82                         if (groups[i] == grp->gr_gid)
83                                 bail = 1;
84                 if (bail)
85                         continue;
86                 for (i = 0; grp->gr_mem[i]; i++) {
87                         if (!strcmp(grp->gr_mem[i], uname)) {
88                                 if (ngroups >= maxgroups) {
89                                         ret = -1;
90                                         goto out;
91                                 }
92                                 groups[ngroups++] = grp->gr_gid;
93                                 break;
94                         }
95                 }
96         }
97 out:
98         endgrent();
99         *grpcnt = ngroups;
100         return (ret);
101 }
102
103 #endif /* HAVE_GETGROUPLIST */