![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dial.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / usr / bin / uucpstuff / modemcap|
Return to dial.c CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / uucpstuff / modemcap |
1.1 root 1: /*
2: * dial.c
3: *
4: * Implement the dial(3) function calls.
5: *
6: * Copyright 1987 (c) John F. Haugh II
7: * Changes Copyright 1989-91 (c) Mark Williams Company
8: */
9:
10: #include <stdio.h>
11: #include <signal.h>
12: #include <fcntl.h>
13: #include "modemcap.h"
14: #include "dial.h"
15: #include "dcp.h"
16: #include "ldev.h"
17:
18:
19: char *devname = NULL; /* Communications Device Name Connected */
20: char *rdevname = NULL; /* Remote device name */
21:
22: static char login_lock[15];
23: static char enableme[16];
24: static int modemfd = -1;
25: extern char *strtok();
26: extern int hupcatch();
27:
28: /*
29: * dial(cp) CALL cp;
30: *
31: * Dial and initiate the call specified via the given CALL data structure.
32: * Returns the opened file descriptor to be used for reads and writes to
33: * the determined device line. If there is an error, then the return value
34: * is less than zero, and the variable "merror" is set appropriately.
35: */
36:
37: dial(cp)
38: CALL *cp;
39: {
40: char modemline[64]; /* device name */
41: char *modemname = "\0";
42: char *strcpy (),
43: *strcat ();
44: int fd, err;
45:
46: fd = -1; /* channel illegal until line is opened */
47: if ( (err=findline(cp, &modemname)) <= 0 )
48: goto error;
49: strcat(strcpy(modemline, DEVDIR), cp->line);
50: if ((fd = open (modemline, O_RDWR)) < 0) { /* can't open modem line */
51: err = M_L_PROB;
52: goto error;
53: }
54: if ( (err=ttyinit(fd, cp->baud)) != 0 )
55: goto error;
56:
57: initmodem(modemname, fd); /* setup modemcap variables */
58: if (cp->telno == NULL) /* no phone number, connection complete */
59: goto okay;
60: if (! DI) { /* modem has no ACU!!! */
61: /* plog("Says no acu to attatch to???"); */
62: err = M_A_PROB; /* no ACU to attach to */
63: goto error;
64: }
65: if (BD != cp->baud) { /* is connection desired at high speed? */
66: if (BL != cp->baud) {/* is connection desired at low speed? */
67: err = M_ILL_BD; /* modem can't handle this speed */
68: goto error;
69: }
70: BD = BL; /* set baud to low baud rate */
71: CO = CL; /* set connect reply to low baud reply */
72: }
73: if (err = mdial (cp->telno, fd)) /* some error trying to dial */
74: goto error;
75:
76: okay:
77: return (modemfd = fd);
78: error:
79: hangup(fd);
80: return (merrno = err);
81: }
82:
83: /* undial()
84: * removes the lock on the remote device if it exists and reenables
85: * the port. Undial() is called by hangup(), which was called by
86: * sysend(). Bob H. 11/22/91.
87: */
88: undial (fd)
89: int fd;
90: {
91: close (fd); /* close the port */
92:
93: /* If lock removal fails, print message. */
94:
95: /* unlock the port. If it fails, note this in the logfiles, but don't
96: * abort, we will want to continue through uucico so that uuxqt
97: * gets invoked as uucico exits.
98: */
99:
100: if (lockttyexist(devname) && (unlocktty(devname) == -1) ){
101: printmsg(M_DEBUG,"Undial(): %s lock file removal failed.",devname);
102: plog(M_CALL,"%s lock file removal failed.",devname);
103: }
104:
105: /* If lock removal failed, then do not re enable the port because we
106: * no longer know who did what to the remote port. Re enabling the
107: * port could result in a race condition we don't want.
108: */
109:
110: if ((enableme[0] != '\0') && (lockttyexist(devname) == 0)){
111: plog(M_CALL, "Enabling tty line %s", enableme);
112: exec_stat("enable", enableme);
113: strcpy(enableme, "");
114: }else{
115: if((enableme[0] != '\0') && (rdevname[0] != '\0') && (rdevname[0] != '-')){
116: printmsg(M_DEBUG,"Undial: Can not re-enable port due to tty lock file.");
117: plog(M_CALL,"Could not re-enable port due to tty lock file.");
118: }
119: }
120: rdevname = NULL;
121: }
122:
123: static
124: findline(callp, brand)
125: CALL *callp;
126: char **brand;
127: {
128: int exists = 0; /* device exists at some baud rate */
129: int tried = 0; /* found a device but it was locked */
130: int devflag, telflag;
131: char *l_lline; /* tty device local name */
132: char *l_rline; /* tty device remote name */
133: char *l_type; /* ACU, DIR, etc. */
134: char *l_brand; /* modemcap brand name */
135: int l_baud; /* tty baud rate */
136: int retval; /* Place to stash return of exec_stat */
137:
138: ldev_open();
139: if ( ((devflag=(callp->line != NULL)) &&
140: (telflag=(callp->telno != NULL))) || (!devflag && !telflag) )
141: return(M_DEV_TEL);
142:
143: while ( ldev_next() ) {
144: l_type = ldev_value(type_e);
145: l_lline = ldev_value(lline_e);
146: l_rline = ldev_value(rline_e);
147: l_baud = atoi(ldev_value(baud_e));
148: l_brand = ldev_value(brand_e);
149:
150: if ( strcmp(l_type, "ACU") == 0 ) {
151: if ( devflag )
152: continue;
153: exists++;
154: if (l_baud != callp->baud)
155: continue;
156: } else if ( strcmp(l_type, "DIR") == 0 ) {
157: if ( telflag )
158: continue;
159: if ( strcmp(l_lline, callp->line) )
160: continue;
161: callp->baud = l_baud;
162: } else {
163: continue;
164: }
165: ++tried; /* found device at desired baud rate */
166:
167: /* July 29, 1992: I have removed the previous locking code. This code
168: * looked for a remote device to enable and disable and would build a
169: * lockfile if a remote device was specified. However, the advent of
170: * locking kermit has changed our needs. Now we will always have to
171: * check for and lock the LOCAL device we are dialing out with. This
172: * will, if anything, make things a bit more stable with regards to
173: * locking. Bob H.
174: */
175:
176: if (lockttyexist(l_lline)){
177: plog(M_CALL,"Device %s already locked by another process", l_lline);
178: exit(1);
179: }
180:
181:
182: #ifndef _I386
183: if (locktty(l_lline) != 0){
184: plog(M_CALL,"Attempt to create lock file failed.");
185: if(lockexist(rmtname)){
186: lockrm(rmtname);
187: }
188: exit(1);
189: }
190: #else
191: if (!locktty(l_lline)){
192: plog(M_CALL,"Attempt to create lock file failed.");
193: if(lockexist(rmtname)){
194: lockrm(rmtname);
195: }
196: exit(1);
197: }
198: #endif
199: enableme[0] = '\0';
200: if(strcmp(l_rline,"-") !=0){
201: /* Disable the remote device.
202: * Note that we will then sleep for 5 seconds to make sure that
203: * the port gets closed after the disable.
204: */
205:
206: /* Note that disable could be terminated by
207: * a SIGHUP when the port is disabled.
208: */
209: if (0!=(retval=exec_stat("disable", l_rline)) &&
210: SIGHUP<<8 != retval) {
211: plog(M_CALL,"Disable of tty line %s failed",
212: l_rline);
213: continue;
214: }else{
215: plog(M_CALL,"Disabling tty line %s", l_rline);
216: sleep(5);
217: strcpy(enableme,l_rline);
218: }
219: }
220: devname = l_lline;
221: rdevname = l_rline;
222: *brand = l_brand;
223: ldev_close();
224: callp->line = l_lline;
225: return (1);
226: }
227: if (tried)
228: return (merrno = M_DV_NT_A);
229: else if (exists) {
230: return (merrno = M_ILL_BD);
231: } else {
232: /* plog("Device not known: %s", brand); */
233: return (merrno = M_DV_NT_K);
234: }
235: }
236:
237: exec_stat(command, line)
238: char *command;
239: char *line;
240: {
241: int pid;
242: int waitstat;
243: static char etccommand[32];
244:
245: strcpy(etccommand, "/etc/");
246: strcat(etccommand, command);
247: /* plog("%s (%s) on line %s", command, etccommand, line);
248: */
249: pid = fork();
250: if (pid == 0) {
251: execl(etccommand, command, line, NULL);
252: exit(1);
253: } else
254: wait(&waitstat);
255:
256: return waitstat;
257: }
258:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.