/* $NetBSD: v831.c,v 1.13 2016/06/30 05:56:46 dholland Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)v831.c 8.1 (Berkeley) 6/6/93"; #endif __RCSID("$NetBSD: v831.c,v 1.13 2016/06/30 05:56:46 dholland Exp $"); #endif /* not lint */ /* * Routines for dialing up on Vadic 831 */ #include "tip.h" static jmp_buf jmpbuf; static int child = -1; static void alarmtr(int); static int dialit(char *, char *); static char *sanitize(char *); int v831_dialer(char *num, char *acu) { int status, mypid; int timelim; if (boolean(value(VERBOSE))) (void)printf("\nstarting call..."); #ifdef DEBUG (void)printf("(acu=%s)\n", acu); #endif if ((AC = open(acu, O_RDWR)) < 0) { if (errno == EBUSY) (void)printf("line busy..."); else (void)printf("acu open error..."); return (0); } if (setjmp(jmpbuf)) { (void)kill(child, SIGKILL); (void)close(AC); return (0); } (void)signal(SIGALRM, alarmtr); timelim = 5 * strlen(num); (void)alarm((unsigned)(timelim < 30 ? 30 : timelim)); if ((child = fork()) == 0) { /* * ignore this stuff for aborts */ (void)signal(SIGALRM, SIG_IGN); (void)signal(SIGINT, SIG_IGN); (void)signal(SIGQUIT, SIG_IGN); (void)sleep(2); exit(dialit(num, acu) != 'A'); } /* * open line - will return on carrier */ if ((FD = open(DV, O_RDWR)) < 0) { #ifdef DEBUG (void)printf("(after open, errno=%d)\n", errno); #endif if (errno == EIO) (void)printf("lost carrier..."); else (void)printf("dialup line open failed..."); (void)alarm(0); (void)kill(child, SIGKILL); (void)close(AC); return (0); } (void)alarm(0); (void)signal(SIGALRM, SIG_DFL); while ((mypid = wait(&status)) != child && mypid != -1) ; if (status) { (void)close(AC); return (0); } return (1); } static void /*ARGSUSED*/ alarmtr(int dummy __unused) { (void)alarm(0); longjmp(jmpbuf, 1); } /* * Insurance, for some reason we don't seem to be * hanging up... */ void v831_disconnect(void) { struct termios cntrl; (void)sleep(2); #ifdef DEBUG (void)printf("[disconnect: FD=%d]\n", FD); #endif if (FD > 0) { (void)ioctl(FD, TIOCCDTR, 0); (void)tcgetattr(FD, &cntrl); (void)cfsetospeed(&cntrl, 0); (void)cfsetispeed(&cntrl, 0); (void)tcsetattr(FD, TCSAFLUSH, &cntrl); (void)ioctl(FD, TIOCNXCL, NULL); } (void)close(FD); } void v831_abort(void) { #ifdef DEBUG (void)printf("[abort: AC=%d]\n", AC); #endif (void)sleep(2); if (child > 0) (void)kill(child, SIGKILL); if (AC > 0) (void)ioctl(FD, TIOCNXCL, NULL); (void)close(AC); if (FD > 0) (void)ioctl(FD, TIOCCDTR, 0); (void)close(FD); } /* * Sigh, this probably must be changed at each site. */ struct vaconfig { const char *vc_name; char vc_rack; char vc_modem; } vaconfig[] = { { "/dev/cua0",'4','0' }, { "/dev/cua1",'4','1' }, { 0, '\0', '\0' } }; #define pc(x) (void)(c = x, write(AC,&c,1)) #define ABORT 01 #define SI 017 #define STX 02 #define ETX 03 static int dialit(char *phonenum, char *acu) { struct vaconfig *vp; struct termios cntrl; char c; int i; phonenum = sanitize(phonenum); #ifdef DEBUG (void)printf("(dial phonenum=%s)\n", phonenum); #endif if (*phonenum == '<' && phonenum[1] == 0) return ('Z'); for (vp = vaconfig; vp->vc_name; vp++) if (strcmp(vp->vc_name, acu) == 0) break; if (vp->vc_name == 0) { (void)printf("Unable to locate dialer (%s)\n", acu); return ('K'); } (void)tcgetattr(AC, &cntrl); (void)cfsetospeed(&cntrl, B2400); (void)cfsetispeed(&cntrl, B2400); cntrl.c_cflag |= PARODD | PARENB; cntrl.c_lflag &= ~(ISIG | ICANON); (void)tcsetattr(AC, TCSANOW, &cntrl); (void)tcflush(AC, TCIOFLUSH); pc(STX); pc(vp->vc_rack); pc(vp->vc_modem); while (*phonenum && *phonenum != '<') pc(*phonenum++); pc(SI); pc(ETX); (void)sleep(1); i = read(AC, &c, 1); #ifdef DEBUG (void)printf("read %d chars, char=%c, errno %d\n", i, c, errno); #endif if (i != 1) c = 'M'; if (c == 'B' || c == 'G') { char cc, oc = c; pc(ABORT); (void)read(AC, &cc, 1); #ifdef DEBUG (void)printf("abort response=%c\n", cc); #endif c = oc; v831_disconnect(); } (void)close(AC); #ifdef DEBUG (void)printf("dialit: returns %c\n", c); #endif return (c); } static char * sanitize(char *s) { static char buf[128]; char *cp; for (cp = buf; *s && buf + sizeof buf - cp > 1; s++) { if (!isdigit((unsigned char)*s) && *s != '<' && *s != '_') continue; if (*s == '_') *s = '='; *cp++ = *s; } *cp++ = 0; return (buf); }