[unix-history] / usr / src / usr.bin / login / login.c

#ifndef lint
static	char *sccsid = "@(#)login.c	4.32 (Berkeley) 83/06/30";
#endif

/*
 * login [ name ]
 * login -r hostname (for rlogind)
 * login -h hostname (for telnetd, etc.)
 */

#include <sys/param.h>
#include <sys/quota.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <sys/resource.h>

#include <sgtty.h>
#include <utmp.h>
#include <signal.h>
#include <pwd.h>
#include <stdio.h>
#include <lastlog.h>
#include <errno.h>

#define	SCPYN(a, b)	strncpy(a, b, sizeof(a))

#define NMAX	sizeof(utmp.ut_name)

#define	FALSE	0
#define	TRUE	-1

char	nolog[] =	"/etc/nologin";
char	qlog[]  =	".hushlogin";
char	securetty[] =	"/etc/securetty";
char	maildir[30] =	"/usr/spool/mail/";
char	lastlog[] =	"/usr/adm/lastlog";
struct	passwd nouser = {"", "nope", -1, -1, -1, "", "", "", "" };
struct	sgttyb ttyb;
struct	utmp utmp;
char	minusnam[16] = "-";
/*
 * This bounds the time given to login.  We initialize it here
 * so it can be patched on machines where it's too small.
 */
int	timeout = 60;

char	homedir[64] = "HOME=";
char	shell[64] = "SHELL=";
char	term[64] = "TERM=";
char	user[20] = "USER=";

char	*envinit[] =
    { homedir, shell, "PATH=:/usr/ucb:/bin:/usr/bin", term, user, 0 };

struct	passwd *pwd;
struct	passwd *getpwnam();
char	*strcat(), *rindex(), *index();
int	setpwent();
int	timedout();
char	*ttyname();
char	*crypt();
char	*getpass();
char	*stypeof();
extern	char **environ;
extern	int errno;

struct	tchars tc = {
	CINTR, CQUIT, CSTART, CSTOP, CEOT, CBRK
};
struct	ltchars ltc = {
	CSUSP, CDSUSP, CRPRNT, CFLUSH, CWERASE, CLNEXT
};

int	rflag;
char	rusername[NMAX+1], lusername[NMAX+1];
char	rpassword[NMAX+1];
char	name[NMAX+1];
char	*rhost;

