usr.bin/tip/libacu/dn11.c

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