[apple/network_cmds.git] / ftp.tproj / ruserpass.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@
 */
/*
 * Copyright (c) 1985, 1993, 1994
 *	The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <sys/types.h>
#include <sys/stat.h>

#include <ctype.h>
#include <err.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include "ftp_var.h"

static	int token __P((void));
static	FILE *cfile;

#define	DEFAULT	1
#define	LOGIN	2
#define	PASSWD	3
#define	ACCOUNT 4
#define MACDEF  5
#define	ID	10
#define	MACH	11

static char tokval[100];

static struct toktab {
	char *tokstr;
	int tval;
} toktab[]= {
	{ "default",	DEFAULT },
	{ "login",	LOGIN },
	{ "password",	PASSWD },
	{ "passwd",	PASSWD },
	{ "account",	ACCOUNT },
	{ "machine",	MACH },
	{ "macdef",	MACDEF },
	{ NULL,		0 }
};

int
ruserpass(host, aname, apass, aacct)
	char *host, **aname, **apass, **aacct;
{
	char *hdir, buf[BUFSIZ], *tmp;
	char myname[MAXHOSTNAMELEN], *mydomain;
	int t, i, c, usedefault = 0;
	struct stat stb;

	hdir = getenv("HOME");
	if (hdir == NULL)
		hdir = ".";
	(void) sprintf(buf, "%s/.netrc", hdir);
	cfile = fopen(buf, "r");
	if (cfile == NULL) {
		if (errno != ENOENT)
			warn("%s", buf);
		return (0);
	}
	if (gethostname(myname, sizeof(myname)) < 0)
		myname[0] = '\0';
	if ((mydomain = strchr(myname, '.')) == NULL)
		mydomain = "";
next:
	while ((t = token())) switch(t) {

	case DEFAULT:
		usedefault = 1;
		/* FALL THROUGH */

	case MACH:
		if (!usedefault) {
			if (token() != ID)
				continue;
			/*
			 * Allow match either for user's input host name
			 * or official hostname.  Also allow match of 
			 * incompletely-specified host in local domain.
			 */
			if (strcasecmp(host, tokval) == 0)
				goto match;
			if (strcasecmp(hostname, tokval) == 0)
				goto match;
			if ((tmp = strchr(hostname, '.')) != NULL &&
			    strcasecmp(tmp, mydomain) == 0 &&
			    strncasecmp(hostname, tokval, tmp-hostname) == 0 &&
			    tokval[tmp - hostname] == '\0')
				goto match;
			if ((tmp = strchr(host, '.')) != NULL &&
			    strcasecmp(tmp, mydomain) == 0 &&
			    strncasecmp(host, tokval, tmp - host) == 0 &&
			    tokval[tmp - host] == '\0')
				goto match;
			continue;
		}
	match:
		while ((t = token()) && t != MACH && t != DEFAULT) switch(t) {

		case LOGIN:
			if (token())
				if (*aname == 0) { 
					*aname = malloc((unsigned) strlen(tokval) + 1);
					(void) strcpy(*aname, tokval);
				} else {
					if (strcmp(*aname, tokval))
						goto next;
				}
			break;
		case PASSWD:
			if ((*aname == NULL || strcmp(*aname, "anonymous")) &&
			    fstat(fileno(cfile), &stb) >= 0 &&
			    (stb.st_mode & 077) != 0) {
	warnx("Error: .netrc file is readable by others.");
	warnx("Remove password or make file unreadable by others.");
				goto bad;
			}
			if (token() && *apass == 0) {
				*apass = malloc((unsigned) strlen(tokval) + 1);
				(void) strcpy(*apass, tokval);
			}
			break;
		case ACCOUNT:
			if (fstat(fileno(cfile), &stb) >= 0
			    && (stb.st_mode & 077) != 0) {
	warnx("Error: .netrc file is readable by others.");
	warnx("Remove account or make file unreadable by others.");
				goto bad;
			}
			if (token() && *aacct == 0) {
				*aacct = malloc((unsigned) strlen(tokval) + 1);
				(void) strcpy(*aacct, tokval);
			}
			break;
		case MACDEF:
			if (proxy) {
				(void) fclose(cfile);
				return (0);
			}
			while ((c=getc(cfile)) != EOF && c == ' ' || c == '\t');
			if (c == EOF || c == '\n') {
				printf("Missing macdef name argument.\n");
				goto bad;
			}
			if (macnum == 16) {
				printf("Limit of 16 macros have already been defined\n");
				goto bad;
			}
			tmp = macros[macnum].mac_name;
			*tmp++ = c;
			for (i=0; i < 8 && (c=getc(cfile)) != EOF &&
			    !isspace(c); ++i) {
				*tmp++ = c;
			}
			if (c == EOF) {
				printf("Macro definition missing null line terminator.\n");
				goto bad;
			}
			*tmp = '\0';
			if (c != '\n') {
				while ((c=getc(cfile)) != EOF && c != '\n');
			}
			if (c == EOF) {
				printf("Macro definition missing null line terminator.\n");
				goto bad;
			}
			if (macnum == 0) {
				macros[macnum].mac_start = macbuf;
			}
			else {
				macros[macnum].mac_start = macros[macnum-1].mac_end + 1;
			}
			tmp = macros[macnum].mac_start;
			while (tmp != macbuf + 4096) {
				if ((c=getc(cfile)) == EOF) {
				printf("Macro definition missing null line terminator.\n");
					goto bad;
				}
				*tmp = c;
				if (*tmp == '\n') {
					if (*(tmp-1) == '\0') {
					   macros[macnum++].mac_end = tmp - 1;
					   break;
					}
					*tmp = '\0';
				}
				tmp++;
			}
			if (tmp == macbuf + 4096) {
				printf("4K macro buffer exceeded\n");
				goto bad;
			}
			break;
		default:
			warnx("Unknown .netrc keyword %s", tokval);
			break;
		}
		goto done;
	}
