1/*	$OpenBSD: biz31.c,v 1.10 2006/03/17 19:17:13 moritz Exp $	*/
2/*	$NetBSD: biz31.c,v 1.5 1997/02/11 09:24:14 mrg Exp $	*/
3
4/*
5 * Copyright (c) 1983, 1993
6 *	The Regents of the University of California.  All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 *    notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 *    notice, this list of conditions and the following disclaimer in the
15 *    documentation and/or other materials provided with the distribution.
16 * 3. Neither the name of the University nor the names of its contributors
17 *    may be used to endorse or promote products derived from this software
18 *    without specific prior written permission.
19 *
20 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30 * SUCH DAMAGE.
31 */
32
33#include <sys/cdefs.h>
34__FBSDID("$FreeBSD: releng/10.3/usr.bin/tip/libacu/biz31.c 161754 2006-08-31 14:14:30Z ru $");
35
36#ifndef lint
37#if 0
38static char sccsid[] = "@(#)biz31.c	8.1 (Berkeley) 6/6/93";
39static char rcsid[] = "$OpenBSD: biz31.c,v 1.10 2006/03/17 19:17:13 moritz Exp $";
40#endif
41#endif /* not lint */
42
43#include "tip.h"
44
45#define MAXRETRY	3		/* sync up retry count */
46#define DISCONNECT_CMD	"\21\25\11\24"	/* disconnection string */
47
48static int	biz_dialer(char *, char *);
49static int	bizsync(int);
50static int	echo(char *);
51static void	sigALRM(int);
52static int	detect(char *);
53static int	flush(char *);
54static int	bizsync(int);
55
56static	int timeout = 0;
57static	jmp_buf timeoutbuf;
58
59/*
60 * Dial up on a BIZCOMP Model 1031 with either
61 * 	tone dialing (mod = "f")
62 *	pulse dialing (mod = "w")
63 */
64static int
65biz_dialer(char *num, char *mod)
66{
67	int connected = 0;
68
69	if (!bizsync(FD)) {
70		logent(value(HOST), "", "biz", "out of sync");
71		printf("bizcomp out of sync\n");
72		delock(uucplock);
73		exit(0);
74	}
75	if (boolean(value(VERBOSE)))
76		printf("\nstarting call...");
77	echo("#\rk$\r$\n");			/* disable auto-answer */
78	echo("$>$.$ #\r");			/* tone/pulse dialing */
79	echo(mod);
80	echo("$\r$\n");
81	echo("$>$.$ #\re$ ");			/* disconnection sequence */
82	echo(DISCONNECT_CMD);
83	echo("\r$\n$\r$\n");
84	echo("$>$.$ #\rr$ ");			/* repeat dial */
85	echo(num);
86	echo("\r$\n");
87	if (boolean(value(VERBOSE)))
88		printf("ringing...");
89	/*
90	 * The reply from the BIZCOMP should be:
91	 *	`^G NO CONNECTION\r\n^G\r\n'	failure
92	 *	` CONNECTION\r\n^G'		success
93	 */
94	connected = detect(" ");
95#ifdef ACULOG
96	if (timeout) {
97		char line[80];
98
99		(void)snprintf(line, sizeof line, "%ld second dial timeout",
100			number(value(DIALTIMEOUT)));
101		logent(value(HOST), num, "biz", line);
102	}
103#endif
104	if (!connected)
105		flush(" NO CONNECTION\r\n\07\r\n");
106	else
107		flush("CONNECTION\r\n\07");
108	if (timeout)
109		biz31_disconnect();	/* insurance */
110	return (connected);
111}
112
113int
114biz31w_dialer(char *num, char *acu)
115{
116	return (biz_dialer(num, "w"));
117}
118
119int
120biz31f_dialer(char *num, char *acu)
121{
122	return (biz_dialer(num, "f"));
123}
124
125void
126biz31_disconnect(void)
127{
128	write(FD, DISCONNECT_CMD, sizeof(DISCONNECT_CMD)-1);
129	sleep(2);
130	tcflush(FD, TCIOFLUSH);
131}
132
133void
134biz31_abort(void)
135{
136	write(FD, "\33", 1);
137}
138
139static int
140echo(char *s)
141{
142	char c;
143
144	while (c = *s++) switch (c) {
145
146	case '$':
147		read(FD, &c, 1);
148		s++;
149		break;
150
151	case '#':
152		c = *s++;
153		write(FD, &c, 1);
154		break;
155
156	default:
157		write(FD, &c, 1);
158		read(FD, &c, 1);
159	}
160}
161
162/*ARGSUSED*/
163static void
164sigALRM(int signo)
165{
166	timeout = 1;
167	longjmp(timeoutbuf, 1);
168}
169
170static int
171detect(char *s)
172{
173	sig_t f;
174	char c;
175
176	f = signal(SIGALRM, sigALRM);
177	timeout = 0;
178	while (*s) {
179		if (setjmp(timeoutbuf)) {
180			printf("\07timeout waiting for reply\n");
181			biz31_abort();
182			break;
183		}
184		alarm(number(value(DIALTIMEOUT)));
185		read(FD, &c, 1);
186		alarm(0);
187		if (c != *s++)
188			break;
189	}
190	signal(SIGALRM, f);
191	return (timeout == 0);
192}
193
194static int
195flush(char *s)
196{
197	sig_t f;
198	char c;
199
200	f = signal(SIGALRM, sigALRM);
201	while (*s++) {
202		if (setjmp(timeoutbuf))
203			break;
204		alarm(10);
205		read(FD, &c, 1);
206		alarm(0);
207	}
208	signal(SIGALRM, f);
209	timeout = 0;			/* guard against disconnection */
210}
211
212/*
213 * This convoluted piece of code attempts to get
214 *  the bizcomp in sync.  If you don't have the capacity or nread
215 *  call there are gory ways to simulate this.
216 */
217static int
218bizsync(int fd)
219{
220#ifdef FIOCAPACITY
221	struct capacity b;
222#	define chars(b)	((b).cp_nbytes)
223#	define IOCTL	FIOCAPACITY
224#endif
225#ifdef FIONREAD
226	long b;
227#	define chars(b)	(b)
228#	define IOCTL	FIONREAD
229#endif
230	int already = 0;
231	char buf[10];
232
233retry:
234	if (ioctl(fd, IOCTL, (caddr_t)&b) >= 0 && chars(b) > 0)
235		tcflush(FD, TCIOFLUSH);
236	write(fd, "\rp>\r", 4);
237	sleep(1);
238	if (ioctl(fd, IOCTL, (caddr_t)&b) >= 0) {
239		if (chars(b) != 10) {
240	nono:
241			if (already > MAXRETRY)
242				return (0);
243			write(fd, DISCONNECT_CMD, 4);
244			sleep(2);
245			already++;
246			goto retry;
247		} else {
248			read(fd, buf, 10);
249			if (strncmp(buf, "p >\r\n\r\n>", 8))
250				goto nono;
251		}
252	}
253	return (1);
254}
255