[unix-history] / usr / src / old / berknet / netrc.c

static char sccsid[] = "@(#)netrc.c	4.1	(Berkeley)	9/12/82";

/* sccs id variable */
static char *netrc_sid = "@(#)netrc.c	1.2";
/*

	netrc.c

	procedures to read and parse the .netrc file

	You may call:
		commandfile() 		to read the file.
		rdnetfile(cfile)	to read the file.

Note:
	commandfile()
		will read the passwd file
		if getenv(HOME) searches the passwd file

Table of netrc options
	option			default
	------			-------
	default			default machine
	login string		current login
	password string		-
	notify yes/no		yes
	write yes/no		yes
	command string		-
	force yes/no		no

Fabry has suggested that machine names be more general:
that you be able to say:

	cory:	fabry on Cory
	caf:	caf on Cory
	c:	fabry on C

so the formulation would look like:

	default key
	key: machine login passwd ...
	key: ....

and so on

Gould has suggested the format be:

	pseudo cory 	real Cory 	login fabry
	pseudo caf 	real Cory 	login caf
	pseudo c 	real C 		login fabry

Init file example:
format local C remote A

	default A
	machine A    local C link /dev/net-A    speed 9
	machine Cory local C link /dev/net-Cory speed 9
	
if remote == 0, default is A

passwords work as follows:
   passwd = "\n" means no password

*/
# include "defs.h"

/* tokens, returned by parser */
# define MACHINE 1
# define LOGIN 2
# define PASSWORD 3
# define ONLYUID 4
# define NOTIFY 5
# define QUIET 6
# define COMMAND 7
# define ID 8
# define YES 9
# define DEFAULT 10
# define WRITE 11
# define NO 12
# define FORCE 13
# define LOCALTOK 14
# define LINK 15
# define SPEED 16
# define LENGTH 18
# define DEBUGTOK 19
# define ALTIME 20
# define ALCOUNT 21
# define HISPEEDLINK 22
# define EIGHTBIT 23
# define INSPEED 24
# define OUTSPEED 25

/* global */
struct userinfo status;
struct daemonparms netd = {
	LINKS,			/* inspeed */
	LINKS,			/* outspeed */
	MAXBREAD,		/* maxbread */
	ATIME,			/* atime */
	ATIME,			/* oatime */
	"/dev/null",		/* device */
	SIZE,			/* datasize */
	1,			/* trynetl */
	0			/* onlyuid */
	/* rest are all zero */
};

/* local */
static char tokval[100];

static struct tokstruct {
	char *tokstr;
	int tval;
}	toktab[]= {
	"machine",	MACHINE,
	"login",	LOGIN,
	"password",	PASSWORD,
	"onlyuid",	ONLYUID,
	"notify",	NOTIFY,
	"command",	COMMAND,
	"yes",		YES,
	"y",		YES,
	"no",		NO,
	"n",		NO,
	"default",	DEFAULT,
	"write",	WRITE,
	"force",	FORCE,
	"quiet",	QUIET,
	"local",	LOCALTOK,
	"speed",	SPEED,
	"link",		LINK,
	"length",	LENGTH,
	"debug",	DEBUGTOK,
	"time",		ALTIME,
	"count",	ALCOUNT,
	"hispeedlink",	HISPEEDLINK,
	"8bit",		EIGHTBIT,
	"inspeed",	INSPEED,
	"outspeed",	OUTSPEED,
	0,		0
	};

static struct stat statbuf;

/*
	commandfile()

	this procedure reads in and parses the .netrc file.
	when you call this, if the remote machine is to be explicitely
	set, the global variable "remote" must have a value.
	on return, if it is non-zero, "remote" will have the
	remote machine the data was collected for.
	status.localname need not have a value.
*/
commandfile(){
	char *hdir, buf[BUFSIZ];
	FILE *cfile;
	hdir = getenv("HOME");
	if(hdir == NULL)hdir = ".";
	sprintf(buf,"%s/.netrc",hdir);
/*
	debug("file %s",buf);
*/
	cfile = fopen(buf,"r");
	if(cfile == NULL)return;
	rdnetfile(cfile);
	fclose(cfile);
	}
/*
	read the file cfile and parse
*/
rdnetfile(cfile)
	FILE *cfile;
{
	int t;
	if(cfile == NULL)return;
	if(fstat(fileno(cfile),&statbuf) < 0 || (statbuf.st_mode & 0444) == 0)
		return;
	while((t = token(cfile))){
		switch(t){
		case DEFAULT:
			if(token(cfile) == ID && remote == 0)remote = lookup(tokval);
			/*
			debug("rem %c\n",remote);
			*/
			break;
		case MACHINE:
			if(remote == 0)remote = getremote(local);
			if(token(cfile) != ID)continue;
			if(remote != lookup(tokval))continue;
			/* this is the entry for the remote mach we want */
			getnetline(cfile);
			return;
			break;
		}
		}
	return;
	}