done:
	(void) fclose(cfile);
	return (0);
bad:
	(void) fclose(cfile);
	return (-1);
}

static int
token()
{
	char *cp;
	int c;
	struct toktab *t;

	if (feof(cfile) || ferror(cfile))
		return (0);
	while ((c = getc(cfile)) != EOF &&
	    (c == '\n' || c == '\t' || c == ' ' || c == ','))
		continue;
	if (c == EOF)
		return (0);
	cp = tokval;
	if (c == '"') {
		while ((c = getc(cfile)) != EOF && c != '"') {
			if (c == '\\')
				c = getc(cfile);
			*cp++ = c;
		}
	} else {
		*cp++ = c;
		while ((c = getc(cfile)) != EOF
		    && c != '\n' && c != '\t' && c != ' ' && c != ',') {
			if (c == '\\')
				c = getc(cfile);
			*cp++ = c;
		}
	}
	*cp = 0;
	if (tokval[0] == 0)
		return (0);
	for (t = toktab; t->tokstr; t++)
		if (!strcmp(t->tokstr, tokval))
			return (t->tval);
	return (ID);
}
Commit	Line	Data
b7080c8e A	1	/*
	2	* Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
	3	*
	4	* @APPLE_LICENSE_HEADER_START@
	5	*
	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.
	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,
	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."
	21	*
	22	* @APPLE_LICENSE_HEADER_END@
	23	*/
	24	/*
	25	* Copyright (c) 1985, 1993, 1994
	26	* The Regents of the University of California. All rights reserved.
	27	*
	28	* Redistribution and use in source and binary forms, with or without
	29	* modification, are permitted provided that the following conditions
	30	* are met:
	31	* 1. Redistributions of source code must retain the above copyright
	32	* notice, this list of conditions and the following disclaimer.
	33	* 2. Redistributions in binary form must reproduce the above copyright
	34	* notice, this list of conditions and the following disclaimer in the
	35	* documentation and/or other materials provided with the distribution.
	36	* 3. All advertising materials mentioning features or use of this software
	37	* must display the following acknowledgement:
	38	* This product includes software developed by the University of
	39	* California, Berkeley and its contributors.
	40	* 4. Neither the name of the University nor the names of its contributors
	41	* may be used to endorse or promote products derived from this software
	42	* without specific prior written permission.
	43	*
	44	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	45	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	46	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	47	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	48	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	49	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	50	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	51	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	52	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	53	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	54	* SUCH DAMAGE.
	55	*/
	56
	57	#include <sys/types.h>
	58	#include <sys/stat.h>
	59
	60	#include <ctype.h>
	61	#include <err.h>
	62	#include <errno.h>
	63	#include <stdio.h>
	64	#include <stdlib.h>
