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 are permitted 6 * provided that the above copyright notice and this paragraph are 7 * duplicated in all such forms and that any documentation, 8 * advertising materials, and other materials related to such 9 * distribution and use acknowledge that the software was developed 10 * by the University of California, Berkeley. The name of the 11 * University may not be used to endorse or promote products derived 12 * from this software without specific prior written permission. 13 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR 14 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED 15 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. 16 */ 17 18 #ifndef lint 19 static char sccsid[] = "@(#)biz22.c 5.3 (Berkeley) 10/03/89"; 20 #endif /* not lint */ 21 22 #include "tip.h" 23 24 #define DISCONNECT_CMD "\20\04" /* disconnection string */ 25 26 static void sigALRM(); 27 static int timeout = 0; 28 static jmp_buf timeoutbuf; 29 30 /* 31 * Dial up on a BIZCOMP Model 1022 with either 32 * tone dialing (mod = "V") 33 * pulse dialing (mod = "W") 34 */ 35 static int 36 biz_dialer(num, mod) 37 char *num, *mod; 38 { 39 register int connected = 0; 40 char cbuf[40]; 41 42 if (boolean(value(VERBOSE))) 43 printf("\nstarting call..."); 44 /* 45 * Disable auto-answer and configure for tone/pulse 46 * dialing 47 */ 48 if (cmd("\02K\r")) { 49 printf("can't initialize bizcomp..."); 50 return (0); 51 } 52 strcpy(cbuf, "\02.\r"); 53 cbuf[1] = *mod; 54 if (cmd(cbuf)) { 55 printf("can't set dialing mode..."); 56 return (0); 57 } 58 strcpy(cbuf, "\02D"); 59 strcat(cbuf, num); 60 strcat(cbuf, "\r"); 61 write(FD, cbuf, strlen(cbuf)); 62 if (!detect("7\r")) { 63 printf("can't get dial tone..."); 64 return (0); 65 } 66 if (boolean(value(VERBOSE))) 67 printf("ringing..."); 68 /* 69 * The reply from the BIZCOMP should be: 70 * 2 \r or 7 \r failure 71 * 1 \r success 72 */ 73 connected = detect("1\r"); 74 #ifdef ACULOG 75 if (timeout) { 76 char line[80]; 77 78 sprintf(line, "%d second dial timeout", 79 number(value(DIALTIMEOUT))); 80 logent(value(HOST), num, "biz1022", line); 81 } 82 #endif 83 if (timeout) 84 biz22_disconnect(); /* insurance */ 85 return (connected); 86 } 87 88 biz22w_dialer(num, acu) 89 char *num, *acu; 90 { 91 92 return (biz_dialer(num, "W")); 93 } 94 95 biz22f_dialer(num, acu) 96 char *num, *acu; 97 { 98 99 return (biz_dialer(num, "V")); 100 } 101 102 biz22_disconnect() 103 { 104 int rw = 2; 105 106 write(FD, DISCONNECT_CMD, 4); 107 sleep(2); 108 ioctl(FD, TIOCFLUSH, &rw); 109 } 110 111 biz22_abort() 112 { 113 114 write(FD, "\02", 1); 115 } 116 117 static void 118 sigALRM() 119 { 120 121 timeout = 1; 122 longjmp(timeoutbuf, 1); 123 } 124 125 static int 126 cmd(s) 127 register char *s; 128 { 129 sig_t f; 130 char c; 131 132 write(FD, s, strlen(s)); 133 f = signal(SIGALRM, sigALRM); 134 if (setjmp(timeoutbuf)) { 135 biz22_abort(); 136 signal(SIGALRM, f); 137 return (1); 138 } 139 alarm(number(value(DIALTIMEOUT))); 140 read(FD, &c, 1); 141 alarm(0); 142 signal(SIGALRM, f); 143 c &= 0177; 144 return (c != '\r'); 145 } 146 147 static int 148 detect(s) 149 register char *s; 150 { 151 sig_t f; 152 char c; 153 154 f = signal(SIGALRM, sigALRM); 155 timeout = 0; 156 while (*s) { 157 if (setjmp(timeoutbuf)) { 158 biz22_abort(); 159 break; 160 } 161 alarm(number(value(DIALTIMEOUT))); 162 read(FD, &c, 1); 163 alarm(0); 164 c &= 0177; 165 if (c != *s++) 166 return (0); 167 } 168 signal(SIGALRM, f); 169 return (timeout == 0); 170 } 171