/*
	read a line of the file
*/
static getnetline(cfile)
	FILE *cfile;
{
	int t;
	while((t = token(cfile))){
		switch(t){
		/* these options are usually in the .netrc file */
		case MACHINE: return;
		case LOGIN:
			if(token(cfile) && status.login[0] == 0)
				strcpy(status.login,tokval);
			break;
		case PASSWORD:
			if(fstat(fileno(cfile),&statbuf) >= 0
			&& (statbuf.st_mode & 077) != 0){
				err("Error - .netrc file not correct mode.\n");
				err("Remove password or correct mode.\n");
				exit(EX_USAGE);
				}
			if(token(cfile) && status.mpasswd[0] == 0)
				strcpy(status.mpasswd,tokval);
			/*
			debug("mp:%s:%s\n",status.mpasswd,tokval);
			*/
			break;
		case NOTIFY:
			status.nonotify = token(cfile) == NO;
			break;
		case WRITE:
			status.nowrite = token(cfile) == NO;
			break;
		case COMMAND:
			if(token(cfile) && status.defcmd[0] == 0)
				strcpy(status.defcmd,tokval);
			break;
		case QUIET:
			status.quiet = token(cfile) == YES;
			break;
		case FORCE:
			status.force = token(cfile) == YES;
			break;

		/* these options are usually in /usr/net/initfile */
		case LOCALTOK:
			if(token(cfile))local = lookup(tokval);
			break;
		case LINK:
			if(token(cfile))strcpy(netd.dp_device,tokval);
			break;
		case SPEED:
			if(token(cfile))
				netd.dp_inspeed = netd.dp_outspeed=atoi(tokval);
			break;
		case INSPEED:
			if(token(cfile))netd.dp_inspeed = atoi(tokval);
			break;
		case OUTSPEED:
			if(token(cfile))netd.dp_outspeed = atoi(tokval);
			break;
		case LENGTH:
			if(token(cfile))netd.dp_datasize = atoi(tokval);
			break;
		case DEBUGTOK:
			debugflg++;
			break;
		case ALTIME:
			if(token(cfile))netd.dp_oatime = atoi(tokval);
			break;
		case ALCOUNT:
			if(token(cfile))netd.dp_maxbread = atoi(tokval);
			break;
		case ONLYUID:
			if(token(cfile))netd.dp_onlyuid = atoi(tokval);
			break;
		case EIGHTBIT:
			netd.dp_use8bit++;
			break;
		case HISPEEDLINK:
			if(token(cfile))strcpy(netd.dp_hispeedlink,tokval);
			break;
		default:
			err("Unknown .netrc option %s\n",tokval);	
			break;
		}
		}
	}
static token(cfile)
	FILE *cfile;
{	/* returns next token in cfile, 0 on EOF */
	char *p;
	int c;
	if(feof(cfile))return(0);
	while((c = getc(cfile)) != EOF && (c == '\n' || c == '\t'
		|| c == ' ' || c == ','));
	/* next char begins token */
	if(c == EOF)return(0);
	p = tokval;
	if(c == '"'){	/* process quoted string */
		while((c = getc(cfile)) != EOF && c != '"'){
			if(c == '\\')c = getc(cfile);
			*p++ = c;
			}
		}
	else {
		*p++ = c;
		while((c = getc(cfile)) != EOF && c != '\n' && c != '\t' 
			&& c != ' ' && c != ','){
			if(c == '\\')c = getc(cfile);
			*p++ = c;
			}
		}
	*p = 0;
	if(tokval[0] == 0)return(0);
/*
	debug("tok %s",tokval);
*/
	return(tlookup(tokval));
	}
static tlookup(str)
  char *str; {
	struct tokstruct *p;
	for(p = toktab; p->tokstr; p++)
		if(streql(p->tokstr,str) == 0){
			return(p->tval);
			}
	return(ID);
	}
