v831.c revision 59217 
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: head/usr.bin/tip/libacu/v831.c 59217 2000-04-14 06:39:19Z imp $
34 */
35
36#ifndef lint
37static 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
47int	v831_abort();
48static	void alarmtr();
49
50static jmp_buf jmpbuf;
51static int child = -1;
52
53v831_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
120static void
121alarmtr()
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 */
131v831_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
145v831_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 */
165struct 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
181static int
182dialit(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
258static char *
259sanitize(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}
275