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  *
  35  * @(#)v831.c   8.1 (Berkeley) 6/6/93
  36  */
  37
  38 /*
  39  * Routines for dialing up on Vadic 831
  40  */
  41 #include "tipconf.h"
  42 #include "tip.h"
  43 #include <errno.h>
  44
  45 int     v831_abort();
  46 static  void alarmtr();
  47 static int dialit(char *, char *);
  48 static char *sanitize(char *);
  49
  50 static jmp_buf jmpbuf;
  51 static int child = -1;
  52
  53 v831_dialer(num, acu)
  54         char *num, *acu;
  55 {
  56         int status, pid, connected = 1;
  57         int timelim;
  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         char *phonenum;
 183         char *acu;
 184 {
 185         struct vaconfig *vp;
 186         char c;
 187         int i, two = 2;
 188
 189         phonenum = sanitize(phonenum);
 190 #ifdef DEBUG
 191         printf ("(dial phonenum=%s)\n", phonenum);
 192 #endif
 193         if (*phonenum == '<' && phonenum[1] == 0)
 194                 return ('Z');
 195         for (vp = vaconfig; vp->vc_name; vp++)
 196                 if (strcmp(vp->vc_name, acu) == 0)
 197                         break;
 198         if (vp->vc_name == NULL) {
 199                 printf("Unable to locate dialer (%s)\n", acu);
 200                 return ('K');
 201         }
 202         {
 203 #if HAVE_TERMIOS
 204                                 struct termios termios;
 205                                 tcgetattr (AC, &termios);
 206                                 termios.c_iflag = 0;
 207 #ifndef _POSIX_SOURCE
 208                                 termios.c_lflag = (PENDIN|ECHOKE|ECHOE);
 209 #else
 210                                 termios.c_lflag = (PENDIN|ECHOE);
 211 #endif
 212                                 termios.c_cflag = (CLOCAL|HUPCL|CREAD|CS8);
 213                                 termios.c_ispeed = termios.c_ospeed = B2400;
 214                                 tcsetattr (AC, TCSANOW, &termios);
 215 #else /* HAVE_TERMIOS */
 216                                 struct sgttyb cntrl;
 217         ioctl(AC, TIOCGETP, &cntrl);
 218         cntrl.sg_ispeed = cntrl.sg_ospeed = B2400;
 219         cntrl.sg_flags = RAW | EVENP | ODDP;
 220         ioctl(AC, TIOCSETP, &cntrl);
 221  #endif
 222         }
 223         ioctl(AC, TIOCFLUSH, &two);
 224         pc(STX);
 225         pc(vp->vc_rack);
 226         pc(vp->vc_modem);
 227         while (*phonenum && *phonenum != '<')
 228                 pc(*phonenum++);
 229         pc(SI);
 230         pc(ETX);
 231         sleep(1);
 232         i = read(AC, &c, 1);
 233 #ifdef DEBUG
 234         printf("read %d chars, char=%c, errno %d\n", i, c, errno);
 235 #endif
 236         if (i != 1)
 237                 c = 'M';
 238         if (c == 'B' || c == 'G') {
 239                 char cc, oc = c;
 240
 241                 pc(ABORT);
 242                 read(AC, &cc, 1);
 243 #ifdef DEBUG
 244                 printf("abort response=%c\n", cc);
 245 #endif
 246                 c = oc;
 247                 v831_disconnect();
 248         }
 249         close(AC);
 250 #ifdef DEBUG
 251         printf("dialit: returns %c\n", c);
 252 #endif
 253         return (c);
 254 }
 255
 256 static char *
 257 sanitize(s)
 258         char *s;
 259 {
 260         static char buf[128];
 261         char *cp;
 262
 263         for (cp = buf; *s; s++) {
 264                 if (!isdigit(*s) && *s == '<' && *s != '_')
 265                         continue;
 266                 if (*s == '_')
 267                         *s = '=';
 268                 *cp++ = *s;
 269         }
 270         *cp++ = 0;
 271         return (buf);
 272 }