[apple/system_cmds.git] / chkpasswd.tproj / file_passwd.c

/*
 * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_LICENSE_HEADER_START@
 * 
 * "Portions Copyright (c) 1999 Apple Computer, Inc.  All Rights
 * Reserved.  This file contains Original Code and/or Modifications of
 * Original Code as defined in and that are subject to the Apple Public
 * Source License Version 1.0 (the 'License').  You may not use this file
 * except in compliance with the License.  Please obtain a copy of the
 * License at http://www.apple.com/publicsource and read it before using
 * this file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
 * License for the specific language governing rights and limitations
 * under the License."
 * 
 * @APPLE_LICENSE_HEADER_END@
 */
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <pwd.h>
#include <errno.h>
#include <string.h>
#include "stringops.h"

#define TEMP_FILE "/tmp/.pwtmp"

#define _PASSWD_FILE "/etc/master.passwd"
#define _COMPAT_FILE "/etc/passwd"
#define _PASSWD_FIELDS 10
#define BUFSIZE 8192

extern void checkpasswd(char *, char *);

char *
getline(FILE *fp)
{
	static char s[BUFSIZE];
	int len;

    s[0] = '\0';

    fgets(s, BUFSIZE, fp);
    if (s == NULL || s[0] == '\0') return NULL;

	if (s[0] == '#') return s;

	len = strlen(s) - 1;
	s[len] = '\0';

	return s;
}

struct passwd *
parse_user(char *line)
{
	static struct passwd pw = {0};
	char **tokens;
	int i, len;

	if (pw.pw_name != NULL) free(pw.pw_name);
	pw.pw_name = NULL;
	if (pw.pw_passwd != NULL) free(pw.pw_passwd);
	pw.pw_passwd = NULL;
	if (pw.pw_gecos != NULL) free(pw.pw_gecos);
	pw.pw_gecos = NULL;
	if (pw.pw_dir != NULL) free(pw.pw_dir);
	pw.pw_dir = NULL;
	if (pw.pw_shell != NULL) free(pw.pw_shell);
	pw.pw_shell = NULL;

	if (pw.pw_class != NULL) free(pw.pw_class);
	pw.pw_class = NULL;

	if (line == NULL) return (struct passwd *)NULL;
	tokens = explode(line, ':');
	len = listLength(tokens);

	if (len != _PASSWD_FIELDS)
	{
		freeList(tokens);
		return (struct passwd *)NULL;
	}

	i = 0;
	pw.pw_name = tokens[i++];
	pw.pw_passwd = tokens[i++];
	pw.pw_uid = atoi(tokens[i]);
	free(tokens[i++]);
	pw.pw_gid = atoi(tokens[i]);
	free(tokens[i++]);
	pw.pw_class = tokens[i++];
	pw.pw_change = atoi(tokens[i]);
	free(tokens[i++]);
	pw.pw_expire = atoi(tokens[i]);
	free(tokens[i++]);
	pw.pw_gecos = tokens[i++];
	pw.pw_dir = tokens[i++];
	pw.pw_shell = tokens[i++];

	return &pw;
}

struct passwd *
find_user(char *uname, FILE *fp)
{
	char *line;
	struct passwd *pw;

	rewind(fp);

	while (NULL != (line = getline(fp)))
	{
		if (line[0] == '#') continue;
		pw = parse_user(line);
		if (pw == (struct passwd *)NULL) continue;
		if (!strcmp(uname, pw->pw_name)) return pw;
	}

	pw = parse_user(NULL);
	return (struct passwd *)NULL;
}

