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.3 2005/05/07 23:20:43 corecode 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 static int dialit(char *, char *);
  49 static char *sanitize(char *);
  50
  51 static jmp_buf jmpbuf;
  52 static int child = -1;
  53
  54 v831_dialer(num, acu)
  55         char *num, *acu;
  56 {
  57         int status, pid, connected = 1;
  58         register int timelim;
  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
 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 }