main(argc, argv)
	char *argv[];
{
	register char *namep;
	int t, f, c, i;
	int invalid, quietlog;
	FILE *nlfd;
	char *ttyn;
	int ldisc = 0, zero = 0;

	signal(SIGALRM, timedout);
	alarm(timeout);
	signal(SIGQUIT, SIG_IGN);
	signal(SIGINT, SIG_IGN);
	setpriority(PRIO_PROCESS, 0, 0);
	quota(Q_SETUID, 0, 0, 0);
	/*
	 * -r is used by rlogind to cause the autologin protocol;
	 * -h is used by other servers to pass the name of the
	 * remote host to login so that it may be placed in utmp and wtmp
	 */
	if (argc > 1) {
		if (strcmp(argv[1], "-r") == 0) {
			rflag = doremotelogin(argv[2]);
			SCPYN(utmp.ut_host, argv[2]);
			argc = 0;
		}
		if (strcmp(argv[1], "-h") == 0 && getuid() == 0) {
			SCPYN(utmp.ut_host, argv[2]);
			argc = 0;
		}
	}
	ioctl(0, TIOCLSET, &zero);
	ioctl(0, TIOCNXCL, 0);
	ioctl(0, FIONBIO, &zero);
	ioctl(0, FIOASYNC, &zero);
	ioctl(0, TIOCGETP, &ttyb);
	/*
	 * If talking to an rlogin process,
	 * propagate the terminal type and
	 * baud rate across the network.
	 */
	if (rflag)
		doremoteterm(term, &ttyb);
	ioctl(0, TIOCSLTC, &ltc);
	ioctl(0, TIOCSETC, &tc);
	ioctl(0, TIOCSETP, &ttyb);
	for (t = getdtablesize(); t > 3; t--)
		close(t);
	ttyn = ttyname(0);
	if (ttyn==(char *)0)
		ttyn = "/dev/tty??";
	do {
		ldisc = 0;
		ioctl(0, TIOCSETD, &ldisc);
		invalid = FALSE;
		SCPYN(utmp.ut_name, "");
		/*
		 * Name specified, take it.
		 */
		if (argc > 1) {
			SCPYN(utmp.ut_name, argv[1]);
			argc = 0;
		}
		/*
		 * If remote login take given name,
		 * otherwise prompt user for something.
		 */
		if (rflag) {
			SCPYN(utmp.ut_name, lusername);
			/* autologin failed, prompt for passwd */
			if (rflag == -1)
				rflag = 0;
		} else
			getloginname(&utmp);
		if (!strcmp(pwd->pw_shell, "/bin/csh")) {
			ldisc = NTTYDISC;
			ioctl(0, TIOCSETD, &ldisc);
		}
		/*
		 * If no remote login authentication and
		 * a password exists for this user, prompt
		 * for one and verify it.
		 */
		if (!rflag && *pwd->pw_passwd != '\0') {
			char *pp;

			setpriority(PRIO_PROCESS, 0, -4);
			pp = getpass("Password:");
			namep = crypt(pp, pwd->pw_passwd);
			setpriority(PRIO_PROCESS, 0, 0);
			if (strcmp(namep, pwd->pw_passwd))
				invalid = TRUE;
		}
		/*
		 * If user not super-user, check for logins disabled.
		 */
		if (pwd->pw_uid != 0 && (nlfd = fopen(nolog, "r")) > 0) {
			while ((c = getc(nlfd)) != EOF)
				putchar(c);
			fflush(stdout);
			sleep(5);
			exit(0);
		}
		/*
		 * If valid so far and root is logging in,
		 * see if root logins on this terminal are permitted.
		 */
		if (!invalid && pwd->pw_uid == 0 &&
		    !rootterm(ttyn+sizeof("/dev/")-1)) {
			logerr("ROOT LOGIN REFUSED %s",
			    ttyn+sizeof("/dev/")-1);
			invalid = TRUE;
		}
		if (invalid) {
			printf("Login incorrect\n");
			if (ttyn[sizeof("/dev/tty")-1] == 'd')
				logerr("BADDIALUP %s %s",
				    ttyn+sizeof("/dev/")-1, utmp.ut_name);
		}
		if (*pwd->pw_shell == '\0')
			pwd->pw_shell = "/bin/sh";
		i = strlen(pwd->pw_shell);
		if (chdir(pwd->pw_dir) < 0 && !invalid ) {
			if (chdir("/") < 0) {
				printf("No directory!\n");
				invalid = TRUE;
			} else {
				printf("No directory! %s\n",
				   "Logging in with home=/");
				pwd->pw_dir = "/";
			}
		}
		/*
		 * Remote login invalid must have been because
		 * of a restriction of some sort, no extra chances.
		 */
		if (rflag && invalid)
			exit(1);
	} while (invalid);
/* committed to login turn off timeout */
	alarm(0);

	if (quota(Q_SETUID, pwd->pw_uid, 0, 0) < 0) {
		if (errno == EUSERS)
			printf("%s.\n%s.\n",
			   "Too many users logged on already",
			   "Try again later");
		else if (errno == EPROCLIM)
			printf("You have too many processes running.\n");
		else
			perror("setuid");
		sleep(5);
		exit(0);
	}
	time(&utmp.ut_time);
	t = ttyslot();
	if (t > 0 && (f = open("/etc/utmp", 1)) >= 0) {
		lseek(f, (long)(t*sizeof(utmp)), 0);
		SCPYN(utmp.ut_line, rindex(ttyn, '/')+1);
		write(f, (char *)&utmp, sizeof(utmp));
		close(f);
	}
	if (t > 0 && (f = open("/usr/adm/wtmp", 1)) >= 0) {
		lseek(f, 0L, 2);
		write(f, (char *)&utmp, sizeof(utmp));
		close(f);
	}
	quietlog = access(qlog, 0) == 0;
	if ((f = open(lastlog, 2)) >= 0) {
		struct lastlog ll;

		lseek(f, (long)pwd->pw_uid * sizeof (struct lastlog), 0);
		if (read(f, (char *) &ll, sizeof ll) == sizeof ll &&
		    ll.ll_time != 0 && !quietlog) {
			printf("Last login: %.*s ",
			    24-5, (char *)ctime(&ll.ll_time));
			if (*ll.ll_host != '\0')
				printf("from %.*s\n",
				    sizeof (ll.ll_host), ll.ll_host);
			else
				printf("on %.*s\n",
				    sizeof (ll.ll_line), ll.ll_line);
		}
		lseek(f, (long)pwd->pw_uid * sizeof (struct lastlog), 0);
		time(&ll.ll_time);
		SCPYN(ll.ll_line, rindex(ttyn, '/')+1);
		SCPYN(ll.ll_host, utmp.ut_host);
		write(f, (char *) &ll, sizeof ll);
		close(f);
	}
	chown(ttyn, pwd->pw_uid, pwd->pw_gid);
	chmod(ttyn, 0622);
	setgid(pwd->pw_gid);
	strncpy(name, utmp.ut_name, NMAX);
	name[NMAX] = '\0';
	initgroups(name, pwd->pw_gid);
	quota(Q_DOWARN, pwd->pw_uid, (dev_t)-1, 0);
	setuid(pwd->pw_uid);
	environ = envinit;
	strncat(homedir, pwd->pw_dir, sizeof(homedir)-6);
	strncat(shell, pwd->pw_shell, sizeof(shell)-7);
	if (term[strlen("TERM=")] == 0)
		strncat(term, stypeof(ttyn), sizeof(term)-6);
	strncat(user, pwd->pw_name, sizeof(user)-6);
	if ((namep = rindex(pwd->pw_shell, '/')) == NULL)
		namep = pwd->pw_shell;
	else
		namep++;
	strcat(minusnam, namep);
	umask(022);
	if (ttyn[sizeof("/dev/tty")-1] == 'd')
		logerr("DIALUP %s %s",
		    ttyn+sizeof("/dev/")-1, pwd->pw_name);
	if (!quietlog) {
		showmotd();
		strcat(maildir, pwd->pw_name);
		if (access(maildir,4)==0) {
			struct stat statb;
			stat(maildir, &statb);
			if (statb.st_size)
				printf("You have mail.\n");
		}
	}
	signal(SIGALRM, SIG_DFL);
	signal(SIGQUIT, SIG_DFL);
	signal(SIGINT, SIG_DFL);
	signal(SIGTSTP, SIG_IGN);
	execlp(pwd->pw_shell, minusnam, 0);
	perror(pwd->pw_shell);
	printf("No shell\n");
	exit(0);
}