void
rewrite_file(char *pwname, FILE *fp, struct passwd *newpw)
{
	char *line;
	struct passwd *pw;
	FILE *tfp, *cfp;
	char fname[256];
	
	sprintf(fname, "%s.%d", TEMP_FILE, getpid());

	tfp = fopen(fname, "w+");
	if (tfp == NULL)
	{
		fprintf(stderr, "can't write temporary file \"%s\": ", fname);
		perror("");
		exit(1);
	}

	cfp = NULL;
	if (!strcmp(pwname, _PASSWD_FILE))
	{
		cfp = fopen(_COMPAT_FILE, "w");
		if (cfp == NULL)
		{
			fprintf(stderr, "warning: can't write compatability file \"%s\": ",
				_COMPAT_FILE);
			perror("");
		}
	}

	if (cfp != NULL)
	{
		fprintf(cfp, "#\n");
		fprintf(cfp, "# 4.3BSD-compatable User Database\n");
		fprintf(cfp, "#\n");
		fprintf(cfp, "# Note that this file is not consulted for login.\n");
		fprintf(cfp, "# It only exisits for compatability with 4.3BSD utilities.\n");
		fprintf(cfp, "#\n");
		fprintf(cfp, "# This file is automatically re-written by various system utilities.\n");
		fprintf(cfp, "# Do not edit this file.  Changes will be lost.\n");
		fprintf(cfp, "#\n");
	}

	rewind(fp);

	while (NULL != (line = getline(fp)))
	{
		if (line[0] == '#')
		{
			fprintf(tfp, "%s", line);
			continue;
		}

		pw = parse_user(line);
		if (pw == (struct passwd *)NULL)
		{
			fprintf(stderr, "warning: bad format for entry: \"%s\"\n", line);
			fprintf(tfp, "%s\n", line);
			if (cfp != NULL) fprintf(cfp, "%s\n", line);
			continue;
		}

		if (strcmp(newpw->pw_name, pw->pw_name))
		{
			fprintf(tfp, "%s\n", line);
			if (cfp != NULL) fprintf(cfp, "%s\n", line);
			continue;
		}

		fprintf(tfp, "%s:%s:%d:%d:%s:%ld:%ld:%s:%s:%s\n",
			newpw->pw_name, newpw->pw_passwd, newpw->pw_uid, newpw->pw_gid,
			newpw->pw_class, newpw->pw_change, newpw->pw_expire,
			newpw->pw_gecos, newpw->pw_dir, newpw->pw_shell);
		if (cfp != NULL)
		{
			fprintf(cfp, "%s:",newpw->pw_name);
			if ((newpw->pw_passwd == NULL) || (newpw->pw_passwd[0] == '\0'))
				fprintf(cfp, ":");
			else
				fprintf(cfp, "*:");
			fprintf(cfp, "%d:%d:%s:%s:%s\n",
				newpw->pw_uid, newpw->pw_gid, newpw->pw_gecos,
				newpw->pw_dir, newpw->pw_shell);
		}
	}

	if (cfp != NULL) fclose(cfp);
	fclose(fp);
	if (unlink(pwname)  < 0)
	{
		fprintf(stderr, "can't update \"%s\": ", pwname);
		perror("");
	}

	rewind(tfp);

	fp = fopen(pwname, "w");
	if (fp == NULL)
	{
		fprintf(stderr, "ERROR: lost file \"%s\"\n", pwname);
		fprintf(stderr, "new passwd file is \"%s\"\n", fname);
		perror("open");
		exit(1);
	}

	while (NULL != (line = getline(tfp)))
	{
		fprintf(fp, "%s", line);
		if (line[0] != '#') fprintf(fp, "\n");
	}
	fclose(fp);
	fclose(tfp);
	unlink(fname);
}

int
file_check_passwd(char *uname, char *locn)
{
	FILE *fp;
	char *fname;
	struct passwd *pw;

	fname = _PASSWD_FILE;
	if (locn != NULL) fname = locn;

	if (access(fname,R_OK) || (fp = fopen(fname, "r")) == NULL)
	{
		fprintf(stderr, "can't read file \"%s\": ", fname);
		perror("");
		exit(1);
	}


	pw = find_user(uname, fp);
	if (pw == (struct passwd *)NULL)
	{
		fprintf(stderr, "user %s not found in file %s\n", uname, fname);
		exit(1);
	}

	checkpasswd(uname, pw->pw_passwd);
	fclose(fp);

	return 0;
}
Commit	Line	Data
1815bff5 A	1	/*
	2	* Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
	3	*
	4	* @APPLE_LICENSE_HEADER_START@
	5	*
2fc1e207 A	6	* "Portions Copyright (c) 1999 Apple Computer, Inc. All Rights
	7	* Reserved. This file contains Original Code and/or Modifications of
	8	* Original Code as defined in and that are subject to the Apple Public
	9	* Source License Version 1.0 (the 'License'). You may not use this file
	10	* except in compliance with the License. Please obtain a copy of the
	11	* License at http://www.apple.com/publicsource and read it before using
	12	* this file.
1815bff5 A	13	*
	14	* The Original Code and all software distributed under the License are
	15	* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
	16	* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
	17	* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
2fc1e207 A	18	* FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the
	19	* License for the specific language governing rights and limitations
	20	* under the License."
1815bff5 A	21	*
	22	* @APPLE_LICENSE_HEADER_END@
	23	*/
	24	#include <stdio.h>
	25	#include <stdlib.h>
	26	#include <unistd.h>
	27	#include <pwd.h>
	28	#include <errno.h>