Commit	Line	Data
1c15e888	1	static char sccsid[] = "@(#)netrc.c 4.1 (Berkeley) 9/12/82";
fcec3d5e KM	2
	3	/* sccs id variable */
	4	static char *netrc_sid = "@(#)netrc.c 1.2";
	5	/*
	6
	7	netrc.c
	8
	9	procedures to read and parse the .netrc file
	10
	11	You may call:
	12	commandfile() to read the file.
	13	rdnetfile(cfile) to read the file.
	14
	15	Note:
	16	commandfile()
	17	will read the passwd file
	18	if getenv(HOME) searches the passwd file
	19
	20	Table of netrc options
	21	option default
	22	------ -------
	23	default default machine
	24	login string current login
	25	password string -
	26	notify yes/no yes
	27	write yes/no yes
	28	command string -
	29	force yes/no no
	30
	31	Fabry has suggested that machine names be more general:
	32	that you be able to say:
	33
	34	cory: fabry on Cory
	35	caf: caf on Cory
	36	c: fabry on C
	37
	38	so the formulation would look like:
	39
	40	default key
	41	key: machine login passwd ...
	42	key: ....
	43
	44	and so on
	45
	46	Gould has suggested the format be:
	47
	48	pseudo cory real Cory login fabry
	49	pseudo caf real Cory login caf
	50	pseudo c real C login fabry
	51
	52	Init file example:
	53	format local C remote A
	54
	55	default A
	56	machine A local C link /dev/net-A speed 9
	57	machine Cory local C link /dev/net-Cory speed 9
	58
	59	if remote == 0, default is A
	60
	61	passwords work as follows:
	62	passwd = "\n" means no password
	63
	64	*/
	65	# include "defs.h"
