/*

 * Copyright (c) 1989, 1993

 *	The Regents of the University of California.  All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 */

#include "telnetd.h"

#ifdef __SYMBIAN32__

#include "dummy.h"

#endif

#ifndef __SYMBIAN32__

__RCSID("$Heimdal: sys_term.c,v 1.104 2001/09/17 02:09:04 assar Exp $"

        "$NetBSD: sys_term.c,v 1.2 2003/08/07 09:15:30 agc Exp $");

#endif

#if defined(_CRAY) || (defined(__hpux) && !defined(HAVE_UTMPX_H))

# define PARENT_DOES_UTMP

#endif

#include <utmp.h>

#ifdef HAVE_UTMPX_H

#include <utmpx.h>

#endif

#ifdef __SYMBIAN32__

#ifdef __WINSCW__

#pragma warn_unusedarg off

#endif//__WINSCW__

#endif//__SYMBIAN32__

#ifdef HAVE_UTMPX_H

struct	utmpx wtmp;

#elif defined(HAVE_UTMP_H)

struct	utmp wtmp;

#endif /* HAVE_UTMPX_H */

#ifdef HAVE_STRUCT_UTMP_UT_HOST

int	utmp_len = sizeof(wtmp.ut_host);

#else

int	utmp_len = MAXHOSTNAMELEN;

#endif

#ifndef UTMP_FILE

#ifdef _PATH_UTMP

#define UTMP_FILE _PATH_UTMP

#else

#define UTMP_FILE "/etc/utmp"

#endif

#endif

#if !defined(WTMP_FILE) && defined(_PATH_WTMP)

#define WTMP_FILE _PATH_WTMP

#endif

#ifndef PARENT_DOES_UTMP

#ifdef WTMP_FILE

char	wtmpf[] = WTMP_FILE;

#else

char	wtmpf[]	= "/usr/adm/wtmp";

#endif

char	utmpf[] = UTMP_FILE;

#else /* PARENT_DOES_UTMP */

#ifdef WTMP_FILE

char	wtmpf[] = WTMP_FILE;

#else

char	wtmpf[]	= "/etc/wtmp";

#endif

#endif /* PARENT_DOES_UTMP */

#ifdef HAVE_TMPDIR_H

#include <tmpdir.h>

#endif	/* CRAY */

#ifdef	STREAMSPTY

#ifdef HAVE_SAC_H

#include <sac.h>

#endif

#ifdef HAVE_SYS_STROPTS_H

#include <sys/stropts.h>

#endif

#endif /* STREAMSPTY */

#undef NOERROR

#ifdef	HAVE_SYS_STREAM_H

#ifdef  HAVE_SYS_UIO_H

#include <sys/uio.h>

#endif

#ifdef __hpux

#undef SE

#endif

#include <sys/stream.h>

#endif

#if !(defined(__sgi) || defined(__linux) || defined(_AIX)) && defined(HAVE_SYS_TTY)

#include <sys/tty.h>

#endif

#ifdef	t_erase

#undef	t_erase

#undef	t_kill

#undef	t_intrc

#undef	t_quitc

#undef	t_startc

#undef	t_stopc

#undef	t_eofc

#undef	t_brkc

#undef	t_suspc

#undef	t_dsuspc

#undef	t_rprntc

#undef	t_flushc

#undef	t_werasc

#undef	t_lnextc

#endif

#ifdef HAVE_TERMIOS_H

#include <termios.h>

#else

#ifdef HAVE_TERMIO_H

#include <termio.h>

#endif

#endif

#ifdef HAVE_UTIL_H

#include <util.h>

#endif

#ifdef HAVE_LIBUTIL_H

#include <libutil.h>

#endif

# ifndef	TCSANOW

#  ifdef TCSETS

#   define	TCSANOW		TCSETS

#   define	TCSADRAIN	TCSETSW

#   define	tcgetattr(f, t)	ioctl(f, TCGETS, (char *)t)

#  else

#   ifdef TCSETA

#    define	TCSANOW		TCSETA

#    define	TCSADRAIN	TCSETAW

#    define	tcgetattr(f, t)	ioctl(f, TCGETA, (char *)t)

#   else

#    define	TCSANOW		TIOCSETA

#    define	TCSADRAIN	TIOCSETAW

#    define	tcgetattr(f, t)	ioctl(f, TIOCGETA, (char *)t)

#   endif

#  endif

#  define	tcsetattr(f, a, t)	ioctl(f, a, t)

#  define	cfsetospeed(tp, val)	(tp)->c_cflag &= ~CBAUD; \

(tp)->c_cflag |= (val)