34d340d7	29	#include <string.h>
1815bff5 A	30	#include "stringops.h"
	31
	32	#define TEMP_FILE "/tmp/.pwtmp"
	33
	34	#define _PASSWD_FILE "/etc/master.passwd"
	35	#define _COMPAT_FILE "/etc/passwd"
	36	#define _PASSWD_FIELDS 10
	37	#define BUFSIZE 8192
	38
	39	extern void checkpasswd(char , char );
	40
1815bff5 A	41	char *
	42	getline(FILE *fp)
	43	{
	44	static char s[BUFSIZE];
	45	int len;
	46
	47	s[0] = '\0';
	48
	49	fgets(s, BUFSIZE, fp);
	50	if (s == NULL \|\| s[0] == '\0') return NULL;
	51
	52	if (s[0] == '#') return s;
	53
	54	len = strlen(s) - 1;
	55	s[len] = '\0';
	56
	57	return s;
	58	}
	59
	60	struct passwd *
	61	parse_user(char *line)
	62	{
	63	static struct passwd pw = {0};
	64	char **tokens;
	65	int i, len;
	66
	67	if (pw.pw_name != NULL) free(pw.pw_name);
	68	pw.pw_name = NULL;
	69	if (pw.pw_passwd != NULL) free(pw.pw_passwd);
	70	pw.pw_passwd = NULL;
	71	if (pw.pw_gecos != NULL) free(pw.pw_gecos);
	72	pw.pw_gecos = NULL;
	73	if (pw.pw_dir != NULL) free(pw.pw_dir);
	74	pw.pw_dir = NULL;
	75	if (pw.pw_shell != NULL) free(pw.pw_shell);
	76	pw.pw_shell = NULL;
	77
	78	if (pw.pw_class != NULL) free(pw.pw_class);
	79	pw.pw_class = NULL;
	80
	81	if (line == NULL) return (struct passwd *)NULL;
	82	tokens = explode(line, ':');
	83	len = listLength(tokens);
	84
	85	if (len != _PASSWD_FIELDS)
	86	{
	87	freeList(tokens);
	88	return (struct passwd *)NULL;
	89	}
	90
	91	i = 0;
	92	pw.pw_name = tokens[i++];
	93	pw.pw_passwd = tokens[i++];
	94	pw.pw_uid = atoi(tokens[i]);
	95	free(tokens[i++]);
	96	pw.pw_gid = atoi(tokens[i]);
	97	free(tokens[i++]);
	98	pw.pw_class = tokens[i++];
	99	pw.pw_change = atoi(tokens[i]);
	100	free(tokens[i++]);
	101	pw.pw_expire = atoi(tokens[i]);
	102	free(tokens[i++]);
	103	pw.pw_gecos = tokens[i++];
	104	pw.pw_dir = tokens[i++];
105	pw.pw_shell = tokens[i++];
106
107	return &pw;
108	}
109
110	struct passwd *
111	find_user(char uname, FILE fp)
112	{
113	char *line;
114	struct passwd *pw;
115
116	rewind(fp);
117
118	while (NULL != (line = getline(fp)))
119	{
120	if (line[0] == '#') continue;
121	pw = parse_user(line);
122	if (pw == (struct passwd *)NULL) continue;
123	if (!strcmp(uname, pw->pw_name)) return pw;
124	}
125
126	pw = parse_user(NULL);
127	return (struct passwd *)NULL;
128	}
129
130	void
131	rewrite_file(char pwname, FILE fp, struct passwd *newpw)
132	{
133	char *line;
134	struct passwd *pw;
135	FILE tfp, cfp;
136	char fname[256];
137
138	sprintf(fname, "%s.%d", TEMP_FILE, getpid());
139
140	tfp = fopen(fname, "w+");
141	if (tfp == NULL)
142	{
143	fprintf(stderr, "can't write temporary file \"%s\": ", fname);
144	perror("");
145	exit(1);
146	}
147
148	cfp = NULL;
149	if (!strcmp(pwname, _PASSWD_FILE))
150	{
151	cfp = fopen(_COMPAT_FILE, "w");
152	if (cfp == NULL)
153	{
154	fprintf(stderr, "warning: can't write compatability file \"%s\": ",
155	_COMPAT_FILE);
156	perror("");
157	}
158	}
159
160	if (cfp != NULL)
161	{
162	fprintf(cfp, "#\n");
163	fprintf(cfp, "# 4.3BSD-compatable User Database\n");
164	fprintf(cfp, "#\n");
165	fprintf(cfp, "# Note that this file is not consulted for login.\n");
166	fprintf(cfp, "# It only exisits for compatability with 4.3BSD utilities.\n");
167	fprintf(cfp, "#\n");
168	fprintf(cfp, "# This file is automatically re-written by various system utilities.\n");
169	fprintf(cfp, "# Do not edit this file. Changes will be lost.\n");
170	fprintf(cfp, "#\n");
171	}
172
173	rewind(fp);
174
175	while (NULL != (line = getline(fp)))
176	{
177	if (line[0] == '#')
178	{
179	fprintf(tfp, "%s", line);
180	continue;
181	}
182
183	pw = parse_user(line);
184	if (pw == (struct passwd *)NULL)
185	{
186	fprintf(stderr, "warning: bad format for entry: \"%s\"\n", line);
187	fprintf(tfp, "%s\n", line);
188	if (cfp != NULL) fprintf(cfp, "%s\n", line);
189	continue;
190	}
191
192	if (strcmp(newpw->pw_name, pw->pw_name))
193	{
194	fprintf(tfp, "%s\n", line);
195	if (cfp != NULL) fprintf(cfp, "%s\n", line);
196	continue;
197	}
198
34d340d7	199	fprintf(tfp, "%s:%s:%d:%d:%s:%ld:%ld:%s:%s:%s\n",
1815bff5 A	200	newpw->pw_name, newpw->pw_passwd, newpw->pw_uid, newpw->pw_gid,
	201	newpw->pw_class, newpw->pw_change, newpw->pw_expire,
	202	newpw->pw_gecos, newpw->pw_dir, newpw->pw_shell);
	203	if (cfp != NULL)
	204	{
	205	fprintf(cfp, "%s:",newpw->pw_name);
	206	if ((newpw->pw_passwd == NULL) \|\| (newpw->pw_passwd[0] == '\0'))
	207	fprintf(cfp, ":");
	208	else
	209	fprintf(cfp, "*:");
	210	fprintf(cfp, "%d:%d:%s:%s:%s\n",
	211	newpw->pw_uid, newpw->pw_gid, newpw->pw_gecos,
	212	newpw->pw_dir, newpw->pw_shell);
	213	}
	214	}
	215
	216	if (cfp != NULL) fclose(cfp);
	217	fclose(fp);
	218	if (unlink(pwname) < 0)
	219	{
	220	fprintf(stderr, "can't update \"%s\": ", pwname);
	221	perror("");
	222	}
	223
	224	rewind(tfp);
	225
	226	fp = fopen(pwname, "w");
	227	if (fp == NULL)
	228	{
	229	fprintf(stderr, "ERROR: lost file \"%s\"\n", pwname);
	230	fprintf(stderr, "new passwd file is \"%s\"\n", fname);
	231	perror("open");
	232	exit(1);
	233	}
	234
	235	while (NULL != (line = getline(tfp)))
	236	{
	237	fprintf(fp, "%s", line);
	238	if (line[0] != '#') fprintf(fp, "\n");
	239	}
	240	fclose(fp);
	241	fclose(tfp);
	242	unlink(fname);
	243	}
	244
	245	int
	246	file_check_passwd(char uname, char locn)
	247	{
	248	FILE *fp;
	249	char *fname;
	250	struct passwd *pw;
	251
	252	fname = _PASSWD_FILE;
	253	if (locn != NULL) fname = locn;
	254
34d340d7	255	if (access(fname,R_OK) \|\| (fp = fopen(fname, "r")) == NULL)
1815bff5 A	256	{
	257	fprintf(stderr, "can't read file \"%s\": ", fname);
	258	perror("");
	259	exit(1);
	260	}
	261
	262
	263	pw = find_user(uname, fp);
	264	if (pw == (struct passwd *)NULL)
	265	{
	266	fprintf(stderr, "user %s not found in file %s\n", uname, fname);
	267	exit(1);
	268	}
	269
	270	checkpasswd(uname, pw->pw_passwd);
	271	fclose(fp);
	272
	273	return 0;
	274	}