xref: /freebsd/usr.sbin/pw/pwupd.c (revision 6e8394b8baa7d5d9153ab90de6824bcd19b3b4e1)
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
28 static const char rcsid[] =
29 	"$Id: pwupd.c,v 1.7 1998/02/11 23:31:24 wosch Exp $";
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 <errno.h>
38 #include <sys/types.h>
39 #include <sys/stat.h>
40 #include <sys/param.h>
41 #include <sys/wait.h>
42 
43 #include "pwupd.h"
44 
45 #define HAVE_PWDB_C	1
46 
47 static char pathpwd[] = _PATH_PWD;
48 static char * pwpath = pathpwd;
49 
50 int
51 setpwdir(const char * dir)
52 {
53 	if (dir == NULL)
54 		return -1;
55 	else {
56 		char * d = malloc(strlen(dir)+1);
57 		if (d == NULL)
58 			return -1;
59 		pwpath = strcpy(d, dir);
60 	}
61 	return 0;
62 }
63 
64 char *
65 getpwpath(char const * file)
66 {
67 	static char pathbuf[MAXPATHLEN];
68 
69 	snprintf(pathbuf, sizeof pathbuf, "%s/%s", pwpath, file);
70 	return pathbuf;
71 }
72 
73 int
74 pwdb(char *arg,...)
75 {
76 	int             i = 0;
77 	pid_t           pid;
78 	va_list         ap;
79 	char           *args[10];
80 
81 	args[i++] = _PATH_PWD_MKDB;
82 	va_start(ap, arg);
83 	while (i < 6 && arg != NULL) {
84 		args[i++] = arg;
85 		arg = va_arg(ap, char *);
86 	}
87 	if (pwpath != pathpwd) {
88 		args[i++] = "-d";
89 		args[i++] = pwpath;
90 	}
91 	args[i++] = getpwpath(_MASTERPASSWD);
92 	args[i] = NULL;
93 
94 	if ((pid = fork()) == -1)	/* Error (errno set) */
95 		i = -1;
96 	else if (pid == 0) {	/* Child */
97 		execv(args[0], args);
98 		_exit(1);
99 	} else {		/* Parent */
100 		waitpid(pid, &i, 0);
101 		if ((i = WEXITSTATUS(i)) != 0)
102 			errno = EIO;	/* set SOMETHING */
103 	}
104 	return i;
105 }
106 
107 int
108 fmtpwentry(char *buf, struct passwd * pwd, int type)
109 {
110 	int             l;
111 	char           *pw;
112 
113 	pw = (pwd->pw_passwd == NULL || !*pwd->pw_passwd) ? "" : (type == PWF_MASTER) ? pwd->pw_passwd : "*";
114 
115 	if (type == PWF_PASSWD)
116 		l = sprintf(buf, "%s:*:%ld:%ld:%s:%s:%s\n",
117 		       pwd->pw_name, (long) pwd->pw_uid, (long) pwd->pw_gid,
118 			    pwd->pw_gecos ? pwd->pw_gecos : "User &",
119 			    pwd->pw_dir, pwd->pw_shell);
120 	else
121 		l = sprintf(buf, "%s:%s:%ld:%ld:%s:%lu:%lu:%s:%s:%s\n",
122 		   pwd->pw_name, pw, (long) pwd->pw_uid, (long) pwd->pw_gid,
123 			    pwd->pw_class ? pwd->pw_class : "",
124 			    (unsigned long) pwd->pw_change,
125 			    (unsigned long) pwd->pw_expire,
126 			    pwd->pw_gecos, pwd->pw_dir, pwd->pw_shell);
127 	return l;
128 }
129 
130 
131 int
132 fmtpwent(char *buf, struct passwd * pwd)
133 {
134 	return fmtpwentry(buf, pwd, PWF_STANDARD);
135 }
136 
137 static int
138 pw_update(struct passwd * pwd, char const * user, int mode)
139 {
140 	int             rc = 0;
141 
142 	ENDPWENT();
143 
144 	/*
145 	 * First, let's check the see if the database is alright
146 	 * Note: -C is only available in FreeBSD 2.2 and above
147 	 */
148 #ifdef HAVE_PWDB_C
149 	if (pwdb("-C", NULL) == 0) {	/* Check only */
150 #else
151 	{				/* No -C */
152 #endif
153 		char            pfx[32];
154 		char            pwbuf[PWBUFSZ];
155 		int             l = sprintf(pfx, "%s:", user);
156 
157 		/*
158 		 * Update the passwd file first
159 		 */
160 		if (pwd == NULL)
161 			*pwbuf = '\0';
162 		else
163 			fmtpwentry(pwbuf, pwd, PWF_PASSWD);
164 		if ((rc = fileupdate(getpwpath(_PASSWD), 0644, pwbuf, pfx, l, mode)) != 0) {
165 
166 			/*
167 			 * Then the master.passwd file
168 			 */
169 			if (pwd != NULL)
170 				fmtpwentry(pwbuf, pwd, PWF_MASTER);
171 			if ((rc = fileupdate(getpwpath(_MASTERPASSWD), 0644, pwbuf, pfx, l, mode)) != 0)
172 				rc = pwdb(NULL) == 0;
173 		}
174 	}
175 	return rc;
176 }
177 
178 int
179 addpwent(struct passwd * pwd)
180 {
181 	return pw_update(pwd, pwd->pw_name, UPD_CREATE);
182 }
183 
184 int
185 chgpwent(char const * login, struct passwd * pwd)
186 {
187 	return pw_update(pwd, login, UPD_REPLACE);
188 }
189 
190 int
191 delpwent(struct passwd * pwd)
192 {
193 	return pw_update(NULL, pwd->pw_name, UPD_DELETE);
194 }
195