root/usr/src/lib/libnsl/dial/dial.c
/*
 * 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   */

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