getloginname(up)
	register struct utmp *up;
{
	register char *namep;
	char c;

	while (up->ut_name[0] == '\0') {
		namep = utmp.ut_name;
		printf("login: ");
		while ((c = getchar()) != '\n') {
			if (c == ' ')
				c = '_';
			if (c == EOF)
				exit(0);
			if (namep < up->ut_name+NMAX)
				*namep++ = c;
		}
	}
	setpwent();
	if ((pwd = getpwnam(utmp.ut_name)) == NULL)
		pwd = &nouser;
	endpwent();
}

timedout()
{

	printf("Login timed out after %d seconds\n", timeout);
	exit(0);
}

int	stopmotd;
catch()
{

	signal(SIGINT, SIG_IGN);
	stopmotd++;
}

rootterm(tty)
	char *tty;
{
	register FILE *fd;
	char buf[100];

	if ((fd = fopen(securetty, "r")) == NULL)
		return(1);
	while (fgets(buf, sizeof buf, fd) != NULL) {
		buf[strlen(buf)-1] = '\0';
		if (strcmp(tty, buf) == 0) {
			fclose(fd);
			return(1);
		}
	}
	fclose(fd);
	return(0);
}

showmotd()
{
	FILE *mf;
	register c;

	signal(SIGINT, catch);
	if ((mf = fopen("/etc/motd","r")) != NULL) {
		while ((c = getc(mf)) != EOF && stopmotd == 0)
			putchar(c);
		fclose(mf);
	}
	signal(SIGINT, SIG_IGN);
}

#undef	UNKNOWN
#define UNKNOWN "su"

char *
stypeof(ttyid)
	char *ttyid;
{
	static char typebuf[16];
	char buf[50];
	register FILE *f;
	register char *p, *t, *q;

	if (ttyid == NULL)
		return (UNKNOWN);
	f = fopen("/etc/ttytype", "r");
	if (f == NULL)
		return (UNKNOWN);
	/* split off end of name */
	for (p = q = ttyid; *p != 0; p++)
		if (*p == '/')
			q = p + 1;

	/* scan the file */
	while (fgets(buf, sizeof buf, f) != NULL) {
		for (t = buf; *t != ' ' && *t != '\t'; t++)
			;
		*t++ = 0;
		while (*t == ' ' || *t == '\t')
			t++;
		for (p = t; *p > ' '; p++)
			;
		*p = 0;
		if (strcmp(q,t) == 0) {
			strcpy(typebuf, buf);
			fclose(f);
			return (typebuf);
		}
	}
	fclose (f);
	return (UNKNOWN);
}

doremotelogin(host)
	char *host;
{
	FILE *hostf;
	int first = 1;

	getstr(rusername, sizeof (rusername), "remuser");
	getstr(lusername, sizeof (lusername), "locuser");
	getstr(term+5, sizeof(term)-5, "Terminal type");
	if (getuid()) {
		pwd = &nouser;
		goto bad;
	}
	setpwent();
	pwd = getpwnam(lusername);
	endpwent();
	if (pwd == NULL) {
		pwd = &nouser;
		goto bad;
	}
	hostf = pwd->pw_uid ? fopen("/etc/hosts.equiv", "r") : 0;
again:
	if (hostf) {
		char ahost[32];

		while (fgets(ahost, sizeof (ahost), hostf)) {
			char *user;

			if ((user = index(ahost, '\n')) != 0)
				*user++ = '\0';
			if ((user = index(ahost, ' ')) != 0)
				*user++ = '\0';
			if (!strcmp(host, ahost) &&
			    !strcmp(rusername, user ? user : lusername)) {
				fclose(hostf);
				return (1);
			}
		}
		fclose(hostf);
	}
	if (first == 1) {
		char *rhosts = ".rhosts";
		struct stat sbuf;

		first = 0;
		if (chdir(pwd->pw_dir) < 0)
			goto again;
		if (lstat(rhosts, &sbuf) < 0)
			goto again;
		if ((sbuf.st_mode & S_IFMT) == S_IFLNK) {
			printf("login: .rhosts is a soft link.\r\n");
			goto bad;
		}
		hostf = fopen(rhosts, "r");
		fstat(fileno(hostf), &sbuf);
		if (sbuf.st_uid && sbuf.st_uid != pwd->pw_uid) {
			printf("login: Bad .rhosts ownership.\r\n");
			fclose(hostf);
			goto bad;
		}
		goto again;
	}
bad:
	return (-1);
}

