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