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

static	char *sccsid = "@(#)login.c	4.9 (Berkeley) %G%";
/*
 * login [ name ]
 */

#include <sys/types.h>
#include <sgtty.h>
#include <utmp.h>
#include <signal.h>
#include <pwd.h>
#include <stdio.h>
#include <sys/stat.h>
#include <lastlog.h>
#include <whoami.h>
#define SCPYN(a, b)	strncpy(a, b, sizeof(a))

#define NMAX sizeof(utmp.ut_name)
#define LMAX sizeof(utmp.ut_line)

char	user[20];
char	maildir[30] =	"/usr/spool/mail/";
char	lastlog[] =	"/usr/adm/lastlog";
struct	passwd nouser = {"", "nope"};
struct	sgttyb ttyb;
struct	utmp utmp;
char	minusnam[16] = "-";
char	homedir[64] = "HOME=";
char	shell[64] = "SHELL=";
char	term[64] = "TERM=";
char	*envinit[] = {homedir, shell, "PATH=:/usr/ucb:/bin:/usr/bin", term, user,0};
struct	passwd *pwd;

struct	passwd *getpwnam();
char	*strcat();
int	setpwent();
char	*ttyname();
char	*crypt();
char	*getpass();
char	*rindex();
char	*stypeof();
extern	char **environ;

#define	CTRL(c)	('c'&037)
#define	CERASE	'#'
#define	CEOT	CTRL(d)
#define	CKILL	'@'
#define	CQUIT	034		/* FS, cntl shift L */
#define	CINTR	0177		/* DEL */
#define	CSTOP	CTRL(s)
#define	CSTART	CTRL(q)
#define	CBRK	0377
struct	tchars tc = {
	CINTR, CQUIT, CSTART, CSTOP, CEOT, CBRK
};
struct	ltchars ltc = {
	CTRL(z), CTRL(y), CTRL(r), CTRL(o), CTRL(w), CTRL(v)
};

main(argc, argv)
char **argv;
{
	register char *namep;
	int t, f, c;
	char *ttyn;
	int ldisc = 0;

	alarm(60);
	signal(SIGQUIT, SIG_IGN);
	signal(SIGINT, SIG_IGN);
	nice(-100);
	nice(20);
	nice(0);
	ioctl(0, TIOCLSET, 0);
	ioctl(0, TIOCNXCL, 0);
	gtty(0, &ttyb);
	ttyb.sg_erase = '#';
	ttyb.sg_kill = '@';
	stty(0, &ttyb);
	ioctl(0, TIOCSETC, &tc);
	ioctl(0, TIOCSLTC, &ltc);
	for (t=3; t<20; t++)
		close(t);
	ttyn = ttyname(0);
	if (ttyn==0)
		ttyn = "/dev/tty??";

    loop:
	ldisc = 0;
	ioctl(0, TIOCSETD, &ldisc);
	SCPYN(utmp.ut_name, "");
	if (argc>1) {
		SCPYN(utmp.ut_name, argv[1]);
		argc = 0;
	}
	while (utmp.ut_name[0] == '\0') {
		namep = utmp.ut_name;
		printf("login: ");
		while ((c = getchar()) != '\n') {
			if(c == ' ')
				c = '_';
			if (c == EOF)
				exit(0);
			if (namep < utmp.ut_name+NMAX)
				*namep++ = c;
		}
	}
	setpwent();
	if ((pwd = getpwnam(utmp.ut_name)) == NULL)
		pwd = &nouser;
	endpwent();
	if (!strcmp(pwd->pw_shell, "/bin/csh")) {
		ldisc = NTTYDISC;
		ioctl(0, TIOCSETD, &ldisc);
	}
	if (*pwd->pw_passwd != '\0') {
		nice(-4);
		namep = crypt(getpass("Password:"),pwd->pw_passwd);
		nice(4);
		if (strcmp(namep, pwd->pw_passwd)) {
bad:
			printf("Login incorrect\n");
			if (ttyn[LMAX] == 'd') {
				FILE *console = fopen("/dev/console", "w");
				if (console != NULL) {
					fprintf(console, "\r\nBADDIALUP %s %s\r\n", ttyn+5, utmp.ut_name);
					fclose(console);
				}
			}
			goto loop;
		}
	}
	sprintf(user, "USER=%.*s", NMAX, pwd->pw_name);
#ifdef ERNIE
	if (pwd->pw_uid == 0 && ttyn[5] != 'c')
		goto bad;
#endif
	if (ttyn[LMAX] == 'd') {
		FILE *console = fopen("/dev/console", "w");
		if (console != NULL) {
			fprintf(console, "\r\nDIALUP %s %s\r\n", ttyn+5, pwd->pw_name);
			fclose(console);
		}
	}
	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) {
			register char *ep = (char *) ctime(&ll.ll_time);
			printf("Last login: ");
			ep[24 - 5] = 0;
			printf("%s on %.*s\n", ep, LMAX, ll.ll_line);
		}
		lseek(f, (long) pwd->pw_uid * sizeof (struct lastlog), 0);
		time(&ll.ll_time);
		strcpyn(ll.ll_line, ttyn+5, LMAX);
		write(f, (char *) &ll, sizeof ll);
		close(f);
	}
	if(chdir(pwd->pw_dir) < 0) {
	    printf("Logging with home=/\n");
	    pwd->pw_dir = "/";
	    if(chdir("/") < 0) {
		printf("No directory\n");
		goto loop;
	    }
	}
	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);
	}
	chown(ttyn, pwd->pw_uid, pwd->pw_gid);
	setgid(pwd->pw_gid);
	setuid(pwd->pw_uid);
	if (*pwd->pw_shell == '\0')
		pwd->pw_shell = "/bin/sh";
	environ = envinit;
	strncat(homedir, pwd->pw_dir, sizeof(homedir)-6);
	strncat(shell, pwd->pw_shell, sizeof(shell)-7);
	strncat(term, stypeof(ttyn), sizeof(term)-6);
	if ((namep = rindex(pwd->pw_shell, '/')) == NULL)
		namep = pwd->pw_shell;
	else
		namep++;
	strcat(minusnam, namep);
	alarm(0);
