Home | History | Annotate | Line # | Download | only in login
login_pam.c revision 1.19
      1 /*     $NetBSD: login_pam.c,v 1.19 2008/07/21 14:19:23 lukem Exp $       */
      2 
      3 /*-
      4  * Copyright (c) 1980, 1987, 1988, 1991, 1993, 1994
      5  *	The Regents of the University of California.  All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  * 3. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 #ifndef lint
     34 __COPYRIGHT("@(#) Copyright (c) 1980, 1987, 1988, 1991, 1993, 1994\
     35  The Regents of the University of California.  All rights reserved.");
     36 #endif /* not lint */
     37 
     38 #ifndef lint
     39 #if 0
     40 static char sccsid[] = "@(#)login.c	8.4 (Berkeley) 4/2/94";
     41 #endif
     42 __RCSID("$NetBSD: login_pam.c,v 1.19 2008/07/21 14:19:23 lukem Exp $");
     43 #endif /* not lint */
     44 
     45 /*
     46  * login [ name ]
     47  * login -h hostname	(for telnetd, etc.)
     48  * login -f name	(for pre-authenticated login: datakit, xterm, etc.)
     49  */
     50 
     51 #include <sys/param.h>
     52 #include <sys/stat.h>
     53 #include <sys/time.h>
     54 #include <sys/resource.h>
     55 #include <sys/file.h>
     56 #include <sys/wait.h>
     57 #include <sys/socket.h>
     58 
     59 #include <err.h>
     60 #include <errno.h>
     61 #include <grp.h>
     62 #include <pwd.h>
     63 #include <setjmp.h>
     64 #include <signal.h>
     65 #include <stdio.h>
     66 #include <stdlib.h>
     67 #include <string.h>
     68 #include <syslog.h>
     69 #include <time.h>
     70 #include <ttyent.h>
     71 #include <tzfile.h>
     72 #include <unistd.h>
     73 #include <util.h>
     74 #include <login_cap.h>
     75 #include <vis.h>
     76 
     77 #include <security/pam_appl.h>
     78 #include <security/openpam.h>
     79 
     80 #include "pathnames.h"
     81 
     82 void	 badlogin (char *);
     83 static void	 update_db (int);
     84 void	 getloginname (void);
     85 int	 main (int, char *[]);
     86 void	 motd (char *);
     87 int	 rootterm (char *);
     88 void	 sigint (int);
     89 void	 sleepexit (int);
     90 const	 char *stypeof (const char *);
     91 void	 timedout (int);
     92 void	 decode_ss (const char *);
     93 void	 usage (void);
     94 
     95 static struct pam_conv pamc = { openpam_ttyconv, NULL };
     96 
     97 #define	TTYGRPNAME	"tty"		/* name of group to own ttys */
     98 
     99 #define DEFAULT_BACKOFF 3
    100 #define DEFAULT_RETRIES 10
    101 
    102 /*
    103  * This bounds the time given to login.  Not a define so it can
    104  * be patched on machines where it's too small.
    105  */
    106 u_int	timeout = 300;
    107 
    108 struct	passwd *pwd, pwres;
    109 char	pwbuf[1024];
    110 struct	group grs, *grp;
    111 char	grbuf[1024];
    112 int	failures, have_ss;
    113 char	term[64], *envinit[1], *hostname, *username, *tty, *nested;
    114 struct timeval now;
    115 struct sockaddr_storage ss;
    116 
    117 extern const char copyrightstr[];
    118 
    119 int
    120 main(int argc, char *argv[])
    121 {
    122 	extern char **environ;
    123 	struct stat st;
    124 	int ask, ch, cnt, fflag, pflag, quietlog, rootlogin;
    125 	int auth_passed;
    126 	uid_t uid, saved_uid;
    127 	gid_t saved_gid, saved_gids[NGROUPS_MAX];
    128 	int nsaved_gids;
    129 	char *domain, *p, *ttyn, *pwprompt;
    130 	char tbuf[MAXPATHLEN + 2], tname[sizeof(_PATH_TTY) + 10];
    131 	char localhost[MAXHOSTNAMELEN + 1];
    132 	int need_chpass, require_chpass;
    133 	int login_retries = DEFAULT_RETRIES,
    134 	    login_backoff = DEFAULT_BACKOFF;
    135 	char *shell = NULL;
    136 	login_cap_t *lc = NULL;
    137 	pam_handle_t *pamh = NULL;
    138 	int pam_err;
    139 	sig_t oint, oabrt, oquit, oalrm;
    140 	const void *newuser;
    141 	int pam_silent = PAM_SILENT;
    142 	pid_t xpid, pid;
    143 	int status;
    144 	char *saved_term;
    145 	char **pamenv;
    146 
    147 	tbuf[0] = '\0';
    148 	pwprompt = NULL;
    149 	nested = NULL;
    150 	need_chpass = require_chpass = 0;
    151 
    152 	oabrt = signal(SIGABRT, SIG_IGN);
    153 	oalrm = signal(SIGALRM, timedout);
    154 	oint = signal(SIGINT, SIG_IGN);
    155 	oquit = signal(SIGQUIT, SIG_IGN);
    156 
    157 	(void)alarm(timeout);
    158 	(void)setpriority(PRIO_PROCESS, 0, 0);
    159 
    160 	openlog("login", 0, LOG_AUTH);
    161 
    162 	/*
    163 	 * -p is used by getty to tell login not to destroy the environment
    164 	 * -f is used to skip a second login authentication
    165 	 * -h is used by other servers to pass the name of the remote host to
    166 	 *    login so that it may be placed in utmp/utmpx and wtmp/wtmpx
    167 	 * -a in addition to -h, a server my supply -a to pass the actual
    168 	 *    server address.
    169 	 */
    170 	domain = NULL;
    171 	if (gethostname(localhost, sizeof(localhost)) < 0)
    172 		syslog(LOG_ERR, "couldn't get local hostname: %m");
    173 	else
    174 		domain = strchr(localhost, '.');
    175 	localhost[sizeof(localhost) - 1] = '\0';
    176 
    177 	fflag = pflag = 0;
    178 	have_ss = 0;
    179 	uid = getuid();
    180 	while ((ch = getopt(argc, argv, "a:fh:p")) != -1)
    181 		switch (ch) {
    182 		case 'a':
    183 			if (uid) {
    184 				errno = EPERM;
    185 				err(EXIT_FAILURE, "-a option");
    186 			}
    187 			decode_ss(optarg);
    188 #ifdef notdef
    189 			(void)sockaddr_snprintf(optarg,
    190 			    sizeof(struct sockaddr_storage), "%a", (void *)&ss);
    191 #endif
    192 			break;
    193 		case 'f':
    194 			fflag = 1;
    195 			break;
    196 		case 'h':
    197 			if (uid) {
    198 				errno = EPERM;
    199 				err(EXIT_FAILURE, "-h option");
    200 			}
    201 			if (domain && (p = strchr(optarg, '.')) != NULL &&
    202 			    strcasecmp(p, domain) == 0)
    203 				*p = '\0';
    204 			hostname = optarg;
    205 			break;
    206 		case 'p':
    207 			pflag = 1;
    208 			break;
    209 		default:
    210 		case '?':
    211 			usage();
    212 			break;
    213 		}
    214 
    215 	setproctitle(NULL);
    216 	argc -= optind;
    217 	argv += optind;
    218 
    219 	if (*argv) {
    220 		username = *argv;
    221 		ask = 0;
    222 	} else
    223 		ask = 1;
    224 
    225 #ifdef F_CLOSEM
    226 	(void)fcntl(3, F_CLOSEM, 0);
    227 #else
    228 	for (cnt = getdtablesize(); cnt > 2; cnt--)
    229 		(void)close(cnt);
    230 #endif
    231 
    232 	ttyn = ttyname(STDIN_FILENO);
    233 	if (ttyn == NULL || *ttyn == '\0') {
    234 		(void)snprintf(tname, sizeof(tname), "%s??", _PATH_TTY);
    235 		ttyn = tname;
    236 	}
    237 	if ((tty = strstr(ttyn, "/pts/")) != NULL)
    238 		++tty;
    239 	else if ((tty = strrchr(ttyn, '/')) != NULL)
    240 		++tty;
    241 	else
    242 		tty = ttyn;
    243 
    244 	if (issetugid()) {
    245 		nested = strdup(user_from_uid(getuid(), 0));
    246 		if (nested == NULL) {
    247                 	syslog(LOG_ERR, "strdup: %m");
    248                 	sleepexit(EXIT_FAILURE);
    249 		}
    250 	}
    251 
    252 	/* Get "login-retries" and "login-backoff" from default class */
    253 	if ((lc = login_getclass(NULL)) != NULL) {
    254 		login_retries = (int)login_getcapnum(lc, "login-retries",
    255 		    DEFAULT_RETRIES, DEFAULT_RETRIES);
    256 		login_backoff = (int)login_getcapnum(lc, "login-backoff",
    257 		    DEFAULT_BACKOFF, DEFAULT_BACKOFF);
    258 		login_close(lc);
    259 		lc = NULL;
    260 	}
    261 
    262 
    263 	for (cnt = 0;; ask = 1) {
    264 		if (ask) {
    265 			fflag = 0;
    266 			getloginname();
    267 		}
    268 		rootlogin = 0;
    269 		auth_passed = 0;
    270 		if (strlen(username) > MAXLOGNAME)
    271 			username[MAXLOGNAME] = '\0';
    272 
    273 		/*
    274 		 * Note if trying multiple user names; log failures for
    275 		 * previous user name, but don't bother logging one failure
    276 		 * for nonexistent name (mistyped username).
    277 		 */
    278 		if (failures && strcmp(tbuf, username)) {
    279 			if (failures > (pwd ? 0 : 1))
    280 				badlogin(tbuf);
    281 			failures = 0;
    282 		}
    283 
    284 #define PAM_END(msg) do { 						\
    285 	syslog(LOG_ERR, "%s: %s", msg, pam_strerror(pamh, pam_err)); 	\
    286 	warnx("%s: %s", msg, pam_strerror(pamh, pam_err));		\
    287 	pam_end(pamh, pam_err);						\
    288 	sleepexit(EXIT_FAILURE);					\
    289 } while (/*CONSTCOND*/0)
    290 
    291 		pam_err = pam_start("login", username, &pamc, &pamh);
    292 		if (pam_err != PAM_SUCCESS) {
    293 			if (pamh != NULL)
    294 				PAM_END("pam_start");
    295 			/* Things went really bad... */
    296 			syslog(LOG_ERR, "pam_start failed: %s",
    297 			    pam_strerror(pamh, pam_err));
    298 			errx(EXIT_FAILURE, "pam_start failed");
    299 		}
    300 
    301 #define PAM_SET_ITEM(item, var)	do {					\
    302 	pam_err = pam_set_item(pamh, (item), (var));			\
    303 	if (pam_err != PAM_SUCCESS)					\
    304 		PAM_END("pam_set_item(" # item ")");			\
    305 } while (/*CONSTCOND*/0)
    306 
    307 		/*
    308 		 * Fill hostname tty, and nested user
    309 		 */
    310 		PAM_SET_ITEM(PAM_RHOST, hostname);
    311 		PAM_SET_ITEM(PAM_TTY, tty);
    312 		if (nested)
    313 			PAM_SET_ITEM(PAM_NUSER, nested);
    314 		if (have_ss)
    315 			PAM_SET_ITEM(PAM_SOCKADDR, &ss);
    316 
    317 		/*
    318 		 * Don't check for errors, because we don't want to give
    319 		 * out any information.
    320 		 */
    321 		pwd = NULL;
    322 		(void)getpwnam_r(username, &pwres, pwbuf, sizeof(pwbuf), &pwd);
    323 
    324 		/*
    325 		 * Establish the class now, before we might goto
    326 		 * within the next block. pwd can be NULL since it
    327 		 * falls back to the "default" class if it is.
    328 		 */
    329 		lc = login_getclass(pwd ? pwd->pw_class : NULL);
    330 
    331 		/*
    332 		 * if we have a valid account name, and it doesn't have a
    333 		 * password, or the -f option was specified and the caller
    334 		 * is root or the caller isn't changing their uid, don't
    335 		 * authenticate.
    336 		 */
    337 		if (pwd) {
    338 			if (pwd->pw_uid == 0)
    339 				rootlogin = 1;
    340 
    341 			if (fflag && (uid == 0 || uid == pwd->pw_uid)) {
    342 				/* already authenticated */
    343 				auth_passed = 1;
    344 				goto skip_auth;
    345 			}
    346 		}
    347 
    348 		(void)setpriority(PRIO_PROCESS, 0, -4);
    349 
    350 		switch(pam_err = pam_authenticate(pamh, pam_silent)) {
    351 		case PAM_SUCCESS:
    352 			/*
    353 			 * PAM can change the user, refresh
    354 			 * username, pwd, and lc.
    355 			 */
    356 			pam_err = pam_get_item(pamh, PAM_USER, &newuser);
    357 			if (pam_err != PAM_SUCCESS)
    358 				PAM_END("pam_get_item(PAM_USER)");
    359 
    360 			username = (char *)newuser;
    361 			/*
    362 			 * Don't check for errors, because we don't want to give
    363 			 * out any information.
    364 			 */
    365 			pwd = NULL;
    366 			(void)getpwnam_r(username, &pwres, pwbuf, sizeof(pwbuf),
    367 			    &pwd);
    368 			lc = login_getpwclass(pwd);
    369 			auth_passed = 1;
    370 
    371 			switch (pam_err = pam_acct_mgmt(pamh, pam_silent)) {
    372 			case PAM_SUCCESS:
    373 				break;
    374 
    375 			case PAM_NEW_AUTHTOK_REQD:
    376 				pam_err = pam_chauthtok(pamh,
    377 				    pam_silent|PAM_CHANGE_EXPIRED_AUTHTOK);
    378 
    379 				if (pam_err != PAM_SUCCESS)
    380 					PAM_END("pam_chauthtok");
    381 				break;
    382 
    383 			case PAM_AUTH_ERR:
    384 			case PAM_USER_UNKNOWN:
    385 			case PAM_MAXTRIES:
    386 				auth_passed = 0;
    387 				break;
    388 
    389 			default:
    390 				PAM_END("pam_acct_mgmt");
    391 				break;
    392 			}
    393 			break;
    394 
    395 		case PAM_AUTH_ERR:
    396 		case PAM_USER_UNKNOWN:
    397 		case PAM_MAXTRIES:
    398 			auth_passed = 0;
    399 			break;
    400 
    401 		default:
    402 			PAM_END("pam_authenticate");
    403 			break;
    404 		}
    405 
    406 		(void)setpriority(PRIO_PROCESS, 0, 0);
    407 
    408 skip_auth:
    409 		/*
    410 		 * If the user exists and authentication passed,
    411 		 * get out of the loop and login the user.
    412 		 */
    413 		if (pwd && auth_passed)
    414 			break;
    415 
    416 		(void)printf("Login incorrect or refused on this terminal.\n");
    417 		failures++;
    418 		cnt++;
    419 		/*
    420 		 * We allow login_retries tries, but after login_backoff
    421 		 * we start backing off.  These default to 10 and 3
    422 		 * respectively.
    423 		 */
    424 		if (cnt > login_backoff) {
    425 			if (cnt >= login_retries) {
    426 				badlogin(username);
    427 				pam_end(pamh, PAM_SUCCESS);
    428 				sleepexit(EXIT_FAILURE);
    429 			}
    430 			sleep((u_int)((cnt - login_backoff) * 5));
    431 		}
    432 	}
    433 
    434 	/* committed to login -- turn off timeout */
    435 	(void)alarm((u_int)0);
    436 
    437 	endpwent();
    438 
    439         quietlog = login_getcapbool(lc, "hushlogin", 0);
    440 
    441 	/*
    442 	 * Temporarily give up special privileges so we can change
    443 	 * into NFS-mounted homes that are exported for non-root
    444 	 * access and have mode 7x0
    445 	 */
    446 	saved_uid = geteuid();
    447 	saved_gid = getegid();
    448 	nsaved_gids = getgroups(NGROUPS_MAX, saved_gids);
    449 
    450 	(void)setegid(pwd->pw_gid);
    451 	initgroups(username, pwd->pw_gid);
    452 	(void)seteuid(pwd->pw_uid);
    453 
    454 	if (chdir(pwd->pw_dir) != 0) {
    455                 if (login_getcapbool(lc, "requirehome", 0)) {
    456 			(void)printf("Home directory %s required\n",
    457 			    pwd->pw_dir);
    458 			pam_end(pamh, PAM_SUCCESS);
    459                         exit(EXIT_FAILURE);
    460 		}
    461 
    462 		(void)printf("No home directory %s!\n", pwd->pw_dir);
    463 		if (chdir("/") == -1) {
    464 			pam_end(pamh, PAM_SUCCESS);
    465 			exit(EXIT_FAILURE);
    466 		}
    467 		pwd->pw_dir = "/";
    468 		(void)printf("Logging in with home = \"/\".\n");
    469 	}
    470 
    471 	if (!quietlog) {
    472 		quietlog = access(_PATH_HUSHLOGIN, F_OK) == 0;
    473 		pam_silent = quietlog ? PAM_SILENT : 0;
    474 	}
    475 
    476 	/* regain special privileges */
    477 	setegid(saved_gid);
    478 	setgroups(nsaved_gids, saved_gids);
    479 	seteuid(saved_uid);
    480 
    481 	(void)getgrnam_r(TTYGRPNAME, &grs, grbuf, sizeof(grbuf), &grp);
    482 	(void)chown(ttyn, pwd->pw_uid,
    483 	    (grp != NULL) ? grp->gr_gid : pwd->pw_gid);
    484 
    485 	if (ttyaction(ttyn, "login", pwd->pw_name))
    486 		(void)printf("Warning: ttyaction failed.\n");
    487 
    488 	/* Nothing else left to fail -- really log in. */
    489         update_db(quietlog);
    490 
    491 	if (nested == NULL && setusercontext(lc, pwd, pwd->pw_uid,
    492 	    LOGIN_SETLOGIN) != 0) {
    493 		syslog(LOG_ERR, "setusercontext failed");
    494 		pam_end(pamh, PAM_SUCCESS);
    495 		exit(EXIT_FAILURE);
    496 	}
    497 
    498 	if (tty[sizeof("tty")-1] == 'd')
    499 		syslog(LOG_INFO, "DIALUP %s, %s", tty, pwd->pw_name);
    500 
    501 	/* If fflag is on, assume caller/authenticator has logged root login. */
    502 	if (rootlogin && fflag == 0) {
    503 		if (hostname)
    504 			syslog(LOG_NOTICE, "ROOT LOGIN (%s) ON %s FROM %s",
    505 			    username, tty, hostname);
    506 		else
    507 			syslog(LOG_NOTICE, "ROOT LOGIN (%s) ON %s",
    508 			    username, tty);
    509 	}
    510 
    511 	/*
    512 	 * Establish groups
    513 	 */
    514 	if (setusercontext(lc, pwd, pwd->pw_uid, LOGIN_SETGROUP) != 0) {
    515 		syslog(LOG_ERR, "setusercontext failed");
    516 		pam_end(pamh, PAM_SUCCESS);
    517 		exit(EXIT_FAILURE);
    518 	}
    519 
    520 	pam_err = pam_setcred(pamh, pam_silent|PAM_ESTABLISH_CRED);
    521 	if (pam_err != PAM_SUCCESS)
    522 		PAM_END("pam_setcred");
    523 
    524 	pam_err = pam_open_session(pamh, pam_silent);
    525 	if (pam_err != PAM_SUCCESS)
    526 		PAM_END("pam_open_session");
    527 
    528 	/*
    529 	 * Fork because we need to call pam_closesession as root.
    530 	 * Make sure signals cannot kill the parent.
    531 	 * This has been handled in the begining of main.
    532 	 */
    533 
    534 	switch(pid = fork()) {
    535 	case -1:
    536 		pam_err = pam_close_session(pamh, 0);
    537 		if (pam_err != PAM_SUCCESS) {
    538 			syslog(LOG_ERR, "pam_close_session: %s",
    539 			    pam_strerror(pamh, pam_err));
    540 			warnx("pam_close_session: %s",
    541 			    pam_strerror(pamh, pam_err));
    542 		}
    543 		syslog(LOG_ERR, "fork failed: %m");
    544 		warn("fork failed");
    545 		pam_end(pamh, pam_err);
    546 		exit(EXIT_FAILURE);
    547 		break;
    548 
    549 	case 0: /* Child */
    550 		break;
    551 
    552 	default:
    553 		/*
    554 		 * Parent: wait for the child to terminate
    555 		 * and call pam_close_session.
    556 		 */
    557 		if ((xpid = waitpid(pid, &status, 0)) != pid) {
    558 			pam_err = pam_close_session(pamh, 0);
    559 			if (pam_err != PAM_SUCCESS) {
    560 				syslog(LOG_ERR,
    561 				    "pam_close_session: %s",
    562 				    pam_strerror(pamh, pam_err));
    563 				warnx("pam_close_session: %s",
    564 				    pam_strerror(pamh, pam_err));
    565 			}
    566 			pam_end(pamh, pam_err);
    567 			if (xpid != -1)
    568 				warnx("wrong PID: %d != %d", pid, xpid);
    569 			else
    570 				warn("wait for pid %d failed", pid);
    571 			exit(EXIT_FAILURE);
    572 		}
    573 
    574 		(void)signal(SIGABRT, oabrt);
    575 		(void)signal(SIGALRM, oalrm);
    576 		(void)signal(SIGINT, oint);
    577 		(void)signal(SIGQUIT, oquit);
    578 		if ((pam_err = pam_close_session(pamh, 0)) != PAM_SUCCESS) {
    579 			syslog(LOG_ERR, "pam_close_session: %s",
    580 			    pam_strerror(pamh, pam_err));
    581 			warnx("pam_close_session: %s",
    582 			    pam_strerror(pamh, pam_err));
    583 		}
    584 		pam_end(pamh, PAM_SUCCESS);
    585 		exit(EXIT_SUCCESS);
    586 		break;
    587 	}
    588 
    589 	/*
    590 	 * The child: starting here, we don't have to care about
    591 	 * handling PAM issues if we exit, the parent will do the
    592 	 * job when we exit.
    593          *
    594 	 * Destroy environment unless user has requested its preservation.
    595 	 * Try to preserve TERM anyway.
    596 	 */
    597 	saved_term = getenv("TERM");
    598 	if (!pflag) {
    599 		environ = envinit;
    600 		if (saved_term)
    601 			setenv("TERM", saved_term, 0);
    602 	}
    603 
    604 	if (*pwd->pw_shell == '\0')
    605 		pwd->pw_shell = _PATH_BSHELL;
    606 
    607 	shell = login_getcapstr(lc, "shell", pwd->pw_shell, pwd->pw_shell);
    608 	if (*shell == '\0')
    609 		shell = pwd->pw_shell;
    610 
    611 	if ((pwd->pw_shell = strdup(shell)) == NULL) {
    612 		syslog(LOG_ERR, "Cannot alloc mem");
    613 		exit(EXIT_FAILURE);
    614 	}
    615 
    616 	(void)setenv("HOME", pwd->pw_dir, 1);
    617 	(void)setenv("SHELL", pwd->pw_shell, 1);
    618 	if (term[0] == '\0') {
    619 		char *tt = (char *)stypeof(tty);
    620 
    621 		if (tt == NULL)
    622 			tt = login_getcapstr(lc, "term", NULL, NULL);
    623 
    624 		/* unknown term -> "su" */
    625 		(void)strlcpy(term, tt != NULL ? tt : "su", sizeof(term));
    626 	}
    627 	(void)setenv("TERM", term, 0);
    628 	(void)setenv("LOGNAME", pwd->pw_name, 1);
    629 	(void)setenv("USER", pwd->pw_name, 1);
    630 
    631 	/*
    632 	 * Add PAM environement
    633 	 */
    634 	if ((pamenv = pam_getenvlist(pamh)) != NULL) {
    635 		char **envitem;
    636 
    637 		for (envitem = pamenv; *envitem; envitem++) {
    638 			putenv(*envitem);
    639 			free(*envitem);
    640 		}
    641 
    642 		free(pamenv);
    643 	}
    644 
    645 	/* This drops root privs */
    646 	if (setusercontext(lc, pwd, pwd->pw_uid,
    647 	    (LOGIN_SETALL & ~LOGIN_SETLOGIN)) != 0) {
    648 		syslog(LOG_ERR, "setusercontext failed");
    649 		exit(EXIT_FAILURE);
    650 	}
    651 
    652 	if (!quietlog) {
    653 		char *fname;
    654 
    655 		fname = login_getcapstr(lc, "copyright", NULL, NULL);
    656 		if (fname != NULL && access(fname, F_OK) == 0)
    657 			motd(fname);
    658 		else
    659 			(void)printf("%s", copyrightstr);
    660 
    661                 fname = login_getcapstr(lc, "welcome", NULL, NULL);
    662                 if (fname == NULL || access(fname, F_OK) != 0)
    663                         fname = _PATH_MOTDFILE;
    664                 motd(fname);
    665 
    666 		(void)snprintf(tbuf,
    667 		    sizeof(tbuf), "%s/%s", _PATH_MAILDIR, pwd->pw_name);
    668 		if (stat(tbuf, &st) == 0 && st.st_size != 0)
    669 			(void)printf("You have %smail.\n",
    670 			    (st.st_mtime > st.st_atime) ? "new " : "");
    671 	}
    672 
    673 	login_close(lc);
    674 
    675 
    676 	tbuf[0] = '-';
    677 	(void)strlcpy(tbuf + 1, (p = strrchr(pwd->pw_shell, '/')) ?
    678 	    p + 1 : pwd->pw_shell, sizeof(tbuf) - 1);
    679 
    680 	(void)signal(SIGABRT, oabrt);
    681 	(void)signal(SIGALRM, oalrm);
    682 	(void)signal(SIGINT, oint);
    683 	(void)signal(SIGQUIT, oquit);
    684 	(void)signal(SIGTSTP, SIG_IGN);
    685 
    686 	execlp(pwd->pw_shell, tbuf, NULL);
    687 	err(EXIT_FAILURE, "%s", pwd->pw_shell);
    688 }
    689 
    690 #define	NBUFSIZ		(MAXLOGNAME + 1)
    691 
    692 
    693 void
    694 getloginname(void)
    695 {
    696 	int ch;
    697 	char *p;
    698 	static char nbuf[NBUFSIZ];
    699 
    700 	for (;;) {
    701 		(void)printf("login: ");
    702 		for (p = nbuf; (ch = getchar()) != '\n'; ) {
    703 			if (ch == EOF) {
    704 				badlogin(username);
    705 				exit(EXIT_FAILURE);
    706 			}
    707 			if (p < nbuf + (NBUFSIZ - 1))
    708 				*p++ = ch;
    709 		}
    710 		if (p > nbuf) {
    711 			if (nbuf[0] == '-')
    712 				(void)fprintf(stderr,
    713 				    "login names may not start with '-'.\n");
    714 			else {
    715 				*p = '\0';
    716 				username = nbuf;
    717 				break;
    718 			}
    719 		}
    720 	}
    721 }
    722 
    723 int
    724 rootterm(char *ttyn)
    725 {
    726 	struct ttyent *t;
    727 
    728 	return ((t = getttynam(ttyn)) && t->ty_status & TTY_SECURE);
    729 }
    730 
    731 jmp_buf motdinterrupt;
    732 
    733 void
    734 motd(char *fname)
    735 {
    736 	int fd, nchars;
    737 	sig_t oldint;
    738 	char tbuf[8192];
    739 
    740 	if ((fd = open(fname ? fname : _PATH_MOTDFILE, O_RDONLY, 0)) < 0)
    741 		return;
    742 	oldint = signal(SIGINT, sigint);
    743 	if (setjmp(motdinterrupt) == 0)
    744 		while ((nchars = read(fd, tbuf, sizeof(tbuf))) > 0)
    745 			(void)write(fileno(stdout), tbuf, nchars);
    746 	(void)signal(SIGINT, oldint);
    747 	(void)close(fd);
    748 }
    749 
    750 /* ARGSUSED */
    751 void
    752 sigint(int signo)
    753 {
    754 
    755 	longjmp(motdinterrupt, 1);
    756 }
    757 
    758 /* ARGSUSED */
    759 void
    760 timedout(int signo)
    761 {
    762 
    763 	(void)fprintf(stderr, "Login timed out after %d seconds\n", timeout);
    764 	exit(EXIT_FAILURE);
    765 }
    766 
    767 static void
    768 update_db(int quietlog)
    769 {
    770 	if (nested != NULL) {
    771 		if (hostname != NULL)
    772 			syslog(LOG_NOTICE, "%s to %s on tty %s from %s",
    773 			    nested, pwd->pw_name, tty, hostname);
    774 		else
    775 			syslog(LOG_NOTICE, "%s to %s on tty %s", nested,
    776 			    pwd->pw_name, tty);
    777 
    778 	}
    779 	if (hostname != NULL && have_ss == 0) {
    780 		socklen_t len = sizeof(ss);
    781 		have_ss = getpeername(STDIN_FILENO, (struct sockaddr *)&ss,
    782 		    &len) != -1;
    783 	}
    784 	(void)gettimeofday(&now, NULL);
    785 }
    786 
    787 void
    788 badlogin(char *name)
    789 {
    790 
    791 	if (failures == 0)
    792 		return;
    793 	if (hostname) {
    794 		syslog(LOG_NOTICE, "%d LOGIN FAILURE%s FROM %s",
    795 		    failures, failures > 1 ? "S" : "", hostname);
    796 		syslog(LOG_AUTHPRIV|LOG_NOTICE,
    797 		    "%d LOGIN FAILURE%s FROM %s, %s",
    798 		    failures, failures > 1 ? "S" : "", hostname, name);
    799 	} else {
    800 		syslog(LOG_NOTICE, "%d LOGIN FAILURE%s ON %s",
    801 		    failures, failures > 1 ? "S" : "", tty);
    802 		syslog(LOG_AUTHPRIV|LOG_NOTICE,
    803 		    "%d LOGIN FAILURE%s ON %s, %s",
    804 		    failures, failures > 1 ? "S" : "", tty, name);
    805 	}
    806 }
    807 
    808 const char *
    809 stypeof(const char *ttyid)
    810 {
    811 	struct ttyent *t;
    812 
    813 	return (ttyid && (t = getttynam(ttyid)) ? t->ty_type : NULL);
    814 }
    815 
    816 void
    817 sleepexit(int eval)
    818 {
    819 
    820 	(void)sleep(5);
    821 	exit(eval);
    822 }
    823 
    824 void
    825 decode_ss(const char *arg)
    826 {
    827 	struct sockaddr_storage *ssp;
    828 	size_t len = strlen(arg);
    829 
    830 	if (len > sizeof(*ssp) * 4 + 1 || len < sizeof(*ssp))
    831 		errx(EXIT_FAILURE, "Bad argument");
    832 
    833 	if ((ssp = malloc(len)) == NULL)
    834 		err(EXIT_FAILURE, NULL);
    835 
    836 	if (strunvis((char *)ssp, arg) != sizeof(*ssp))
    837 		errx(EXIT_FAILURE, "Decoding error");
    838 
    839 	(void)memcpy(&ss, ssp, sizeof(ss));
    840 	have_ss = 1;
    841 	free(ssp);
    842 }
    843 
    844 void
    845 usage(void)
    846 {
    847 	(void)fprintf(stderr,
    848 	    "Usage: %s [-fp] [-a address] [-h hostname] [username]\n",
    849 	    getprogname());
    850 	exit(EXIT_FAILURE);
    851 }
    852