[unix-history] / usr / src / usr.bin / tip / aculib / biz22.c

/*
 * Copyright (c) 1983 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. 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.
 */

#ifndef lint
static char sccsid[] = "@(#)biz22.c	5.5 (Berkeley) 3/2/91";
#endif /* not lint */

#include "tip.h"

#define DISCONNECT_CMD	"\20\04"	/* disconnection string */

static	void sigALRM();
static	int timeout = 0;
static	jmp_buf timeoutbuf;

/*
 * Dial up on a BIZCOMP Model 1022 with either
 * 	tone dialing (mod = "V")
 *	pulse dialing (mod = "W")
 */
static int
biz_dialer(num, mod)
	char *num, *mod;
{
	register int connected = 0;
	char cbuf[40];
	static int cmd(), detect();

	if (boolean(value(VERBOSE)))
		printf("\nstarting call...");
	/*
	 * Disable auto-answer and configure for tone/pulse
	 *  dialing
	 */
	if (cmd("\02K\r")) {
		printf("can't initialize bizcomp...");
		return (0);
	}
	strcpy(cbuf, "\02.\r");
	cbuf[1] = *mod;
	if (cmd(cbuf)) {
		printf("can't set dialing mode...");
		return (0);
	}
	strcpy(cbuf, "\02D");
	strcat(cbuf, num);
	strcat(cbuf, "\r");
	write(FD, cbuf, strlen(cbuf));
	if (!detect("7\r")) {
		printf("can't get dial tone...");
		return (0);
	}
	if (boolean(value(VERBOSE)))
		printf("ringing...");
	/*
	 * The reply from the BIZCOMP should be:
	 *	2 \r or 7 \r	failure
	 *	1 \r		success
	 */
	connected = detect("1\r");
#ifdef ACULOG
	if (timeout) {
		char line[80];

		sprintf(line, "%d second dial timeout",
			number(value(DIALTIMEOUT)));
		logent(value(HOST), num, "biz1022", line);
	}
#endif
	if (timeout)
		biz22_disconnect();	/* insurance */
	return (connected);
}

biz22w_dialer(num, acu)
	char *num, *acu;
{

	return (biz_dialer(num, "W"));
}

biz22f_dialer(num, acu)
	char *num, *acu;
{

	return (biz_dialer(num, "V"));
}

biz22_disconnect()
{
	int rw = 2;

	write(FD, DISCONNECT_CMD, 4);
	sleep(2);
	ioctl(FD, TIOCFLUSH, &rw);
}

biz22_abort()
{

	write(FD, "\02", 1);
}

static void
sigALRM()
{

	timeout = 1;
	longjmp(timeoutbuf, 1);
}

static int
cmd(s)
	register char *s;
{
	sig_t f;
	char c;

	write(FD, s, strlen(s));
	f = signal(SIGALRM, sigALRM);
	if (setjmp(timeoutbuf)) {
		biz22_abort();
		signal(SIGALRM, f);
		return (1);
	}
	alarm(number(value(DIALTIMEOUT)));
	read(FD, &c, 1);
	alarm(0);
	signal(SIGALRM, f);
	c &= 0177;
	return (c != '\r');
}

static int
detect(s)
	register char *s;
{
	sig_t f;
	char c;

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