/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved	*/

#pragma ident	"%Z%%M%	%I%	%E% SMI"

/*
 * *************************************************************
 *	  dial() returns an fd for an open tty-line connected to the
 *	  specified remote.  The caller should trap all ways to
 *	  terminate, and call undial(). This will release the `lock'
 *	  file and return the outgoing line to the system.  This routine
 *	  would prefer that the calling routine not use the `alarm()'
 *	  system call, nor issue a `signal(SIGALRM, xxx)' call.
 *	  If you must, then please save and restore the alarm times.
 *	  The sleep() library routine is ok, though.
 *
 *	#include <sys/types.h>
 *	#include <sys/stat.h>
 *	  #include "dial.h"
 *
 *	  int dial(call);
 *	  CALL call;
 *
 *	  void undial(rlfd);
 *	  int rlfd;
 *
 *	  rlfd is the "remote-lne file descriptor" returned from dial.
 *
 *	  The CALL structure as (defined in dial.h):
 *
 *	  typedef struct {
 *			  struct termio *attr;	ptr to term attribute structure
 *			  int	 baud;		   no longer used --
 *					left in for backwards compatibility
 *			  int	 speed;		  212A modem: low=300, high=1200
 *					negative for "Any" speed
 *			  char	*line;		  device name for out-going line
 *			  char	*telno;		 ptr to tel-no digit string
 *		int	modem		no longer used --
 *					left in for backwards compatibility
 *		char	*device		no longer used --
 *					left in for backwards compatibility
 *		int	dev_len		no longer used --
 *					left in for backwards compatibility
 *	  } CALL;
 *
 *	  The error returns from dial are negative, in the range -1
 *	  to -13, and their meanings are:
 *
 *			  INTRPT   -1: interrupt occured
 *			  D_HUNG   -2: dialer hung (no return from write)
 *			  NO_ANS   -3: no answer (caller script failed)
 *			  ILL_BD   -4: illegal baud-rate
 *			  A_PROB   -5: acu problem (open() failure)
 *			  L_PROB   -6: line problem (open() failure)
 *			  NO_Ldv   -7: can't open Devices file
 *			  DV_NT_A  -8: specified device not available
 *			  DV_NT_K  -9: specified device not known
 *			  NO_BD_A -10: no dev available at requested baud-rate
 *			  NO_BD_K -11: no device known at requested baud-rate
 *		DV_NT_E -12: requested speed does not match
 *		BAD_SYS -13: system not in Systems file
 *
 *	  Setting attributes in the termio structure indicated in
 *	  the `attr' field of the CALL structure before passing the
 *	  structure to dial(), will cause those attributes to be set
 *	  before the connection is made.  This can be important for
 *	  some attributes such as parity and baud.
 *
 *	  With an error return (negative value), there will not be
 *	  any `lock-file' entry, so no need to call undial().
 * *************************************************************
 */

#include "mt.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>
#include <setjmp.h>
#include <sys/stat.h>
#include <sys/times.h>

#include "dial.h"

#include "uucp.h"
#include "uucpdefs.c"

#include "callers.c"
#include "conn.c"
#include "getargs.c"
#include "interface.c"
#include "line.c"
#include "stoa.c"
#include "strecpy.c"
#include "strsave.c"
#include "sysfiles.c"
#include "ulockf.c"

static int rlfd;			/* fd for remote comm line */

static jmp_buf Sjbuf;		/* needed by connection routines */

/* VARARGS */
/* ARGSUSED */
static void
assert(const char *s1, const char *s2, int i1, const char *s3, int i2)
{					/* for ASSERT in conn() */
}

/* ARGSUSED */
static void
logent(const char *s1, const char *s2)
{					/* so we can load unlockf() */
}

static void
cleanup(int Cn)		/* this is executed only in the parent process */
{
	(void) restline();
	(void) setuid(Euid);
	if (Cn > 0)
		(void) close(Cn);

	rmlock(NULL);	/* uucp routine in ulockf.c */
}

int
dial(CALL call)
{
	char *alt[7];
	char speed[10];		/* character value of speed passed to dial */

	/* set service so we know which Sysfiles entries to use, then	*/
	/* be sure can access Devices file(s).  use "cu" entries ...	*/
	/* dial is more like cu than like uucico.			*/

	(void) strcpy(Progname, "cu");
	setservice(Progname);
	if (sysaccess(EACCESS_DEVICES) != 0)
		/* can't read Devices file(s)	*/
		return (NO_Ldv);

	if (call.attr != NULL) {
		if (call.attr->c_cflag & PARENB) {
			Evenflag = ((call.attr->c_cflag & PARODD) ? 0 : 1);
			Oddflag = ((call.attr->c_cflag & PARODD) ? 1 : 0);
		}
		line_8bit = (call.attr->c_cflag & CS8 ? 1 : 0);
	}

	if (call.speed <= 0)
		(void) strcpy(speed, "Any");
	else
		(void) sprintf(speed, "%d", call.speed);

	/* Determine whether contents of "telno" is a system name. */
	if ((call.telno != NULL) &&
		(strlen(call.telno) != strspn(call.telno, "0123456789=-*#"))) {
		/* use conn() for system names */
		rlfd = conn(call.telno);
	} else {
		alt[F_NAME] = "dummy";	/* to replace the Systems file fields */
		alt[F_TIME] = "Any";	/* needed for getto(); [F_TYPE] and */
		alt[F_TYPE] = "";	/* [F_PHONE] assignment below	   */
		alt[F_CLASS] = speed;
		alt[F_PHONE] = "";
		alt[F_LOGIN] = "";
		alt[6] = "";

		if ((call.telno != NULL) && (*call.telno != '\0')) {
			/* given a phone number, use an ACU */
			alt[F_PHONE] = call.telno;
			alt[F_TYPE] = "ACU";
		} else {
			/* otherwise, use a Direct connection */
			alt[F_TYPE] = "Direct";
			/* If device name starts with "/dev/", strip it off  */
			/* since Devices file entries will also be stripped. */
			if ((call.line != NULL) &&
				(strncmp(call.line, "/dev/", 5) == 0))
				Myline = (call.line + 5);
			else
				Myline = call.line;
		}

#ifdef forfutureuse
		if (call->class != NULL)
			alt[F_TYPE] = call->class;
#endif


		rlfd = getto(alt);
	}
	if (rlfd < 0)
		switch (Uerror) {
			case SS_NO_DEVICE:
				return (NO_BD_A);
			case SS_DIAL_FAILED:
				return (D_HUNG);
			case SS_LOCKED_DEVICE:
				return (DV_NT_A);
			case SS_BADSYSTEM:
				return (BAD_SYS);
			case SS_CANT_ACCESS_DEVICE:
				return (L_PROB);
			case SS_CHAT_FAILED:
				return (NO_ANS);
			default:
				return (-Uerror);
		}
	(void) savline();
	if ((call.attr) && ioctl(rlfd, TCSETA, call.attr) < 0) {
		perror("stty for remote");
		return (L_PROB);
	}
	Euid = geteuid();
	if (setuid(getuid()) && setgid(getgid()) < 0)
		undial(rlfd);
	return (rlfd);
}

/*
 * undial(fd)
 */
void
undial(int fd)
{
	sethup(fd);
	(void) sleep(2);
	cleanup(fd);
}