1 /*
2 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
3 * Use is subject to license terms.
4 */
5
6 /*
7 * Copyright (c) 1983 Regents of the University of California.
8 * All rights reserved. The Berkeley software License Agreement
9 * specifies the terms and conditions for redistribution.
10 */
11
12 #pragma ident "%Z%%M% %I% %E% SMI"
13
14 #include "tip.h"
15
16 #define MAXRETRY 3 /* sync up retry count */
17 #define DISCONNECT_CMD "\21\25\11\24" /* disconnection string */
18
19 static int detect(char *);
20 static int bizsync(int);
21 static void echo(char *);
22 static void flush(char *);
23 static void sigALRM(void);
24 static int timeout = 0;
25 static sigjmp_buf timeoutbuf;
26
27 void biz31_disconnect(void);
28
29 /*
30 * Dial up on a BIZCOMP Model 1031 with either
31 * tone dialing (mod = "f")
32 * pulse dialing (mod = "w")
33 */
34 static int
biz_dialer(char * num,char * mod)35 biz_dialer(char *num, char *mod)
36 {
37 int connected = 0;
38
39 if (!bizsync(FD)) {
40 logent(value(HOST), "", "biz", "out of sync");
41 (void) printf("bizcomp out of sync\n");
42 delock(uucplock);
43 exit(0);
44 }
45 if (boolean(value(VERBOSE)))
46 (void) printf("\nstarting call...");
47 echo("#\rk$\r$\n"); /* disable auto-answer */
48 echo("$>$.$ #\r"); /* tone/pulse dialing */
49 echo(mod);
50 echo("$\r$\n");
51 echo("$>$.$ #\re$ "); /* disconnection sequence */
52 echo(DISCONNECT_CMD);
53 echo("\r$\n$\r$\n");
54 echo("$>$.$ #\rr$ "); /* repeat dial */
55 echo(num);
56 echo("\r$\n");
57 if (boolean(value(VERBOSE)))
58 (void) printf("ringing...");
59 /*
60 * The reply from the BIZCOMP should be:
61 * `^G NO CONNECTION\r\n^G\r\n' failure
62 * ` CONNECTION\r\n^G' success
63 */
64 connected = detect(" ");
65 #ifdef ACULOG
66 if (timeout) {
67 char line[80];
68
69 (void) sprintf(line, "%d second dial timeout",
70 number(value(DIALTIMEOUT)));
71 logent(value(HOST), num, "biz", line);
72 }
73 #endif
74 if (!connected)
75 flush(" NO CONNECTION\r\n\07\r\n");
76 else
77 flush("CONNECTION\r\n\07");
78 if (timeout)
79 biz31_disconnect(); /* insurance */
80 return (connected);
81 }
82
83 /* ARGSUSED */
84 int
biz31w_dialer(char * num,char * acu)85 biz31w_dialer(char *num, char *acu)
86 {
87
88 return (biz_dialer(num, "w"));
89 }
90
91 /* ARGSUSED */
92 int
biz31f_dialer(char * num,char * acu)93 biz31f_dialer(char *num, char *acu)
94 {
95
96 return (biz_dialer(num, "f"));
97 }
98
99 void
biz31_disconnect(void)100 biz31_disconnect(void)
101 {
102
103 (void) write(FD, DISCONNECT_CMD, 4);
104 (void) sleep(2);
105 (void) ioctl(FD, TCFLSH, TCOFLUSH);
106 }
107
108 void
biz31_abort(void)109 biz31_abort(void)
110 {
111
112 (void) write(FD, "\33", 1);
113 }
114
115 static void
echo(char * s)116 echo(char *s)
117 {
118 char c;
119
120 while (c = *s++) {
121 switch (c) {
122 case '$':
123 (void) read(FD, &c, 1);
124 s++;
125 break;
126
127 case '#':
128 c = *s++;
129 (void) write(FD, &c, 1);
130 break;
131
132 default:
133 (void) write(FD, &c, 1);
134 (void) read(FD, &c, 1);
135 }
136 }
137 }
138
139 static void
sigALRM(void)140 sigALRM(void)
141 {
142
143 timeout = 1;
144 siglongjmp(timeoutbuf, 1);
145 }
146
147 static int
detect(char * s)148 detect(char *s)
149 {
150 char c;
151 sig_handler_t f;
152
153 f = signal(SIGALRM, (sig_handler_t)sigALRM);
154 timeout = 0;
155 while (*s) {
156 if (sigsetjmp(timeoutbuf, 1)) {
157 (void) printf("\07timeout waiting for reply\n");
158 biz31_abort();
159 break;
160 }
161 (void) alarm(number(value(DIALTIMEOUT)));
162 (void) read(FD, &c, 1);
163 (void) alarm(0);
164 if (c != *s++)
165 break;
166 }
167 (void) signal(SIGALRM, f);
168 return (timeout == 0);
169 }
170
171 static void
flush(char * s)172 flush(char *s)
173 {
174 char c;
175 sig_handler_t f;
176
177 f = signal(SIGALRM, (sig_handler_t)sigALRM);
178 while (*s++) {
179 if (sigsetjmp(timeoutbuf, 1))
180 break;
181 (void) alarm(10);
182 (void) read(FD, &c, 1);
183 (void) alarm(0);
184 }
185 (void) signal(SIGALRM, f);
186 timeout = 0; /* guard against disconnection */
187 }
188
189 /*
190 * This convoluted piece of code attempts to get
191 * the bizcomp in sync. If you don't have the capacity or nread
192 * call there are gory ways to simulate this.
193 */
194 static int
bizsync(int fd)195 bizsync(int fd)
196 {
197 #ifdef FIOCAPACITY
198 struct capacity b;
199 #define chars(b) ((b).cp_nbytes)
200 #define IOCTL FIOCAPACITY
201 #endif
202 #ifdef FIONREAD
203 long b;
204 #define chars(b) (b)
205 #define IOCTL FIONREAD
206 #endif
207 int already = 0;
208 char buf[10];
209
210 retry:
211 if (ioctl(fd, IOCTL, (caddr_t)&b) >= 0 && chars(b) > 0)
212 (void) ioctl(fd, TCFLSH, TCIOFLUSH);
213 (void) write(fd, "\rp>\r", 4);
214 (void) sleep(1);
215 if (ioctl(fd, IOCTL, (caddr_t)&b) >= 0) {
216 if (chars(b) != 10) {
217 nono:
218 if (already > MAXRETRY)
219 return (0);
220 (void) write(fd, DISCONNECT_CMD, 4);
221 (void) sleep(2);
222 already++;
223 goto retry;
224 } else {
225 (void) read(fd, buf, 10);
226 if (strncmp(buf, "p >\r\n\r\n>", 8))
227 goto nono;
228 }
229 }
230 return (1);
231 }
232