Subject: Missing ruserpass in libcompat
To: None <core@NetBSD.ORG>
From: Alistair G. Crooks <agc@uts.amdahl.com>
List: current-users
Date: 03/22/1995 05:09:54
The rexec() function in libcompat refers to the ruserpass function,
which doesn't seem to exist, for some reason, so I took this function
from the ftp sources, and got rid of all extraneous variables etc.

I've included the diffs to the /usr/src/lib/libcompat/Makefile, and
the /usr/src/lib/libcompat/4.3/ruserpass.[c3] files below.

I found these when I was trying to put pvm 3.3.7 on NetBSD. It seems
to work, now.

I also noticed that the manual page for rexec references the krcmd()
function, which is nowhere to be found.

Alistair
--
Alistair G. Crooks (agc@uts.amdahl.com)			   +44 125 234 6377
Amdahl European HQ, Dogmersfield Park, Hartley Wintney, Hants RG27 8TE, UK.
[These are only my opinions, and certainly not those of Amdahl Corporation]

*** /usr/src/lib/libcompat/Makefile     1995/03/22 11:10:59     1.1
--- /usr/src/lib/libcompat/Makefile     1995/03/22 12:58:18
***************
*** 27,33 ****
  
  # compat 4.3 sources
  # missing: ecvt.c gcvt.c sibuf.c sobuf.c strout.c
! SRCS+=        cfree.c lsearch.c regex.c rexec.c
  
  .if   (${MACHINE_ARCH} == "m68k")
  SRCS+=        insque.S remque.S
--- 27,33 ----
  
  # compat 4.3 sources
  # missing: ecvt.c gcvt.c sibuf.c sobuf.c strout.c
! SRCS+=        cfree.c lsearch.c regex.c rexec.c ruserpass.c
  
  .if   (${MACHINE_ARCH} == "m68k")
  SRCS+=        insque.S remque.S
***************
*** 36,42 ****
  .endif
  
  # missing: ecvt.0
! MAN+= insque.3 lsearch.3 re_comp.3 rexec.3
  
  #MLINKS+=ecvt.3 fcvt.3 ecvt.3 gcvt.3
  MLINKS+=insque.3 remque.3
--- 36,42 ----
  .endif
  
  # missing: ecvt.0
! MAN+= insque.3 lsearch.3 re_comp.3 rexec.3 ruserpass.3
  
  #MLINKS+=ecvt.3 fcvt.3 ecvt.3 gcvt.3
  MLINKS+=insque.3 remque.3


*** /dev/null	Wed Mar 22 11:02:49 1995
--- /usr/src/lib/libcompat/4.3/ruserpass.c	Wed Mar 22 12:01:43 1995
***************
*** 0 ****
--- 1,286 ----
+ /*
+  * 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.
+  */
+ 
+ #ifndef lint
+ /*static char sccsid[] = "from: @(#)ruserpass.c	8.3 (Berkeley) 4/2/94";*/
+ static char *rcsid = "$Id: ruserpass.c,v 1.1 1995/03/22 11:11:25 agc Exp agc $";
+ #endif /* not lint */
+ 
+ #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 <sys/param.h>
+ #include <setjmp.h>
+ 
+ /*
+  * Options and other state info.
+  */
+ struct macel {
+ 	char mac_name[9];	/* macro name */
+ 	char *mac_start;	/* start of macro in macbuf */
+ 	char *mac_end;		/* end of macro in macbuf */
+ };
+ 
+ int macnum;			/* number of defined macros */
+ struct macel macros[16];
+ char macbuf[4096];
+ 
+ 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 }
+ };
+ 
+ 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);
+ }
+ 
+ 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 ((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 == 0 || 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:
+ 			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);
+ }

*** /dev/null	Wed Mar 22 11:02:49 1995
--- /usr/src/lib/libcompat/4.3/ruserpass.3	Wed Mar 22 12:55:15 1995
***************
*** 0 ****
--- 1,81 ----
+ .\" Copyright (c) 1983, 1991, 1993
+ .\"	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.
+ .\"
+ .\"     @(#)rexec.3	8.1 (Berkeley) 6/4/93
+ .\"
+ .Dd June 4, 1993
+ .Dt RUSERPASS 3
+ .Os BSD 4.2
+ .Sh NAME
+ .Nm ruserpass
+ .Nd obtain remote account details from .netrc file
+ .Sh SYNOPSIS
+ .Ft int
+ .Fn ruserpass "char *host" "char **aname" "char **apass" "char **aacct"
+ .Sh DESCRIPTION
+ .Bf -symbolic
+ This interface is obsoleted by 
+ .Xr krcmd 3 .
+ It is available from the compatibility library, libcompat.
+ .Ef
+ .Pp
+ The
+ .Fn ruserpass
+ function
+ looks up the
+ .Pa .netrc
+ file in the user's home directory
+ on the localhost, and determines the information
+ held therein for the remote host
+ .Fa host
+ This remote host can be specified using the host's name,
+ or its (partial) IP address.
+ If a match is found in the file, or the "default" and 
+ "machine" directives are specified, the file
+ is searched for the remote username, the remote account
+ information, and the remote password information.
+ A warning will be printed on the local machine if the
+ .Pa .netrc
+ file is visible to other users.
+ .Sh RETURN VALUE
+ A return value of 0 is returned on successful search,
+ or if the user's
+ .Pa .netrc
+ file does not exist,
+ and -1 is returned if an error occurred.
+ .Sh SEE ALSO
+ .Xr rcmd 3 ,
+ .Xr rexecd 8
+ .Sh HISTORY
+ The
+ .Fn ruserpass
+ function appeared in 
+ .Bx 4.2 .