#ifdef ARPAVAX
	if (pwd->pw_gid == 31)
		umask(2);
	else
#else
		umask(022);
#endif
	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(SIGQUIT, SIG_DFL);
	signal(SIGINT, SIG_DFL);
	execlp(pwd->pw_shell, minusnam, 0);
	printf("No shell\n");
	exit(0);
}

int	stopmotd;
catch()
{
	signal(SIGINT, SIG_IGN);
	stopmotd++;
}

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);
}

#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++ = 0;
		for (p=t; *p>' '; p++)
			;
		*p = 0;
		if (strcmp(q,t)==0) {
			strcpy(typebuf, buf);
			fclose(f);
			return (typebuf);
		}
	}
	fclose (f);
	return (UNKNOWN);
}
Commit	Line	Data
6f01c426	1	static char *sccsid = "@(#)login.c 4.9 (Berkeley) %G%";
88a01c09 BJ	2	/*
	3	* login [ name ]
	4	*/
	5
	6	#include <sys/types.h>
	7	#include <sgtty.h>
	8	#include <utmp.h>
	9	#include <signal.h>
	10	#include <pwd.h>
	11	#include <stdio.h>
	12	#include <sys/stat.h>
	13	#include <lastlog.h>
ed2fd28a	14	#include <whoami.h>
88a01c09 BJ	15	#define SCPYN(a, b) strncpy(a, b, sizeof(a))
	16
	17	#define NMAX sizeof(utmp.ut_name)
	18	#define LMAX sizeof(utmp.ut_line)
	19
	20	char user[20];
	21	char maildir[30] = "/usr/spool/mail/";
	22	char lastlog[] = "/usr/adm/lastlog";
	23	struct passwd nouser = {"", "nope"};
	24	struct sgttyb ttyb;
	25	struct utmp utmp;
	26	char minusnam[16] = "-";
	27	char homedir[64] = "HOME=";
	28	char shell[64] = "SHELL=";
	29	char term[64] = "TERM=";
	30	char *envinit[] = {homedir, shell, "PATH=:/usr/ucb:/bin:/usr/bin", term, user,0};
	31	struct passwd *pwd;
	32
	33	struct passwd *getpwnam();
	34	char *strcat();
	35	int setpwent();
	36	char *ttyname();
	37	char *crypt();
	38	char *getpass();
	39	char *rindex();
	40	char *stypeof();
	41	extern char **environ;
	42
