/usr.bin/tip/libacu/biz22.c
https://bitbucket.org/freebsd/freebsd-head/ · C · 187 lines · 123 code · 19 blank · 45 comment · 14 complexity · 6b305245babeba800cc2be2e13f902ae MD5 · raw file
- /* $OpenBSD: biz22.c,v 1.13 2006/03/17 19:17:13 moritz Exp $ */
- /* $NetBSD: biz22.c,v 1.6 1997/02/11 09:24:11 mrg 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 <sys/cdefs.h>
- __FBSDID("$FreeBSD$");
- #ifndef lint
- #if 0
- static char sccsid[] = "@(#)biz22.c 8.1 (Berkeley) 6/6/93";
- static const char rcsid[] = "$OpenBSD: biz22.c,v 1.13 2006/03/17 19:17:13 moritz Exp $";
- #endif
- #endif /* not lint */
- #include "tip.h"
- #define DISCONNECT_CMD "\20\04" /* disconnection string */
- static int dialtimeout = 0;
- static jmp_buf timeoutbuf;
- static int biz_dialer(char *, char *);
- static void sigALRM(int);
- static int cmd(char *);
- static int detect(char *);
- /*
- * Dial up on a BIZCOMP Model 1022 with either
- * tone dialing (mod = "V")
- * pulse dialing (mod = "W")
- */
- static int
- biz_dialer(char *num, char *mod)
- {
- int connected = 0;
- char cbuf[40];
- 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);
- }
- (void)strlcpy(cbuf, "\02.\r", sizeof cbuf);
- cbuf[1] = *mod;
- if (cmd(cbuf)) {
- printf("can't set dialing mode...");
- return (0);
- }
- (void)snprintf(cbuf, sizeof(cbuf), "\02D%s\r", num);
- 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 (dialtimeout) {
- char line[80];
- (void)snprintf(line, sizeof line, "%ld second dial timeout",
- number(value(DIALTIMEOUT)));
- logent(value(HOST), num, "biz1022", line);
- }
- #endif
- if (dialtimeout)
- biz22_disconnect(); /* insurance */
- return (connected);
- }
- int
- biz22w_dialer(char *num, char *acu)
- {
- return (biz_dialer(num, "W"));
- }
- int
- biz22f_dialer(char *num, char *acu)
- {
- return (biz_dialer(num, "V"));
- }
- void
- biz22_disconnect(void)
- {
- write(FD, DISCONNECT_CMD, sizeof(DISCONNECT_CMD)-1);
- sleep(2);
- tcflush(FD, TCIOFLUSH);
- }
- void
- biz22_abort(void)
- {
- write(FD, "\02", 1);
- }
- /*ARGSUSED*/
- static void
- sigALRM(int signo)
- {
- dialtimeout = 1;
- longjmp(timeoutbuf, 1);
- }
- static int
- cmd(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(char *s)
- {
- sig_t f;
- char c;
- f = signal(SIGALRM, sigALRM);
- dialtimeout = 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 (dialtimeout == 0);
- }