biz22.c revision 7527 
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
34#ifndef lint
35static char sccsid[] = "@(#)biz22.c	8.1 (Berkeley) 6/6/93";
36#endif /* not lint */
37
38#include "tipconf.h"
39#include "tip.h"
40
41#define DISCONNECT_CMD	"\20\04"	/* disconnection string */
42
43static	void sigALRM();
44static	int timeout = 0;
45static	jmp_buf timeoutbuf;
46
47/*
48 * Dial up on a BIZCOMP Model 1022 with either
49 * 	tone dialing (mod = "V")
50 *	pulse dialing (mod = "W")
51 */
52static int
53biz_dialer(num, mod)
54	char *num, *mod;
55{
56	register int connected = 0;
57	char cbuf[40];
58	static int cmd(), detect();
59
60	if (boolean(value(VERBOSE)))
61		printf("\nstarting call...");
62	/*
63	 * Disable auto-answer and configure for tone/pulse
64	 *  dialing
65	 */
66	if (cmd("\02K\r")) {
67		printf("can't initialize bizcomp...");
68		return (0);
69	}
70	strcpy(cbuf, "\02.\r");
71	cbuf[1] = *mod;
72	if (cmd(cbuf)) {
73		printf("can't set dialing mode...");
74		return (0);
75	}
76	strcpy(cbuf, "\02D");
77	strcat(cbuf, num);
78	strcat(cbuf, "\r");
79	write(FD, cbuf, strlen(cbuf));
80	if (!detect("7\r")) {
81		printf("can't get dial tone...");
82		return (0);
83	}
84	if (boolean(value(VERBOSE)))
85		printf("ringing...");
86	/*
87	 * The reply from the BIZCOMP should be:
88	 *	2 \r or 7 \r	failure
89	 *	1 \r		success
90	 */
91	connected = detect("1\r");
92#if ACULOG
93	if (timeout) {
94		char line[80];
95
96		sprintf(line, "%d second dial timeout",
97			number(value(DIALTIMEOUT)));
98		logent(value(HOST), num, "biz1022", line);
99	}
100#endif
101	if (timeout)
102		biz22_disconnect();	/* insurance */
103	return (connected);
104}
105
106biz22w_dialer(num, acu)
107	char *num, *acu;
108{
109
110	return (biz_dialer(num, "W"));
111}
112
113biz22f_dialer(num, acu)
114	char *num, *acu;
115{
116
117	return (biz_dialer(num, "V"));
118}
119
120biz22_disconnect()
121{
122	int rw = 2;
123
124	write(FD, DISCONNECT_CMD, 4);
125	sleep(2);
126	ioctl(FD, TIOCFLUSH, &rw);
127}
128
129biz22_abort()
130{
131
132	write(FD, "\02", 1);
133}
134
135static void
136sigALRM()
137{
138
139	timeout = 1;
140	longjmp(timeoutbuf, 1);
141}
142
143static int
144cmd(s)
145	register char *s;
146{
147	sig_t f;
148	char c;
149
150	write(FD, s, strlen(s));
151	f = signal(SIGALRM, sigALRM);
152	if (setjmp(timeoutbuf)) {
153		biz22_abort();
154		signal(SIGALRM, f);
155		return (1);
156	}
157	alarm(number(value(DIALTIMEOUT)));
158	read(FD, &c, 1);
159	alarm(0);
160	signal(SIGALRM, f);
161	c &= 0177;
162	return (c != '\r');
163}
164
165static int
166detect(s)
167	register char *s;
168{
169	sig_t f;
170	char c;
171
172	f = signal(SIGALRM, sigALRM);
173	timeout = 0;
174	while (*s) {
175		if (setjmp(timeoutbuf)) {
176			biz22_abort();
177			break;
178		}
179		alarm(number(value(DIALTIMEOUT)));
180		read(FD, &c, 1);
181		alarm(0);
182		c &= 0177;
183		if (c != *s++)
184			return (0);
185	}
186	signal(SIGALRM, f);
187	return (timeout == 0);
188}
189