Home | History | Annotate | Line # | Download | only in telnetd
sys_term.c revision 1.41
      1  1.41  christos /*	$NetBSD: sys_term.c,v 1.41 2004/11/14 18:07:56 christos Exp $	*/
      2   1.8   thorpej 
      3   1.1       cgd /*
      4   1.3       cgd  * Copyright (c) 1989, 1993
      5   1.3       cgd  *	The Regents of the University of California.  All rights reserved.
      6   1.1       cgd  *
      7   1.1       cgd  * Redistribution and use in source and binary forms, with or without
      8   1.1       cgd  * modification, are permitted provided that the following conditions
      9   1.1       cgd  * are met:
     10   1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     11   1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     12   1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     14   1.1       cgd  *    documentation and/or other materials provided with the distribution.
     15  1.39       agc  * 3. Neither the name of the University nor the names of its contributors
     16   1.1       cgd  *    may be used to endorse or promote products derived from this software
     17   1.1       cgd  *    without specific prior written permission.
     18   1.1       cgd  *
     19   1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20   1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21   1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22   1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23   1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24   1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25   1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26   1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27   1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28   1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29   1.1       cgd  * SUCH DAMAGE.
     30   1.1       cgd  */
     31   1.1       cgd 
     32  1.11       mrg #include <sys/cdefs.h>
     33   1.1       cgd #ifndef lint
     34   1.8   thorpej #if 0
     35   1.8   thorpej static char sccsid[] = "@(#)sys_term.c	8.4+1 (Berkeley) 5/30/95";
     36   1.8   thorpej #else
     37  1.41  christos __RCSID("$NetBSD: sys_term.c,v 1.41 2004/11/14 18:07:56 christos Exp $");
     38   1.8   thorpej #endif
     39   1.1       cgd #endif /* not lint */
     40   1.1       cgd 
     41   1.1       cgd #include "telnetd.h"
     42   1.1       cgd #include "pathnames.h"
     43   1.1       cgd 
     44  1.11       mrg #include <util.h>
     45  1.41  christos #include <vis.h>
     46  1.11       mrg 
     47   1.6       jtk #include <sys/cdefs.h>
     48   1.3       cgd 
     49  1.31       wiz #include <utmp.h>
     50   1.1       cgd struct	utmp wtmp;
     51   1.1       cgd 
     52   1.1       cgd #define SCPYN(a, b)	(void) strncpy(a, b, sizeof(a))
     53   1.1       cgd #define SCMPN(a, b)	strncmp(a, b, sizeof(a))
     54   1.1       cgd 
     55   1.1       cgd struct termios termbuf, termbuf2;	/* pty control structure */
     56   1.1       cgd 
     57  1.11       mrg void getptyslave __P((void));
     58  1.11       mrg int cleanopen __P((char *));
     59  1.11       mrg char **addarg __P((char **, char *));
     60  1.11       mrg void scrub_env __P((void));
     61  1.11       mrg int getent __P((char *, char *));
     62  1.23    itojun char *getstr __P((const char *, char **));
     63  1.16     aidan #ifdef KRB5
     64  1.16     aidan extern void kerberos5_cleanup __P((void));
     65  1.16     aidan #endif
     66  1.11       mrg 
     67   1.1       cgd /*
     68   1.1       cgd  * init_termbuf()
     69   1.1       cgd  * copy_termbuf(cp)
     70   1.1       cgd  * set_termbuf()
     71   1.1       cgd  *
     72   1.1       cgd  * These three routines are used to get and set the "termbuf" structure
     73   1.1       cgd  * to and from the kernel.  init_termbuf() gets the current settings.
     74   1.1       cgd  * copy_termbuf() hands in a new "termbuf" to write to the kernel, and
     75   1.1       cgd  * set_termbuf() writes the structure into the kernel.
     76   1.1       cgd  */
     77   1.1       cgd 
     78  1.36    itojun void
     79   1.1       cgd init_termbuf()
     80   1.1       cgd {
     81   1.1       cgd 	(void) tcgetattr(pty, &termbuf);
     82   1.1       cgd 	termbuf2 = termbuf;
     83   1.1       cgd }
     84   1.1       cgd 
     85   1.1       cgd #if	defined(LINEMODE) && defined(TIOCPKT_IOCTL)
     86  1.36    itojun void
     87   1.1       cgd copy_termbuf(cp, len)
     88   1.1       cgd 	char *cp;
     89   1.1       cgd 	int len;
     90   1.1       cgd {
     91   1.1       cgd 	if (len > sizeof(termbuf))
     92   1.1       cgd 		len = sizeof(termbuf);
     93   1.6       jtk 	memmove((char *)&termbuf, cp, len);
     94   1.1       cgd 	termbuf2 = termbuf;
     95   1.1       cgd }
     96   1.1       cgd #endif	/* defined(LINEMODE) && defined(TIOCPKT_IOCTL) */
     97   1.1       cgd 
     98  1.36    itojun void
     99   1.1       cgd set_termbuf()
    100   1.1       cgd {
    101   1.1       cgd 	/*
    102   1.1       cgd 	 * Only make the necessary changes.
    103   1.1       cgd 	 */
    104   1.6       jtk 	if (memcmp((char *)&termbuf, (char *)&termbuf2, sizeof(termbuf)))
    105   1.1       cgd 		(void) tcsetattr(pty, TCSANOW, &termbuf);
    106   1.1       cgd }
    107   1.1       cgd 
    108   1.1       cgd 
    109   1.1       cgd /*
    110   1.1       cgd  * spcset(func, valp, valpp)
    111   1.1       cgd  *
    112   1.1       cgd  * This function takes various special characters (func), and
    113   1.1       cgd  * sets *valp to the current value of that character, and
    114   1.1       cgd  * *valpp to point to where in the "termbuf" structure that
    115   1.1       cgd  * value is kept.
    116   1.1       cgd  *
    117   1.1       cgd  * It returns the SLC_ level of support for this function.
    118   1.1       cgd  */
    119   1.1       cgd 
    120   1.1       cgd 
    121  1.36    itojun int
    122   1.1       cgd spcset(func, valp, valpp)
    123   1.1       cgd 	int func;
    124   1.1       cgd 	cc_t *valp;
    125   1.1       cgd 	cc_t **valpp;
    126   1.1       cgd {
    127   1.1       cgd 
    128   1.1       cgd #define	setval(a, b)	*valp = termbuf.c_cc[a]; \
    129   1.1       cgd 			*valpp = &termbuf.c_cc[a]; \
    130   1.1       cgd 			return(b);
    131   1.1       cgd #define	defval(a) *valp = ((cc_t)a); *valpp = (cc_t *)0; return(SLC_DEFAULT);
    132   1.1       cgd 
    133   1.1       cgd 	switch(func) {
    134   1.1       cgd 	case SLC_EOF:
    135   1.1       cgd 		setval(VEOF, SLC_VARIABLE);
    136   1.1       cgd 	case SLC_EC:
    137   1.1       cgd 		setval(VERASE, SLC_VARIABLE);
    138   1.1       cgd 	case SLC_EL:
    139   1.1       cgd 		setval(VKILL, SLC_VARIABLE);
    140   1.1       cgd 	case SLC_IP:
    141   1.1       cgd 		setval(VINTR, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT);
    142   1.1       cgd 	case SLC_ABORT:
    143   1.1       cgd 		setval(VQUIT, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT);
    144   1.1       cgd 	case SLC_XON:
    145   1.1       cgd 		setval(VSTART, SLC_VARIABLE);
    146   1.1       cgd 	case SLC_XOFF:
    147   1.1       cgd 		setval(VSTOP, SLC_VARIABLE);
    148   1.1       cgd 	case SLC_EW:
    149   1.1       cgd 		setval(VWERASE, SLC_VARIABLE);
    150   1.1       cgd 	case SLC_RP:
    151   1.1       cgd 		setval(VREPRINT, SLC_VARIABLE);
    152   1.1       cgd 	case SLC_LNEXT:
    153   1.1       cgd 		setval(VLNEXT, SLC_VARIABLE);
    154   1.1       cgd 	case SLC_AO:
    155   1.1       cgd 		setval(VDISCARD, SLC_VARIABLE|SLC_FLUSHOUT);
    156   1.1       cgd 	case SLC_SUSP:
    157   1.1       cgd 		setval(VSUSP, SLC_VARIABLE|SLC_FLUSHIN);
    158   1.1       cgd 	case SLC_FORW1:
    159   1.1       cgd 		setval(VEOL, SLC_VARIABLE);
    160   1.1       cgd 	case SLC_FORW2:
    161   1.1       cgd 		setval(VEOL2, SLC_VARIABLE);
    162   1.1       cgd 	case SLC_AYT:
    163   1.1       cgd 		setval(VSTATUS, SLC_VARIABLE);
    164   1.1       cgd 
    165   1.1       cgd 	case SLC_BRK:
    166   1.1       cgd 	case SLC_SYNCH:
    167   1.1       cgd 	case SLC_EOR:
    168   1.1       cgd 		defval(0);
    169   1.1       cgd 
    170   1.1       cgd 	default:
    171   1.1       cgd 		*valp = 0;
    172   1.1       cgd 		*valpp = 0;
    173   1.1       cgd 		return(SLC_NOSUPPORT);
    174   1.1       cgd 	}
    175   1.1       cgd }
    176   1.1       cgd 
    177   1.1       cgd 
    178   1.1       cgd /*
    179   1.1       cgd  * getpty()
    180   1.1       cgd  *
    181   1.1       cgd  * Allocate a pty.  As a side effect, the external character
    182   1.1       cgd  * array "line" contains the name of the slave side.
    183   1.1       cgd  *
    184   1.1       cgd  * Returns the file descriptor of the opened pty.
    185   1.1       cgd  */
    186   1.1       cgd #ifndef	__GNUC__
    187  1.19  christos char *line = NULL16STR;
    188   1.1       cgd #else
    189  1.19  christos static char Xline[] = NULL16STR;
    190   1.1       cgd char *line = Xline;
    191   1.1       cgd #endif
    192   1.1       cgd 
    193  1.13     perry 
    194  1.13     perry static int ptyslavefd; /* for cleanopen() */
    195  1.13     perry 
    196  1.13     perry int
    197  1.13     perry getpty(ptynum)
    198  1.13     perry int *ptynum;
    199  1.13     perry {
    200  1.13     perry 	int ptyfd;
    201  1.13     perry 
    202  1.13     perry 	ptyfd = openpty(ptynum, &ptyslavefd, line, NULL, NULL);
    203  1.13     perry 	if (ptyfd == 0)
    204  1.13     perry 		return *ptynum;
    205  1.13     perry 	ptyslavefd = -1;
    206  1.13     perry 	return (-1);
    207  1.13     perry }
    208   1.1       cgd 
    209   1.1       cgd #ifdef	LINEMODE
    210   1.1       cgd /*
    211   1.1       cgd  * tty_flowmode()	Find out if flow control is enabled or disabled.
    212   1.1       cgd  * tty_linemode()	Find out if linemode (external processing) is enabled.
    213   1.1       cgd  * tty_setlinemod(on)	Turn on/off linemode.
    214   1.1       cgd  * tty_isecho()		Find out if echoing is turned on.
    215   1.1       cgd  * tty_setecho(on)	Enable/disable character echoing.
    216   1.1       cgd  * tty_israw()		Find out if terminal is in RAW mode.
    217   1.1       cgd  * tty_binaryin(on)	Turn on/off BINARY on input.
    218   1.1       cgd  * tty_binaryout(on)	Turn on/off BINARY on output.
    219   1.1       cgd  * tty_isediting()	Find out if line editing is enabled.
    220   1.1       cgd  * tty_istrapsig()	Find out if signal trapping is enabled.
    221   1.1       cgd  * tty_setedit(on)	Turn on/off line editing.
    222   1.1       cgd  * tty_setsig(on)	Turn on/off signal trapping.
    223   1.1       cgd  * tty_issofttab()	Find out if tab expansion is enabled.
    224   1.1       cgd  * tty_setsofttab(on)	Turn on/off soft tab expansion.
    225   1.1       cgd  * tty_islitecho()	Find out if typed control chars are echoed literally
    226   1.1       cgd  * tty_setlitecho()	Turn on/off literal echo of control chars
    227   1.1       cgd  * tty_tspeed(val)	Set transmit speed to val.
    228   1.1       cgd  * tty_rspeed(val)	Set receive speed to val.
    229   1.1       cgd  */
    230   1.1       cgd 
    231   1.1       cgd 
    232  1.36    itojun int
    233   1.1       cgd tty_linemode()
    234   1.1       cgd {
    235   1.1       cgd 	return(termbuf.c_lflag & EXTPROC);
    236   1.1       cgd }
    237   1.1       cgd 
    238  1.36    itojun void
    239   1.1       cgd tty_setlinemode(on)
    240   1.1       cgd 	int on;
    241   1.1       cgd {
    242   1.1       cgd 	set_termbuf();
    243   1.1       cgd 	(void) ioctl(pty, TIOCEXT, (char *)&on);
    244   1.1       cgd 	init_termbuf();
    245   1.1       cgd }
    246   1.3       cgd #endif	/* LINEMODE */
    247   1.1       cgd 
    248  1.36    itojun int
    249   1.1       cgd tty_isecho()
    250   1.1       cgd {
    251   1.1       cgd 	return (termbuf.c_lflag & ECHO);
    252   1.1       cgd }
    253   1.3       cgd 
    254  1.36    itojun int
    255   1.3       cgd tty_flowmode()
    256   1.3       cgd {
    257   1.3       cgd 	return((termbuf.c_iflag & IXON) ? 1 : 0);
    258   1.3       cgd }
    259   1.3       cgd 
    260  1.36    itojun int
    261   1.3       cgd tty_restartany()
    262   1.3       cgd {
    263   1.3       cgd 	return((termbuf.c_iflag & IXANY) ? 1 : 0);
    264   1.3       cgd }
    265   1.1       cgd 
    266  1.36    itojun void
    267   1.1       cgd tty_setecho(on)
    268   1.1       cgd 	int on;
    269   1.1       cgd {
    270   1.1       cgd 	if (on)
    271   1.1       cgd 		termbuf.c_lflag |= ECHO;
    272   1.1       cgd 	else
    273   1.1       cgd 		termbuf.c_lflag &= ~ECHO;
    274   1.1       cgd }
    275   1.1       cgd 
    276  1.36    itojun int
    277   1.1       cgd tty_israw()
    278   1.1       cgd {
    279   1.1       cgd 	return(!(termbuf.c_lflag & ICANON));
    280   1.1       cgd }
    281   1.3       cgd 
    282  1.36    itojun void
    283   1.1       cgd tty_binaryin(on)
    284   1.1       cgd 	int on;
    285   1.1       cgd {
    286   1.1       cgd 	if (on) {
    287   1.1       cgd 		termbuf.c_iflag &= ~ISTRIP;
    288   1.1       cgd 	} else {
    289   1.1       cgd 		termbuf.c_iflag |= ISTRIP;
    290   1.1       cgd 	}
    291   1.1       cgd }
    292   1.1       cgd 
    293  1.36    itojun void
    294   1.1       cgd tty_binaryout(on)
    295   1.1       cgd 	int on;
    296   1.1       cgd {
    297   1.1       cgd 	if (on) {
    298   1.1       cgd 		termbuf.c_cflag &= ~(CSIZE|PARENB);
    299   1.1       cgd 		termbuf.c_cflag |= CS8;
    300   1.1       cgd 		termbuf.c_oflag &= ~OPOST;
    301   1.1       cgd 	} else {
    302   1.1       cgd 		termbuf.c_cflag &= ~CSIZE;
    303   1.1       cgd 		termbuf.c_cflag |= CS7|PARENB;
    304   1.1       cgd 		termbuf.c_oflag |= OPOST;
    305   1.1       cgd 	}
    306   1.1       cgd }
    307   1.1       cgd 
    308  1.36    itojun int
    309   1.1       cgd tty_isbinaryin()
    310   1.1       cgd {
    311   1.1       cgd 	return(!(termbuf.c_iflag & ISTRIP));
    312   1.1       cgd }
    313   1.1       cgd 
    314  1.36    itojun int
    315   1.1       cgd tty_isbinaryout()
    316   1.1       cgd {
    317   1.1       cgd 	return(!(termbuf.c_oflag&OPOST));
    318   1.1       cgd }
    319   1.1       cgd 
    320   1.1       cgd #ifdef	LINEMODE
    321  1.36    itojun int
    322   1.1       cgd tty_isediting()
    323   1.1       cgd {
    324   1.1       cgd 	return(termbuf.c_lflag & ICANON);
    325   1.1       cgd }
    326   1.1       cgd 
    327  1.36    itojun int
    328   1.1       cgd tty_istrapsig()
    329   1.1       cgd {
    330   1.1       cgd 	return(termbuf.c_lflag & ISIG);
    331   1.1       cgd }
    332   1.1       cgd 
    333  1.36    itojun void
    334   1.1       cgd tty_setedit(on)
    335   1.1       cgd 	int on;
    336   1.1       cgd {
    337   1.1       cgd 	if (on)
    338   1.1       cgd 		termbuf.c_lflag |= ICANON;
    339   1.1       cgd 	else
    340   1.1       cgd 		termbuf.c_lflag &= ~ICANON;
    341   1.1       cgd }
    342   1.1       cgd 
    343  1.36    itojun void
    344   1.1       cgd tty_setsig(on)
    345   1.1       cgd 	int on;
    346   1.1       cgd {
    347   1.1       cgd 	if (on)
    348   1.1       cgd 		termbuf.c_lflag |= ISIG;
    349   1.1       cgd 	else
    350   1.1       cgd 		termbuf.c_lflag &= ~ISIG;
    351   1.1       cgd }
    352   1.1       cgd #endif	/* LINEMODE */
    353   1.1       cgd 
    354  1.36    itojun int
    355   1.1       cgd tty_issofttab()
    356   1.1       cgd {
    357   1.1       cgd # ifdef	OXTABS
    358   1.1       cgd 	return (termbuf.c_oflag & OXTABS);
    359   1.1       cgd # endif
    360   1.1       cgd # ifdef	TABDLY
    361   1.1       cgd 	return ((termbuf.c_oflag & TABDLY) == TAB3);
    362   1.1       cgd # endif
    363   1.1       cgd }
    364   1.1       cgd 
    365  1.36    itojun void
    366   1.1       cgd tty_setsofttab(on)
    367   1.1       cgd 	int on;
    368   1.1       cgd {
    369   1.1       cgd 	if (on) {
    370   1.1       cgd # ifdef	OXTABS
    371   1.1       cgd 		termbuf.c_oflag |= OXTABS;
    372   1.1       cgd # endif
    373   1.1       cgd # ifdef	TABDLY
    374   1.1       cgd 		termbuf.c_oflag &= ~TABDLY;
    375   1.1       cgd 		termbuf.c_oflag |= TAB3;
    376   1.1       cgd # endif
    377   1.1       cgd 	} else {
    378   1.1       cgd # ifdef	OXTABS
    379   1.1       cgd 		termbuf.c_oflag &= ~OXTABS;
    380   1.1       cgd # endif
    381   1.1       cgd # ifdef	TABDLY
    382   1.1       cgd 		termbuf.c_oflag &= ~TABDLY;
    383   1.1       cgd 		termbuf.c_oflag |= TAB0;
    384   1.1       cgd # endif
    385   1.1       cgd 	}
    386   1.1       cgd }
    387   1.1       cgd 
    388  1.36    itojun int
    389   1.1       cgd tty_islitecho()
    390   1.1       cgd {
    391   1.1       cgd # ifdef	ECHOCTL
    392   1.1       cgd 	return (!(termbuf.c_lflag & ECHOCTL));
    393   1.1       cgd # endif
    394   1.1       cgd # ifdef	TCTLECH
    395   1.1       cgd 	return (!(termbuf.c_lflag & TCTLECH));
    396   1.1       cgd # endif
    397   1.1       cgd # if	!defined(ECHOCTL) && !defined(TCTLECH)
    398   1.1       cgd 	return (0);	/* assumes ctl chars are echoed '^x' */
    399   1.1       cgd # endif
    400   1.1       cgd }
    401   1.1       cgd 
    402  1.36    itojun void
    403   1.1       cgd tty_setlitecho(on)
    404   1.1       cgd 	int on;
    405   1.1       cgd {
    406   1.1       cgd # ifdef	ECHOCTL
    407   1.1       cgd 	if (on)
    408   1.1       cgd 		termbuf.c_lflag &= ~ECHOCTL;
    409   1.1       cgd 	else
    410   1.1       cgd 		termbuf.c_lflag |= ECHOCTL;
    411   1.1       cgd # endif
    412   1.1       cgd # ifdef	TCTLECH
    413   1.1       cgd 	if (on)
    414   1.1       cgd 		termbuf.c_lflag &= ~TCTLECH;
    415   1.1       cgd 	else
    416   1.1       cgd 		termbuf.c_lflag |= TCTLECH;
    417   1.1       cgd # endif
    418   1.1       cgd }
    419   1.1       cgd 
    420  1.36    itojun int
    421   1.1       cgd tty_iscrnl()
    422   1.1       cgd {
    423   1.1       cgd 	return (termbuf.c_iflag & ICRNL);
    424   1.1       cgd }
    425   1.1       cgd 
    426  1.36    itojun void
    427   1.1       cgd tty_tspeed(val)
    428   1.1       cgd 	int val;
    429   1.1       cgd {
    430   1.6       jtk 	cfsetospeed(&termbuf, val);
    431   1.1       cgd }
    432   1.1       cgd 
    433  1.36    itojun void
    434   1.1       cgd tty_rspeed(val)
    435   1.1       cgd 	int val;
    436   1.1       cgd {
    437   1.6       jtk 	cfsetispeed(&termbuf, val);
    438   1.1       cgd }
    439   1.1       cgd 
    440   1.1       cgd 
    441   1.1       cgd 
    442   1.1       cgd 
    443   1.1       cgd /*
    444   1.1       cgd  * getptyslave()
    445   1.1       cgd  *
    446   1.1       cgd  * Open the slave side of the pty, and do any initialization
    447   1.1       cgd  * that is necessary.  The return value is a file descriptor
    448   1.1       cgd  * for the slave side.
    449   1.1       cgd  */
    450  1.22  christos extern int def_tspeed, def_rspeed;
    451  1.22  christos 	extern int def_row, def_col;
    452  1.22  christos 
    453  1.22  christos     void
    454   1.1       cgd getptyslave()
    455   1.1       cgd {
    456   1.1       cgd 	register int t = -1;
    457   1.1       cgd 
    458  1.31       wiz #ifdef	LINEMODE
    459   1.1       cgd 	int waslm;
    460  1.31       wiz #endif
    461   1.1       cgd 	struct winsize ws;
    462   1.1       cgd 	/*
    463   1.1       cgd 	 * Opening the slave side may cause initilization of the
    464   1.1       cgd 	 * kernel tty structure.  We need remember the state of
    465   1.1       cgd 	 * 	if linemode was turned on
    466   1.1       cgd 	 *	terminal window size
    467   1.1       cgd 	 *	terminal speed
    468   1.1       cgd 	 * so that we can re-set them if we need to.
    469   1.1       cgd 	 */
    470  1.31       wiz #ifdef	LINEMODE
    471   1.1       cgd 	waslm = tty_linemode();
    472  1.31       wiz #endif
    473   1.1       cgd 
    474   1.1       cgd 	/*
    475   1.1       cgd 	 * Make sure that we don't have a controlling tty, and
    476   1.1       cgd 	 * that we are the session (process group) leader.
    477   1.1       cgd 	 */
    478   1.1       cgd 	t = open(_PATH_TTY, O_RDWR);
    479   1.1       cgd 	if (t >= 0) {
    480   1.1       cgd 		(void) ioctl(t, TIOCNOTTY, (char *)0);
    481   1.1       cgd 		(void) close(t);
    482   1.1       cgd 	}
    483   1.1       cgd 
    484   1.1       cgd 
    485   1.1       cgd 
    486   1.1       cgd 	t = cleanopen(line);
    487   1.1       cgd 	if (t < 0)
    488   1.1       cgd 		fatalperror(net, line);
    489   1.1       cgd 
    490   1.3       cgd 
    491   1.1       cgd 	/*
    492   1.1       cgd 	 * set up the tty modes as we like them to be.
    493   1.1       cgd 	 */
    494   1.1       cgd 	init_termbuf();
    495   1.1       cgd 	if (def_row || def_col) {
    496   1.6       jtk 		memset((char *)&ws, 0, sizeof(ws));
    497   1.1       cgd 		ws.ws_col = def_col;
    498   1.1       cgd 		ws.ws_row = def_row;
    499   1.1       cgd 		(void)ioctl(t, TIOCSWINSZ, (char *)&ws);
    500   1.1       cgd 	}
    501   1.1       cgd 
    502   1.1       cgd 	/*
    503   1.1       cgd 	 * Settings for sgtty based systems
    504   1.1       cgd 	 */
    505   1.1       cgd 
    506   1.1       cgd 	/*
    507   1.1       cgd 	 * Settings for all other termios/termio based
    508   1.1       cgd 	 * systems, other than 4.4BSD.  In 4.4BSD the
    509   1.1       cgd 	 * kernel does the initial terminal setup.
    510   1.1       cgd 	 */
    511   1.1       cgd 	tty_rspeed((def_rspeed > 0) ? def_rspeed : 9600);
    512   1.1       cgd 	tty_tspeed((def_tspeed > 0) ? def_tspeed : 9600);
    513  1.31       wiz #ifdef	LINEMODE
    514   1.1       cgd 	if (waslm)
    515   1.1       cgd 		tty_setlinemode(1);
    516  1.31       wiz #endif	/* LINEMODE */
    517   1.1       cgd 
    518   1.1       cgd 	/*
    519   1.1       cgd 	 * Set the tty modes, and make this our controlling tty.
    520   1.1       cgd 	 */
    521   1.1       cgd 	set_termbuf();
    522   1.1       cgd 	if (login_tty(t) == -1)
    523   1.1       cgd 		fatalperror(net, "login_tty");
    524   1.1       cgd 	if (net > 2)
    525   1.1       cgd 		(void) close(net);
    526   1.3       cgd 	if (pty > 2) {
    527   1.1       cgd 		(void) close(pty);
    528   1.3       cgd 		pty = -1;
    529   1.3       cgd 	}
    530   1.1       cgd }
    531   1.1       cgd 
    532   1.1       cgd /*
    533   1.1       cgd  * Open the specified slave side of the pty,
    534   1.1       cgd  * making sure that we have a clean tty.
    535   1.1       cgd  */
    536  1.36    itojun int
    537  1.23    itojun cleanopen(ttyline)
    538  1.23    itojun 	char *ttyline;
    539   1.1       cgd {
    540  1.13     perry 	return ptyslavefd;
    541   1.1       cgd }
    542   1.1       cgd 
    543   1.1       cgd /*
    544   1.1       cgd  * startslave(host)
    545   1.1       cgd  *
    546   1.1       cgd  * Given a hostname, do whatever
    547   1.1       cgd  * is necessary to startup the login process on the slave side of the pty.
    548   1.1       cgd  */
    549   1.1       cgd 
    550   1.1       cgd /* ARGSUSED */
    551  1.36    itojun void
    552   1.1       cgd startslave(host, autologin, autoname)
    553   1.1       cgd 	char *host;
    554   1.1       cgd 	int autologin;
    555   1.1       cgd 	char *autoname;
    556   1.1       cgd {
    557   1.1       cgd 	register int i;
    558   1.1       cgd 
    559  1.36    itojun #ifdef AUTHENTICATION
    560   1.1       cgd 	if (!autoname || !autoname[0])
    561   1.1       cgd 		autologin = 0;
    562   1.1       cgd 
    563   1.1       cgd 	if (autologin < auth_level) {
    564   1.1       cgd 		fatal(net, "Authorization failed");
    565   1.1       cgd 		exit(1);
    566   1.1       cgd 	}
    567   1.1       cgd #endif
    568   1.1       cgd 
    569   1.1       cgd 
    570   1.1       cgd 	if ((i = fork()) < 0)
    571   1.1       cgd 		fatalperror(net, "fork");
    572   1.1       cgd 	if (i) {
    573   1.1       cgd 	} else {
    574  1.11       mrg 		getptyslave();
    575   1.1       cgd 		start_login(host, autologin, autoname);
    576   1.1       cgd 		/*NOTREACHED*/
    577   1.1       cgd 	}
    578   1.1       cgd }
    579   1.1       cgd 
    580   1.1       cgd char	*envinit[3];
    581   1.1       cgd 
    582  1.36    itojun void
    583   1.1       cgd init_env()
    584   1.1       cgd {
    585   1.1       cgd 	char **envp;
    586   1.1       cgd 
    587   1.1       cgd 	envp = envinit;
    588  1.11       mrg 	if ((*envp = getenv("TZ")))
    589   1.1       cgd 		*envp++ -= 3;
    590   1.1       cgd 	*envp = 0;
    591   1.1       cgd 	environ = envinit;
    592   1.1       cgd }
    593   1.1       cgd 
    594   1.1       cgd 
    595   1.1       cgd /*
    596   1.1       cgd  * start_login(host)
    597   1.1       cgd  *
    598   1.1       cgd  * Assuming that we are now running as a child processes, this
    599   1.1       cgd  * function will turn us into the login process.
    600   1.1       cgd  */
    601  1.22  christos extern char *gettyname;
    602   1.1       cgd 
    603  1.36    itojun void
    604   1.1       cgd start_login(host, autologin, name)
    605   1.1       cgd 	char *host;
    606   1.1       cgd 	int autologin;
    607   1.1       cgd 	char *name;
    608   1.1       cgd {
    609   1.1       cgd 	register char **argv;
    610   1.9       tls #define	TABBUFSIZ	512
    611   1.9       tls 	char	defent[TABBUFSIZ];
    612   1.9       tls 	char	defstrs[TABBUFSIZ];
    613   1.9       tls #undef	TABBUFSIZ
    614  1.23    itojun 	const char *loginprog = NULL;
    615  1.41  christos 	extern struct sockaddr_storage from;
    616  1.41  christos 	char buf[sizeof(from) * 4 + 1];
    617   1.1       cgd 
    618   1.6       jtk 	scrub_env();
    619   1.6       jtk 
    620   1.1       cgd 	/*
    621  1.41  christos 	 * -a : pass on the address of the host.
    622   1.1       cgd 	 * -h : pass on name of host.
    623  1.41  christos 	 *	WARNING:  -h and -a are accepted by login
    624  1.41  christos 	 *	if and only if getuid() == 0.
    625   1.1       cgd 	 * -p : don't clobber the environment (so terminal type stays set).
    626   1.1       cgd 	 *
    627   1.1       cgd 	 * -f : force this login, he has already been authenticated
    628   1.1       cgd 	 */
    629   1.1       cgd 	argv = addarg(0, "login");
    630   1.3       cgd 
    631  1.41  christos 	argv = addarg(argv, "-a");
    632  1.41  christos 	(void)strvisx(buf, (const char *)(const void *)&from, sizeof(from),
    633  1.41  christos 	    VIS_WHITE);
    634  1.41  christos 	argv = addarg(argv, buf);
    635  1.41  christos 
    636  1.41  christos 	argv = addarg(argv, "-h");
    637  1.41  christos 	argv = addarg(argv, host);
    638  1.41  christos 
    639   1.1       cgd 	argv = addarg(argv, "-p");
    640   1.6       jtk #ifdef	LINEMODE
    641   1.6       jtk 	/*
    642   1.6       jtk 	 * Set the environment variable "LINEMODE" to either
    643   1.6       jtk 	 * "real" or "kludge" if we are operating in either
    644   1.6       jtk 	 * real or kludge linemode.
    645   1.6       jtk 	 */
    646   1.6       jtk 	if (lmodetype == REAL_LINEMODE)
    647   1.6       jtk 		setenv("LINEMODE", "real", 1);
    648   1.6       jtk # ifdef KLUDGELINEMODE
    649   1.6       jtk 	else if (lmodetype == KLUDGE_LINEMODE || lmodetype == KLUDGE_OK)
    650   1.6       jtk 		setenv("LINEMODE", "kludge", 1);
    651   1.6       jtk # endif
    652   1.6       jtk #endif
    653  1.36    itojun #ifdef SECURELOGIN
    654   1.1       cgd 	/*
    655   1.1       cgd 	 * don't worry about the -f that might get sent.
    656   1.1       cgd 	 * A -s is supposed to override it anyhow.
    657   1.1       cgd 	 */
    658  1.15      dean 	if (require_secure_login)
    659   1.1       cgd 		argv = addarg(argv, "-s");
    660   1.1       cgd #endif
    661  1.36    itojun #ifdef AUTHENTICATION
    662   1.1       cgd 	if (auth_level >= 0 && autologin == AUTH_VALID) {
    663   1.1       cgd 		argv = addarg(argv, "-f");
    664   1.5   mycroft 		argv = addarg(argv, "--");
    665   1.3       cgd 		argv = addarg(argv, name);
    666   1.1       cgd 	} else
    667   1.1       cgd #endif
    668   1.1       cgd 	if (getenv("USER")) {
    669   1.5   mycroft 		argv = addarg(argv, "--");
    670   1.1       cgd 		argv = addarg(argv, getenv("USER"));
    671   1.3       cgd 		/*
    672   1.3       cgd 		 * Assume that login will set the USER variable
    673   1.3       cgd 		 * correctly.  For SysV systems, this means that
    674   1.3       cgd 		 * USER will no longer be set, just LOGNAME by
    675   1.3       cgd 		 * login.  (The problem is that if the auto-login
    676   1.3       cgd 		 * fails, and the user then specifies a different
    677   1.3       cgd 		 * account name, he can get logged in with both
    678   1.3       cgd 		 * LOGNAME and USER in his environment, but the
    679   1.3       cgd 		 * USER value will be wrong.
    680   1.3       cgd 		 */
    681   1.3       cgd 		unsetenv("USER");
    682   1.1       cgd 	}
    683   1.9       tls         if (getent(defent, gettyname) == 1) {
    684   1.9       tls                 char *cp = defstrs;
    685   1.9       tls 
    686   1.9       tls                 loginprog = getstr("lo", &cp);
    687   1.9       tls         }
    688   1.9       tls         if (loginprog == NULL)
    689   1.9       tls                 loginprog = _PATH_LOGIN;
    690   1.1       cgd 	closelog();
    691   1.6       jtk 	/*
    692   1.6       jtk 	 * This sleep(1) is in here so that telnetd can
    693   1.6       jtk 	 * finish up with the tty.  There's a race condition
    694   1.6       jtk 	 * the login banner message gets lost...
    695   1.6       jtk 	 */
    696   1.6       jtk 	sleep(1);
    697   1.9       tls         execv(loginprog, argv);
    698   1.1       cgd 
    699  1.25       wiz         syslog(LOG_ERR, "%s: %m", loginprog);
    700   1.9       tls         fatalperror(net, loginprog);
    701   1.1       cgd 	/*NOTREACHED*/
    702   1.1       cgd }
    703   1.1       cgd 
    704   1.1       cgd 	char **
    705   1.1       cgd addarg(argv, val)
    706   1.1       cgd 	register char **argv;
    707   1.1       cgd 	register char *val;
    708   1.1       cgd {
    709   1.1       cgd 	register char **cpp;
    710  1.40    itojun 	char **nargv;
    711   1.1       cgd 
    712   1.1       cgd 	if (argv == NULL) {
    713   1.1       cgd 		/*
    714   1.1       cgd 		 * 10 entries, a leading length, and a null
    715   1.1       cgd 		 */
    716   1.1       cgd 		argv = (char **)malloc(sizeof(*argv) * 12);
    717   1.1       cgd 		if (argv == NULL)
    718   1.1       cgd 			return(NULL);
    719   1.1       cgd 		*argv++ = (char *)10;
    720   1.1       cgd 		*argv = (char *)0;
    721   1.1       cgd 	}
    722   1.1       cgd 	for (cpp = argv; *cpp; cpp++)
    723   1.1       cgd 		;
    724   1.7       jtk 	if (cpp == &argv[(long)argv[-1]]) {
    725   1.1       cgd 		--argv;
    726  1.40    itojun 		nargv = (char **)realloc(argv,
    727  1.40    itojun 		    sizeof(*argv) * ((long)(*argv) + 10 + 2));
    728  1.18      tron 		if (argv == NULL) {
    729  1.18      tron 			fatal(net, "not enough memory");
    730  1.18      tron 			/*NOTREACHED*/
    731  1.18      tron 		}
    732  1.40    itojun 		argv = nargv;
    733  1.40    itojun 		*argv = (char *)((long)(*argv) + 10);
    734   1.1       cgd 		argv++;
    735   1.7       jtk 		cpp = &argv[(long)argv[-1] - 10];
    736   1.1       cgd 	}
    737   1.1       cgd 	*cpp++ = val;
    738   1.1       cgd 	*cpp = 0;
    739   1.1       cgd 	return(argv);
    740   1.1       cgd }
    741   1.1       cgd 
    742   1.1       cgd /*
    743   1.6       jtk  * scrub_env()
    744   1.6       jtk  *
    745  1.20     assar  * We only accept the environment variables listed below.
    746   1.6       jtk  */
    747  1.20     assar 
    748  1.11       mrg void
    749   1.6       jtk scrub_env()
    750   1.6       jtk {
    751  1.20     assar 	static const char *reject[] = {
    752  1.20     assar 		"TERMCAP=/",
    753  1.20     assar 		NULL
    754  1.20     assar 	};
    755  1.20     assar 
    756  1.27       wiz 	static const char *acceptstr[] = {
    757  1.20     assar 		"XAUTH=", "XAUTHORITY=", "DISPLAY=",
    758  1.20     assar 		"TERM=",
    759  1.20     assar 		"EDITOR=",
    760  1.20     assar 		"PAGER=",
    761  1.20     assar 		"LOGNAME=",
    762  1.20     assar 		"POSIXLY_CORRECT=",
    763  1.20     assar 		"TERMCAP=",
    764  1.20     assar 		"PRINTER=",
    765  1.20     assar 		NULL
    766  1.20     assar 	};
    767  1.20     assar 
    768  1.20     assar 	char **cpp, **cpp2;
    769  1.20     assar 	const char **p;
    770   1.6       jtk 
    771   1.6       jtk 	for (cpp2 = cpp = environ; *cpp; cpp++) {
    772  1.20     assar 		int reject_it = 0;
    773  1.20     assar 
    774  1.20     assar 		for(p = reject; *p; p++)
    775  1.20     assar 			if(strncmp(*cpp, *p, strlen(*p)) == 0) {
    776  1.20     assar 				reject_it = 1;
    777  1.20     assar 				break;
    778  1.20     assar 			}
    779  1.20     assar 		if (reject_it)
    780  1.20     assar 			continue;
    781  1.20     assar 
    782  1.27       wiz 		for(p = acceptstr; *p; p++)
    783  1.20     assar 			if(strncmp(*cpp, *p, strlen(*p)) == 0)
    784  1.20     assar 				break;
    785  1.20     assar 		if(*p != NULL)
    786   1.6       jtk 			*cpp2++ = *cpp;
    787   1.6       jtk 	}
    788  1.20     assar 	*cpp2 = NULL;
    789   1.6       jtk }
    790   1.6       jtk 
    791   1.6       jtk /*
    792   1.1       cgd  * cleanup()
    793   1.1       cgd  *
    794   1.1       cgd  * This is the routine to call when we are all through, to
    795   1.1       cgd  * clean up anything that needs to be cleaned up.
    796   1.1       cgd  */
    797  1.36    itojun /* ARGSUSED */
    798  1.36    itojun void
    799   1.1       cgd cleanup(sig)
    800   1.1       cgd 	int sig;
    801   1.1       cgd {
    802  1.14    tsarna 	char *p, c;
    803   1.1       cgd 
    804   1.1       cgd 	p = line + sizeof("/dev/") - 1;
    805  1.32  christos #ifdef SUPPORT_UTMP
    806   1.1       cgd 	if (logout(p))
    807   1.1       cgd 		logwtmp(p, "", "");
    808  1.32  christos #endif
    809  1.32  christos #ifdef SUPPORT_UTMPX
    810  1.32  christos 	if (logoutx(p, 0, DEAD_PROCESS))
    811  1.32  christos 		logwtmpx(p, "", "", 0, DEAD_PROCESS);
    812  1.32  christos #endif
    813   1.1       cgd 	(void)chmod(line, 0666);
    814   1.1       cgd 	(void)chown(line, 0, 0);
    815  1.14    tsarna 	c = *p; *p = 'p';
    816   1.1       cgd 	(void)chmod(line, 0666);
    817   1.1       cgd 	(void)chown(line, 0, 0);
    818  1.14    tsarna 	*p = c;
    819  1.14    tsarna 	if (ttyaction(line, "telnetd", "root"))
    820  1.14    tsarna 		syslog(LOG_ERR, "%s: ttyaction failed", line);
    821   1.1       cgd 	(void) shutdown(net, 2);
    822   1.1       cgd 	exit(1);
    823   1.1       cgd }
    824