getstr(buf, cnt, err)
	char *buf;
	int cnt;
	char *err;
{
	char c;

	do {
		if (read(0, &c, 1) != 1)
			exit(1);
		if (--cnt < 0) {
			printf("%s too long\r\n", err);
			exit(1);
		}
		*buf++ = c;
	} while (c != 0);
}

char	*speeds[] =
    { "0", "50", "75", "110", "134", "150", "200", "300",
      "600", "1200", "1800", "2400", "4800", "9600", "19200", "38400" };
#define	NSPEEDS	(sizeof (speeds) / sizeof (speeds[0]))

doremoteterm(term, tp)
	char *term;
	struct sgttyb *tp;
{
	char *cp = index(term, '/');
	register int i;

	if (cp) {
		*cp++ = 0;
		for (i = 0; i < NSPEEDS; i++)
			if (!strcmp(speeds[i], cp)) {
				tp->sg_ispeed = tp->sg_ospeed = i;
				break;
			}
	}
	tp->sg_flags = ECHO|CRMOD|ANYP|XTABS;
}

logerr(fmt, a1, a2, a3)
	char *fmt, *a1, *a2, *a3;
{
#ifdef LOGERR
	FILE *cons = fopen("/dev/console", "w");

	if (cons != NULL) {
		fprintf(cons, fmt, a1, a2, a3);
		fprintf(cons, "\n\r");
		fclose(cons);
	}
#endif
}
Commit	Line	Data
22d4760e	1	#ifndef lint
ea87b78e	2	static char *sccsid = "@(#)login.c 4.32 (Berkeley) 83/06/30";
22d4760e SL	3	#endif
22d4760e SL	4
88a01c09 BJ	5	/*
88a01c09 BJ	6	* login [ name ]
3b8dd95e SL	7	* login -r hostname (for rlogind)
3b8dd95e SL	8	* login -h hostname (for telnetd, etc.)
88a01c09 BJ	9	*/
88a01c09 BJ	10
7a625b73	11	#include <sys/param.h>
3b8dd95e SL	12	#include <sys/quota.h>
	13	#include <sys/stat.h>
	14	#include <sys/time.h>
	15	#include <sys/resource.h>
	16
88a01c09 BJ	17	#include <sgtty.h>
	18	#include <utmp.h>
	19	#include <signal.h>
	20	#include <pwd.h>
	21	#include <stdio.h>
88a01c09	22	#include <lastlog.h>
22d4760e	23	#include <errno.h>
f570e1ff BJ	24
f570e1ff BJ	25	#define SCPYN(a, b) strncpy(a, b, sizeof(a))
88a01c09	26
b4389814	27	#define NMAX sizeof(utmp.ut_name)
88a01c09	28
f570e1ff BJ	29	#define FALSE 0
	30	#define TRUE -1
	31
	32	char nolog[] = "/etc/nologin";
	33	char qlog[] = ".hushlogin";
	34	char securetty[] = "/etc/securetty";
88a01c09 BJ	35	char maildir[30] = "/usr/spool/mail/";
88a01c09 BJ	36	char lastlog[] = "/usr/adm/lastlog";
3479a16a	37	struct passwd nouser = {"", "nope", -1, -1, -1, "", "", "", "" };
88a01c09 BJ	38	struct sgttyb ttyb;
	39	struct utmp utmp;
	40	char minusnam[16] = "-";
3b8dd95e SL	41	/*
	42	* This bounds the time given to login. We initialize it here
	43	* so it can be patched on machines where it's too small.
	44	*/
	45	int timeout = 60;
86eb6c9e	46
88a01c09 BJ	47	char homedir[64] = "HOME=";
	48	char shell[64] = "SHELL=";
	49	char term[64] = "TERM=";
f570e1ff	50	char user[20] = "USER=";
86eb6c9e BJ	51
86eb6c9e BJ	52	char *envinit[] =
3b8dd95e	53	{ homedir, shell, "PATH=:/usr/ucb:/bin:/usr/bin", term, user, 0 };
88a01c09	54
86eb6c9e	55	struct passwd *pwd;
88a01c09	56	struct passwd *getpwnam();
86eb6c9e	57	char strcat(), rindex(), *index();
88a01c09	58	int setpwent();
3b8dd95e	59	int timedout();
88a01c09 BJ	60	char *ttyname();
	61	char *crypt();
	62	char *getpass();
