1/*-
2 * SPDX-License-Identifier: BSD-4-Clause
3 *
4 * Copyright (c) 1995, 1996
5 *	Bill Paul <wpaul@ctr.columbia.edu>.  All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 *    must display the following acknowledgement:
17 *	This product includes software developed by Bill Paul.
18 * 4. Neither the name of the author nor the names of any co-contributors
19 *    may be used to endorse or promote products derived from this software
20 *    without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY Bill Paul AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED.  IN NO EVENT SHALL Bill Paul OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34
35#include <sys/cdefs.h>
36__FBSDID("$FreeBSD$");
37
38#include <sys/param.h>
39#include <sys/fcntl.h>
40#include <sys/socket.h>
41#include <sys/stat.h>
42#include <sys/wait.h>
43
44#include <arpa/inet.h>
45#include <netinet/in.h>
46
47#include <ctype.h>
48#include <db.h>
49#include <dirent.h>
50#include <errno.h>
51#include <limits.h>
52#include <pwd.h>
53#include <signal.h>
54#include <stdio.h>
55#include <stdlib.h>
56#include <string.h>
57#include <unistd.h>
58
59#include <libgen.h>
60#include <libutil.h>
61
62#include <rpc/rpc.h>
63#include <rpcsvc/yp.h>
64struct dom_binding;
65#include <rpcsvc/ypclnt.h>
66#include "yppasswdd_extern.h"
67#include "yppasswd.h"
68#include "yppasswd_private.h"
69#include "ypxfr_extern.h"
70#include "yp_extern.h"
71
72static struct passwd yp_password;
73
74static void
75xlate_passwd(struct x_master_passwd *xpwd, struct passwd *pwd)
76{
77	pwd->pw_name = xpwd->pw_name;
78	pwd->pw_passwd = xpwd->pw_passwd;
79	pwd->pw_uid = xpwd->pw_uid;
80	pwd->pw_gid = xpwd->pw_gid;
81	pwd->pw_change = xpwd->pw_change;
82	pwd->pw_class = xpwd->pw_class;
83	pwd->pw_gecos = xpwd->pw_gecos;
84	pwd->pw_dir = xpwd->pw_dir;
85	pwd->pw_shell = xpwd->pw_shell;
86	pwd->pw_expire = xpwd->pw_expire;
87	pwd->pw_fields = xpwd->pw_fields;
88}
89
90static void
91copy_yp_pass(char *p, int x, int m)
92{
93	char *t, *s = p;
94	static char *buf;
95
96	yp_password.pw_fields = 0;
97
98	buf = realloc(buf, m + 10);
99	bzero(buf, m + 10);
100
101	/* Turn all colons into NULLs */
102	while (strchr(s, ':')) {
103		s = (strchr(s, ':') + 1);
104		*(s - 1)= '\0';
105	}
106
107	t = buf;
108#define EXPAND(e) do { \
109	e = t; \
110	while ((*t++ = *p++)); \
111} while (0)
112        EXPAND(yp_password.pw_name);
113	yp_password.pw_fields |= _PWF_NAME;
114        EXPAND(yp_password.pw_passwd);
115	yp_password.pw_fields |= _PWF_PASSWD;
116	yp_password.pw_uid = atoi(p);
117        p += (strlen(p) + 1);
118	yp_password.pw_fields |= _PWF_UID;
119	yp_password.pw_gid = atoi(p);
120        p += (strlen(p) + 1);
121	yp_password.pw_fields |= _PWF_GID;
122	if (x) {
123		EXPAND(yp_password.pw_class);
124		yp_password.pw_fields |= _PWF_CLASS;
125		yp_password.pw_change = atol(p);
126		p += (strlen(p) + 1);
127		yp_password.pw_fields |= _PWF_CHANGE;
128		yp_password.pw_expire = atol(p);
129		p += (strlen(p) + 1);
130		yp_password.pw_fields |= _PWF_EXPIRE;
131	}
132        EXPAND(yp_password.pw_gecos);
133	yp_password.pw_fields |= _PWF_GECOS;
134        EXPAND(yp_password.pw_dir);
135	yp_password.pw_fields |= _PWF_DIR;
136        EXPAND(yp_password.pw_shell);
137	yp_password.pw_fields |= _PWF_SHELL;
138
139	return;
140}
141
142static int
143validchars(char *arg)
144{
145	size_t i;
146
147	for (i = 0; i < strlen(arg); i++) {
148		if (iscntrl(arg[i])) {
149			yp_error("string contains a control character");
150			return(1);
151		}
152		if (arg[i] == ':') {
153			yp_error("string contains a colon");
154			return(1);
155		}
156		/* Be evil: truncate strings with \n in them silently. */
157		if (arg[i] == '\n') {
158			arg[i] = '\0';
159			return(0);
160		}
161	}
162	return(0);
163}
164
165static int
166validate_master(struct passwd *opw __unused, struct x_master_passwd *npw)
167{
168
169	if (npw->pw_name[0] == '+' || npw->pw_name[0] == '-') {
170		yp_error("client tried to modify an NIS entry");
171		return(1);
172	}
173
174	if (validchars(npw->pw_shell)) {
175		yp_error("specified shell contains invalid characters");
176		return(1);
177	}
178
179	if (validchars(npw->pw_gecos)) {
180		yp_error("specified gecos field contains invalid characters");
181		return(1);
182	}
183
184	if (validchars(npw->pw_passwd)) {
185		yp_error("specified password contains invalid characters");
186		return(1);
187	}
188	return(0);
189}
190
191static int
192validate(struct passwd *opw, struct x_passwd *npw)
193{
194
195	if (npw->pw_name[0] == '+' || npw->pw_name[0] == '-') {
196		yp_error("client tried to modify an NIS entry");
197		return(1);
198	}
199
200	if ((uid_t)npw->pw_uid != opw->pw_uid) {
201		yp_error("UID mismatch: client says user %s has UID %d",
202			 npw->pw_name, npw->pw_uid);
203		yp_error("database says user %s has UID %d", opw->pw_name,
204			 opw->pw_uid);
205		return(1);
206	}
207
208	if ((gid_t)npw->pw_gid != opw->pw_gid) {
209		yp_error("GID mismatch: client says user %s has GID %d",
210			 npw->pw_name, npw->pw_gid);
211		yp_error("database says user %s has GID %d", opw->pw_name,
212			 opw->pw_gid);
213		return(1);
214	}
215
216	/*
217	 * Don't allow the user to shoot himself in the foot,
218	 * even on purpose.
219	 */
220	if (!no_chsh && !ok_shell(npw->pw_shell)) {
221		yp_error("%s is not a valid shell", npw->pw_shell);
222		return(1);
223	}
224
225	if (!no_chsh && validchars(npw->pw_shell)) {
226		yp_error("specified shell contains invalid characters");
227		return(1);
228	}
229
230	if (validchars(npw->pw_gecos)) {
231		yp_error("specified gecos field contains invalid characters");
232		return(1);
233	}
234
235	if (validchars(npw->pw_passwd)) {
236		yp_error("specified password contains invalid characters");
237		return(1);
238	}
239	return(0);
240}
241
242/*
243 * Kludge alert:
244 * In order to have one rpc.yppasswdd support multiple domains,
245 * we have to cheat: we search each directory under /var/yp
246 * and try to match the user in each master.passwd.byname
247 * map that we find. If the user matches (username, uid and gid
248 * all agree), then we use that domain. If we match the user in
249 * more than one database, we must abort.
250 */
251static char *
252find_domain(struct x_passwd *pw)
253{
254	struct stat statbuf;
255	struct dirent *dirp;
256	DIR *dird;
257	char yp_mapdir[MAXPATHLEN + 2];
258	static char domain[YPMAXDOMAIN];
259	char *tmp = NULL;
260	DBT key, data;
261	int hit = 0;
262
263	yp_error("performing multidomain lookup");
264
265	if ((dird = opendir(yp_dir)) == NULL) {
266		yp_error("opendir(%s) failed: %s", yp_dir, strerror(errno));
267		return(NULL);
268	}
269
270	while ((dirp = readdir(dird)) != NULL) {
271		snprintf(yp_mapdir, sizeof yp_mapdir, "%s/%s",
272							yp_dir, dirp->d_name);
273		if (stat(yp_mapdir, &statbuf) < 0) {
274			yp_error("stat(%s) failed: %s", yp_mapdir,
275							strerror(errno));
276			closedir(dird);
277			return(NULL);
278		}
279		if (S_ISDIR(statbuf.st_mode)) {
280			tmp = (char *)dirp->d_name;
281			key.data = pw->pw_name;
282			key.size = strlen(pw->pw_name);
283
284			if (yp_get_record(tmp,"master.passwd.byname",
285			  		&key, &data, 0) != YP_TRUE) {
286				continue;
287			}
288			*((char *)data.data + data.size) = '\0';
289			copy_yp_pass(data.data, 1, data.size);
290			if (yp_password.pw_uid == (uid_t)pw->pw_uid &&
291			    yp_password.pw_gid == (gid_t)pw->pw_gid) {
292				hit++;
293				snprintf(domain, YPMAXDOMAIN, "%s", tmp);
294			}
295		}
296	}
297
298	closedir(dird);
299	if (hit > 1) {
300		yp_error("found same user in two different domains");
301		return(NULL);
302	} else
303		return((char *)&domain);
304}
305
306static const char *maps[] = {
307	"master.passwd.byname",
308	"master.passwd.byuid",
309	"passwd.byname",
310	"passwd.byuid"
311};
312
313static const char *formats[] = {
314	"%s:%s:%d:%d:%s:%ld:%ld:%s:%s:%s",
315	"%s:%s:%d:%d:%s:%ld:%ld:%s:%s:%s",
316	"%s:%s:%d:%d:%s:%s:%s",
317	"%s:%s:%d:%d:%s:%s:%s"
318};
319
320static int
321update_inplace(struct passwd *pw, char *domain)
322{
323	DB *dbp = NULL;
324	DBT key = { NULL, 0 };
325	DBT data = { NULL, 0 };
326	char *pwbuf;
327	char keybuf[20];
328	int i;
329	char *ptr = NULL;
330	static char yp_last[] = "YP_LAST_MODIFIED";
331	char yplastbuf[64];
332
333	snprintf(yplastbuf, sizeof yplastbuf, "%llu",
334	    (unsigned long long)time(NULL));
335	pwbuf = NULL;
336
337	for (i = 0; i < 4; i++) {
338
339		if (i % 2) {
340			snprintf(keybuf, sizeof keybuf,
341			    "%llu", (unsigned long long)pw->pw_uid);
342			key.data = &keybuf;
343			key.size = strlen(keybuf);
344		} else {
345			key.data = pw->pw_name;
346			key.size = strlen(pw->pw_name);
347		}
348
349		/*
350		 * XXX The passwd.byname and passwd.byuid maps come in
351		 * two flavors: secure and insecure. The secure version
352		 * has a '*' in the password field whereas the insecure one
353		 * has a real crypted password. The maps will be insecure
354		 * if they were built with 'unsecure = TRUE' enabled in
355		 * /var/yp/Makefile, but we'd have no way of knowing if
356		 * this has been done unless we were to try parsing the
357		 * Makefile, which is a disgusting thought. Instead, we
358		 * read the records from the maps, skip to the first ':'
359		 * in them, and then look at the character immediately
360		 * following it. If it's an '*' then the map is 'secure'
361		 * and we must not insert a real password into the pw_passwd
362		 * field. If it's not an '*', then we put the real crypted
363		 * password in.
364		 */
365		if (yp_get_record(domain,maps[i],&key,&data,1) != YP_TRUE) {
366			yp_error("couldn't read %s/%s: %s", domain,
367						maps[i], strerror(errno));
368			goto ret1;
369		}
370
371		if ((ptr = strchr(data.data, ':')) == NULL) {
372			yp_error("no colon in passwd record?!");
373			goto ret1;
374		}
375
376		/*
377		 * XXX Supposing we have more than one user with the same
378		 * UID? (Or more than one user with the same name?) We could
379		 * end up modifying the wrong record if were not careful.
380		 */
381		if (i % 2) {
382			if (strncmp(data.data, pw->pw_name,
383							strlen(pw->pw_name))) {
384				yp_error("warning: found entry for UID %d \
385in map %s@%s with wrong name (%.*s)", pw->pw_uid, maps[i], domain,
386				    (int)(ptr - (char *)data.data),
387				    (char *)data.data);
388				yp_error("there may be more than one user \
389with the same UID - continuing");
390				continue;
391			}
392		} else {
393			/*
394			 * We're really being ultra-paranoid here.
395			 * This is generally a 'can't happen' condition.
396			 */
397			free(pwbuf);
398			asprintf(&pwbuf, ":%d:%d:", pw->pw_uid, pw->pw_gid);
399			if (pwbuf == NULL) {
400				yp_error("no memory");
401				goto ret1;
402			}
403			if (!strstr(data.data, pwbuf)) {
404				yp_error("warning: found entry for user %s \
405in map %s@%s with wrong UID", pw->pw_name, maps[i], domain);
406				yp_error("there may be more than one user \
407with the same name - continuing");
408				continue;
409			}
410		}
411
412		if (i < 2) {
413			free(pwbuf);
414			asprintf(&pwbuf, formats[i],
415			   pw->pw_name, pw->pw_passwd, pw->pw_uid,
416			   pw->pw_gid, pw->pw_class, pw->pw_change,
417			   pw->pw_expire, pw->pw_gecos, pw->pw_dir,
418			   pw->pw_shell);
419		} else {
420			free(pwbuf);
421			asprintf(&pwbuf, formats[i],
422			   pw->pw_name, *(ptr+1) == '*' ? "*" : pw->pw_passwd,
423			   pw->pw_uid, pw->pw_gid, pw->pw_gecos, pw->pw_dir,
424			   pw->pw_shell);
425		}
426		if (pwbuf == NULL) {
427			yp_error("no memory");
428			goto ret1;
429		}
430
431#define FLAGS O_RDWR|O_CREAT
432
433		if ((dbp = yp_open_db_rw(domain, maps[i], FLAGS)) == NULL) {
434			yp_error("couldn't open %s/%s r/w: %s",domain,
435						maps[i],strerror(errno));
436			goto ret1;
437		}
438
439		data.data = pwbuf;
440		data.size = strlen(pwbuf);
441
442		if (yp_put_record(dbp, &key, &data, 1) != YP_TRUE) {
443			yp_error("failed to update record in %s/%s", domain,
444								maps[i]);
445			(void)(dbp->close)(dbp);
446			goto ret1;
447		}
448
449		key.data = yp_last;
450		key.size = strlen(yp_last);
451		data.data = (char *)&yplastbuf;
452		data.size = strlen(yplastbuf);
453
454		if (yp_put_record(dbp, &key, &data, 1) != YP_TRUE) {
455			yp_error("failed to update timestamp in %s/%s", domain,
456								maps[i]);
457			(void)(dbp->close)(dbp);
458			goto ret1;
459		}
460
461		(void)(dbp->close)(dbp);
462	}
463
464	free(pwbuf);
465	return (0);
466ret1:
467	free(pwbuf);
468	return (1);
469}
470
471int *
472yppasswdproc_update_1_svc(yppasswd *argp, struct svc_req *rqstp)
473{
474	static int  result;
475	struct sockaddr_in *rqhost;
476	DBT key, data;
477	int rval = 0;
478	int pfd, tfd;
479	int pid;
480	int passwd_changed = 0;
481	int shell_changed = 0;
482	int gecos_changed = 0;
483	char *cryptpw;
484	char *oldshell = NULL;
485	char *oldgecos = NULL;
486	char *passdir;
487	char *passfile_hold;
488	char passdir_buf[MAXPATHLEN + 2];
489	char passfile_buf[MAXPATHLEN + 2];
490	char passfile_hold_buf[MAXPATHLEN + 2];
491	char *domain = yppasswd_domain;
492	static struct sockaddr_in clntaddr;
493	static struct timeval t_saved, t_test;
494
495	/*
496	 * Normal user updates always use the 'default' master.passwd file.
497	 */
498
499	passfile = passfile_default;
500	result = 1;
501
502	rqhost = svc_getcaller(rqstp->rq_xprt);
503
504	gettimeofday(&t_test, NULL);
505	if (!bcmp(rqhost, &clntaddr, sizeof *rqhost) &&
506		t_test.tv_sec > t_saved.tv_sec &&
507		t_test.tv_sec - t_saved.tv_sec < 300) {
508
509		bzero(&clntaddr, sizeof clntaddr);
510		bzero(&t_saved, sizeof t_saved);
511		return(NULL);
512	}
513
514	bcopy(rqhost, &clntaddr, sizeof clntaddr);
515	gettimeofday(&t_saved, NULL);
516
517	if (yp_access(resvport ? "master.passwd.byname" : NULL, rqstp)) {
518		yp_error("rejected update request from unauthorized host");
519		svcerr_auth(rqstp->rq_xprt, AUTH_BADCRED);
520		return(&result);
521	}
522
523	/*
524	 * Step one: find the user. (It's kinda pointless to
525	 * proceed if the user doesn't exist.) We look for the
526	 * user in the master.passwd.byname database, _NOT_ by
527	 * using getpwent() and friends! We can't use getpwent()
528	 * since the NIS master server is not guaranteed to be
529	 * configured as an NIS client.
530	 */
531
532	if (multidomain) {
533		if ((domain = find_domain(&argp->newpw)) == NULL) {
534			yp_error("multidomain lookup failed - aborting update");
535			return(&result);
536		} else
537			yp_error("updating user %s in domain %s",
538					argp->newpw.pw_name, domain);
539	}
540
541	key.data = argp->newpw.pw_name;
542	key.size = strlen(argp->newpw.pw_name);
543
544	if ((rval = yp_get_record(domain,"master.passwd.byname",
545		  	&key, &data, 0)) != YP_TRUE) {
546		if (rval == YP_NOKEY) {
547			yp_error("user %s not found in passwd database",
548			 	argp->newpw.pw_name);
549		} else {
550			yp_error("database access error: %s",
551			 	yperr_string(rval));
552		}
553		return(&result);
554	}
555
556	/* Nul terminate, please. */
557	*((char *)data.data + data.size) = '\0';
558
559	copy_yp_pass(data.data, 1, data.size);
560
561	/* Step 2: check that the supplied oldpass is valid. */
562
563	cryptpw = crypt(argp->oldpass, yp_password.pw_passwd);
564	if (cryptpw == NULL || strcmp(cryptpw, yp_password.pw_passwd)) {
565		yp_error("rejected change attempt -- bad password");
566		yp_error("client address: %s username: %s",
567			  inet_ntoa(rqhost->sin_addr),
568			  argp->newpw.pw_name);
569		return(&result);
570	}
571
572	/* Step 3: validate the arguments passed to us by the client. */
573
574	if (validate(&yp_password, &argp->newpw)) {
575		yp_error("rejecting change attempt: bad arguments");
576		yp_error("client address: %s username: %s",
577			 inet_ntoa(rqhost->sin_addr),
578			 argp->newpw.pw_name);
579		svcerr_decode(rqstp->rq_xprt);
580		return(&result);
581	}
582
583	/* Step 4: update the user's passwd structure. */
584
585	if (!no_chsh && strcmp(argp->newpw.pw_shell, yp_password.pw_shell)) {
586		oldshell = yp_password.pw_shell;
587		yp_password.pw_shell = argp->newpw.pw_shell;
588		shell_changed++;
589	}
590
591
592	if (!no_chfn && strcmp(argp->newpw.pw_gecos, yp_password.pw_gecos)) {
593		oldgecos = yp_password.pw_gecos;
594		yp_password.pw_gecos = argp->newpw.pw_gecos;
595		gecos_changed++;
596	}
597
598	if (strcmp(argp->newpw.pw_passwd, yp_password.pw_passwd)) {
599		yp_password.pw_passwd = argp->newpw.pw_passwd;
600		yp_password.pw_change = 0;
601		passwd_changed++;
602	}
603
604	/*
605	 * If the caller specified a domain other than our 'default'
606	 * domain, change the path to master.passwd accordingly.
607	 */
608
609	if (strcmp(domain, yppasswd_domain)) {
610		snprintf(passfile_buf, sizeof(passfile_buf),
611			"%s/%s/master.passwd", yp_dir, domain);
612		passfile = (char *)&passfile_buf;
613	}
614
615	/*
616	 * Create a filename to hold the original master.passwd
617	 * so if our call to yppwupdate fails we can roll back
618	 */
619	snprintf(passfile_hold_buf, sizeof(passfile_hold_buf),
620	    "%s.hold", passfile);
621	passfile_hold = (char *)&passfile_hold_buf;
622
623
624	/* Step 5: make a new password file with the updated info. */
625
626	snprintf(passdir_buf, sizeof(passdir_buf), "%s", passfile);
627	passdir = dirname(passdir_buf);
628
629	if (pw_init(passdir, passfile)) {
630		yp_error("pw_init() failed");
631		return &result;
632	}
633	if ((pfd = pw_lock()) == -1) {
634		pw_fini();
635		yp_error("pw_lock() failed");
636		return &result;
637	}
638	if ((tfd = pw_tmp(-1)) == -1) {
639		pw_fini();
640		yp_error("pw_tmp() failed");
641		return &result;
642	}
643	if (pw_copy(pfd, tfd, &yp_password, NULL) == -1) {
644		pw_fini();
645		yp_error("pw_copy() failed");
646		return &result;
647	}
648	if (rename(passfile, passfile_hold) == -1) {
649		pw_fini();
650		yp_error("rename of %s to %s failed", passfile,
651		    passfile_hold);
652		return &result;
653	}
654
655	if (strcmp(passfile, _PATH_MASTERPASSWD) == 0) {
656		/*
657		 * NIS server is exporting the system's master.passwd.
658		 * Call pw_mkdb to rebuild passwd and the .db files
659		 */
660		if (pw_mkdb(yp_password.pw_name) == -1) {
661			pw_fini();
662			yp_error("pw_mkdb() failed");
663			rename(passfile_hold, passfile);
664			return &result;
665		}
666	} else {
667		/*
668		 * NIS server is exporting a private master.passwd.
669		 * Rename tempfile into final location
670		 */
671		if (rename(pw_tempname(), passfile) == -1) {
672			pw_fini();
673			yp_error("rename of %s to %s failed",
674			    pw_tempname(), passfile);
675			rename(passfile_hold, passfile);
676			return &result;
677		}
678	}
679
680	pw_fini();
681
682	if (inplace) {
683		if ((rval = update_inplace(&yp_password, domain))) {
684			yp_error("inplace update failed -- rebuilding maps");
685		}
686	}
687
688	switch ((pid = fork())) {
689	case 0:
690		if (inplace && !rval) {
691    			execlp(MAP_UPDATE_PATH, MAP_UPDATE, passfile,
692				yppasswd_domain, "pushpw", (char *)NULL);
693		} else {
694    			execlp(MAP_UPDATE_PATH, MAP_UPDATE, passfile,
695				yppasswd_domain, (char *)NULL);
696		}
697    		yp_error("couldn't exec map update process: %s",
698					strerror(errno));
699		unlink(passfile);
700		rename(passfile_hold, passfile);
701    		exit(1);
702		break;
703	case -1:
704		yp_error("fork() failed: %s", strerror(errno));
705		unlink(passfile);
706		rename(passfile_hold, passfile);
707		return(&result);
708		break;
709	default:
710		unlink(passfile_hold);
711		break;
712	}
713
714	if (verbose) {
715		yp_error("update completed for user %s (uid %d) in %s:",
716		    argp->newpw.pw_name, argp->newpw.pw_uid, passfile);
717
718		if (passwd_changed)
719			yp_error("password changed");
720
721		if (gecos_changed)
722			yp_error("gecos changed ('%s' -> '%s')",
723					oldgecos, argp->newpw.pw_gecos);
724
725		if (shell_changed)
726			yp_error("shell changed ('%s' -> '%s')",
727					oldshell, argp->newpw.pw_shell);
728	}
729
730	result = 0;
731	return (&result);
732}
733
734/*
735 * Note that this function performs a little less sanity checking
736 * than the last one. Since only the superuser is allowed to use it,
737 * it is assumed that the caller knows what he's doing.
738 */
739int *
740yppasswdproc_update_master_1_svc(master_yppasswd *argp,
741    struct svc_req *rqstp)
742{
743	static int result;
744	int pfd, tfd;
745	int pid;
746	uid_t uid;
747	int rval = 0;
748	DBT key, data;
749	char *passdir;
750	char *passfile_hold;
751	char passdir_buf[MAXPATHLEN + 2];
752	char passfile_buf[MAXPATHLEN + 2];
753	char passfile_hold_buf[MAXPATHLEN + 2];
754	struct sockaddr_in *rqhost;
755	SVCXPRT	*transp;
756	struct passwd newpasswd;
757
758	result = 1;
759	transp = rqstp->rq_xprt;
760
761	/*
762	 * NO AF_INET CONNETCIONS ALLOWED!
763	 */
764	rqhost = svc_getcaller(transp);
765	if (rqhost->sin_family != AF_UNIX) {
766		yp_error("Alert! %s/%d attempted to use superuser-only \
767procedure!\n", inet_ntoa(rqhost->sin_addr), rqhost->sin_port);
768		svcerr_auth(transp, AUTH_BADCRED);
769		return(&result);
770	}
771
772	if (rqstp->rq_cred.oa_flavor != AUTH_SYS) {
773		yp_error("caller didn't send proper credentials");
774		svcerr_auth(transp, AUTH_BADCRED);
775		return(&result);
776	}
777
778	if (__rpc_get_local_uid(transp, &uid) < 0) {
779		yp_error("caller didn't send proper credentials");
780		svcerr_auth(transp, AUTH_BADCRED);
781		return(&result);
782	}
783
784	if (uid) {
785		yp_error("caller euid is %d, expecting 0 -- rejecting request",
786		    uid);
787		svcerr_auth(rqstp->rq_xprt, AUTH_BADCRED);
788		return(&result);
789	}
790
791	passfile = passfile_default;
792
793	key.data = argp->newpw.pw_name;
794	key.size = strlen(argp->newpw.pw_name);
795
796	/*
797	 * The superuser may add entries to the passwd maps if
798	 * rpc.yppasswdd is started with the -a flag. Paranoia
799	 * prevents me from allowing additions by default.
800	 */
801	if ((rval = yp_get_record(argp->domain, "master.passwd.byname",
802			  &key, &data, 0)) != YP_TRUE) {
803		if (rval == YP_NOKEY) {
804			yp_error("user %s not found in passwd database",
805				 argp->newpw.pw_name);
806			if (allow_additions)
807				yp_error("notice: adding user %s to \
808master.passwd database for domain %s", argp->newpw.pw_name, argp->domain);
809			else
810				yp_error("restart rpc.yppasswdd with the -a flag to \
811allow additions to be made to the password database");
812		} else {
813			yp_error("database access error: %s",
814				 yperr_string(rval));
815		}
816		if (!allow_additions)
817			return(&result);
818	} else {
819
820		/* Nul terminate, please. */
821		*((char *)data.data + data.size) = '\0';
822
823		copy_yp_pass(data.data, 1, data.size);
824	}
825
826	/*
827	 * Perform a small bit of sanity checking.
828	 */
829	if (validate_master(rval == YP_TRUE ? &yp_password:NULL,&argp->newpw)){
830		yp_error("rejecting update attempt for %s: bad arguments",
831			 argp->newpw.pw_name);
832		return(&result);
833	}
834
835	/*
836	 * If the caller specified a domain other than our 'default'
837	 * domain, change the path to master.passwd accordingly.
838	 */
839
840	if (strcmp(argp->domain, yppasswd_domain)) {
841		snprintf(passfile_buf, sizeof(passfile_buf),
842			"%s/%s/master.passwd", yp_dir, argp->domain);
843		passfile = (char *)&passfile_buf;
844	}
845
846	/*
847	 * Create a filename to hold the original master.passwd
848	 * so if our call to yppwupdate fails we can roll back
849	 */
850	snprintf(passfile_hold_buf, sizeof(passfile_hold_buf),
851	    "%s.hold", passfile);
852	passfile_hold = (char *)&passfile_hold_buf;
853
854	snprintf(passdir_buf, sizeof(passdir_buf), "%s", passfile);
855	passdir = dirname(passdir_buf);
856
857	if (pw_init(passdir, passfile)) {
858		yp_error("pw_init() failed");
859		return &result;
860	}
861	if ((pfd = pw_lock()) == -1) {
862		pw_fini();
863		yp_error("pw_lock() failed");
864		return &result;
865	}
866	if ((tfd = pw_tmp(-1)) == -1) {
867		pw_fini();
868		yp_error("pw_tmp() failed");
869		return &result;
870	}
871	xlate_passwd(&argp->newpw, &newpasswd);
872	if (pw_copy(pfd, tfd, &newpasswd, NULL) == -1) {
873		pw_fini();
874		yp_error("pw_copy() failed");
875		return &result;
876	}
877	if (rename(passfile, passfile_hold) == -1) {
878		pw_fini();
879		yp_error("rename of %s to %s failed", passfile,
880		    passfile_hold);
881		return &result;
882	}
883	if (strcmp(passfile, _PATH_MASTERPASSWD) == 0) {
884		/*
885		 * NIS server is exporting the system's master.passwd.
886		 * Call pw_mkdb to rebuild passwd and the .db files
887		 */
888		if (pw_mkdb(argp->newpw.pw_name) == -1) {
889			pw_fini();
890			yp_error("pw_mkdb() failed");
891			rename(passfile_hold, passfile);
892			return &result;
893		}
894	} else {
895		/*
896		 * NIS server is exporting a private master.passwd.
897		 * Rename tempfile into final location
898		 */
899		if (rename(pw_tempname(), passfile) == -1) {
900			pw_fini();
901			yp_error("rename of %s to %s failed",
902			    pw_tempname(), passfile);
903			rename(passfile_hold, passfile);
904			return &result;
905		}
906	}
907	pw_fini();
908
909	if (inplace) {
910		xlate_passwd(&argp->newpw, &newpasswd);
911		if ((rval = update_inplace(&newpasswd, argp->domain))) {
912			yp_error("inplace update failed -- rebuilding maps");
913		}
914	}
915
916	switch ((pid = fork())) {
917	case 0:
918		if (inplace && !rval) {
919    			execlp(MAP_UPDATE_PATH, MAP_UPDATE, passfile,
920				argp->domain, "pushpw", (char *)NULL);
921    		} else {
922			execlp(MAP_UPDATE_PATH, MAP_UPDATE, passfile,
923				argp->domain, (char *)NULL);
924		}
925    		yp_error("couldn't exec map update process: %s",
926					strerror(errno));
927		unlink(passfile);
928		rename(passfile_hold, passfile);
929    		exit(1);
930		break;
931	case -1:
932		yp_error("fork() failed: %s", strerror(errno));
933		unlink(passfile);
934		rename(passfile_hold, passfile);
935		return(&result);
936		break;
937	default:
938		unlink(passfile_hold);
939		break;
940	}
941
942	yp_error("performed update of user %s (uid %d) domain %s",
943						argp->newpw.pw_name,
944						argp->newpw.pw_uid,
945						argp->domain);
946
947	result = 0;
948	return(&result);
949}
950