66
67	/* tokens, returned by parser */
68	# define MACHINE 1
69	# define LOGIN 2
70	# define PASSWORD 3
71	# define ONLYUID 4
72	# define NOTIFY 5
73	# define QUIET 6
74	# define COMMAND 7
75	# define ID 8
76	# define YES 9
77	# define DEFAULT 10
78	# define WRITE 11
79	# define NO 12
80	# define FORCE 13
81	# define LOCALTOK 14
82	# define LINK 15
83	# define SPEED 16
84	# define LENGTH 18
85	# define DEBUGTOK 19
86	# define ALTIME 20
87	# define ALCOUNT 21
88	# define HISPEEDLINK 22
89	# define EIGHTBIT 23
90	# define INSPEED 24
91	# define OUTSPEED 25
92
93	/* global */
94	struct userinfo status;
95	struct daemonparms netd = {
96	LINKS, /* inspeed */
97	LINKS, /* outspeed */
98	MAXBREAD, /* maxbread */
99	ATIME, /* atime */
100	ATIME, /* oatime */
101	"/dev/null", /* device */
102	SIZE, /* datasize */
103	1, /* trynetl */
104	0 /* onlyuid */
105	/* rest are all zero */
106	};
107
108	/* local */
109	static char tokval[100];
110
111	static struct tokstruct {
112	char *tokstr;
113	int tval;
114	} toktab[]= {
115	"machine", MACHINE,
116	"login", LOGIN,
117	"password", PASSWORD,
118	"onlyuid", ONLYUID,
119	"notify", NOTIFY,
120	"command", COMMAND,
121	"yes", YES,
122	"y", YES,
123	"no", NO,
124	"n", NO,
125	"default", DEFAULT,
126	"write", WRITE,
127	"force", FORCE,
128	"quiet", QUIET,
129	"local", LOCALTOK,
130	"speed", SPEED,
131	"link", LINK,
132	"length", LENGTH,
133	"debug", DEBUGTOK,
134	"time", ALTIME,
135	"count", ALCOUNT,
136	"hispeedlink", HISPEEDLINK,
137	"8bit", EIGHTBIT,
138	"inspeed", INSPEED,
139	"outspeed", OUTSPEED,
140	0, 0
141	};
142
143	static struct stat statbuf;
144
145	/*
146	commandfile()
147
148	this procedure reads in and parses the .netrc file.
149	when you call this, if the remote machine is to be explicitely
150	set, the global variable "remote" must have a value.
151	on return, if it is non-zero, "remote" will have the
152	remote machine the data was collected for.
153	status.localname need not have a value.
154	*/
155	commandfile(){
156	char *hdir, buf[BUFSIZ];
157	FILE *cfile;
158	hdir = getenv("HOME");
159	if(hdir == NULL)hdir = ".";
160	sprintf(buf,"%s/.netrc",hdir);
161	/*
162	debug("file %s",buf);
163	*/
164	cfile = fopen(buf,"r");
165	if(cfile == NULL)return;
166	rdnetfile(cfile);
167	fclose(cfile);
168	}
169	/*
170	read the file cfile and parse
171	*/
172	rdnetfile(cfile)
173	FILE *cfile;
174	{
175	int t;
176	if(cfile == NULL)return;
177	if(fstat(fileno(cfile),&statbuf) < 0 \|\| (statbuf.st_mode & 0444) == 0)
178	return;
179	while((t = token(cfile))){
180	switch(t){
181	case DEFAULT:
182	if(token(cfile) == ID && remote == 0)remote = lookup(tokval);
183	/*
184	debug("rem %c\n",remote);
185	*/
186	break;
187	case MACHINE:
188	if(remote == 0)remote = getremote(local);
189	if(token(cfile) != ID)continue;
190	if(remote != lookup(tokval))continue;
191	/* this is the entry for the remote mach we want */
192	getnetline(cfile);
193	return;
194	break;
195	}
196	}
197	return;
198	}
199	/*
200	read a line of the file
201	*/
202	static getnetline(cfile)
203	FILE *cfile;
204	{
205	int t;
206	while((t = token(cfile))){
207	switch(t){
208	/* these options are usually in the .netrc file */
209	case MACHINE: return;
210	case LOGIN:
211	if(token(cfile) && status.login[0] == 0)
212	strcpy(status.login,tokval);
213	break;
214	case PASSWORD:
215	if(fstat(fileno(cfile),&statbuf) >= 0
216	&& (statbuf.st_mode & 077) != 0){
217	err("Error - .netrc file not correct mode.\n");
218	err("Remove password or correct mode.\n");
219	exit(EX_USAGE);
220	}
221	if(token(cfile) && status.mpasswd[0] == 0)
222	strcpy(status.mpasswd,tokval);
223	/*
224	debug("mp:%s:%s\n",status.mpasswd,tokval);
225	*/
226	break;
227	case NOTIFY:
228	status.nonotify = token(cfile) == NO;
229	break;
230	case WRITE:
231	status.nowrite = token(cfile) == NO;
232	break;
233	case COMMAND:
234	if(token(cfile) && status.defcmd[0] == 0)
235	strcpy(status.defcmd,tokval);
236	break;
237	case QUIET:
238	status.quiet = token(cfile) == YES;
239	break;
240	case FORCE:
241	status.force = token(cfile) == YES;
242	break;
243
244	/* these options are usually in /usr/net/initfile */
245	case LOCALTOK:
246	if(token(cfile))local = lookup(tokval);
247	break;
248	case LINK:
249	if(token(cfile))strcpy(netd.dp_device,tokval);
250	break;
251	case SPEED:
252	if(token(cfile))
253	netd.dp_inspeed = netd.dp_outspeed=atoi(tokval);
254	break;
255	case INSPEED:
256	if(token(cfile))netd.dp_inspeed = atoi(tokval);
257	break;
258	case OUTSPEED:
259	if(token(cfile))netd.dp_outspeed = atoi(tokval);
260	break;
261	case LENGTH:
262	if(token(cfile))netd.dp_datasize = atoi(tokval);
263	break;
264	case DEBUGTOK:
265	debugflg++;
266	break;
267	case ALTIME:
268	if(token(cfile))netd.dp_oatime = atoi(tokval);
269	break;
270	case ALCOUNT:
271	if(token(cfile))netd.dp_maxbread = atoi(tokval);
272	break;
273	case ONLYUID:
274	if(token(cfile))netd.dp_onlyuid = atoi(tokval);
275	break;
276	case EIGHTBIT:
277	netd.dp_use8bit++;
278	break;
279	case HISPEEDLINK:
280	if(token(cfile))strcpy(netd.dp_hispeedlink,tokval);
281	break;
282	default:
283	err("Unknown .netrc option %s\n",tokval);
284	break;
285	}
286	}
287	}
288	static token(cfile)
289	FILE *cfile;
290	{ /* returns next token in cfile, 0 on EOF */
291	char *p;
292	int c;
293	if(feof(cfile))return(0);
294	while((c = getc(cfile)) != EOF && (c == '\n' \|\| c == '\t'
295	\|\| c == ' ' \|\| c == ','));
296	/* next char begins token */
297	if(c == EOF)return(0);
298	p = tokval;
299	if(c == '"'){ /* process quoted string */
300	while((c = getc(cfile)) != EOF && c != '"'){
301	if(c == '\\')c = getc(cfile);
302	*p++ = c;
303	}
304	}
305	else {
306	*p++ = c;
307	while((c = getc(cfile)) != EOF && c != '\n' && c != '\t'
308	&& c != ' ' && c != ','){
309	if(c == '\\')c = getc(cfile);
310	*p++ = c;
311	}
312	}
313	*p = 0;
314	if(tokval[0] == 0)return(0);
315	/*
316	debug("tok %s",tokval);
317	*/
318	return(tlookup(tokval));
319	}
320	static tlookup(str)
321	char *str; {
322	struct tokstruct *p;
323	for(p = toktab; p->tokstr; p++)
324	if(streql(p->tokstr,str) == 0){
325	return(p->tval);
326	}
327	return(ID);
328	}