![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dialout.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / libc / gen|
Return to dialout.c CVS log | Up to [Research Unix] / researchv8dc / libc / gen |
1.1 root 1: #include <sgtty.h>
2: #include <signal.h>
3: #include <errno.h>
4: #include <stdio.h>
5: #include <sys/types.h>
6: #include <sys/stat.h>
7: #include <pwd.h>
8:
9: #define ACUFILE1 "/usr/lib/aculist"
10: #define ACUFILE "/etc/aculist"
11: #undef DKACU
12:
13: char *malloc();
14: char *word();
15: struct aculine *readacu();
16:
17: struct aculine {
18: char *class;
19: char *line;
20: char *acu;
21: char *speed;
22: char *prefix;
23: char *postfix;
24: };
25:
26: #define MONITOR
27: #define eq(x, y) (strcmp(x, y)==0)
28:
29: extern int dt_ld;
30: extern int tty_ld;
31: extern int buf_ld;
32:
33: dialout(telno, type)
34: char *telno, *type;
35: {
36: char digits[30];
37: register struct aculine *ap;
38: int pid, dh, retval, r, acu;
39: int sigalrm(), (*sal)();
40: time_t starttime, time();
41: struct sgttyb vec;
42:
43: sal = signal(SIGALRM, sigalrm);
44: alarm(0);
45: dh = -1;
46: retval = -9; /* unknown service class */
47: ap = readacu();
48: if (ap == NULL)
49: return(retval);
50: for (; ap->class; ap++) {
51: #ifdef DEBUG
52: printf("class %s, line %s, acu %s, speed %s, prefix %s, postfix %s\n",
53: ap->class, ap->line, ap->acu, ap->speed, ap->prefix, ap->postfix);
54: #endif
55: if(!eq(ap->class, type))
56: continue;
57: acu = -1;
58: if (eq(ap->acu, "none"))
59: goto noACU;
60: retval = -1; /* acu busy */
61: if (eq(ap->line, "DKVENTEL") || eq(ap->line, "DKACU")){
62: retval = tdkdialout(ap->acu, telno, type);
63: if(retval >= 0)
64: break;
65: continue;
66: }
67: for (r=0; r<60; r += 3) {
68: acu = open(ap->acu, 1);
69: if (acu<0 && !eq(ap->prefix, "-")) {
70: sleep(3);
71: continue;
72: }
73: break;
74: }
75: if (acu < 0)
76: continue;
77: digits[0] = '\0';
78: if (!eq(ap->prefix, "-"))
79: strcpy(digits, ap->prefix);
80: strcat(digits, telno);
81: strcat(digits, ap->postfix);
82: if ((pid=fork())==0) {
83: alarm(60);
84: close(acu);
85: dh = open(ap->line, 2);
86: exit(0);
87: }
88: alarm(20);
89: #ifdef DEBUG
90: printf("dial %s\n", digits);
91: #endif
92: r = write(acu, digits, strlen(digits));
93: #ifdef DEBUG
94: printf("wrote %d\n", r);
95: #endif
96: alarm(0);
97: close(acu);
98: if (r!=strlen(digits)) {
99: kill(pid, 9);
100: wait(0);
101: continue;
102: }
103: noACU:
104: alarm(60);
105: starttime = time(NULL);
106: retval = -3; /* no carrier */
107: dh = open(ap->line, 2);
108: #ifdef DEBUG
109: printf("open %s\n", ap->line);
110: #endif
111: alarm(0);
112: kill(pid, 9);
113: wait(0);
114: if (dh>=0) {
115: #ifdef DEBUG
116: printf("open succeeds\n");
117: #endif
118: retval = dh;
119: break;
120: }
121: close(acu); /* This compensates for a system bug. */
122: #ifdef DEBUG
123: printf("open failed\n");
124: #endif
125: if (time(NULL) > starttime+45) /* quit if timeout */
126: break;
127: }
128: ret:
129: if (retval > 0) {
130: int ld;
131:
132: ioctl(retval, FIOPUSHLD, &buf_ld);
133: ld = ioctl(retval, FIOLOOKLD, (char *)0);
134: if (ld != tty_ld)
135: ioctl(retval, FIOPUSHLD, &tty_ld);
136: ioctl(retval, TIOCGETP, &vec);
137: vec.sg_flags &= ~ECHO;
138: vec.sg_flags |= RAW|EVENP|ODDP;
139: vec.sg_ispeed = vec.sg_ospeed = getspeed(ap->speed);
140: ioctl(retval, TIOCSETP, &vec);
141: ioctl(retval, TIOCHPCL, 0);
142: ioctl(retval, TIOCEXCL, 0);
143: if (vec.sg_ispeed == 0) {
144: close(retval);
145: retval = -3;
146: }
147: }
148: signal(SIGALRM, sal);
149: recordit(type, telno, retval);
150: return(retval);
151: }
152:
153: static
154: sigalrm()
155: {
156: signal(SIGALRM, sigalrm);
157: return;
158: }
159:
160: static struct aculine *
161: readacu()
162: {
163: char *ap;
164: int nline, i, f;
165: struct stat sb;
166: struct aculine *acp;
167:
168: if ((f = open(ACUFILE, 0)) < 0){
169: if((f = open(ACUFILE1, 0)) < 0){
170: return(NULL);
171: }
172: }
173: fstat(f, &sb);
174: ap = malloc(2*(unsigned short)sb.st_size);
175: if (ap == NULL)
176: return(NULL);
177: i = read(f, ap, (unsigned short)sb.st_size);
178: close(f);
179: if (i < 0)
180: i = 0;
181: ap[i] = '\0';
182: for (nline=0, i=0; ap[i]; i++)
183: if (ap[i] == '\n')
184: nline++;
185: acp = (struct aculine *)malloc(2*(nline+1)*sizeof(struct aculine));
186: if (acp == NULL)
187: return(NULL);
188: for (i=0; i<nline; i++) {
189: ap = word(ap, &acp[i].class, 1);
190: ap = word(ap, &acp[i].line, 0);
191: ap = word(ap, &acp[i].acu, 0);
192: ap = word(ap, &acp[i].speed, 0);
193: ap = word(ap, &acp[i].prefix, 0);
194: ap = word(ap, &acp[i].postfix, 0);
195: }
196: acp[nline].class = NULL;
197: *ap = '\0';
198:
199: return(acp);
200: }
201:
202: static char *
203: word(cp, loc, f)
204: register char *cp, **loc;
205: {
206: register char *bw;
207:
208: while (*cp == ' ' || *cp == '\t' || (*cp == '\n' && f))
209: *cp++ = '\0';
210: bw = cp;
211: while (*cp > ' ')
212: cp++;
213: *loc = bw;
214: return(cp);
215: }
216:
217: static
218: getspeed(sp)
219: char *sp;
220: {
221: switch(atoi(sp)) {
222:
223: case 50:
224: return(B50);
225: case 75:
226: return(B75);
227: case 110:
228: return(B110);
229: case 134:
230: return(B134);
231: case 150:
232: return(B150);
233: case 300:
234: return(B300);
235: case 600:
236: return(B600);
237: case 1200:
238: return(B1200);
239: case 1800:
240: return(B1800);
241: case 2400:
242: return(B2400);
243: case 4800:
244: return(B4800);
245: case 9600:
246: return(B9600);
247: default:
248: if (eq(sp, "exta"))
249: return(EXTA);
250: if (eq(sp, "extb"))
251: return(EXTB);
252: return(0);
253: }
254: }
255:
256: static
257: recordit(class, telno, retval)
258: char *class, *telno;
259: {
260: FILE *fp;
261: long time();
262: long tm = time(0);
263: struct passwd *pwp, *getpwuid();
264:
265: fp = fopen("/usr/adm/smdr", "a");
266: if (fp == NULL)
267: return(0);
268: pwp = getpwuid(geteuid());
269: fprintf(fp, "%s %s %s %s %.12s\n", telno, class, retval>=0?"OK":"NG",
270: pwp?pwp->pw_name:"?", ctime(&tm)+4);
271: fclose(fp);
272: }
273:
274: #ifdef DKACU
275: #include <dk.h>
276: #include <ctype.h>
277:
278: tdkdialout(addr, telno, dt)
279: char *addr;
280: char *telno, *dt;
281: {
282: char atelno[100];
283: char buf[100];
284: int fd, i;
285:
286: for(i = 0; telno[i]; i++){
287: if(telno[i] == '-'){
288: atelno[i] = '%';
289: } else if(telno[i] == '='){
290: atelno[i] = '%';
291: } else if(telno[i] == '+'){
292: atelno[i] = '&';
293: } else {
294: atelno[i] = telno[i];
295: }
296: }
297: atelno[i] = '\0';
298: if(dt[0] == 'C' && atelno[0] != '9' && atelno[0] != '8'){
299: /* C1200 or C300; ventel is on dimension, not centrex */
300: return(-9);
301: }
302: sprintf(buf, "%s.%s", addr, atelno);
303: /* tdkdial times out itself */
304: /* the 3 means wait for a meaningful answer */
305: fd = _tdkdial(3, 0, buf);
306: if(fd < 0)
307: return(-3);
308: if (dkproto(fd, dt_ld) < 0)
309: return(-1);
310: return(fd);
311: }
312: #else
313: tdkdialout(addr, telno, dt)
314: char *addr;
315: char *telno, *dt;
316: {
317: return(-1);
318: }
319: #endif DKACU
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.