88a01c09 BJ	63	char *stypeof();
88a01c09 BJ	64	extern char **environ;
22d4760e	65	extern int errno;
88a01c09	66
714accc5 SL	67	struct tchars tc = {
	68	CINTR, CQUIT, CSTART, CSTOP, CEOT, CBRK
	69	};
	70	struct ltchars ltc = {
	71	CSUSP, CDSUSP, CRPRNT, CFLUSH, CWERASE, CLNEXT
841d84b0 BJ	72	};
841d84b0 BJ	73
86eb6c9e	74	int rflag;
b4389814	75	char rusername[NMAX+1], lusername[NMAX+1];
86eb6c9e	76	char rpassword[NMAX+1];
e5321f7b	77	char name[NMAX+1];
b4389814	78	char *rhost;
86eb6c9e	79
88a01c09	80	main(argc, argv)
3b8dd95e	81	char *argv[];
88a01c09 BJ	82	{
88a01c09 BJ	83	register char *namep;
3b8dd95e SL	84	int t, f, c, i;
3b8dd95e SL	85	int invalid, quietlog;
f570e1ff	86	FILE *nlfd;
88a01c09	87	char *ttyn;
b4389814	88	int ldisc = 0, zero = 0;
88a01c09	89
3b8dd95e SL	90	signal(SIGALRM, timedout);
3b8dd95e SL	91	alarm(timeout);
88a01c09 BJ	92	signal(SIGQUIT, SIG_IGN);
88a01c09 BJ	93	signal(SIGINT, SIG_IGN);
3b8dd95e	94	setpriority(PRIO_PROCESS, 0, 0);
22d4760e	95	quota(Q_SETUID, 0, 0, 0);
3b8dd95e SL	96	/*
	97	* -r is used by rlogind to cause the autologin protocol;
	98	* -h is used by other servers to pass the name of the
	99	* remote host to login so that it may be placed in utmp and wtmp
	100	*/
	101	if (argc > 1) {
	102	if (strcmp(argv[1], "-r") == 0) {
	103	rflag = doremotelogin(argv[2]);
	104	SCPYN(utmp.ut_host, argv[2]);
	105	argc = 0;
b4389814	106	}
3b8dd95e SL	107	if (strcmp(argv[1], "-h") == 0 && getuid() == 0) {
	108	SCPYN(utmp.ut_host, argv[2]);
	109	argc = 0;
b4389814	110	}
86eb6c9e	111	}
714accc5	112	ioctl(0, TIOCLSET, &zero);
c95ed2b2	113	ioctl(0, TIOCNXCL, 0);
4f8d3876 BJ	114	ioctl(0, FIONBIO, &zero);
4f8d3876 BJ	115	ioctl(0, FIOASYNC, &zero);
714accc5	116	ioctl(0, TIOCGETP, &ttyb);
3b8dd95e SL	117	/*
	118	* If talking to an rlogin process,
	119	* propagate the terminal type and
	120	* baud rate across the network.
	121	*/
	122	if (rflag)
	123	doremoteterm(term, &ttyb);
714accc5 SL	124	ioctl(0, TIOCSLTC, &ltc);
	125	ioctl(0, TIOCSETC, &tc);
	126	ioctl(0, TIOCSETP, &ttyb);
3b8dd95e	127	for (t = getdtablesize(); t > 3; t--)
88a01c09 BJ	128	close(t);
88a01c09 BJ	129	ttyn = ttyname(0);
f570e1ff	130	if (ttyn==(char *)0)
88a01c09	131	ttyn = "/dev/tty??";
f570e1ff BJ	132	do {
f570e1ff BJ	133	ldisc = 0;
c95ed2b2	134	ioctl(0, TIOCSETD, &ldisc);
f570e1ff BJ	135	invalid = FALSE;
f570e1ff BJ	136	SCPYN(utmp.ut_name, "");
3b8dd95e SL	137	/*
	138	* Name specified, take it.
	139	*/
	140	if (argc > 1) {
f570e1ff BJ	141	SCPYN(utmp.ut_name, argv[1]);
	142	argc = 0;
	143	}
3b8dd95e SL	144	/*
	145	* If remote login take given name,
	146	* otherwise prompt user for something.
	147	*/
4f8d3876	148	if (rflag) {
3479a16a	149	SCPYN(utmp.ut_name, lusername);
3b8dd95e	150	/* autologin failed, prompt for passwd */
4f8d3876 BJ	151	if (rflag == -1)
4f8d3876 BJ	152	rflag = 0;
4cf9fc9e	153	} else
3b8dd95e	154	getloginname(&utmp);
f570e1ff BJ	155	if (!strcmp(pwd->pw_shell, "/bin/csh")) {
	156	ldisc = NTTYDISC;
	157	ioctl(0, TIOCSETD, &ldisc);
	158	}
3b8dd95e SL	159	/*
	160	* If no remote login authentication and
	161	* a password exists for this user, prompt
	162	* for one and verify it.
	163	*/
	164	if (!rflag && *pwd->pw_passwd != '\0') {
	165	char *pp;
	166
	167	setpriority(PRIO_PROCESS, 0, -4);
	168	pp = getpass("Password:");
	169	namep = crypt(pp, pwd->pw_passwd);
	170	setpriority(PRIO_PROCESS, 0, 0);
	171	if (strcmp(namep, pwd->pw_passwd))
	172	invalid = TRUE;
f570e1ff	173	}
3b8dd95e SL	174	/*
	175	* If user not super-user, check for logins disabled.
	176	*/
f570e1ff	177	if (pwd->pw_uid != 0 && (nlfd = fopen(nolog, "r")) > 0) {
f570e1ff BJ	178	while ((c = getc(nlfd)) != EOF)
	179	putchar(c);
	180	fflush(stdout);
	181	sleep(5);
	182	exit(0);
	183	}
3b8dd95e SL	184	/*
	185	* If valid so far and root is logging in,
	186	* see if root logins on this terminal are permitted.
	187	*/
f570e1ff BJ	188	if (!invalid && pwd->pw_uid == 0 &&
f570e1ff BJ	189	!rootterm(ttyn+sizeof("/dev/")-1)) {
4f8d3876 BJ	190	logerr("ROOT LOGIN REFUSED %s",
4f8d3876 BJ	191	ttyn+sizeof("/dev/")-1);
f570e1ff BJ	192	invalid = TRUE;
	193	}
	194	if (invalid) {
88a01c09	195	printf("Login incorrect\n");
4f8d3876	196	if (ttyn[sizeof("/dev/tty")-1] == 'd')
ea87b78e	197	logerr("BADDIALUP %s %s",
4f8d3876	198	ttyn+sizeof("/dev/")-1, utmp.ut_name);
88a01c09	199	}
f570e1ff BJ	200	if (*pwd->pw_shell == '\0')
	201	pwd->pw_shell = "/bin/sh";
	202	i = strlen(pwd->pw_shell);
	203	if (chdir(pwd->pw_dir) < 0 && !invalid ) {
	204	if (chdir("/") < 0) {
	205	printf("No directory!\n");
	206	invalid = TRUE;
	207	} else {
3b8dd95e SL	208	printf("No directory! %s\n",
3b8dd95e SL	209	"Logging in with home=/");
f570e1ff BJ	210	pwd->pw_dir = "/";
f570e1ff BJ	211	}
88a01c09	212	}
3b8dd95e SL	213	/*
	214	* Remote login invalid must have been because
	215	* of a restriction of some sort, no extra chances.
	216	*/
86eb6c9e BJ	217	if (rflag && invalid)
86eb6c9e BJ	218	exit(1);
f570e1ff	219	} while (invalid);
3b8dd95e SL	220	/* committed to login turn off timeout */
3b8dd95e SL	221	alarm(0);
88a01c09	222
22d4760e SL	223	if (quota(Q_SETUID, pwd->pw_uid, 0, 0) < 0) {
	224	if (errno == EUSERS)
	225	printf("%s.\n%s.\n",
	226	"Too many users logged on already",
	227	"Try again later");
	228	else if (errno == EPROCLIM)
	229	printf("You have too many processes running.\n");
	230	else
	231	perror("setuid");
	232	sleep(5);
	233	exit(0);
	234	}
88a01c09 BJ	235	time(&utmp.ut_time);
88a01c09 BJ	236	t = ttyslot();
3b8dd95e	237	if (t > 0 && (f = open("/etc/utmp", 1)) >= 0) {
88a01c09 BJ	238	lseek(f, (long)(t*sizeof(utmp)), 0);
	239	SCPYN(utmp.ut_line, rindex(ttyn, '/')+1);
	240	write(f, (char *)&utmp, sizeof(utmp));
	241	close(f);
	242	}
3b8dd95e	243	if (t > 0 && (f = open("/usr/adm/wtmp", 1)) >= 0) {
88a01c09 BJ	244	lseek(f, 0L, 2);
	245	write(f, (char *)&utmp, sizeof(utmp));
	246	close(f);
	247	}
3b8dd95e	248	quietlog = access(qlog, 0) == 0;
4f8d3876	249	if ((f = open(lastlog, 2)) >= 0) {
f570e1ff BJ	250	struct lastlog ll;
	251
	252	lseek(f, (long)pwd->pw_uid * sizeof (struct lastlog), 0);
	253	if (read(f, (char *) &ll, sizeof ll) == sizeof ll &&
3b8dd95e SL	254	ll.ll_time != 0 && !quietlog) {
	255	printf("Last login: %.*s ",
	256	24-5, (char *)ctime(&ll.ll_time));
	257	if (*ll.ll_host != '\0')
	258	printf("from %.*s\n",
	259	sizeof (ll.ll_host), ll.ll_host);
	260	else
	261	printf("on %.*s\n",
	262	sizeof (ll.ll_line), ll.ll_line);
f570e1ff BJ	263	}
	264	lseek(f, (long)pwd->pw_uid * sizeof (struct lastlog), 0);
	265	time(&ll.ll_time);
	266	SCPYN(ll.ll_line, rindex(ttyn, '/')+1);
3b8dd95e	267	SCPYN(ll.ll_host, utmp.ut_host);
f570e1ff BJ	268	write(f, (char *) &ll, sizeof ll);
	269	close(f);
	270	}
88a01c09	271	chown(ttyn, pwd->pw_uid, pwd->pw_gid);
3479a16a	272	chmod(ttyn, 0622);
88a01c09	273	setgid(pwd->pw_gid);
e5321f7b KM	274	strncpy(name, utmp.ut_name, NMAX);
e5321f7b KM	275	name[NMAX] = '\0';
b1198826	276	initgroups(name, pwd->pw_gid);
22d4760e	277	quota(Q_DOWARN, pwd->pw_uid, (dev_t)-1, 0);
88a01c09	278	setuid(pwd->pw_uid);
88a01c09 BJ	279	environ = envinit;
	280	strncat(homedir, pwd->pw_dir, sizeof(homedir)-6);
	281	strncat(shell, pwd->pw_shell, sizeof(shell)-7);
4f8d3876	282	if (term[strlen("TERM=")] == 0)
86eb6c9e	283	strncat(term, stypeof(ttyn), sizeof(term)-6);
f570e1ff	284	strncat(user, pwd->pw_name, sizeof(user)-6);
88a01c09 BJ	285	if ((namep = rindex(pwd->pw_shell, '/')) == NULL)
	286	namep = pwd->pw_shell;
	287	else
	288	namep++;
	289	strcat(minusnam, namep);
b4389814	290	umask(022);
4f8d3876	291	if (ttyn[sizeof("/dev/tty")-1] == 'd')
ea87b78e SL	292	logerr("DIALUP %s %s",
ea87b78e SL	293	ttyn+sizeof("/dev/")-1, pwd->pw_name);
4f8d3876	294	if (!quietlog) {
f570e1ff BJ	295	showmotd();
	296	strcat(maildir, pwd->pw_name);
	297	if (access(maildir,4)==0) {
	298	struct stat statb;
	299	stat(maildir, &statb);
	300	if (statb.st_size)
	301	printf("You have mail.\n");
	302	}
	303	}
3b8dd95e	304	signal(SIGALRM, SIG_DFL);
88a01c09 BJ	305	signal(SIGQUIT, SIG_DFL);
88a01c09 BJ	306	signal(SIGINT, SIG_DFL);
5f87416f	307	signal(SIGTSTP, SIG_IGN);
88a01c09	308	execlp(pwd->pw_shell, minusnam, 0);
f570e1ff	309	perror(pwd->pw_shell);
88a01c09 BJ	310	printf("No shell\n");
	311	exit(0);
	312	}
	313
