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