841d84b0 BJ	43	#define CTRL(c) ('c'&037)
	44	#define CERASE '#'
	45	#define CEOT CTRL(d)
	46	#define CKILL '@'
	47	#define CQUIT 034 /* FS, cntl shift L */
	48	#define CINTR 0177 /* DEL */
	49	#define CSTOP CTRL(s)
	50	#define CSTART CTRL(q)
	51	#define CBRK 0377
	52	struct tchars tc = {
	53	CINTR, CQUIT, CSTART, CSTOP, CEOT, CBRK
	54	};
	55	struct ltchars ltc = {
1113d588	56	CTRL(z), CTRL(y), CTRL(r), CTRL(o), CTRL(w), CTRL(v)
841d84b0 BJ	57	};
841d84b0 BJ	58
88a01c09 BJ	59	main(argc, argv)
	60	char **argv;
	61	{
	62	register char *namep;
	63	int t, f, c;
	64	char *ttyn;
	65	int ldisc = 0;
	66
	67	alarm(60);
	68	signal(SIGQUIT, SIG_IGN);
	69	signal(SIGINT, SIG_IGN);
	70	nice(-100);
	71	nice(20);
	72	nice(0);
	73	ioctl(0, TIOCLSET, 0);
c95ed2b2	74	ioctl(0, TIOCNXCL, 0);
88a01c09 BJ	75	gtty(0, &ttyb);
	76	ttyb.sg_erase = '#';
	77	ttyb.sg_kill = '@';
	78	stty(0, &ttyb);
841d84b0 BJ	79	ioctl(0, TIOCSETC, &tc);
841d84b0 BJ	80	ioctl(0, TIOCSLTC, &ltc);
88a01c09 BJ	81	for (t=3; t<20; t++)
	82	close(t);
	83	ttyn = ttyname(0);
	84	if (ttyn==0)
	85	ttyn = "/dev/tty??";
	86
	87	loop:
c95ed2b2 BJ	88	ldisc = 0;
c95ed2b2 BJ	89	ioctl(0, TIOCSETD, &ldisc);
88a01c09 BJ	90	SCPYN(utmp.ut_name, "");
	91	if (argc>1) {
	92	SCPYN(utmp.ut_name, argv[1]);
	93	argc = 0;
	94	}
	95	while (utmp.ut_name[0] == '\0') {
	96	namep = utmp.ut_name;
	97	printf("login: ");
	98	while ((c = getchar()) != '\n') {
	99	if(c == ' ')
	100	c = '_';
	101	if (c == EOF)
	102	exit(0);
	103	if (namep < utmp.ut_name+NMAX)
	104	*namep++ = c;
	105	}
	106	}
	107	setpwent();
	108	if ((pwd = getpwnam(utmp.ut_name)) == NULL)
	109	pwd = &nouser;
	110	endpwent();
c95ed2b2 BJ	111	if (!strcmp(pwd->pw_shell, "/bin/csh")) {
	112	ldisc = NTTYDISC;
	113	ioctl(0, TIOCSETD, &ldisc);
	114	}
88a01c09	115	if (*pwd->pw_passwd != '\0') {
c95ed2b2	116	nice(-4);
88a01c09	117	namep = crypt(getpass("Password:"),pwd->pw_passwd);
c95ed2b2	118	nice(4);
88a01c09 BJ	119	if (strcmp(namep, pwd->pw_passwd)) {
	120	bad:
	121	printf("Login incorrect\n");
	122	if (ttyn[LMAX] == 'd') {
	123	FILE *console = fopen("/dev/console", "w");
	124	if (console != NULL) {
	125	fprintf(console, "\r\nBADDIALUP %s %s\r\n", ttyn+5, utmp.ut_name);
	126	fclose(console);
	127	}
	128	}
	129	goto loop;
	130	}
	131	}
	132	sprintf(user, "USER=%.*s", NMAX, pwd->pw_name);
ed2fd28a	133	#ifdef ERNIE
88a01c09 BJ	134	if (pwd->pw_uid == 0 && ttyn[5] != 'c')
88a01c09 BJ	135	goto bad;
ed2fd28a	136	#endif
88a01c09 BJ	137	if (ttyn[LMAX] == 'd') {
	138	FILE *console = fopen("/dev/console", "w");
	139	if (console != NULL) {
	140	fprintf(console, "\r\nDIALUP %s %s\r\n", ttyn+5, pwd->pw_name);
	141	fclose(console);
	142	}
	143	}
	144	if((f = open(lastlog, 2)) >= 0) {
	145	struct lastlog ll;
	146
bb4438c6	147	lseek(f, (long) pwd->pw_uid * sizeof (struct lastlog), 0);
88a01c09 BJ	148	if (read(f, (char *) &ll, sizeof ll) == sizeof ll && ll.ll_time != 0) {
	149	register char ep = (char ) ctime(&ll.ll_time);
	150	printf("Last login: ");
	151	ep[24 - 5] = 0;
	152	printf("%s on %.*s\n", ep, LMAX, ll.ll_line);
	153	}
bb4438c6	154	lseek(f, (long) pwd->pw_uid * sizeof (struct lastlog), 0);
88a01c09 BJ	155	time(&ll.ll_time);
	156	strcpyn(ll.ll_line, ttyn+5, LMAX);
	157	write(f, (char *) &ll, sizeof ll);
	158	close(f);
	159	}
	160	if(chdir(pwd->pw_dir) < 0) {
2263b1b2 BJ	161	printf("Logging with home=/\n");
	162	pwd->pw_dir = "/";
	163	if(chdir("/") < 0) {
88a01c09 BJ	164	printf("No directory\n");
88a01c09 BJ	165	goto loop;
006867f2	166	}
88a01c09 BJ	167	}
	168	time(&utmp.ut_time);
	169	t = ttyslot();
	170	if (t>0 && (f = open("/etc/utmp", 1)) >= 0) {
	171	lseek(f, (long)(t*sizeof(utmp)), 0);
	172	SCPYN(utmp.ut_line, rindex(ttyn, '/')+1);
	173	write(f, (char *)&utmp, sizeof(utmp));
	174	close(f);
	175	}
	176	if (t>0 && (f = open("/usr/adm/wtmp", 1)) >= 0) {
	177	lseek(f, 0L, 2);
	178	write(f, (char *)&utmp, sizeof(utmp));
	179	close(f);
	180	}
	181	chown(ttyn, pwd->pw_uid, pwd->pw_gid);
	182	setgid(pwd->pw_gid);
	183	setuid(pwd->pw_uid);
	184	if (*pwd->pw_shell == '\0')
	185	pwd->pw_shell = "/bin/sh";
	186	environ = envinit;
	187	strncat(homedir, pwd->pw_dir, sizeof(homedir)-6);
	188	strncat(shell, pwd->pw_shell, sizeof(shell)-7);
	189	strncat(term, stypeof(ttyn), sizeof(term)-6);
	190	if ((namep = rindex(pwd->pw_shell, '/')) == NULL)
	191	namep = pwd->pw_shell;
	192	else
	193	namep++;
	194	strcat(minusnam, namep);
	195	alarm(0);
6f01c426 BJ	196	#ifdef ARPAVAX
	197	if (pwd->pw_gid == 31)
	198	umask(2);
	199	else
	200	#else
	201	umask(022);
	202	#endif
88a01c09 BJ	203	showmotd();
	204	strcat(maildir, pwd->pw_name);
	205	if(access(maildir,4)==0) {
	206	struct stat statb;
	207	stat(maildir, &statb);
	208	if (statb.st_size)
	209	printf("You have mail.\n");
	210	}
	211	signal(SIGQUIT, SIG_DFL);
	212	signal(SIGINT, SIG_DFL);
	213	execlp(pwd->pw_shell, minusnam, 0);
	214	printf("No shell\n");
	215	exit(0);
	216	}
	217
	218	int stopmotd;
	219	catch()
	220	{
	221	signal(SIGINT, SIG_IGN);
	222	stopmotd++;
	223	}
	224
	225	showmotd()
	226	{
	227	FILE *mf;
	228	register c;
	229
	230	signal(SIGINT, catch);
	231	if((mf = fopen("/etc/motd","r")) != NULL) {
	232	while((c = getc(mf)) != EOF && stopmotd == 0)
	233	putchar(c);
	234	fclose(mf);
	235	}
	236	signal(SIGINT, SIG_IGN);
	237	}
	238
	239	#define UNKNOWN "su"
	240
	241	char *
	242	stypeof(ttyid)
	243	char *ttyid;
	244	{
	245	static char typebuf[16];
	246	char buf[50];
	247	register FILE *f;
	248	register char p, t, *q;
	249
	250	if (ttyid == NULL)
	251	return (UNKNOWN);
	252	f = fopen("/etc/ttytype", "r");
	253	if (f == NULL)
	254	return (UNKNOWN);
	255	/* split off end of name */
	256	for (p = q = ttyid; *p != 0; p++)
	257	if (*p == '/')
	258	q = p + 1;
	259
	260	/* scan the file */
	261	while (fgets(buf, sizeof buf, f) != NULL)
	262	{
	263	for (t=buf; *t!=' '; t++)
	264	;
	265	*t++ = 0;
	266	for (p=t; *p>' '; p++)
267	;
268	*p = 0;
269	if (strcmp(q,t)==0) {
270	strcpy(typebuf, buf);
271	fclose(f);
272	return (typebuf);
273	}
274	}
275	fclose (f);
276	return (UNKNOWN);
277	}