1/*-
2 * Copyright (C) 1996
3 *	David L. Nugent.  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 *
14 * THIS SOFTWARE IS PROVIDED BY DAVID L. NUGENT AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED.  IN NO EVENT SHALL DAVID L. NUGENT OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 * SUCH DAMAGE.
25 */
26
27#ifndef lint
28static const char rcsid[] =
29  "$FreeBSD$";
30#endif /* not lint */
31
32#include <stdio.h>
33#include <stdlib.h>
34#include <string.h>
35#include <unistd.h>
36#include <stdarg.h>
37#include <sys/types.h>
38#include <sys/stat.h>
39#include <sys/param.h>
40
41#include "pwupd.h"
42
43static char * grpath = _PATH_PWD;
44
45int
46setgrdir(const char * dir)
47{
48	if (dir == NULL)
49		return -1;
50	else {
51		char * d = malloc(strlen(dir)+1);
52		if (d == NULL)
53			return -1;
54		grpath = strcpy(d, dir);
55	}
56	return 0;
57}
58
59char *
60getgrpath(const char * file)
61{
62	static char pathbuf[MAXPATHLEN];
63
64	snprintf(pathbuf, sizeof pathbuf, "%s/%s", grpath, file);
65	return pathbuf;
66}
67
68int
69grdb(char *arg,...)
70{
71	/*
72	 * This is a stub for now, but maybe eventually be functional
73	 * if ever an indexed version of /etc/groups is implemented.
74	 */
75	arg=arg;
76	return 0;
77}
78
79int
80fmtgrentry(char **buf, int * buflen, struct group * grp, int type)
81{
82	int             i, l;
83
84	/*
85	 * Since a group line is of arbitrary length,
86	 * we need to calculate up-front just how long
87	 * it will need to be...
88	 */
89	/*  groupname              :   password                 :  gid  : */
90	l = strlen(grp->gr_name) + 1 + strlen(grp->gr_passwd) + 1 + 5 + 1;
91	/* group members + comma separator */
92	for (i = 0; grp->gr_mem[i] != NULL; i++) {
93		l += strlen(grp->gr_mem[i]) + 1;
94	}
95	l += 2; /* For newline & NUL */
96	if (extendline(buf, buflen, l) == -1)
97		l = -1;
98	else{
99		/*
100		 * Now we can safely format
101		 */
102		if (type == PWF_STANDARD)
103			l = sprintf(*buf, "%s:*:%ld:", grp->gr_name, (long) grp->gr_gid);
104		else
105			l = sprintf(*buf, "%s:%s:%ld:", grp->gr_name, grp->gr_passwd, (long) grp->gr_gid);
106
107		/*
108		 * List members
109		 */
110		for (i = 0; grp->gr_mem[i] != NULL; i++) {
111			l += sprintf(*buf + l, "%s%s", i ? "," : "", grp->gr_mem[i]);
112		}
113
114		(*buf)[l++] = '\n';
115		(*buf)[l] = '\0';
116	}
117	return l;
118}
119
120
121int
122fmtgrent(char **buf, int * buflen, struct group * grp)
123{
124	return fmtgrentry(buf, buflen, grp, PWF_STANDARD);
125}
126
127
128static int
129gr_update(struct group * grp, char const * group, int mode)
130{
131	int             l;
132	char            pfx[64];
133	int		grbuflen = 0;
134	char	       *grbuf = NULL;
135
136	ENDGRENT();
137	l = snprintf(pfx, sizeof pfx, "%s:", group);
138
139	/*
140	 * Update the group file
141	 */
142	if (grp != NULL && fmtgrentry(&grbuf, &grbuflen, grp, PWF_PASSWD) == -1)
143		l = -1;
144	else {
145		l = fileupdate(getgrpath(_GROUP), 0644, grbuf, pfx, l, mode);
146		if (l == 0)
147			l = grdb(NULL);
148	}
149	if (grbuf != NULL)
150		free(grbuf);
151	return l;
152}
153
154
155int
156addgrent(struct group * grp)
157{
158	return gr_update(grp, grp->gr_name, UPD_CREATE);
159}
160
161int
162chggrent(char const * login, struct group * grp)
163{
164	return gr_update(grp, login, UPD_REPLACE);
165}
166
167int
168delgrent(struct group * grp)
169{
170	return gr_update(NULL, grp->gr_name, UPD_DELETE);
171}
172