3b8dd95e SL	314	getloginname(up)
	315	register struct utmp *up;
	316	{
	317	register char *namep;
5a786176	318	char c;
3b8dd95e	319
3b8dd95e SL	320	while (up->ut_name[0] == '\0') {
3b8dd95e SL	321	namep = utmp.ut_name;
5a786176	322	printf("login: ");
3b8dd95e SL	323	while ((c = getchar()) != '\n') {
	324	if (c == ' ')
	325	c = '_';
	326	if (c == EOF)
	327	exit(0);
	328	if (namep < up->ut_name+NMAX)
	329	*namep++ = c;
	330	}
	331	}
	332	setpwent();
	333	if ((pwd = getpwnam(utmp.ut_name)) == NULL)
	334	pwd = &nouser;
	335	endpwent();
	336	}
	337
	338	timedout()
	339	{
	340
	341	printf("Login timed out after %d seconds\n", timeout);
	342	exit(0);
	343	}
	344
88a01c09 BJ	345	int stopmotd;
	346	catch()
	347	{
1886582e	348
88a01c09 BJ	349	signal(SIGINT, SIG_IGN);
	350	stopmotd++;
	351	}
	352
f570e1ff	353	rootterm(tty)
1886582e	354	char *tty;
f570e1ff BJ	355	{
f570e1ff BJ	356	register FILE *fd;
1886582e	357	char buf[100];
f570e1ff BJ	358
	359	if ((fd = fopen(securetty, "r")) == NULL)
	360	return(1);
	361	while (fgets(buf, sizeof buf, fd) != NULL) {
	362	buf[strlen(buf)-1] = '\0';
	363	if (strcmp(tty, buf) == 0) {
	364	fclose(fd);
	365	return(1);
	366	}
	367	}
	368	fclose(fd);
	369	return(0);
	370	}
	371