65	#include <string.h>
66	#include <unistd.h>
67
68	#include "ftp_var.h"
69
70	static int token __P((void));
71	static FILE *cfile;
72
73	#define DEFAULT 1
74	#define LOGIN 2
75	#define PASSWD 3
76	#define ACCOUNT 4
77	#define MACDEF 5
78	#define ID 10
79	#define MACH 11
80
81	static char tokval[100];
82
83	static struct toktab {
84	char *tokstr;
85	int tval;
86	} toktab[]= {
87	{ "default", DEFAULT },
88	{ "login", LOGIN },
89	{ "password", PASSWD },
90	{ "passwd", PASSWD },
91	{ "account", ACCOUNT },
92	{ "machine", MACH },
93	{ "macdef", MACDEF },
94	{ NULL, 0 }
95	};
96
97	int
98	ruserpass(host, aname, apass, aacct)
99	char host, aname, apass, *aacct;
100	{
101	char hdir, buf[BUFSIZ], tmp;
102	char myname[MAXHOSTNAMELEN], *mydomain;
103	int t, i, c, usedefault = 0;
104	struct stat stb;
105
106	hdir = getenv("HOME");
107	if (hdir == NULL)
108	hdir = ".";
109	(void) sprintf(buf, "%s/.netrc", hdir);
110	cfile = fopen(buf, "r");
111	if (cfile == NULL) {
112	if (errno != ENOENT)
113	warn("%s", buf);
114	return (0);
115	}
116	if (gethostname(myname, sizeof(myname)) < 0)
117	myname[0] = '\0';
118	if ((mydomain = strchr(myname, '.')) == NULL)
119	mydomain = "";
120	next:
121	while ((t = token())) switch(t) {
122
123	case DEFAULT:
124	usedefault = 1;
125	/* FALL THROUGH */
126
127	case MACH:
128	if (!usedefault) {
129	if (token() != ID)
130	continue;
131	/*
132	* Allow match either for user's input host name
133	* or official hostname. Also allow match of
134	* incompletely-specified host in local domain.
135	*/
136	if (strcasecmp(host, tokval) == 0)
137	goto match;
138	if (strcasecmp(hostname, tokval) == 0)
139	goto match;
140	if ((tmp = strchr(hostname, '.')) != NULL &&
141	strcasecmp(tmp, mydomain) == 0 &&
142	strncasecmp(hostname, tokval, tmp-hostname) == 0 &&
143	tokval[tmp - hostname] == '\0')
144	goto match;
145	if ((tmp = strchr(host, '.')) != NULL &&
146	strcasecmp(tmp, mydomain) == 0 &&
147	strncasecmp(host, tokval, tmp - host) == 0 &&
148	tokval[tmp - host] == '\0')
149	goto match;
150	continue;
151	}
152	match:
153	while ((t = token()) && t != MACH && t != DEFAULT) switch(t) {
154
155	case LOGIN:
156	if (token())
157	if (*aname == 0) {
158	*aname = malloc((unsigned) strlen(tokval) + 1);
159	(void) strcpy(*aname, tokval);
160	} else {
161	if (strcmp(*aname, tokval))
162	goto next;
163	}
164	break;
165	case PASSWD:
166	if ((aname == NULL \|\| strcmp(aname, "anonymous")) &&
167	fstat(fileno(cfile), &stb) >= 0 &&
168	(stb.st_mode & 077) != 0) {
169	warnx("Error: .netrc file is readable by others.");
170	warnx("Remove password or make file unreadable by others.");
171	goto bad;
172	}
173	if (token() && *apass == 0) {
174	*apass = malloc((unsigned) strlen(tokval) + 1);
175	(void) strcpy(*apass, tokval);
176	}
177	break;
178	case ACCOUNT:
179	if (fstat(fileno(cfile), &stb) >= 0
180	&& (stb.st_mode & 077) != 0) {
181	warnx("Error: .netrc file is readable by others.");
182	warnx("Remove account or make file unreadable by others.");
183	goto bad;
184	}
185	if (token() && *aacct == 0) {
186	*aacct = malloc((unsigned) strlen(tokval) + 1);
187	(void) strcpy(*aacct, tokval);
188	}
189	break;
190	case MACDEF:
191	if (proxy) {
192	(void) fclose(cfile);
193	return (0);
194	}
195	while ((c=getc(cfile)) != EOF && c == ' ' \|\| c == '\t');
196	if (c == EOF \|\| c == '\n') {
197	printf("Missing macdef name argument.\n");
198	goto bad;
199	}
200	if (macnum == 16) {
201	printf("Limit of 16 macros have already been defined\n");
202	goto bad;
203	}
204	tmp = macros[macnum].mac_name;
205	*tmp++ = c;
206	for (i=0; i < 8 && (c=getc(cfile)) != EOF &&
207	!isspace(c); ++i) {
208	*tmp++ = c;
209	}
210	if (c == EOF) {
211	printf("Macro definition missing null line terminator.\n");
212	goto bad;
213	}
214	*tmp = '\0';
215	if (c != '\n') {
216	while ((c=getc(cfile)) != EOF && c != '\n');
217	}
218	if (c == EOF) {
219	printf("Macro definition missing null line terminator.\n");
220	goto bad;
221	}
222	if (macnum == 0) {
223	macros[macnum].mac_start = macbuf;
224	}
225	else {
226	macros[macnum].mac_start = macros[macnum-1].mac_end + 1;
227	}
228	tmp = macros[macnum].mac_start;
229	while (tmp != macbuf + 4096) {
230	if ((c=getc(cfile)) == EOF) {
231	printf("Macro definition missing null line terminator.\n");
232	goto bad;
233	}
234	*tmp = c;
235	if (*tmp == '\n') {
236	if (*(tmp-1) == '\0') {
237	macros[macnum++].mac_end = tmp - 1;
238	break;
239	}
240	*tmp = '\0';
241	}
242	tmp++;
243	}
244	if (tmp == macbuf + 4096) {
245	printf("4K macro buffer exceeded\n");
246	goto bad;
247	}
248	break;
249	default:
250	warnx("Unknown .netrc keyword %s", tokval);
251	break;
252	}
253	goto done;
254	}
255	done:
256	(void) fclose(cfile);
257	return (0);
258	bad:
259	(void) fclose(cfile);
260	return (-1);
261	}
262
263	static int
264	token()
265	{
266	char *cp;
267	int c;
268	struct toktab *t;
269
270	if (feof(cfile) \|\| ferror(cfile))
271	return (0);
272	while ((c = getc(cfile)) != EOF &&
273	(c == '\n' \|\| c == '\t' \|\| c == ' ' \|\| c == ','))
274	continue;
275	if (c == EOF)
276	return (0);
277	cp = tokval;
278	if (c == '"') {
279	while ((c = getc(cfile)) != EOF && c != '"') {
280	if (c == '\\')
281	c = getc(cfile);
282	*cp++ = c;
283	}
284	} else {
285	*cp++ = c;
286	while ((c = getc(cfile)) != EOF
287	&& c != '\n' && c != '\t' && c != ' ' && c != ',') {
288	if (c == '\\')
289	c = getc(cfile);
290	*cp++ = c;
291	}
292	}
293	*cp = 0;
294	if (tokval[0] == 0)
295	return (0);
296	for (t = toktab; t->tokstr; t++)
297	if (!strcmp(t->tokstr, tokval))
298	return (t->tval);
299	return (ID);
300	}