#  define	cfgetospeed(tp)		((tp)->c_cflag & CBAUD)

#  ifdef CIBAUD

#   define	cfsetispeed(tp, val)	(tp)->c_cflag &= ~CIBAUD; \

     (tp)->c_cflag |= ((val)<<IBSHIFT)

#   define	cfgetispeed(tp)		(((tp)->c_cflag & CIBAUD)>>IBSHIFT)

#  else

#   define	cfsetispeed(tp, val)	(tp)->c_cflag &= ~CBAUD; \

     (tp)->c_cflag |= (val)

#   define	cfgetispeed(tp)		((tp)->c_cflag & CBAUD)

#  endif

# endif /* TCSANOW */

     struct termios termbuf, termbuf2;	/* pty control structure */

# ifdef  STREAMSPTY

     static int ttyfd = -1;

     int really_stream = 0;

# endif

     const char *new_login = _PATH_LOGIN;

/*

 * init_termbuf()

 * copy_termbuf(cp)

 * set_termbuf()

 *

 * These three routines are used to get and set the "termbuf" structure

 * to and from the kernel.  init_termbuf() gets the current settings.

 * copy_termbuf() hands in a new "termbuf" to write to the kernel, and

 * set_termbuf() writes the structure into the kernel.

 */

     void

     init_termbuf(void)

{

# ifdef  STREAMSPTY

    if (really_stream)

	tcgetattr(ttyfd, &termbuf);

    else

# endif

	tcgetattr(ourpty, &termbuf);

    termbuf2 = termbuf;

}

void

set_termbuf(void)

{

    /*

     * Only make the necessary changes.

	 */

    if (memcmp(&termbuf, &termbuf2, sizeof(termbuf)))

# ifdef  STREAMSPTY

	if (really_stream)

	    tcsetattr(ttyfd, TCSANOW, &termbuf);

	else

# endif

	    tcsetattr(ourpty, TCSANOW, &termbuf);

}

/*

 * spcset(func, valp, valpp)

 *

 * This function takes various special characters (func), and

 * sets *valp to the current value of that character, and

 * *valpp to point to where in the "termbuf" structure that

 * value is kept.

 *

 * It returns the SLC_ level of support for this function.

 */

int

spcset(int func, cc_t *valp, cc_t **valpp)

{

#define	setval(a, b)	*valp = termbuf.c_cc[a]; \

    *valpp = &termbuf.c_cc[a]; \

				   return(b);

#define	defval(a) *valp = ((cc_t)a); *valpp = (cc_t *)0; return(SLC_DEFAULT);

    switch(func) {

    case SLC_EOF:

	setval(VEOF, SLC_VARIABLE);

    case SLC_EC:

	setval(VERASE, SLC_VARIABLE);

    case SLC_EL:

	setval(VKILL, SLC_VARIABLE);

    case SLC_IP:

	setval(VINTR, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT);

    case SLC_ABORT:

	setval(VQUIT, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT);

    case SLC_XON:

#ifdef	VSTART

	setval(VSTART, SLC_VARIABLE);

#else

	defval(0x13);

#endif

    case SLC_XOFF:

#ifdef	VSTOP

	setval(VSTOP, SLC_VARIABLE);

#else

	defval(0x11);

#endif

    case SLC_EW:

#ifdef	VWERASE

	setval(VWERASE, SLC_VARIABLE);

#else

	defval(0);

#endif

    case SLC_RP:

#ifdef	VREPRINT

	setval(VREPRINT, SLC_VARIABLE);

#else

	defval(0);

#endif

    case SLC_LNEXT:

#ifdef	VLNEXT

	setval(VLNEXT, SLC_VARIABLE);

#else

	defval(0);

#endif

    case SLC_AO:

#if	!defined(VDISCARD) && defined(VFLUSHO)

# define VDISCARD VFLUSHO

#endif

#ifdef	VDISCARD

	setval(VDISCARD, SLC_VARIABLE|SLC_FLUSHOUT);

#else

	defval(0);

#endif

    case SLC_SUSP:

#ifdef	VSUSP

	setval(VSUSP, SLC_VARIABLE|SLC_FLUSHIN);

#else

	defval(0);

#endif

#ifdef	VEOL

    case SLC_FORW1:

	setval(VEOL, SLC_VARIABLE);

#endif

#ifdef	VEOL2

    case SLC_FORW2:

	setval(VEOL2, SLC_VARIABLE);

#endif

    case SLC_AYT:

#ifdef	VSTATUS

	setval(VSTATUS, SLC_VARIABLE);

#else

	defval(0);

#endif

    case SLC_BRK:

    case SLC_SYNCH:

    case SLC_EOR:

	defval(0);

    default:

	*valp = 0;

	*valpp = 0;

	return(SLC_NOSUPPORT);

    }

}