88a01c09 BJ	372	showmotd()
	373	{
	374	FILE *mf;
	375	register c;
	376
	377	signal(SIGINT, catch);
f570e1ff BJ	378	if ((mf = fopen("/etc/motd","r")) != NULL) {
f570e1ff BJ	379	while ((c = getc(mf)) != EOF && stopmotd == 0)
88a01c09 BJ	380	putchar(c);
	381	fclose(mf);
	382	}
	383	signal(SIGINT, SIG_IGN);
	384	}
	385
f570e1ff	386	#undef UNKNOWN
88a01c09 BJ	387	#define UNKNOWN "su"
	388
	389	char *
	390	stypeof(ttyid)
3b8dd95e	391	char *ttyid;
88a01c09	392	{
3b8dd95e SL	393	static char typebuf[16];
	394	char buf[50];
	395	register FILE *f;
	396	register char p, t, *q;
88a01c09 BJ	397
	398	if (ttyid == NULL)
	399	return (UNKNOWN);
	400	f = fopen("/etc/ttytype", "r");
	401	if (f == NULL)
	402	return (UNKNOWN);
	403	/* split off end of name */
	404	for (p = q = ttyid; *p != 0; p++)
	405	if (*p == '/')
	406	q = p + 1;
	407
	408	/* scan the file */
3b8dd95e SL	409	while (fgets(buf, sizeof buf, f) != NULL) {
3b8dd95e SL	410	for (t = buf; t != ' ' && t != '\t'; t++)
88a01c09 BJ	411	;
88a01c09 BJ	412	*t++ = 0;
f570e1ff BJ	413	while (t == ' ' \|\| t == '\t')
f570e1ff BJ	414	t++;
3b8dd95e	415	for (p = t; *p > ' '; p++)
88a01c09 BJ	416	;
88a01c09 BJ	417	*p = 0;
3b8dd95e	418	if (strcmp(q,t) == 0) {
88a01c09 BJ	419	strcpy(typebuf, buf);
	420	fclose(f);
	421	return (typebuf);
	422	}
	423	}
	424	fclose (f);
	425	return (UNKNOWN);
	426	}
