![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hysq.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / uucp / aculib|
Return to hysq.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / uucp / aculib |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)hysq.c 4.2 (Berkeley) 2/24/88";
3: #endif
4:
5: #include "../condevs.h"
6:
7: /*
8: * New dialout routine to work with Hayes' SMART MODEM
9: * 13-JUL-82, Mike Mitchell
10: * Modified 23-MAR-83 to work with Tom Truscott's (rti!trt)
11: * version of UUCP (ncsu!mcm)
12: *
13: * The modem should be set to NOT send any result codes to
14: * the system (switch 3 up, 4 down). This end will figure out
15: * what is wrong.
16: *
17: * I had lots of problems with the modem sending
18: * result codes since I am using the same modem for both incomming and
19: * outgoing calls. I'd occasionally miss the result code (getty would
20: * grab it), and the connect would fail. Worse yet, the getty would
21: * think the result code was a user name, and send garbage to it while
22: * it was in the command state. I turned off ALL result codes, and hope
23: * for the best. 99% of the time the modem is in the correct state.
24: * Occassionally it doesn't connect, or the phone was busy, etc., and
25: * uucico sits there trying to log in. It eventually times out, calling
26: * clsacu() in the process, so it resets itself for the next attempt.
27: */
28:
29: /*
30: * NOTE: this version is not for the faint-hearted.
31: * Someday it would be nice to have a single version of hayes dialer
32: * with a way to specify the switch settings that are on the dialer
33: * as well as tone/pulse.
34: * In the meantime, using HAYES rather than HAYESQ is probably best.
35: */
36:
37: hysqpopn(telno, flds, dev)
38: char *telno, *flds[];
39: struct Devices *dev;
40: {
41: return hysqopn(telno, flds, dev, 0);
42: }
43:
44: hysqtopn(telno, flds, dev)
45: char *telno, *flds[];
46: struct Devices *dev;
47: {
48: return hysqopn(telno, flds, dev, 1);
49: }
50:
51: hysqopn(telno, flds, dev, toneflag)
52: char *telno, *flds[];
53: struct Devices *dev;
54: int toneflag;
55: {
56: char dcname[20], phone[MAXPH+10], c = 0;
57: #ifdef USG
58: struct termio ttbuf;
59: #endif USG
60: int status, dnf;
61: unsigned timelim;
62:
63: signal(SIGALRM, alarmtr);
64: sprintf(dcname, "/dev/%s", dev->D_line);
65:
66: getnextfd();
67: if (setjmp(Sjbuf)) {
68: logent("DEVICE", "NO");
69: DEBUG(4, "Open timed out %s", dcname);
70: return CF_NODEV;
71: }
72: alarm(10);
73:
74: if ((dnf = open(dcname, 2)) <= 0) {
75: logent("DEVICE", "NO");
76: DEBUG(4, "Can't open %s", dcname);
77: return CF_NODEV;
78: }
79:
80: alarm(0);
81: next_fd = -1;
82: fixline(dnf, dev->D_speed);
83: DEBUG(4, "Hayes port - %s, ", dcname);
84:
85: if (toneflag)
86: sprintf(phone, "\rATDT%s\r", telno);
87: else
88: sprintf(phone, "\rATDP%s\r", telno);
89:
90: write(dnf, phone, strlen(phone));
91:
92: /* calculate delay time for the other system to answer the phone.
93: * Default is 15 seconds, add 2 seconds for each comma in the phone
94: * number.
95: */
96: timelim = 150;
97: while(*telno) {
98: c = *telno++;
99: if (c == ',')
100: timelim += 20;
101: else if (toneflag)
102: timelim += 2; /* .2 seconds per tone */
103: else {
104: if (c == '0') timelim += 10; /* .1 sec per digit */
105: else if (c > '0' && c <= '9')
106: timelim += (c - '0');
107: }
108: }
109: alarm(timelim/10 + 1);
110: if (setjmp(Sjbuf) == 0) {
111: read(dnf, &c, 1);
112: alarm(0);
113: }
114:
115: return dnf;
116: }
117:
118: hysqcls(fd)
119: int fd;
120: {
121: char dcname[20];
122: struct sgttyb hup, sav;
123:
124: if (fd > 0) {
125: sprintf(dcname, "/dev/%s", devSel);
126: DEBUG(4, "Hanging up fd = %d\n", fd);
127: /*
128: * code to drop DTR -- change to 0 baud then back to default.
129: */
130: gtty(fd, &hup);
131: gtty(fd, &sav);
132: hup.sg_ispeed = B0;
133: hup.sg_ospeed = B0;
134: stty(fd, &hup);
135: sleep(2);
136: stty(fd, &sav);
137: /*
138: * now raise DTR -- close the device & open it again.
139: */
140: sleep(2);
141: close(fd);
142: sleep(2);
143: fd = open(dcname, 2);
144: /*
145: * Since we have a getty sleeping on this line, when it wakes up it sends
146: * all kinds of garbage to the modem. Unfortunatly, the modem likes to
147: * execute the previous command when it sees the garbage. The previous
148: * command was to dial the phone, so let's make the last command reset
149: * the modem.
150: */
151: sleep(2);
152: write(fd, "\rATZ\r", 5);
153: close(fd);
154: delock(devSel);
155: }
156: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.