usr.bin/tip/libacu/dn11.c

   1 /*      $OpenBSD: dn11.c,v 1.9 2006/03/17 19:17:13 moritz Exp $ */
   2 /*      $NetBSD: dn11.c,v 1.4 1995/10/29 00:49:53 pk Exp $      */
   3
   4 /*-
   5  * SPDX-License-Identifier: BSD-3-Clause
   6  *
   7  * Copyright (c) 1983, 1993
   8  *      The Regents of the University of California.  All rights reserved.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  * 3. Neither the name of the University nor the names of its contributors
  19  *    may be used to endorse or promote products derived from this software
  20  *    without specific prior written permission.
  21  *
  22  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  23  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  26  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  28  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  29  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  31  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32  * SUCH DAMAGE.
  33  */
  34
  35 #include <sys/cdefs.h>
  36 __FBSDID("$FreeBSD$");
  37
  38 #ifndef lint
  39 #if 0
  40 static char sccsid[] = "@(#)dn11.c      8.1 (Berkeley) 6/6/93";
  41 static const char rcsid[] = "$OpenBSD: dn11.c,v 1.9 2006/03/17 19:17:13 moritz Exp $";
  42 #endif
  43 #endif /* not lint */
  44
  45 /*
  46  * Routines for dialing up on DN-11
  47  */
  48 #include "tip.h"
  49
  50 static jmp_buf jmpbuf;
  51 static pid_t child = -1, dn;
  52
  53 static void alarmtr(int);
  54
  55 int
  56 dn_dialer(char *num, char *acu)
  57 {
  58         int lt, nw;
  59         int timelim;
  60         struct termios cntrl;
  61
  62         if (boolean(value(VERBOSE)))
  63                 printf("\nstarting call...");
  64         if ((dn = open(acu, 1)) < 0) {
  65                 if (errno == EBUSY)
  66                         printf("line busy...");
  67                 else
  68                         printf("acu open error...");
  69                 return (0);
  70         }
  71         if (setjmp(jmpbuf)) {
  72                 kill(child, SIGKILL);
  73                 close(dn);
  74                 return (0);
  75         }
  76         signal(SIGALRM, alarmtr);
  77         timelim = 5 * strlen(num);
  78         alarm(timelim < 30 ? 30 : timelim);
  79         if ((child = fork()) == 0) {
  80                 /*
  81                  * ignore this stuff for aborts
  82                  */
  83                 signal(SIGALRM, SIG_IGN);
  84                 signal(SIGINT, SIG_IGN);
  85                 signal(SIGQUIT, SIG_IGN);
  86                 sleep(2);
  87                 nw = write(dn, num, lt = strlen(num));
  88                 exit(nw != lt);
  89         }
  90         /*
  91          * open line - will return on carrier
  92          */
  93         if ((FD = open(DV, 2)) < 0) {
  94                 if (errno == EIO)
  95                         printf("lost carrier...");
  96                 else
  97                         printf("dialup line open failed...");
  98                 alarm(0);
  99                 kill(child, SIGKILL);
 100                 close(dn);
 101                 return (0);
 102         }
 103         alarm(0);
 104         tcgetattr(dn, &cntrl);
 105         cntrl.c_cflag |= HUPCL;
 106         tcsetattr(dn, TCSANOW, &cntrl);
 107         signal(SIGALRM, SIG_DFL);
 108         while ((nw = wait(&lt)) != child && nw != -1)
 109                 ;
 110         fflush(stdout);
 111         close(dn);
 112         if (lt != 0) {
 113                 close(FD);
 114                 return (0);
 115         }
 116         return (1);
 117 }
 118
 119 /*ARGSUSED*/
 120 static void
 121 alarmtr(int signo)
 122 {
 123         alarm(0);
 124         longjmp(jmpbuf, 1);
 125 }
 126
 127 /*
 128  * Insurance, for some reason we don't seem to be
 129  *  hanging up...
 130  */
 131 void
 132 dn_disconnect(void)
 133 {
 134         sleep(2);
 135         if (FD > 0)
 136                 ioctl(FD, TIOCCDTR, 0);
 137         close(FD);
 138 }
 139
 140 void
 141 dn_abort(void)
 142 {
 143         sleep(2);
 144         if (child > 0)
 145                 kill(child, SIGKILL);
 146         if (dn > 0)
 147                 close(dn);
 148         if (FD > 0)
 149                 ioctl(FD, TIOCCDTR, 0);
 150         close(FD);
 151 }