GC !__DragonFly__ section.
[dragonfly.git] / sbin / startslip / startslip.c
CommitLineData
984263bc
MD
1/*-
2 * Copyright (c) 1990, 1991, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 3. All advertising materials mentioning features or use of this software
14 * must display the following acknowledgement:
15 * This product includes software developed by the University of
16 * California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
1de703da
MD
32 *
33 * @(#) Copyright (c) 1990, 1991, 1993 The Regents of the University of California. All rights reserved.
34 * @(#)startslip.c 8.1 (Berkeley) 6/5/93
35 * $FreeBSD: src/sbin/startslip/startslip.c,v 1.31.2.1 2000/05/07 18:26:51 joe Exp $
a003570b 36 * $DragonFly: src/sbin/startslip/startslip.c,v 1.7 2005/02/02 20:27:51 cpressey Exp $
984263bc
MD
37 */
38
984263bc
MD
39#include <sys/types.h>
40#include <sys/time.h>
41
42#include <err.h>
43#include <errno.h>
44#include <fcntl.h>
45#include <libutil.h>
46#include <paths.h>
47#include <signal.h>
48#include <stdio.h>
49#include <stdlib.h>
50#include <string.h>
51#include <syslog.h>
52#include <termios.h>
53#include <unistd.h>
54
55#include <net/slip.h>
56
57#define DEFAULT_BAUD B9600
58int speed = DEFAULT_BAUD;
59#define FC_NONE 0 /* flow control: none */
60#define FC_HW 1 /* flow control: hardware (RTS/CTS) */
61int flowcontrol = FC_NONE;
62int modem_control = 1; /* !CLOCAL+HUPCL iff we watch carrier. */
63int sl_unit = -1;
64int uucp_lock = 0; /* uucp locking */
65char *annex;
66char *username;
67int hup;
68int terminate;
69int locked = 0; /* uucp lock active */
70int logged_in = 0;
71int wait_time = 60; /* then back off */
72int script_timeout = 90; /* connect script default timeout */
73time_t conn_time, start_time;
74int MAXTRIES = 6; /* w/60 sec and doubling, takes an hour */
75#define PIDFILE "%sstartslip.%s.pid"
76
77#define MAXDIALS 20
78char *dials[MAXDIALS];
79int diali, dialc;
80
81int fd = -1;
82FILE *pfd;
83char *dvname, *devicename;
67e94fc1 84char my_pidfile[80];
984263bc
MD
85
86#ifdef DEBUG
87int debug = 1;
88#undef LOG_ERR
89#undef LOG_INFO
90#define syslog fprintf
91#define LOG_ERR stderr
92#define LOG_INFO stderr
93#else
94int debug = 0;
95#endif
96#define printd if (debug) printf
97
a003570b
CP
98static int carrier(void);
99static void down(int);
100static int getline(char *, int, int, time_t);
9a76cd75 101static void usage(void);
a003570b
CP
102static void sighup(int);
103static void sigterm(int);
104static void sigurg(int);
984263bc
MD
105
106int
b5744197 107main(int argc, char **argv)
984263bc
MD
108{
109 char *cp, **ap;
110 int ch, disc;
984263bc
MD
111 FILE *wfd = NULL;
112 char *dialerstring = 0, buf[BUFSIZ];
113 int unitnum, keepal = 0, outfill = 0;
114 char unitname[32];
115 char *password;
116 char *upscript = NULL, *downscript = NULL;
117 int first = 1, tries = 0;
118 time_t fintimeout;
119 long lpid;
120 pid_t pid;
121 struct termios t;
a003570b 122 int result;
984263bc
MD
123
124 while ((ch = getopt(argc, argv, "dhlb:s:t:w:A:U:D:W:K:O:S:L")) != -1)
125 switch (ch) {
126 case 'd':
127 debug = 1;
128 break;
129 case 'b':
130 speed = atoi(optarg);
131 break;
132 case 's':
133 if (diali >= MAXDIALS)
134 errx(1, "max dial strings number (%d) exceeded", MAXDIALS);
135 dials[diali++] = strdup(optarg);
136 break;
137 case 't':
138 script_timeout = atoi(optarg);
139 break;
140 case 'w':
141 wait_time = atoi(optarg);
142 break;
143 case 'W':
144 MAXTRIES = atoi(optarg);
145 break;
146 case 'A':
147 annex = strdup(optarg);
148 break;
149 case 'U':
150 upscript = strdup(optarg);
151 break;
152 case 'D':
153 downscript = strdup(optarg);
154 break;
155 case 'L':
156 uucp_lock = 1;
157 break;
158 case 'l':
159 modem_control = 0;
160 break;
161 case 'h':
162 flowcontrol = FC_HW;
163 break;
164 case 'K':
165 keepal = atoi(optarg);
166 break;
167 case 'O':
168 outfill = atoi(optarg);
169 break;
170 case 'S':
171 sl_unit = atoi(optarg);
172 break;
173 case '?':
174 default:
175 usage();
176 }
177 argc -= optind;
178 argv += optind;
179
180 if (argc != 3)
181 usage();
182
183 /*
184 * Copy these so they exist after we clobber them.
185 */
186 devicename = strdup(argv[0]);
187 username = strdup(argv[1]);
188 password = strdup(argv[2]);
189
190 /*
191 * Security hack. Do not want private information such as the
192 * password and possible phone number to be left around.
193 * So we clobber the arguments.
194 */
195 for (ap = argv - optind + 1; ap < argv + 3; ap++)
196 for (cp = *ap; *cp != 0; cp++)
197 *cp = '\0';
198
199 openlog("startslip", LOG_PID|LOG_PERROR, LOG_DAEMON);
200
201 if (debug)
202 setbuf(stdout, NULL);
203
204 signal(SIGTERM, sigterm);
205 if ((dvname = strrchr(devicename, '/')) == NULL)
206 dvname = devicename;
207 else
208 dvname++;
a003570b
CP
209
210 result = snprintf(my_pidfile, sizeof(my_pidfile),
211 PIDFILE, _PATH_VARRUN, dvname);
212 if (result < 0 || (unsigned int)result >= sizeof(my_pidfile))
984263bc
MD
213 usage();
214
67e94fc1 215 if ((pfd = fopen(my_pidfile, "r")) != NULL) {
984263bc
MD
216 if (fscanf(pfd, "%ld\n", &lpid) == 1) {
217 pid = lpid;
218 if (pid == lpid && pid > 0)
219 kill(pid, SIGTERM);
220 }
221 fclose(pfd);
222 pfd = NULL; /* not remove pidfile yet */
223 sleep(5); /* allow down script to be completed */
224 } else
225restart:
226 signal(SIGHUP, SIG_IGN);
227 signal(SIGURG, SIG_IGN);
228 hup = 0;
229 if (wfd) {
230 printd("fclose, ");
231 fclose(wfd);
232 conn_time = time(NULL) - start_time;
233 if (uucp_lock)
234 uu_unlock(dvname);
235 locked = 0;
236 wfd = NULL;
237 fd = -1;
238 sleep(5);
239 } else if (fd >= 0) {
240 printd("close, ");
241 close(fd);
242 conn_time = time(NULL) - start_time;
243 if (uucp_lock)
244 uu_unlock(dvname);
245 locked = 0;
246 fd = -1;
247 sleep(5);
248 }
249 if (logged_in) {
250 syslog(LOG_INFO, "%s: connection time elapsed: %ld secs",
251 username, (long)conn_time);
252 sprintf(buf, "LINE=%d %s %s down",
253 diali ? (dialc - 1) % diali : 0,
254 downscript ? downscript : "/sbin/ifconfig" , unitname);
7cee7052 255 system(buf);
984263bc
MD
256 logged_in = 0;
257 }
258 if (terminate)
259 down(0);
260 tries++;
261 if (MAXTRIES > 0 && tries > MAXTRIES) {
262 syslog(LOG_ERR, "%s: exiting login after %d tries", username, tries);
263 /* ???
264 if (first)
265 */
266 down(3);
267 }
268 if (tries > 1) {
269 syslog(LOG_INFO, "%s: sleeping %d seconds (%d tries)",
270 username, wait_time * (tries - 1), tries);
271 sleep(wait_time * (tries - 1));
272 if (terminate)
273 goto restart;
274 }
275
276 if (daemon(1, debug) < 0) {
277 syslog(LOG_ERR, "%s: daemon: %m", username);
278 down(2);
279 }
280
281 pid = getpid();
282 printd("restart: pid %ld: ", (long)pid);
67e94fc1 283 if ((pfd = fopen(my_pidfile, "w")) != NULL) {
984263bc
MD
284 fprintf(pfd, "%ld\n", (long)pid);
285 fclose(pfd);
286 }
287 printd("open");
288 if (uucp_lock) {
289 int res;
290 if ((res = uu_lock(dvname)) != UU_LOCK_OK) {
291 if (res != UU_LOCK_INUSE)
292 syslog(LOG_ERR, "uu_lock: %s", uu_lockerr(res));
293 syslog(LOG_ERR, "%s: can't lock %s", username, devicename);
294 goto restart;
295 }
296 locked = 1;
297 }
298 if ((fd = open(devicename, O_RDWR | O_NONBLOCK)) < 0) {
299 syslog(LOG_ERR, "%s: open %s: %m", username, devicename);
300 if (first)
301 down(1);
302 else {
303 if (uucp_lock)
304 uu_unlock(dvname);
305 locked = 0;
306 goto restart;
307 }
308 }
309 printd(" %d", fd);
310 signal(SIGHUP, sighup);
311 if (ioctl(fd, TIOCSCTTY, 0) < 0) {
312 syslog(LOG_ERR, "%s: ioctl (TIOCSCTTY): %m", username);
313 down(2);
314 }
315 if (tcsetpgrp(fd, getpid()) < 0) {
316 syslog(LOG_ERR, "%s: tcsetpgrp failed: %m", username);
317 down(2);
318 }
319 printd(", ioctl\n");
320 if (tcgetattr(fd, &t) < 0) {
321 syslog(LOG_ERR, "%s: tcgetattr(%s): %m", username, devicename);
322 down(2);
323 }
324 cfmakeraw(&t);
325 switch (flowcontrol) {
326 case FC_HW:
327 t.c_cflag |= (CRTS_IFLOW|CCTS_OFLOW);
328 break;
329 case FC_NONE:
330 t.c_cflag &= ~(CRTS_IFLOW|CCTS_OFLOW);
331 break;
332 }
333 if (modem_control)
334 t.c_cflag |= HUPCL;
335 else
336 t.c_cflag &= ~(HUPCL);
337 t.c_cflag |= CLOCAL; /* until modem commands passes */
338 cfsetispeed(&t, speed);
339 cfsetospeed(&t, speed);
340 if (tcsetattr(fd, TCSAFLUSH, &t) < 0) {
341 syslog(LOG_ERR, "%s: tcsetattr(%s): %m", username, devicename);
342 down(2);
343 }
344 sleep(2); /* wait for flakey line to settle */
345 if (hup || terminate)
346 goto restart;
347
348 wfd = fdopen(fd, "w+");
349 if (wfd == NULL) {
350 syslog(LOG_ERR, "%s: can't fdopen %s: %m", username, devicename);
351 down(2);
352 }
353 setbuf(wfd, NULL);
354
355 if (diali > 0)
356 dialerstring = dials[dialc++ % diali];
357 if (dialerstring) {
358 syslog(LOG_INFO, "%s: dialer string: %s\\r", username, dialerstring);
359 fprintf(wfd, "%s\r", dialerstring);
360 }
361 printd("\n");
362
363 fintimeout = time(NULL) + script_timeout;
364 if (modem_control) {
365 printd("waiting for carrier\n");
366 while (time(NULL) < fintimeout && !carrier()) {
367 sleep(1);
368 if (hup || terminate)
369 goto restart;
370 }
371 if (!carrier())
372 goto restart;
373 t.c_cflag &= ~(CLOCAL);
374 if (tcsetattr(fd, TCSANOW, &t) < 0) {
375 syslog(LOG_ERR, "%s: tcsetattr(%s): %m", username, devicename);
376 down(2);
377 }
378 /* Only now we able to receive HUP on carrier drop! */
379 }
380
381 /*
382 * Log in
383 */
384 printd("look for login: ");
385 for (;;) {
386 if (getline(buf, BUFSIZ, fd, fintimeout) == 0 || hup || terminate)
387 goto restart;
388 if (annex) {
389 if (bcmp(buf, annex, strlen(annex)) == 0) {
390 fprintf(wfd, "slip\r");
391 printd("Sent \"slip\"\n");
392 continue;
393 }
394 if (bcmp(&buf[1], "sername:", 8) == 0) {
395 fprintf(wfd, "%s\r", username);
396 printd("Sent login: %s\n", username);
397 continue;
398 }
399 if (bcmp(&buf[1], "assword:", 8) == 0) {
400 fprintf(wfd, "%s\r", password);
401 printd("Sent password: %s\n", password);
402 break;
403 }
404 } else {
405 if (strstr(&buf[1], "ogin:") != NULL) {
406 fprintf(wfd, "%s\r", username);
407 printd("Sent login: %s\n", username);
408 continue;
409 }
410 if (strstr(&buf[1], "assword:") != NULL) {
411 fprintf(wfd, "%s\r", password);
412 printd("Sent password: %s\n", password);
413 break;
414 }
415 }
416 }
417
418 sleep(5); /* Wait until login completed */
419 if (hup || terminate)
420 goto restart;
421 start_time = time(NULL);
422 /*
423 * Attach
424 */
425 printd("setd");
426 disc = SLIPDISC;
427 if (ioctl(fd, TIOCSETD, &disc) < 0) {
428 syslog(LOG_ERR, "%s: ioctl (%s, TIOCSETD): %m",
429 username, devicename);
430 down(2);
431 }
432 if (sl_unit >= 0 && ioctl(fd, SLIOCSUNIT, &sl_unit) < 0) {
433 syslog(LOG_ERR, "%s: ioctl(SLIOCSUNIT): %m", username);
434 down(2);
435 }
436 if (ioctl(fd, SLIOCGUNIT, &unitnum) < 0) {
437 syslog(LOG_ERR, "%s: ioctl(SLIOCGUNIT): %m", username);
438 down(2);
439 }
440 sprintf(unitname, "sl%d", unitnum);
441
442 if (keepal > 0) {
443 signal(SIGURG, sigurg);
444 if (ioctl(fd, SLIOCSKEEPAL, &keepal) < 0) {
445 syslog(LOG_ERR, "%s: ioctl(SLIOCSKEEPAL): %m", username);
446 down(2);
447 }
448 }
449 if (outfill > 0 && ioctl(fd, SLIOCSOUTFILL, &outfill) < 0) {
450 syslog(LOG_ERR, "%s: ioctl(SLIOCSOUTFILL): %m", username);
451 down(2);
452 }
453
454 sprintf(buf, "LINE=%d %s %s up",
455 diali ? (dialc - 1) % diali : 0,
456 upscript ? upscript : "/sbin/ifconfig" , unitname);
7cee7052 457 system(buf);
984263bc
MD
458
459 printd(", ready\n");
460 if (!first)
461 syslog(LOG_INFO, "%s: reconnected on %s (%d tries)", username, unitname, tries);
462 else
463 syslog(LOG_INFO, "%s: connected on %s", username, unitname);
464 first = 0;
465 tries = 0;
466 logged_in = 1;
467 while (hup == 0 && terminate == 0) {
468 sigpause(0L);
469 printd("sigpause return\n");
470 }
471 goto restart;
472 return(0); /* not reached */
473}
474
a003570b
CP
475static void
476sighup(int signo __unused)
984263bc 477{
984263bc
MD
478 printd("hup\n");
479 if (hup == 0 && logged_in)
480 syslog(LOG_INFO, "%s: got hangup signal", username);
481 hup = 1;
482}
483
a003570b
CP
484static void
485sigurg(int signo __unused)
984263bc 486{
984263bc
MD
487 printd("urg\n");
488 if (hup == 0 && logged_in)
489 syslog(LOG_INFO, "%s: got dead line signal", username);
490 hup = 1;
491}
492
a003570b
CP
493static void
494sigterm(int signo __unused)
984263bc 495{
984263bc
MD
496 printd("terminate\n");
497 if (terminate == 0 && logged_in)
498 syslog(LOG_INFO, "%s: got terminate signal", username);
499 terminate = 1;
500}
501
a003570b
CP
502static int
503getline(char *buf, int size, int this_fd, time_t fintimeout)
984263bc 504{
a003570b 505 int i;
984263bc
MD
506 int ret;
507 fd_set readfds;
508 struct timeval tv;
509 time_t timeout;
510
511 size--;
512 for (i = 0; i < size; i++) {
513 if (hup || terminate)
514 return (0);
515 if ((timeout = fintimeout - time(NULL)) <= 0)
516 goto tout;
517 FD_ZERO(&readfds);
518 FD_SET(fd, &readfds);
519 tv.tv_sec = timeout;
520 tv.tv_usec = 0;
a003570b 521 if ((ret = select(this_fd + 1, &readfds, NULL, NULL, &tv)) < 0) {
984263bc
MD
522 if (errno != EINTR)
523 syslog(LOG_ERR, "%s: getline: select: %m", username);
524 } else {
525 if (! ret) {
526 tout:
527 printd("getline: timed out\n");
528 return (0);
529 }
a003570b 530 if ((ret = read(this_fd, &buf[i], 1)) == 1) {
984263bc
MD
531 buf[i] &= 0177;
532 if (buf[i] == '\r' || buf[i] == '\0') {
533 i--;
534 continue;
535 }
536 if (buf[i] != '\n' && buf[i] != ':')
537 continue;
538 buf[i + 1] = '\0';
539 printd("Got %d: %s", i + 1, buf);
540 return (i+1);
541 }
542 if (ret <= 0) {
543 if (ret < 0) {
544 syslog(LOG_ERR, "%s: getline: read: %m", username);
545 } else
546 syslog(LOG_ERR, "%s: read returned 0", username);
547 buf[i] = '\0';
548 printd("returning %d after %d: %s\n", ret, i, buf);
549 return (0);
550 }
551 }
552 }
553 return (0);
554}
555
a003570b 556static int
b5744197 557carrier(void)
984263bc
MD
558{
559 int comstate;
560
561 if (ioctl(fd, TIOCMGET, &comstate) < 0) {
562 syslog(LOG_ERR, "%s: ioctl (%s, TIOCMGET): %m",
563 username, devicename);
564 down(2);
565 }
566 return !!(comstate & TIOCM_CD);
567}
568
a003570b 569static void
b5744197 570down(int code)
984263bc
MD
571{
572 if (fd > -1)
573 close(fd);
574 if (pfd)
67e94fc1 575 unlink(my_pidfile);
984263bc
MD
576 if (uucp_lock && locked)
577 uu_unlock(dvname);
578 exit(code);
579}
580
581static void
b5744197 582usage(void)
984263bc 583{
7cee7052 584 fprintf(stderr, "%s\n%s\n%s\n%s\n",
984263bc
MD
585"usage: startslip [-d] [-b speed] [-s string1 [-s string2 [...]]] [-h] [-l]",
586" [-L] [-A annexname] [-U upscript] [-D downscript]",
587" [-t script_timeout] [-W maxtries] [-w retry_pause]",
588" [-K keepalive] [-O outfill] [-S unit] device user passwd");
589 exit(1);
590}