#ifdef _CRAY

/*

 * getnpty()

 *

 * Return the number of pty's configured into the system.

 */

int

getnpty()

{

#ifdef _SC_CRAY_NPTY

    int numptys;

    if ((numptys = sysconf(_SC_CRAY_NPTY)) != -1)

	return numptys;

    else

#endif /* _SC_CRAY_NPTY */

	return 128;

}

#endif /* CRAY */

/*

 * getpty()

 *

 * Allocate a pty.  As a side effect, the external character

 * array "line" contains the name of the slave side.

 *

 * Returns the file descriptor of the opened pty.

 */

static char Xline[] = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";

char *line = Xline;

#ifdef	_CRAY

char myline[] = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";

#endif	/* CRAY */

#if !defined(HAVE_PTSNAME) && defined(STREAMSPTY)

static char *ptsname(int fd)

{

#ifdef HAVE_TTYNAME

    return ttyname(fd);

#else

    return NULL;

#endif

}

#endif

int getpty(int *ptynum)

{

#ifdef __osf__ /* XXX */

    int master;

    int slave;

    if(openpty(&master, &slave, line, 0, 0) == 0){

	close(slave);

	return master;

    }

    return -1;

#else

#ifdef HAVE__GETPTY

    int master, slave;

    char *p;

    p = _getpty(&master, O_RDWR, 0600, 1);

    if(p == NULL)

	return -1;

    strlcpy(line, p, sizeof(Xline));

    return master;

#else

    int p;

    char *cp, *p1, *p2;

    int i;

#if SunOS == 40

    int dummy;

#endif

#if __linux

    int master;

    int slave;

    if(openpty(&master, &slave, line, 0, 0) == 0){

	close(slave);

	return master;

    }

#else

#ifdef	STREAMSPTY

    char *clone[] = { "/dev/ptc", "/dev/ptmx", "/dev/ptm", 

		      "/dev/ptym/clone", 0 };

    char **q;

    for(q=clone; *q; q++){

	p=open(*q, O_RDWR);

	if(p >= 0){

#ifdef HAVE_GRANTPT

	    grantpt(p);

#endif

#ifdef HAVE_UNLOCKPT

	    unlockpt(p);

#endif

	    strlcpy(line, ptsname(p), sizeof(Xline));

	    really_stream = 1;

	    return p;

	}

    }

#endif /* STREAMSPTY */

#ifndef _CRAY

#ifndef	__hpux

    snprintf(line, sizeof(Xline), "/dev/ptyXX");

    p1 = &line[8];

    p2 = &line[9];

#else

    snprintf(line, sizeof(Xline), "/dev/ptym/ptyXX");

    p1 = &line[13];

    p2 = &line[14];

#endif

    for (cp = "pqrstuvwxyzPQRST"; *cp; cp++) {

	struct stat stb;

	*p1 = *cp;

	*p2 = '0';

	/*

	 * This stat() check is just to keep us from

	 * looping through all 256 combinations if there

	 * aren't that many ptys available.

	 */

	if (stat(line, &stb) < 0)

	    break;

	for (i = 0; i < 16; i++) {

	    *p2 = "0123456789abcdef"[i];

	    p = open(line, O_RDWR);

	    if (p > 0) {

#ifndef	__hpux

		line[5] = 't';

#else

		for (p1 = &line[8]; *p1; p1++)

		    *p1 = *(p1+1);

		line[9] = 't';

#endif

		chown(line, 0, 0);

		chmod(line, 0600);

#if SunOS == 40

		if (ioctl(p, TIOCGPGRP, &dummy) == 0

		    || errno != EIO) {

		    chmod(line, 0666);

		    close(p);

		    line[5] = 'p';

		} else

#endif /* SunOS == 40 */

		    return(p);

	    }

	}

    }

#else	/* CRAY */

    extern lowpty, highpty;

    struct stat sb;

    for (*ptynum = lowpty; *ptynum <= highpty; (*ptynum)++) {

	snprintf(myline, sizeof(myline), "/dev/pty/%03d", *ptynum);

	p = open(myline, 2);

	if (p < 0)

	    continue;

	snprintf(line, sizeof(Xline), "/dev/ttyp%03d", *ptynum);

	/*

	 * Here are some shenanigans to make sure that there

	 * are no listeners lurking on the line.

	 */

	if(stat(line, &sb) < 0) {

	    close(p);

	    continue;

	}

	if(sb.st_uid || sb.st_gid || sb.st_mode != 0600) {

	    chown(line, 0, 0);