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 } 591