GC !__DragonFly__ section.
[dragonfly.git] / sbin / startslip / startslip.c
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.
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 $
36  * $DragonFly: src/sbin/startslip/startslip.c,v 1.7 2005/02/02 20:27:51 cpressey Exp $
37  */
38
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
58 int     speed = DEFAULT_BAUD;
59 #define FC_NONE         0       /* flow control: none */
60 #define FC_HW           1       /* flow control: hardware (RTS/CTS) */
61 int     flowcontrol = FC_NONE;
62 int     modem_control = 1;      /* !CLOCAL+HUPCL iff we watch carrier. */
63 int     sl_unit = -1;
64 int     uucp_lock = 0;          /* uucp locking */
65 char    *annex;
66 char    *username;
67 int     hup;
68 int     terminate;
69 int     locked = 0;             /* uucp lock active */
70 int     logged_in = 0;
71 int     wait_time = 60;         /* then back off */
72 int     script_timeout = 90;    /* connect script default timeout */
73 time_t  conn_time, start_time;
74 int     MAXTRIES = 6;           /* w/60 sec and doubling, takes an hour */
75 #define PIDFILE         "%sstartslip.%s.pid"
76
77 #define MAXDIALS 20
78 char *dials[MAXDIALS];
79 int diali, dialc;
80
81 int fd = -1;
82 FILE *pfd;
83 char *dvname, *devicename;
84 char my_pidfile[80];
85
86 #ifdef DEBUG
87 int     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
94 int     debug = 0;
95 #endif
96 #define printd  if (debug) printf
97
98 static int carrier(void);
99 static void down(int);
100 static int getline(char *, int, int, time_t);
101 static void usage(void);
102 static void sighup(int);
103 static void sigterm(int);
104 static void sigurg(int);
105
106 int
107 main(int argc, char **argv)
108 {
109         char *cp, **ap;
110         int ch, disc;
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;
122         int result;
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++;
209
210         result = snprintf(my_pidfile, sizeof(my_pidfile),
211                           PIDFILE, _PATH_VARRUN, dvname);
212         if (result < 0 || (unsigned int)result >= sizeof(my_pidfile))
213                 usage();
214
215         if ((pfd = fopen(my_pidfile, "r")) != NULL) {
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
225 restart:
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);
255                 system(buf);
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);
283         if ((pfd = fopen(my_pidfile, "w")) != NULL) {
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);
457         system(buf);
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
475 static void
476 sighup(int signo __unused)
477 {
478         printd("hup\n");
479         if (hup == 0 && logged_in)
480                 syslog(LOG_INFO, "%s: got hangup signal", username);
481         hup = 1;
482 }
483
484 static void
485 sigurg(int signo __unused)
486 {
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
493 static void
494 sigterm(int signo __unused)
495 {
496         printd("terminate\n");
497         if (terminate == 0 && logged_in)
498                 syslog(LOG_INFO, "%s: got terminate signal", username);
499         terminate = 1;
500 }
501
502 static int
503 getline(char *buf, int size, int this_fd, time_t fintimeout)
504 {
505         int i;
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;
521                 if ((ret = select(this_fd + 1, &readfds, NULL, NULL, &tv)) < 0) {
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                         }
530                         if ((ret = read(this_fd, &buf[i], 1)) == 1) {
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
556 static int
557 carrier(void)
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
569 static void
570 down(int code)
571 {
572         if (fd > -1)
573                 close(fd);
574         if (pfd)
575                 unlink(my_pidfile);
576         if (uucp_lock && locked)
577                 uu_unlock(dvname);
578         exit(code);
579 }
580
581 static void
582 usage(void)
583 {
584         fprintf(stderr, "%s\n%s\n%s\n%s\n",  
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 }