86eb6c9e	427
3b8dd95e SL	428	doremotelogin(host)
	429	char *host;
	430	{
	431	FILE *hostf;
	432	int first = 1;
	433
	434	getstr(rusername, sizeof (rusername), "remuser");
	435	getstr(lusername, sizeof (lusername), "locuser");
	436	getstr(term+5, sizeof(term)-5, "Terminal type");
4cf9fc9e SL	437	if (getuid()) {
4cf9fc9e SL	438	pwd = &nouser;
3b8dd95e	439	goto bad;
4cf9fc9e	440	}
3b8dd95e SL	441	setpwent();
	442	pwd = getpwnam(lusername);
	443	endpwent();
4cf9fc9e SL	444	if (pwd == NULL) {
4cf9fc9e SL	445	pwd = &nouser;
3b8dd95e	446	goto bad;
4cf9fc9e	447	}
3b8dd95e SL	448	hostf = pwd->pw_uid ? fopen("/etc/hosts.equiv", "r") : 0;
	449	again:
	450	if (hostf) {
	451	char ahost[32];
	452
	453	while (fgets(ahost, sizeof (ahost), hostf)) {
	454	char *user;
	455
	456	if ((user = index(ahost, '\n')) != 0)
	457	*user++ = '\0';
	458	if ((user = index(ahost, ' ')) != 0)
	459	*user++ = '\0';
	460	if (!strcmp(host, ahost) &&
	461	!strcmp(rusername, user ? user : lusername)) {
	462	fclose(hostf);
	463	return (1);
	464	}
	465	}
	466	fclose(hostf);
	467	}
	468	if (first == 1) {
	469	char *rhosts = ".rhosts";
	470	struct stat sbuf;
	471
	472	first = 0;
	473	if (chdir(pwd->pw_dir) < 0)
	474	goto again;
	475	if (lstat(rhosts, &sbuf) < 0)
	476	goto again;
	477	if ((sbuf.st_mode & S_IFMT) == S_IFLNK) {
	478	printf("login: .rhosts is a soft link.\r\n");
	479	goto bad;
	480	}
	481	hostf = fopen(rhosts, "r");
	482	fstat(fileno(hostf), &sbuf);
	483	if (sbuf.st_uid && sbuf.st_uid != pwd->pw_uid) {
	484	printf("login: Bad .rhosts ownership.\r\n");
	485	fclose(hostf);
	486	goto bad;
	487	}
	488	goto again;
	489	}
	490	bad:
	491	return (-1);
	492	}
	493
86eb6c9e BJ	494	getstr(buf, cnt, err)
	495	char *buf;
	496	int cnt;
	497	char *err;
	498	{
	499	char c;
	500
	501	do {
	502	if (read(0, &c, 1) != 1)
	503	exit(1);
	504	if (--cnt < 0) {
	505	printf("%s too long\r\n", err);
	506	exit(1);
	507	}
	508	*buf++ = c;
	509	} while (c != 0);
	510	}
4f8d3876	511
3b8dd95e SL	512	char *speeds[] =
	513	{ "0", "50", "75", "110", "134", "150", "200", "300",
	514	"600", "1200", "1800", "2400", "4800", "9600", "19200", "38400" };
	515	#define NSPEEDS (sizeof (speeds) / sizeof (speeds[0]))
	516
	517	doremoteterm(term, tp)
	518	char *term;
	519	struct sgttyb *tp;
	520	{
	521	char *cp = index(term, '/');
	522	register int i;
	523
	524	if (cp) {
	525	*cp++ = 0;
	526	for (i = 0; i < NSPEEDS; i++)
	527	if (!strcmp(speeds[i], cp)) {
	528	tp->sg_ispeed = tp->sg_ospeed = i;
	529	break;
	530	}
	531	}
	532	tp->sg_flags = ECHO\|CRMOD\|ANYP\|XTABS;
	533	}
	534
4f8d3876 BJ	535	logerr(fmt, a1, a2, a3)
	536	char fmt, a1, a2, a3;
	537	{
da9c63f2 SL	538	#ifdef LOGERR
da9c63f2 SL	539	FILE *cons = fopen("/dev/console", "w");
4f8d3876	540
da9c63f2 SL	541	if (cons != NULL) {
da9c63f2 SL	542	fprintf(cons, fmt, a1, a2, a3);
ea87b78e	543	fprintf(cons, "\n\r");
da9c63f2 SL	544	fclose(cons);
	545	}
	546	#endif
4f8d3876	547	}