usr.bin/tip/libacu/v831.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/v831.c,v 1.1.12.1 2000/07/01 12:24:22 ps Exp $
  34  * $DragonFly: src/usr.bin/tip/libacu/v831.c,v 1.2 2003/06/17 04:29:32 dillon Exp $
  35  *
  36  * @(#)v831.c   8.1 (Berkeley) 6/6/93
  37  */
  38
  39 /*
  40  * Routines for dialing up on Vadic 831
  41  */
  42 #include "tipconf.h"
  43 #include "tip.h"
  44 #include <errno.h>
  45
  46 int     v831_abort();
  47 static  void alarmtr();
  48
  49 static jmp_buf jmpbuf;
  50 static int child = -1;
  51
  52 v831_dialer(num, acu)
  53         char *num, *acu;
  54 {
  55         int status, pid, connected = 1;
  56         register int timelim;
  57         static int dialit();
  58
  59         if (boolean(value(VERBOSE)))
  60                 printf("\nstarting call...");
  61 #ifdef DEBUG
  62         printf ("(acu=%s)\n", acu);
  63 #endif
  64         if ((AC = open(acu, O_RDWR)) < 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(AC);
  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                 exit(dialit(num, acu) != 'A');
  88         }
  89         /*
  90          * open line - will return on carrier
  91          */
  92         if ((FD = open(DV, O_RDWR)) < 0) {
  93 #ifdef DEBUG
  94                 printf("(after open, errno=%d)\n", errno);
  95 #endif
  96                 if (errno == EIO)
  97                         printf("lost carrier...");
  98                 else
  99                         printf("dialup line open failed...");
 100                 alarm(0);
 101                 kill(child, SIGKILL);
 102                 close(AC);
 103                 return (0);
 104         }
 105         alarm(0);
 106 #ifdef notdef
 107         ioctl(AC, TIOCHPCL, 0);
 108 #endif
 109         signal(SIGALRM, SIG_DFL);
 110         while ((pid = wait(&status)) != child && pid != -1)
 111                 ;
 112         if (status) {
 113                 close(AC);
 114                 return (0);
 115         }
 116         return (1);
 117 }
 118
 119 static void
 120 alarmtr()
 121 {
 122         alarm(0);
 123         longjmp(jmpbuf, 1);
 124 }
 125
 126 /*
 127  * Insurance, for some reason we don't seem to be
 128  *  hanging up...
 129  */
 130 v831_disconnect()
 131 {
 132         sleep(2);
 133 #ifdef DEBUG
 134         printf("[disconnect: FD=%d]\n", FD);
 135 #endif
 136         if (FD > 0) {
 137                 ioctl(FD, TIOCCDTR, 0);
 138                                                                 acu_setspeec (0);
 139                 ioctl(FD, TIOCNXCL, 0);
 140         }
 141         close(FD);
 142 }
 143
 144 v831_abort()
 145 {
 146
 147 #ifdef DEBUG
 148         printf("[abort: AC=%d]\n", AC);
 149 #endif
 150         sleep(2);
 151         if (child > 0)
 152                 kill(child, SIGKILL);
 153         if (AC > 0)
 154                 ioctl(FD, TIOCNXCL, 0);
 155                 close(AC);
 156         if (FD > 0)
 157                 ioctl(FD, TIOCCDTR, 0);
 158         close(FD);
 159 }
 160
 161 /*
 162  * Sigh, this probably must be changed at each site.
 163  */
 164 struct vaconfig {
 165         char    *vc_name;
 166         char    vc_rack;
 167         char    vc_modem;
 168 } vaconfig[] = {
 169         { "/dev/cua0",'4','0' },
 170         { "/dev/cua1",'4','1' },
 171         { 0 }
 172 };
 173
 174 #define pc(x)   (c = x, write(AC,&c,1))
 175 #define ABORT   01
 176 #define SI      017
 177 #define STX     02
 178 #define ETX     03
 179
 180 static int
 181 dialit(phonenum, acu)
 182         register char *phonenum;
 183         char *acu;
 184 {
 185         register struct vaconfig *vp;
 186         char c;
 187         int i, two = 2;
 188         static char *sanitize();
 189
 190         phonenum = sanitize(phonenum);
 191 #ifdef DEBUG
 192         printf ("(dial phonenum=%s)\n", phonenum);
 193 #endif
 194         if (*phonenum == '<' && phonenum[1] == 0)
 195                 return ('Z');
 196         for (vp = vaconfig; vp->vc_name; vp++)
 197                 if (strcmp(vp->vc_name, acu) == 0)
 198                         break;
 199         if (vp->vc_name == 0) {
 200                 printf("Unable to locate dialer (%s)\n", acu);
 201                 return ('K');
 202         }
 203         {
 204 #if HAVE_TERMIOS
 205                                 struct termios termios;
 206                                 tcgetattr (AC, &termios);
 207                                 termios.c_iflag = 0;
 208 #ifndef _POSIX_SOURCE
 209                                 termios.c_lflag = (PENDIN|ECHOKE|ECHOE);
 210 #else
 211                                 termios.c_lflag = (PENDIN|ECHOE);
 212 #endif
 213                                 termios.c_cflag = (CLOCAL|HUPCL|CREAD|CS8);
 214                                 termios.c_ispeed = termios.c_ospeed = B2400;
 215                                 tcsetattr (AC, TCSANOW, &termios);
 216 #else /* HAVE_TERMIOS */
 217                                 struct sgttyb cntrl;
 218         ioctl(AC, TIOCGETP, &cntrl);
 219         cntrl.sg_ispeed = cntrl.sg_ospeed = B2400;
 220         cntrl.sg_flags = RAW | EVENP | ODDP;
 221         ioctl(AC, TIOCSETP, &cntrl);
 222  #endif
 223         }
 224         ioctl(AC, TIOCFLUSH, &two);
 225         pc(STX);
 226         pc(vp->vc_rack);
 227         pc(vp->vc_modem);
 228         while (*phonenum && *phonenum != '<')
 229                 pc(*phonenum++);
 230         pc(SI);
 231         pc(ETX);
 232         sleep(1);
 233         i = read(AC, &c, 1);
 234 #ifdef DEBUG
 235         printf("read %d chars, char=%c, errno %d\n", i, c, errno);
 236 #endif
 237         if (i != 1)
 238                 c = 'M';
 239         if (c == 'B' || c == 'G') {
 240                 char cc, oc = c;
 241
 242                 pc(ABORT);
 243                 read(AC, &cc, 1);
 244 #ifdef DEBUG
 245                 printf("abort response=%c\n", cc);
 246 #endif
 247                 c = oc;
 248                 v831_disconnect();
 249         }
 250         close(AC);
 251 #ifdef DEBUG
 252         printf("dialit: returns %c\n", c);
 253 #endif
 254         return (c);
 255 }
 256
 257 static char *
 258 sanitize(s)
 259         register char *s;
 260 {
 261         static char buf[128];
 262         register char *cp;
 263
 264         for (cp = buf; *s; s++) {
 265                 if (!isdigit(*s) && *s == '<' && *s != '_')
 266                         continue;
 267                 if (*s == '_')
 268                         *s = '=';
 269                 *cp++ = *s;
 270         }
 271         *cp++ = 0;
 272         return (buf);
 273 }