pppd/sys-linux.c

   1 /*
   2  * sys-linux.c - System-dependent procedures for setting up
   3  * PPP interfaces on Linux systems
   4  *
   5  * Copyright (c) 1989 Carnegie Mellon University.
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms are permitted
   9  * provided that the above copyright notice and this paragraph are
  10  * duplicated in all such forms and that any documentation,
  11  * advertising materials, and other materials related to such
  12  * distribution and use acknowledge that the software was developed
  13  * by Carnegie Mellon University.  The name of the
  14  * University may not be used to endorse or promote products derived
  15  * from this software without specific prior written permission.
  16  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  17  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  18  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  19  */
  20
  21 #include <sys/ioctl.h>
  22 #include <sys/types.h>
  23 #include <sys/socket.h>
  24 #include <sys/time.h>
  25 #include <sys/errno.h>
  26 #include <sys/file.h>
  27 #include <sys/stat.h>
  28 #include <sys/utsname.h>
  29 #include <sys/sysmacros.h>
  30
  31 #include <stdio.h>
  32 #include <stdlib.h>
  33 #include <syslog.h>
  34 #include <string.h>
  35 #include <time.h>
  36 #include <memory.h>
  37 #include <utmp.h>
  38 #include <mntent.h>
  39 #include <signal.h>
  40 #include <fcntl.h>
  41 #include <ctype.h>
  42 #include <termios.h>
  43 #include <unistd.h>
  44
  45 /* This is in netdevice.h. However, this compile will fail miserably if
  46    you attempt to include netdevice.h because it has so many references
  47    to __memcpy functions which it should not attempt to do. So, since I
  48    really don't use it, but it must be defined, define it now. */
  49
  50 #ifndef MAX_ADDR_LEN
  51 #define MAX_ADDR_LEN 7
  52 #endif
  53
  54 #if __GLIBC__ >= 2
  55 #include <asm/types.h>          /* glibc 2 conflicts with linux/types.h */
  56 #include <net/if.h>
  57 #include <net/if_arp.h>
  58 #include <net/route.h>
  59 #include <netinet/if_ether.h>
  60 #else
  61 #include <linux/types.h>
  62 #include <linux/if.h>
  63 #include <linux/if_arp.h>
  64 #include <linux/route.h>
  65 #include <linux/if_ether.h>
  66 #endif
  67 #include <netinet/in.h>
  68 #include <arpa/inet.h>
  69
  70 #include <linux/ppp_defs.h>
  71 #include <linux/if_ppp.h>
  72
  73 #include "pppd.h"
  74 #include "fsm.h"
  75 #include "ipcp.h"
  76
  77 #ifdef IPX_CHANGE
  78 #include "ipxcp.h"
  79 #if __GLIBC__ >= 2 && \
  80     !(defined(__powerpc__) && __GLIBC__ == 2 && __GLIBC_MINOR__ == 0)
  81 #include <netipx/ipx.h>
  82 #else
  83 #include <linux/ipx.h>
  84 #endif
  85 #endif /* IPX_CHANGE */
  86
  87 #ifdef PPP_FILTER
  88 #include <net/bpf.h>
  89 #include <linux/filter.h>
  90 #endif /* PPP_FILTER */
  91
  92 #ifdef LOCKLIB
  93 #include <sys/locks.h>
  94 #endif
  95
  96 #ifdef INET6
  97 #ifndef _LINUX_IN6_H
  98 /*
  99  *    This is in linux/include/net/ipv6.h.
 100  */
 101
 102 struct in6_ifreq {
 103     struct in6_addr ifr6_addr;
 104     __u32 ifr6_prefixlen;
 105     unsigned int ifr6_ifindex;
 106 };
 107 #endif
 108
 109 #define IN6_LLADDR_FROM_EUI64(sin6, eui64) do {                 \
 110         memset(&sin6.s6_addr, 0, sizeof(struct in6_addr));      \
 111         sin6.s6_addr16[0] = htons(0xfe80);                      \
 112         eui64_copy(eui64, sin6.s6_addr32[2]);                   \
 113         } while (0)
 114
 115 #endif /* INET6 */
 116
 117 /* We can get an EIO error on an ioctl if the modem has hung up */
 118 #define ok_error(num) ((num)==EIO)
 119
 120 static int tty_disc = N_TTY;    /* The TTY discipline */
 121 static int ppp_disc = N_PPP;    /* The PPP discpline */
 122 static int initfdflags = -1;    /* Initial file descriptor flags for fd */
 123 static int ppp_fd = -1;         /* fd which is set to PPP discipline */
 124 static int sock_fd = -1;        /* socket for doing interface ioctls */
 125 static int slave_fd = -1;
 126 static int master_fd = -1;
 127 #ifdef INET6
 128 static int sock6_fd = -1;
 129 #endif /* INET6 */
 130 static int ppp_dev_fd = -1;     /* fd for /dev/ppp (new style driver) */
 131 static int chindex;             /* channel index (new style driver) */
 132
 133 static fd_set in_fds;           /* set of fds that wait_input waits for */
 134 static int max_in_fd;           /* highest fd set in in_fds */
 135
 136 static int has_proxy_arp       = 0;
 137 static int driver_version      = 0;
 138 static int driver_modification = 0;
 139 static int driver_patch        = 0;
 140 static int driver_is_old       = 0;
 141 static int restore_term        = 0;     /* 1 => we've munged the terminal */
 142 static struct termios inittermios;      /* Initial TTY termios */
 143
 144 static int new_style_driver = 0;
 145
 146 static char loop_name[20];
 147 static unsigned char inbuf[512]; /* buffer for chars read from loopback */
 148
 149 static int      if_is_up;       /* Interface has been marked up */
 150 static u_int32_t default_route_gateway; /* Gateway for default route added */
 151 static u_int32_t proxy_arp_addr;        /* Addr for proxy arp entry added */
 152 static char proxy_arp_dev[16];          /* Device for proxy arp entry */
 153 static u_int32_t our_old_addr;          /* for detecting address changes */
 154 static int      dynaddr_set;            /* 1 if ip_dynaddr set */
 155 static int      looped;                 /* 1 if using loop */
 156 static int      link_mtu;               /* mtu for the link (not bundle) */
 157
 158 static struct utsname utsname;  /* for the kernel version */
 159 static int kernel_version;
 160 #define KVERSION(j,n,p) ((j)*1000000 + (n)*1000 + (p))
 161
 162 #define MAX_IFS         100
 163
 164 #define FLAGS_GOOD (IFF_UP          | IFF_BROADCAST)
 165 #define FLAGS_MASK (IFF_UP          | IFF_BROADCAST | \
 166                     IFF_POINTOPOINT | IFF_LOOPBACK  | IFF_NOARP)
 167
 168 #define SIN_ADDR(x)     (((struct sockaddr_in *) (&(x)))->sin_addr.s_addr)
 169
 170 /* Prototypes for procedures local to this file. */
 171 static int get_flags (int fd);
 172 static void set_flags (int fd, int flags);
 173 static int translate_speed (int bps);
 174 static int baud_rate_of (int speed);
 175 static void close_route_table (void);
 176 static int open_route_table (void);
 177 static int read_route_table (struct rtentry *rt);
 178 static int defaultroute_exists (struct rtentry *rt);
 179 static int get_ether_addr (u_int32_t ipaddr, struct sockaddr *hwaddr,
 180                            char *name, int namelen);
 181 static void decode_version (char *buf, int *version, int *mod, int *patch);
 182 static int set_kdebugflag(int level);
 183 static int ppp_registered(void);
 184 static int make_ppp_unit(void);
 185
 186 extern u_char   inpacket_buf[]; /* borrowed from main.c */
 187
 188 /*
 189  * SET_SA_FAMILY - set the sa_family field of a struct sockaddr,
 190  * if it exists.
 191  */
 192
 193 #define SET_SA_FAMILY(addr, family)                     \
 194     memset ((char *) &(addr), '\0', sizeof(addr));      \
 195     addr.sa_family = (family);
 196
 197 /*
 198  * Determine if the PPP connection should still be present.
 199  */
 200
 201 extern int hungup;
 202
 203 /* new_fd is the fd of a tty */
 204 static void set_ppp_fd (int new_fd)
 205 {
 206         SYSDEBUG ((LOG_DEBUG, "setting ppp_fd to %d\n", new_fd));
 207         ppp_fd = new_fd;
 208         if (!new_style_driver)
 209                 ppp_dev_fd = new_fd;
 210 }
 211
 212 static int still_ppp(void)
 213 {
 214         if (new_style_driver)
 215                 return !hungup && ppp_fd >= 0;
 216         if (!hungup || ppp_fd == slave_fd)
 217                 return 1;
 218         if (slave_fd >= 0) {
 219                 set_ppp_fd(slave_fd);
 220                 return 1;
 221         }
 222         return 0;
 223 }
 224
 225 /********************************************************************
 226  *
 227  * Functions to read and set the flags value in the device driver
 228  */
 229
 230 static int get_flags (int fd)
 231 {
 232     int flags;
 233
 234     if (ioctl(fd, PPPIOCGFLAGS, (caddr_t) &flags) < 0) {
 235         if ( ok_error (errno) )
 236             flags = 0;
 237         else
 238             fatal("ioctl(PPPIOCGFLAGS): %m");
 239     }
 240
 241     SYSDEBUG ((LOG_DEBUG, "get flags = %x\n", flags));
 242     return flags;
 243 }
 244
 245 /********************************************************************/
 246
 247 static void set_flags (int fd, int flags)
 248 {
 249     SYSDEBUG ((LOG_DEBUG, "set flags = %x\n", flags));
 250
 251     if (ioctl(fd, PPPIOCSFLAGS, (caddr_t) &flags) < 0) {
 252         if (! ok_error (errno) )
 253             fatal("ioctl(PPPIOCSFLAGS, %x): %m", flags, errno);
 254     }
 255 }
 256
 257 /********************************************************************
 258  *
 259  * sys_init - System-dependent initialization.
 260  */
 261
 262 void sys_init(void)
 263 {
 264     int flags;
 265
 266     if (new_style_driver) {
 267         ppp_dev_fd = open("/dev/ppp", O_RDWR);
 268         if (ppp_dev_fd < 0)
 269             fatal("Couldn't open /dev/ppp: %m");
 270         flags = fcntl(ppp_dev_fd, F_GETFL);
 271         if (flags == -1
 272             || fcntl(ppp_dev_fd, F_SETFL, flags | O_NONBLOCK) == -1)
 273             warn("Couldn't set /dev/ppp to nonblock: %m");
 274     }
 275
 276     /* Get an internet socket for doing socket ioctls. */
 277     sock_fd = socket(AF_INET, SOCK_DGRAM, 0);
 278     if (sock_fd < 0)
 279         fatal("Couldn't create IP socket: %m(%d)", errno);
 280
 281 #ifdef INET6
 282     sock6_fd = socket(AF_INET6, SOCK_DGRAM, 0);
 283     if (sock6_fd < 0)
 284         sock6_fd = -errno;      /* save errno for later */
 285 #endif
 286
 287     FD_ZERO(&in_fds);
 288     max_in_fd = 0;
 289 }
 290
 291 /********************************************************************
 292  *
 293  * sys_cleanup - restore any system state we modified before exiting:
 294  * mark the interface down, delete default route and/or proxy arp entry.
 295  * This shouldn't call die() because it's called from die().
 296  */
 297
 298 void sys_cleanup(void)
 299 {
 300 /*
 301  * Take down the device
 302  */
 303     if (if_is_up) {
 304         if_is_up = 0;
 305         sifdown(0);
 306     }
 307 /*
 308  * Delete any routes through the device.
 309  */
 310     if (default_route_gateway != 0)
 311         cifdefaultroute(0, 0, default_route_gateway);
 312
 313     if (has_proxy_arp)
 314         cifproxyarp(0, proxy_arp_addr);
 315 }
 316
 317 /********************************************************************
 318  *
 319  * sys_close - Clean up in a child process before execing.
 320  */
 321 void
 322 sys_close(void)
 323 {
 324     if (new_style_driver)
 325         close(ppp_dev_fd);
 326     if (sock_fd >= 0)
 327         close(sock_fd);
 328     if (slave_fd >= 0)
 329         close(slave_fd);
 330     if (master_fd >= 0)
 331         close(master_fd);
 332     closelog();
 333 }
 334
 335 /********************************************************************
 336  *
 337  * set_kdebugflag - Define the debugging level for the kernel
 338  */
 339
 340 static int set_kdebugflag (int requested_level)
 341 {
 342     if (new_style_driver && ifunit < 0)
 343         return 1;
 344     if (ioctl(ppp_dev_fd, PPPIOCSDEBUG, &requested_level) < 0) {
 345         if ( ! ok_error (errno) )
 346             error("ioctl(PPPIOCSDEBUG): %m");
 347         return (0);
 348     }
 349     SYSDEBUG ((LOG_INFO, "set kernel debugging level to %d",
 350                 requested_level));
 351     return (1);
 352 }
 353
 354 /********************************************************************
 355  *
 356  * establish_ppp - Turn the serial port into a ppp interface.
 357  */
 358
 359 int establish_ppp (int tty_fd)
 360 {
 361     int x;
 362     int fd = -1;
 363
 364 /*
 365  * Ensure that the tty device is in exclusive mode.
 366  */
 367     if (ioctl(tty_fd, TIOCEXCL, 0) < 0) {
 368         if ( ! ok_error ( errno ))
 369             warn("Couldn't make tty exclusive: %m");
 370     }
 371 /*
 372  * Demand mode - prime the old ppp device to relinquish the unit.
 373  */
 374     if (!new_style_driver && looped
 375         && ioctl(slave_fd, PPPIOCXFERUNIT, 0) < 0) {
 376         error("ioctl(transfer ppp unit): %m");
 377         return -1;
 378     }
 379 /*
 380  * Set the current tty to the PPP discpline
 381  */
 382
 383 #ifndef N_SYNC_PPP
 384 #define N_SYNC_PPP 14
 385 #endif
 386     ppp_disc = (new_style_driver && sync_serial)? N_SYNC_PPP: N_PPP;
 387     if (ioctl(tty_fd, TIOCSETD, &ppp_disc) < 0) {
 388         if ( ! ok_error (errno) ) {
 389             error("Couldn't set tty to PPP discipline: %m");
 390             return -1;
 391         }
 392     }
 393
 394     if (new_style_driver) {
 395         /* Open another instance of /dev/ppp and connect the channel to it */
 396         int flags;
 397
 398         if (ioctl(tty_fd, PPPIOCGCHAN, &chindex) == -1) {
 399             error("Couldn't get channel number: %m");
 400             goto err;
 401         }
 402         dbglog("using channel %d", chindex);
 403         fd = open("/dev/ppp", O_RDWR);
 404         if (fd < 0) {
 405             error("Couldn't reopen /dev/ppp: %m");
 406             goto err;
 407         }
 408         if (ioctl(fd, PPPIOCATTCHAN, &chindex) < 0) {
 409             error("Couldn't attach to channel %d: %m", chindex);
 410             goto err_close;
 411         }
 412         flags = fcntl(fd, F_GETFL);
 413         if (flags == -1 || fcntl(fd, F_SETFL, flags | O_NONBLOCK) == -1)
 414             warn("Couldn't set /dev/ppp (channel) to nonblock: %m");
 415         set_ppp_fd(fd);
 416
 417         if (!looped)
 418             ifunit = -1;
 419         if (!looped && !multilink) {
 420             /*
 421              * Create a new PPP unit.
 422              */
 423             if (make_ppp_unit() < 0)
 424                 goto err_close;
 425         }
 426
 427         if (looped)
 428             set_flags(ppp_dev_fd, get_flags(ppp_dev_fd) & ~SC_LOOP_TRAFFIC);
 429
 430         if (!multilink) {
 431             add_fd(ppp_dev_fd);
 432             if (ioctl(fd, PPPIOCCONNECT, &ifunit) < 0) {
 433                 error("Couldn't attach to PPP unit %d: %m", ifunit);
 434                 goto err_close;
 435             }
 436         }
 437
 438     } else {
 439         /*
 440          * Old-style driver: find out which interface we were given.
 441          */
 442         set_ppp_fd (tty_fd);
 443         if (ioctl(tty_fd, PPPIOCGUNIT, &x) < 0) {
 444             if (ok_error (errno))
 445                 goto err;
 446             fatal("ioctl(PPPIOCGUNIT): %m(%d)", errno);
 447         }
 448         /* Check that we got the same unit again. */
 449         if (looped && x != ifunit)
 450             fatal("transfer_ppp failed: wanted unit %d, got %d", ifunit, x);
 451         ifunit = x;
 452
 453         /*
 454          * Fetch the initial file flags and reset blocking mode on the file.
 455          */
 456         initfdflags = fcntl(tty_fd, F_GETFL);
 457         if (initfdflags == -1 ||
 458             fcntl(tty_fd, F_SETFL, initfdflags | O_NONBLOCK) == -1) {
 459             if ( ! ok_error (errno))
 460                 warn("Couldn't set device to non-blocking mode: %m");
 461         }
 462     }
 463
 464     looped = 0;
 465
 466     /*
 467      * Enable debug in the driver if requested.
 468      */
 469     if (!looped)
 470         set_kdebugflag (kdebugflag);
 471
 472     set_flags(ppp_fd, get_flags(ppp_fd) & ~(SC_RCV_B7_0 | SC_RCV_B7_1 |
 473                                             SC_RCV_EVNP | SC_RCV_ODDP));
 474
 475     SYSDEBUG ((LOG_NOTICE, "Using version %d.%d.%d of PPP driver",
 476             driver_version, driver_modification, driver_patch));
 477
 478     return ppp_fd;
 479
 480  err_close:
 481     close(fd);
 482  err:
 483     if (ioctl(tty_fd, TIOCSETD, &tty_disc) < 0 && !ok_error(errno))
 484         warn("Couldn't reset tty to normal line discipline: %m");
 485     return -1;
 486 }
 487
 488 /********************************************************************
 489  *
 490  * disestablish_ppp - Restore the serial port to normal operation.
 491  * This shouldn't call die() because it's called from die().
 492  */
 493
 494 void disestablish_ppp(int tty_fd)
 495 {
 496     if (!hungup) {
 497 /*
 498  * Flush the tty output buffer so that the TIOCSETD doesn't hang.
 499  */
 500         if (tcflush(tty_fd, TCIOFLUSH) < 0)
 501             warn("tcflush failed: %m");
 502 /*
 503  * Restore the previous line discipline
 504  */
 505         if (ioctl(tty_fd, TIOCSETD, &tty_disc) < 0) {
 506             if ( ! ok_error (errno))
 507                 error("ioctl(TIOCSETD, N_TTY): %m");
 508         }
 509
 510         if (ioctl(tty_fd, TIOCNXCL, 0) < 0) {
 511             if ( ! ok_error (errno))
 512                 warn("ioctl(TIOCNXCL): %m(%d)", errno);
 513         }
 514
 515         /* Reset non-blocking mode on fd. */
 516         if (initfdflags != -1 && fcntl(tty_fd, F_SETFL, initfdflags) < 0) {
 517             if ( ! ok_error (errno))
 518                 warn("Couldn't restore device fd flags: %m");
 519         }
 520     }
 521     initfdflags = -1;
 522
 523     if (new_style_driver) {
 524         close(ppp_fd);
 525         ppp_fd = -1;
 526         if (!looped && ifunit >= 0 && ioctl(ppp_dev_fd, PPPIOCDETACH) < 0)
 527             error("Couldn't release PPP unit: %m");
 528         if (!multilink)
 529             remove_fd(ppp_dev_fd);
 530     }
 531 }
 532
 533 /*
 534  * make_ppp_unit - make a new ppp unit for ppp_dev_fd.
 535  * Assumes new_style_driver.
 536  */
 537 static int make_ppp_unit()
 538 {
 539         int x;
 540
 541         ifunit = req_unit;
 542         x = ioctl(ppp_dev_fd, PPPIOCNEWUNIT, &ifunit);
 543         if (x < 0 && req_unit >= 0 && errno == EEXIST) {
 544                 warn("Couldn't allocate PPP unit %d as it is already in use");
 545                 ifunit = -1;
 546                 x = ioctl(ppp_dev_fd, PPPIOCNEWUNIT, &ifunit);
 547         }
 548         if (x < 0)
 549                 error("Couldn't create new ppp unit: %m");
 550         return x;
 551 }
 552
 553 /*
 554  * cfg_bundle - configure the existing bundle.
 555  * Used in demand mode.
 556  */
 557 void cfg_bundle(int mrru, int mtru, int rssn, int tssn)
 558 {
 559         int flags;
 560
 561         if (!new_style_driver)
 562                 return;
 563
 564         /* set the mrru, mtu and flags */
 565         if (ioctl(ppp_dev_fd, PPPIOCSMRRU, &mrru) < 0)
 566                 error("Couldn't set MRRU: %m");
 567         flags = get_flags(ppp_dev_fd);
 568         flags &= ~(SC_MP_SHORTSEQ | SC_MP_XSHORTSEQ);
 569         flags |= (rssn? SC_MP_SHORTSEQ: 0) | (tssn? SC_MP_XSHORTSEQ: 0)
 570                 | (mrru? SC_MULTILINK: 0);
 571
 572         set_flags(ppp_dev_fd, flags);
 573
 574         /* connect up the channel */
 575         if (ioctl(ppp_fd, PPPIOCCONNECT, &ifunit) < 0)
 576                 fatal("Couldn't attach to PPP unit %d: %m", ifunit);
 577         add_fd(ppp_dev_fd);
 578 }
 579
 580 /*
 581  * make_new_bundle - create a new PPP unit (i.e. a bundle)
 582  * and connect our channel to it.  This should only get called
 583  * if `multilink' was set at the time establish_ppp was called.
 584  * In demand mode this uses our existing bundle instead of making
 585  * a new one.
 586  */
 587 void make_new_bundle(int mrru, int mtru, int rssn, int tssn)
 588 {
 589         if (!new_style_driver)
 590                 return;
 591
 592         /* make us a ppp unit */
 593         if (make_ppp_unit() < 0)
 594                 die(1);
 595
 596         /* set the mrru and flags */
 597         cfg_bundle(mrru, mtru, rssn, tssn);
 598 }
 599
 600 /*
 601  * bundle_attach - attach our link to a given PPP unit.
 602  * We assume the unit is controlled by another pppd.
 603  */
 604 int bundle_attach(int ifnum)
 605 {
 606         if (!new_style_driver)
 607                 return -1;
 608
 609         if (ioctl(ppp_dev_fd, PPPIOCATTACH, &ifnum) < 0) {
 610                 if (errno == ENXIO)
 611                         return 0;       /* doesn't still exist */
 612                 fatal("Couldn't attach to interface unit %d: %m\n", ifnum);
 613         }
 614         if (ioctl(ppp_fd, PPPIOCCONNECT, &ifnum) < 0)
 615                 fatal("Couldn't connect to interface unit %d: %m", ifnum);
 616         set_flags(ppp_dev_fd, get_flags(ppp_dev_fd) | SC_MULTILINK);
 617
 618         ifunit = ifnum;
 619         return 1;
 620 }
 621
 622 /********************************************************************
 623  *
 624  * clean_check - Fetch the flags for the device and generate
 625  * appropriate error messages.
 626  */
 627 void clean_check(void)
 628 {
 629     int x;
 630     char *s;
 631
 632     if (still_ppp()) {
 633         if (ioctl(ppp_fd, PPPIOCGFLAGS, (caddr_t) &x) == 0) {
 634             s = NULL;
 635             switch (~x & (SC_RCV_B7_0|SC_RCV_B7_1|SC_RCV_EVNP|SC_RCV_ODDP)) {
 636             case SC_RCV_B7_0:
 637                 s = "all had bit 7 set to 1";
 638                 break;
 639
 640             case SC_RCV_B7_1:
 641                 s = "all had bit 7 set to 0";
 642                 break;
 643
 644             case SC_RCV_EVNP:
 645                 s = "all had odd parity";
 646                 break;
 647
 648             case SC_RCV_ODDP:
 649                 s = "all had even parity";
 650                 break;
 651             }
 652
 653             if (s != NULL) {
 654                 warn("Receive serial link is not 8-bit clean:");
 655                 warn("Problem: %s", s);
 656             }
 657         }
 658     }
 659 }
 660
 661
 662 /*
 663  * List of valid speeds.
 664  */
 665
 666 struct speed {
 667     int speed_int, speed_val;
 668 } speeds[] = {
 669 #ifdef B50
 670     { 50, B50 },
 671 #endif
 672 #ifdef B75
 673     { 75, B75 },
 674 #endif
 675 #ifdef B110
 676     { 110, B110 },
 677 #endif
 678 #ifdef B134
 679     { 134, B134 },
 680 #endif
 681 #ifdef B150
 682     { 150, B150 },
 683 #endif
 684 #ifdef B200
 685     { 200, B200 },
 686 #endif
 687 #ifdef B300
 688     { 300, B300 },
 689 #endif
 690 #ifdef B600
 691     { 600, B600 },
 692 #endif
 693 #ifdef B1200
 694     { 1200, B1200 },
 695 #endif
 696 #ifdef B1800
 697     { 1800, B1800 },
 698 #endif
 699 #ifdef B2000
 700     { 2000, B2000 },
 701 #endif
 702 #ifdef B2400
 703     { 2400, B2400 },
 704 #endif
 705 #ifdef B3600
 706     { 3600, B3600 },
 707 #endif
 708 #ifdef B4800
 709     { 4800, B4800 },
 710 #endif
 711 #ifdef B7200
 712     { 7200, B7200 },
 713 #endif
 714 #ifdef B9600
 715     { 9600, B9600 },
 716 #endif
 717 #ifdef B19200
 718     { 19200, B19200 },
 719 #endif
 720 #ifdef B38400
 721     { 38400, B38400 },
 722 #endif
 723 #ifdef B57600
 724     { 57600, B57600 },
 725 #endif
 726 #ifdef B76800
 727     { 76800, B76800 },
 728 #endif
 729 #ifdef B115200
 730     { 115200, B115200 },
 731 #endif
 732 #ifdef EXTA
 733     { 19200, EXTA },
 734 #endif
 735 #ifdef EXTB
 736     { 38400, EXTB },
 737 #endif
 738 #ifdef B230400
 739     { 230400, B230400 },
 740 #endif
 741 #ifdef B460800
 742     { 460800, B460800 },
 743 #endif
 744 #ifdef B921600
 745     { 921600, B921600 },
 746 #endif
 747     { 0, 0 }
 748 };
 749
 750 /********************************************************************
 751  *
 752  * Translate from bits/second to a speed_t.
 753  */
 754
 755 static int translate_speed (int bps)
 756 {
 757     struct speed *speedp;
 758
 759     if (bps != 0) {
 760         for (speedp = speeds; speedp->speed_int; speedp++) {
 761             if (bps == speedp->speed_int)
 762                 return speedp->speed_val;
 763         }
 764         warn("speed %d not supported", bps);
 765     }
 766     return 0;
 767 }
 768
 769 /********************************************************************
 770  *
 771  * Translate from a speed_t to bits/second.
 772  */
 773
 774 static int baud_rate_of (int speed)
 775 {
 776     struct speed *speedp;
 777
 778     if (speed != 0) {
 779         for (speedp = speeds; speedp->speed_int; speedp++) {
 780             if (speed == speedp->speed_val)
 781                 return speedp->speed_int;
 782         }
 783     }
 784     return 0;
 785 }
 786
 787 /********************************************************************
 788  *
 789  * set_up_tty: Set up the serial port on `fd' for 8 bits, no parity,
 790  * at the requested speed, etc.  If `local' is true, set CLOCAL
 791  * regardless of whether the modem option was specified.
 792  */
 793
 794 void set_up_tty(int tty_fd, int local)
 795 {
 796     int speed;
 797     struct termios tios;
 798
 799     setdtr(tty_fd, 1);
 800     if (tcgetattr(tty_fd, &tios) < 0) {
 801         if (!ok_error(errno))
 802             fatal("tcgetattr: %m(%d)", errno);
 803         return;
 804     }
 805
 806     if (!restore_term)
 807         inittermios = tios;
 808
 809     tios.c_cflag     &= ~(CSIZE | CSTOPB | PARENB | CLOCAL);
 810     tios.c_cflag     |= CS8 | CREAD | HUPCL;
 811
 812     tios.c_iflag      = IGNBRK | IGNPAR;
 813     tios.c_oflag      = 0;
 814     tios.c_lflag      = 0;
 815     tios.c_cc[VMIN]   = 1;
 816     tios.c_cc[VTIME]  = 0;
 817
 818     if (local || !modem)
 819         tios.c_cflag ^= (CLOCAL | HUPCL);
 820
 821     switch (crtscts) {
 822     case 1:
 823         tios.c_cflag |= CRTSCTS;
 824         break;
 825
 826     case -2:
 827         tios.c_iflag     |= IXON | IXOFF;
 828         tios.c_cc[VSTOP]  = 0x13;       /* DC3 = XOFF = ^S */
 829         tios.c_cc[VSTART] = 0x11;       /* DC1 = XON  = ^Q */
 830         break;
 831
 832     case -1:
 833         tios.c_cflag &= ~CRTSCTS;
 834         break;
 835
 836     default:
 837         break;
 838     }
 839
 840     speed = translate_speed(inspeed);
 841     if (speed) {
 842         cfsetospeed (&tios, speed);
 843         cfsetispeed (&tios, speed);
 844     }
 845 /*
 846  * We can't proceed if the serial port speed is B0,
 847  * since that implies that the serial port is disabled.
 848  */
 849     else {
 850         speed = cfgetospeed(&tios);
 851         if (speed == B0)
 852             fatal("Baud rate for %s is 0; need explicit baud rate", devnam);
 853     }
 854
 855     if (tcsetattr(tty_fd, TCSAFLUSH, &tios) < 0)
 856         if (!ok_error(errno))
 857             fatal("tcsetattr: %m");
 858
 859     baud_rate    = baud_rate_of(speed);
 860     restore_term = 1;
 861 }
 862
 863 /********************************************************************
 864  *
 865  * setdtr - control the DTR line on the serial port.
 866  * This is called from die(), so it shouldn't call die().
 867  */
 868
 869 void setdtr (int tty_fd, int on)
 870 {
 871     int modembits = TIOCM_DTR;
 872
 873     ioctl(tty_fd, (on ? TIOCMBIS : TIOCMBIC), &modembits);
 874 }
 875
 876 /********************************************************************
 877  *
 878  * restore_tty - restore the terminal to the saved settings.
 879  */
 880
 881 void restore_tty (int tty_fd)
 882 {
 883     if (restore_term) {
 884         restore_term = 0;
 885 /*
 886  * Turn off echoing, because otherwise we can get into
 887  * a loop with the tty and the modem echoing to each other.
 888  * We presume we are the sole user of this tty device, so
 889  * when we close it, it will revert to its defaults anyway.
 890  */
 891         if (!default_device)
 892             inittermios.c_lflag &= ~(ECHO | ECHONL);
 893
 894         if (tcsetattr(tty_fd, TCSAFLUSH, &inittermios) < 0) {
 895             if (! ok_error (errno))
 896                 warn("tcsetattr: %m");
 897         }
 898     }
 899 }
 900
 901 /********************************************************************
 902  *
 903  * output - Output PPP packet.
 904  */
 905
 906 void output (int unit, unsigned char *p, int len)
 907 {
 908     int fd = ppp_fd;
 909     int proto;
 910
 911     if (debug)
 912         dbglog("sent %P", p, len);
 913
 914     if (len < PPP_HDRLEN)
 915         return;
 916     if (new_style_driver) {
 917         p += 2;
 918         len -= 2;
 919         proto = (p[0] << 8) + p[1];
 920         if (ifunit >= 0 && !(proto >= 0xc000 || proto == PPP_CCPFRAG))
 921             fd = ppp_dev_fd;
 922     }
 923     if (write(fd, p, len) < 0) {
 924         if (errno == EWOULDBLOCK || errno == ENOBUFS
 925             || errno == ENXIO || errno == EIO || errno == EINTR)
 926             warn("write: warning: %m (%d)", errno);
 927         else
 928             error("write: %m (%d)", errno);
 929     }
 930 }
 931
 932 /********************************************************************
 933  *
 934  * wait_input - wait until there is data available,
 935  * for the length of time specified by *timo (indefinite
 936  * if timo is NULL).
 937  */
 938
 939 void wait_input(struct timeval *timo)
 940 {
 941     fd_set ready, exc;
 942     int n;
 943
 944     ready = in_fds;
 945     exc = in_fds;
 946     n = select(max_in_fd + 1, &ready, NULL, &exc, timo);
 947     if (n < 0 && errno != EINTR)
 948         fatal("select: %m(%d)", errno);
 949 }
 950
 951 /*
 952  * add_fd - add an fd to the set that wait_input waits for.
 953  */
 954 void add_fd(int fd)
 955 {
 956     FD_SET(fd, &in_fds);
 957     if (fd > max_in_fd)
 958         max_in_fd = fd;
 959 }
 960
 961 /*
 962  * remove_fd - remove an fd from the set that wait_input waits for.
 963  */
 964 void remove_fd(int fd)
 965 {
 966     FD_CLR(fd, &in_fds);
 967 }
 968
 969
 970 /********************************************************************
 971  *
 972  * read_packet - get a PPP packet from the serial device.
 973  */
 974
 975 int read_packet (unsigned char *buf)
 976 {
 977     int len, nr;
 978
 979     len = PPP_MRU + PPP_HDRLEN;
 980     if (new_style_driver) {
 981         *buf++ = PPP_ALLSTATIONS;
 982         *buf++ = PPP_UI;
 983         len -= 2;
 984     }
 985     nr = -1;
 986     if (ppp_fd >= 0) {
 987         nr = read(ppp_fd, buf, len);
 988         if (nr < 0 && errno != EWOULDBLOCK && errno != EIO && errno != EINTR)
 989             error("read: %m");
 990     }
 991     if (nr < 0 && new_style_driver && ifunit >= 0) {
 992         /* N.B. we read ppp_fd first since LCP packets come in there. */
 993         nr = read(ppp_dev_fd, buf, len);
 994         if (nr < 0 && errno != EWOULDBLOCK && errno != EIO && errno != EINTR)
 995             error("read /dev/ppp: %m");
 996     }
 997     return (new_style_driver && nr > 0)? nr+2: nr;
 998 }
 999
1000 /********************************************************************
1001  *
1002  * get_loop_output - get outgoing packets from the ppp device,
1003  * and detect when we want to bring the real link up.
1004  * Return value is 1 if we need to bring up the link, 0 otherwise.
1005  */
1006 int
1007 get_loop_output(void)
1008 {
1009     int rv = 0;
1010     int n;
1011
1012     if (new_style_driver) {
1013         while ((n = read_packet(inpacket_buf)) > 0)
1014             if (loop_frame(inpacket_buf, n))
1015                 rv = 1;
1016         return rv;
1017     }
1018
1019     while ((n = read(master_fd, inbuf, sizeof(inbuf))) > 0)
1020         if (loop_chars(inbuf, n))
1021             rv = 1;
1022
1023     if (n == 0)
1024         fatal("eof on loopback");
1025
1026     if (errno != EWOULDBLOCK)
1027         fatal("read from loopback: %m(%d)", errno);
1028
1029     return rv;
1030 }
1031
1032 /*
1033  * netif_set_mtu - set the MTU on the PPP network interface.
1034  */
1035 void
1036 netif_set_mtu(int unit, int mtu)
1037 {
1038     struct ifreq ifr;
1039
1040     SYSDEBUG ((LOG_DEBUG, "netif_set_mtu: mtu = %d\n", mtu));
1041
1042     memset (&ifr, '\0', sizeof (ifr));
1043     strlcpy(ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
1044     ifr.ifr_mtu = mtu;
1045
1046     if (ifunit >= 0 && ioctl(sock_fd, SIOCSIFMTU, (caddr_t) &ifr) < 0)
1047         fatal("ioctl(SIOCSIFMTU): %m(%d)", errno);
1048 }
1049
1050 /********************************************************************
1051  *
1052  * tty_send_config - configure the transmit characteristics of
1053  * the ppp interface.
1054  */
1055
1056 void tty_send_config (int mtu,u_int32_t asyncmap,int pcomp,int accomp)
1057 {
1058     u_int x;
1059
1060 /*
1061  * Set the asyncmap and other parameters for the ppp device
1062  */
1063     if (!still_ppp())
1064         return;
1065     link_mtu = mtu;
1066     SYSDEBUG ((LOG_DEBUG, "send_config: asyncmap = %lx\n", asyncmap));
1067     if (ioctl(ppp_fd, PPPIOCSASYNCMAP, (caddr_t) &asyncmap) < 0) {
1068         if (!ok_error(errno))
1069             fatal("ioctl(PPPIOCSASYNCMAP): %m(%d)", errno);
1070         return;
1071     }
1072
1073     x = get_flags(ppp_fd);
1074     x = pcomp  ? x | SC_COMP_PROT : x & ~SC_COMP_PROT;
1075     x = accomp ? x | SC_COMP_AC   : x & ~SC_COMP_AC;
1076     x = sync_serial ? x | SC_SYNC : x & ~SC_SYNC;
1077     set_flags(ppp_fd, x);
1078 }
1079
1080 /********************************************************************
1081  *
1082  * tty_set_xaccm - set the extended transmit ACCM for the interface.
1083  */
1084
1085 void tty_set_xaccm (ext_accm accm)
1086 {
1087     SYSDEBUG ((LOG_DEBUG, "set_xaccm: %08lx %08lx %08lx %08lx\n",
1088                 accm[0], accm[1], accm[2], accm[3]));
1089
1090     if (!still_ppp())
1091         return;
1092     if (ioctl(ppp_fd, PPPIOCSXASYNCMAP, accm) < 0 && errno != ENOTTY) {
1093         if ( ! ok_error (errno))
1094             warn("ioctl(set extended ACCM): %m(%d)", errno);
1095     }
1096 }
1097
1098 /********************************************************************
1099  *
1100  * tty_recv_config - configure the receive-side characteristics of
1101  * the ppp interface.
1102  */
1103
1104 void tty_recv_config (int mru,u_int32_t asyncmap,int pcomp,int accomp)
1105 {
1106     SYSDEBUG ((LOG_DEBUG, "recv_config: mru = %d\n", mru));
1107 /*
1108  * If we were called because the link has gone down then there is nothing
1109  * which may be done. Just return without incident.
1110  */
1111     if (!still_ppp())
1112         return;
1113 /*
1114  * Set the receiver parameters
1115  */
1116     if (ioctl(ppp_fd, PPPIOCSMRU, (caddr_t) &mru) < 0) {
1117         if ( ! ok_error (errno))
1118             error("ioctl(PPPIOCSMRU): %m(%d)", errno);
1119     }
1120     if (new_style_driver && ifunit >= 0
1121         && ioctl(ppp_dev_fd, PPPIOCSMRU, (caddr_t) &mru) < 0)
1122         error("Couldn't set MRU in generic PPP layer: %m");
1123
1124     SYSDEBUG ((LOG_DEBUG, "recv_config: asyncmap = %lx\n", asyncmap));
1125     if (ioctl(ppp_fd, PPPIOCSRASYNCMAP, (caddr_t) &asyncmap) < 0) {
1126         if (!ok_error(errno))
1127             error("ioctl(PPPIOCSRASYNCMAP): %m(%d)", errno);
1128     }
1129 }
1130
1131 /********************************************************************
1132  *
1133  * ccp_test - ask kernel whether a given compression method
1134  * is acceptable for use.
1135  */
1136
1137 int ccp_test (int unit, u_char *opt_ptr, int opt_len, int for_transmit)
1138 {
1139     struct ppp_option_data data;
1140
1141     memset (&data, '\0', sizeof (data));
1142     data.ptr      = opt_ptr;
1143     data.length   = opt_len;
1144     data.transmit = for_transmit;
1145
1146     if (ioctl(ppp_dev_fd, PPPIOCSCOMPRESS, (caddr_t) &data) >= 0)
1147         return 1;
1148
1149     return (errno == ENOBUFS)? 0: -1;
1150 }
1151
1152 /********************************************************************
1153  *
1154  * ccp_flags_set - inform kernel about the current state of CCP.
1155  */
1156
1157 void ccp_flags_set (int unit, int isopen, int isup)
1158 {
1159     if (still_ppp()) {
1160         int x = get_flags(ppp_dev_fd);
1161         x = isopen? x | SC_CCP_OPEN : x &~ SC_CCP_OPEN;
1162         x = isup?   x | SC_CCP_UP   : x &~ SC_CCP_UP;
1163         set_flags (ppp_dev_fd, x);
1164     }
1165 }
1166
1167 #ifdef PPP_FILTER
1168 /*
1169  * set_filters - set the active and pass filters in the kernel driver.
1170  */
1171 int set_filters(struct bpf_program *pass, struct bpf_program *active)
1172 {
1173         struct sock_fprog fp;
1174
1175         fp.len = pass->bf_len;
1176         fp.filter = (struct sock_filter *) pass->bf_insns;
1177         if (ioctl(ppp_dev_fd, PPPIOCSPASS, &fp) < 0) {
1178                 if (errno == ENOTTY)
1179                         warn("kernel does not support PPP filtering");
1180                 else
1181                         error("Couldn't set pass-filter in kernel: %m");
1182                 return 0;
1183         }
1184         fp.len = active->bf_len;
1185         fp.filter = (struct sock_filter *) active->bf_insns;
1186         if (ioctl(ppp_dev_fd, PPPIOCSACTIVE, &fp) < 0) {
1187                 error("Couldn't set active-filter in kernel: %m");
1188                 return 0;
1189         }
1190         return 1;
1191 }
1192 #endif /* PPP_FILTER */
1193
1194 /********************************************************************
1195  *
1196  * get_idle_time - return how long the link has been idle.
1197  */
1198 int
1199 get_idle_time(u, ip)
1200     int u;
1201     struct ppp_idle *ip;
1202 {
1203     return ioctl(ppp_dev_fd, PPPIOCGIDLE, ip) >= 0;
1204 }
1205
1206 /********************************************************************
1207  *
1208  * get_ppp_stats - return statistics for the link.
1209  */
1210 int
1211 get_ppp_stats(u, stats)
1212     int u;
1213     struct pppd_stats *stats;
1214 {
1215     struct ifpppstatsreq req;
1216
1217     memset (&req, 0, sizeof (req));
1218
1219     req.stats_ptr = (caddr_t) &req.stats;
1220     strlcpy(req.ifr__name, ifname, sizeof(req.ifr__name));
1221     if (ioctl(sock_fd, SIOCGPPPSTATS, &req) < 0) {
1222         error("Couldn't get PPP statistics: %m");
1223         return 0;
1224     }
1225     stats->bytes_in = req.stats.p.ppp_ibytes;
1226     stats->bytes_out = req.stats.p.ppp_obytes;
1227     return 1;
1228 }
1229
1230 /********************************************************************
1231  *
1232  * ccp_fatal_error - returns 1 if decompression was disabled as a
1233  * result of an error detected after decompression of a packet,
1234  * 0 otherwise.  This is necessary because of patent nonsense.
1235  */
1236
1237 int ccp_fatal_error (int unit)
1238 {
1239     int x = get_flags(ppp_dev_fd);
1240
1241     return x & SC_DC_FERROR;
1242 }
1243
1244 /********************************************************************
1245  *
1246  * path_to_procfs - find the path to the proc file system mount point
1247  */
1248 static char proc_path[MAXPATHLEN];
1249 static int proc_path_len;
1250
1251 static char *path_to_procfs(const char *tail)
1252 {
1253     struct mntent *mntent;
1254     FILE *fp;
1255
1256     if (proc_path_len == 0) {
1257         /* Default the mount location of /proc */
1258         strlcpy (proc_path, "/proc", sizeof(proc_path));
1259         proc_path_len = 5;
1260         fp = fopen(MOUNTED, "r");
1261         if (fp != NULL) {
1262             while ((mntent = getmntent(fp)) != NULL) {
1263                 if (strcmp(mntent->mnt_type, MNTTYPE_IGNORE) == 0)
1264                     continue;
1265                 if (strcmp(mntent->mnt_type, "proc") == 0) {
1266                     strlcpy(proc_path, mntent->mnt_dir, sizeof(proc_path));
1267                     proc_path_len = strlen(proc_path);
1268                     break;
1269                 }
1270             }
1271             fclose (fp);
1272         }
1273     }
1274
1275     strlcpy(proc_path + proc_path_len, tail,
1276             sizeof(proc_path) - proc_path_len);
1277     return proc_path;
1278 }
1279
1280 /*
1281  * /proc/net/route parsing stuff.
1282  */
1283 #define ROUTE_MAX_COLS  12
1284 FILE *route_fd = (FILE *) 0;
1285 static char route_buffer[512];
1286 static int route_dev_col, route_dest_col, route_gw_col;
1287 static int route_flags_col, route_mask_col;
1288 static int route_num_cols;
1289
1290 static int open_route_table (void);
1291 static void close_route_table (void);
1292 static int read_route_table (struct rtentry *rt);
1293
1294 /********************************************************************
1295  *
1296  * close_route_table - close the interface to the route table
1297  */
1298
1299 static void close_route_table (void)
1300 {
1301     if (route_fd != (FILE *) 0) {
1302         fclose (route_fd);
1303         route_fd = (FILE *) 0;
1304     }
1305 }
1306
1307 /********************************************************************
1308  *
1309  * open_route_table - open the interface to the route table
1310  */
1311 static char route_delims[] = " \t\n";
1312
1313 static int open_route_table (void)
1314 {
1315     char *path;
1316
1317     close_route_table();
1318
1319     path = path_to_procfs("/net/route");
1320     route_fd = fopen (path, "r");
1321     if (route_fd == NULL) {
1322         error("can't open routing table %s: %m", path);
1323         return 0;
1324     }
1325
1326     route_dev_col = 0;          /* default to usual columns */
1327     route_dest_col = 1;
1328     route_gw_col = 2;
1329     route_flags_col = 3;
1330     route_mask_col = 7;
1331     route_num_cols = 8;
1332
1333     /* parse header line */
1334     if (fgets(route_buffer, sizeof(route_buffer), route_fd) != 0) {
1335         char *p = route_buffer, *q;
1336         int col;
1337         for (col = 0; col < ROUTE_MAX_COLS; ++col) {
1338             int used = 1;
1339             if ((q = strtok(p, route_delims)) == 0)
1340                 break;
1341             if (strcasecmp(q, "iface") == 0)
1342                 route_dev_col = col;
1343             else if (strcasecmp(q, "destination") == 0)
1344                 route_dest_col = col;
1345             else if (strcasecmp(q, "gateway") == 0)
1346                 route_gw_col = col;
1347             else if (strcasecmp(q, "flags") == 0)
1348                 route_flags_col = col;
1349             else if (strcasecmp(q, "mask") == 0)
1350                 route_mask_col = col;
1351             else
1352                 used = 0;
1353             if (used && col >= route_num_cols)
1354                 route_num_cols = col + 1;
1355             p = NULL;
1356         }
1357     }
1358
1359     return 1;
1360 }
1361
1362 /********************************************************************
1363  *
1364  * read_route_table - read the next entry from the route table
1365  */
1366
1367 static int read_route_table(struct rtentry *rt)
1368 {
1369     char *cols[ROUTE_MAX_COLS], *p;
1370     int col;
1371
1372     memset (rt, '\0', sizeof (struct rtentry));
1373
1374     if (fgets (route_buffer, sizeof (route_buffer), route_fd) == (char *) 0)
1375         return 0;
1376
1377     p = route_buffer;
1378     for (col = 0; col < route_num_cols; ++col) {
1379         cols[col] = strtok(p, route_delims);
1380         if (cols[col] == NULL)
1381             return 0;           /* didn't get enough columns */
1382         p = NULL;
1383     }
1384
1385     SIN_ADDR(rt->rt_dst) = strtoul(cols[route_dest_col], NULL, 16);
1386     SIN_ADDR(rt->rt_gateway) = strtoul(cols[route_gw_col], NULL, 16);
1387     SIN_ADDR(rt->rt_genmask) = strtoul(cols[route_mask_col], NULL, 16);
1388
1389     rt->rt_flags = (short) strtoul(cols[route_flags_col], NULL, 16);
1390     rt->rt_dev   = cols[route_dev_col];
1391
1392     return 1;
1393 }
1394
1395 /********************************************************************
1396  *
1397  * defaultroute_exists - determine if there is a default route
1398  */
1399
1400 static int defaultroute_exists (struct rtentry *rt)
1401 {
1402     int result = 0;
1403
1404     if (!open_route_table())
1405         return 0;
1406
1407     while (read_route_table(rt) != 0) {
1408         if ((rt->rt_flags & RTF_UP) == 0)
1409             continue;
1410
1411         if (kernel_version > KVERSION(2,1,0) && SIN_ADDR(rt->rt_genmask) != 0)
1412             continue;
1413         if (SIN_ADDR(rt->rt_dst) == 0L) {
1414             result = 1;
1415             break;
1416         }
1417     }
1418
1419     close_route_table();
1420     return result;
1421 }
1422
1423 /*
1424  * have_route_to - determine if the system has any route to
1425  * a given IP address.  `addr' is in network byte order.
1426  * Return value is 1 if yes, 0 if no, -1 if don't know.
1427  * For demand mode to work properly, we have to ignore routes
1428  * through our own interface.
1429  */
1430 int have_route_to(u_int32_t addr)
1431 {
1432     struct rtentry rt;
1433     int result = 0;
1434
1435     if (!open_route_table())
1436         return -1;              /* don't know */
1437
1438     while (read_route_table(&rt)) {
1439         if ((rt.rt_flags & RTF_UP) == 0 || strcmp(rt.rt_dev, ifname) == 0)
1440             continue;
1441         if ((addr & SIN_ADDR(rt.rt_genmask)) == SIN_ADDR(rt.rt_dst)) {
1442             result = 1;
1443             break;
1444         }
1445     }
1446
1447     close_route_table();
1448     return result;
1449 }
1450
1451 /********************************************************************
1452  *
1453  * sifdefaultroute - assign a default route through the address given.
1454  */
1455
1456 int sifdefaultroute (int unit, u_int32_t ouraddr, u_int32_t gateway)
1457 {
1458     struct rtentry rt;
1459
1460     if (defaultroute_exists(&rt) && strcmp(rt.rt_dev, ifname) != 0) {
1461         u_int32_t old_gateway = SIN_ADDR(rt.rt_gateway);
1462
1463         if (old_gateway != gateway)
1464             error("not replacing existing default route to %s [%I]",
1465                   rt.rt_dev, old_gateway);
1466         return 0;
1467     }
1468
1469     memset (&rt, '\0', sizeof (rt));
1470     SET_SA_FAMILY (rt.rt_dst,     AF_INET);
1471     SET_SA_FAMILY (rt.rt_gateway, AF_INET);
1472
1473     if (kernel_version > KVERSION(2,1,0)) {
1474         SET_SA_FAMILY (rt.rt_genmask, AF_INET);
1475         SIN_ADDR(rt.rt_genmask) = 0L;
1476     }
1477
1478     SIN_ADDR(rt.rt_gateway) = gateway;
1479
1480     rt.rt_flags = RTF_UP | RTF_GATEWAY;
1481     if (ioctl(sock_fd, SIOCADDRT, &rt) < 0) {
1482         if ( ! ok_error ( errno ))
1483             error("default route ioctl(SIOCADDRT): %m(%d)", errno);
1484         return 0;
1485     }
1486
1487     default_route_gateway = gateway;
1488     return 1;
1489 }
1490
1491 /********************************************************************
1492  *
1493  * cifdefaultroute - delete a default route through the address given.
1494  */
1495
1496 int cifdefaultroute (int unit, u_int32_t ouraddr, u_int32_t gateway)
1497 {
1498     struct rtentry rt;
1499
1500     default_route_gateway = 0;
1501
1502     memset (&rt, '\0', sizeof (rt));
1503     SET_SA_FAMILY (rt.rt_dst,     AF_INET);
1504     SET_SA_FAMILY (rt.rt_gateway, AF_INET);
1505
1506     if (kernel_version > KVERSION(2,1,0)) {
1507         SET_SA_FAMILY (rt.rt_genmask, AF_INET);
1508         SIN_ADDR(rt.rt_genmask) = 0L;
1509     }
1510
1511     SIN_ADDR(rt.rt_gateway) = gateway;
1512
1513     rt.rt_flags = RTF_UP | RTF_GATEWAY;
1514     if (ioctl(sock_fd, SIOCDELRT, &rt) < 0 && errno != ESRCH) {
1515         if (still_ppp()) {
1516             if ( ! ok_error ( errno ))
1517                 error("default route ioctl(SIOCDELRT): %m (%d)", errno);
1518             return 0;
1519         }
1520     }
1521
1522     return 1;
1523 }
1524
1525 /********************************************************************
1526  *
1527  * sifproxyarp - Make a proxy ARP entry for the peer.
1528  */
1529
1530 int sifproxyarp (int unit, u_int32_t his_adr)
1531 {
1532     struct arpreq arpreq;
1533     char *forw_path;
1534
1535     if (has_proxy_arp == 0) {
1536         memset (&arpreq, '\0', sizeof(arpreq));
1537
1538         SET_SA_FAMILY(arpreq.arp_pa, AF_INET);
1539         SIN_ADDR(arpreq.arp_pa) = his_adr;
1540         arpreq.arp_flags = ATF_PERM | ATF_PUBL;
1541 /*
1542  * Get the hardware address of an interface on the same subnet
1543  * as our local address.
1544  */
1545         if (!get_ether_addr(his_adr, &arpreq.arp_ha, proxy_arp_dev,
1546                             sizeof(proxy_arp_dev))) {
1547             error("Cannot determine ethernet address for proxy ARP");
1548             return 0;
1549         }
1550         strlcpy(arpreq.arp_dev, proxy_arp_dev, sizeof(arpreq.arp_dev));
1551
1552         if (ioctl(sock_fd, SIOCSARP, (caddr_t)&arpreq) < 0) {
1553             if ( ! ok_error ( errno ))
1554                 error("ioctl(SIOCSARP): %m(%d)", errno);
1555             return 0;
1556         }
1557         proxy_arp_addr = his_adr;
1558         has_proxy_arp = 1;
1559
1560         if (tune_kernel) {
1561             forw_path = path_to_procfs("/sys/net/ipv4/ip_forward");
1562             if (forw_path != 0) {
1563                 int fd = open(forw_path, O_WRONLY);
1564                 if (fd >= 0) {
1565                     if (write(fd, "1", 1) != 1)
1566                         error("Couldn't enable IP forwarding: %m");
1567                     close(fd);
1568                 }
1569             }
1570         }
1571     }
1572
1573     return 1;
1574 }
1575
1576 /********************************************************************
1577  *
1578  * cifproxyarp - Delete the proxy ARP entry for the peer.
1579  */
1580
1581 int cifproxyarp (int unit, u_int32_t his_adr)
1582 {
1583     struct arpreq arpreq;
1584
1585     if (has_proxy_arp) {
1586         has_proxy_arp = 0;
1587         memset (&arpreq, '\0', sizeof(arpreq));
1588         SET_SA_FAMILY(arpreq.arp_pa, AF_INET);
1589         SIN_ADDR(arpreq.arp_pa) = his_adr;
1590         arpreq.arp_flags = ATF_PERM | ATF_PUBL;
1591         strlcpy(arpreq.arp_dev, proxy_arp_dev, sizeof(arpreq.arp_dev));
1592
1593         if (ioctl(sock_fd, SIOCDARP, (caddr_t)&arpreq) < 0) {
1594             if ( ! ok_error ( errno ))
1595                 warn("ioctl(SIOCDARP): %m(%d)", errno);
1596             return 0;
1597         }
1598     }
1599     return 1;
1600 }
1601
1602 /********************************************************************
1603  *
1604  * get_ether_addr - get the hardware address of an interface on the
1605  * the same subnet as ipaddr.
1606  */
1607
1608 static int get_ether_addr (u_int32_t ipaddr,
1609                            struct sockaddr *hwaddr,
1610                            char *name, int namelen)
1611 {
1612     struct ifreq *ifr, *ifend;
1613     u_int32_t ina, mask;
1614     char *aliasp;
1615     struct ifreq ifreq;
1616     struct ifconf ifc;
1617     struct ifreq ifs[MAX_IFS];
1618
1619     ifc.ifc_len = sizeof(ifs);
1620     ifc.ifc_req = ifs;
1621     if (ioctl(sock_fd, SIOCGIFCONF, &ifc) < 0) {
1622         if ( ! ok_error ( errno ))
1623             error("ioctl(SIOCGIFCONF): %m(%d)", errno);
1624         return 0;
1625     }
1626
1627     SYSDEBUG ((LOG_DEBUG, "proxy arp: scanning %d interfaces for IP %s",
1628                 ifc.ifc_len / sizeof(struct ifreq), ip_ntoa(ipaddr)));
1629 /*
1630  * Scan through looking for an interface with an Internet
1631  * address on the same subnet as `ipaddr'.
1632  */
1633     ifend = ifs + (ifc.ifc_len / sizeof(struct ifreq));
1634     for (ifr = ifc.ifc_req; ifr < ifend; ifr++) {
1635         if (ifr->ifr_addr.sa_family == AF_INET) {
1636             ina = SIN_ADDR(ifr->ifr_addr);
1637             strlcpy(ifreq.ifr_name, ifr->ifr_name, sizeof(ifreq.ifr_name));
1638             SYSDEBUG ((LOG_DEBUG, "proxy arp: examining interface %s",
1639                         ifreq.ifr_name));
1640 /*
1641  * Check that the interface is up, and not point-to-point
1642  * nor loopback.
1643  */
1644             if (ioctl(sock_fd, SIOCGIFFLAGS, &ifreq) < 0)
1645                 continue;
1646
1647             if (((ifreq.ifr_flags ^ FLAGS_GOOD) & FLAGS_MASK) != 0)
1648                 continue;
1649 /*
1650  * Get its netmask and check that it's on the right subnet.
1651  */
1652             if (ioctl(sock_fd, SIOCGIFNETMASK, &ifreq) < 0)
1653                 continue;
1654
1655             mask = SIN_ADDR(ifreq.ifr_addr);
1656             SYSDEBUG ((LOG_DEBUG, "proxy arp: interface addr %s mask %lx",
1657                         ip_ntoa(ina), ntohl(mask)));
1658
1659             if (((ipaddr ^ ina) & mask) != 0)
1660                 continue;
1661             break;
1662         }
1663     }
1664
1665     if (ifr >= ifend)
1666         return 0;
1667
1668     strlcpy(name, ifreq.ifr_name, namelen);
1669
1670     /* trim off the :1 in eth0:1 */
1671     aliasp = strchr(name, ':');
1672     if (aliasp != 0)
1673         *aliasp = 0;
1674
1675     info("found interface %s for proxy arp", name);
1676 /*
1677  * Now get the hardware address.
1678  */
1679     memset (&ifreq.ifr_hwaddr, 0, sizeof (struct sockaddr));
1680     if (ioctl (sock_fd, SIOCGIFHWADDR, &ifreq) < 0) {
1681         error("SIOCGIFHWADDR(%s): %m(%d)", ifreq.ifr_name, errno);
1682         return 0;
1683     }
1684
1685     memcpy (hwaddr,
1686             &ifreq.ifr_hwaddr,
1687             sizeof (struct sockaddr));
1688
1689     SYSDEBUG ((LOG_DEBUG,
1690            "proxy arp: found hwaddr %02x:%02x:%02x:%02x:%02x:%02x:%02x:%02x",
1691                 (int) ((unsigned char *) &hwaddr->sa_data)[0],
1692                 (int) ((unsigned char *) &hwaddr->sa_data)[1],
1693                 (int) ((unsigned char *) &hwaddr->sa_data)[2],
1694                 (int) ((unsigned char *) &hwaddr->sa_data)[3],
1695                 (int) ((unsigned char *) &hwaddr->sa_data)[4],
1696                 (int) ((unsigned char *) &hwaddr->sa_data)[5],
1697                 (int) ((unsigned char *) &hwaddr->sa_data)[6],
1698                 (int) ((unsigned char *) &hwaddr->sa_data)[7]));
1699     return 1;
1700 }
1701
1702 /*
1703  * get_if_hwaddr - get the hardware address for the specified
1704  * network interface device.
1705  */
1706 int
1707 get_if_hwaddr(u_char *addr, char *name)
1708 {
1709         struct ifreq ifreq;
1710         int ret, sock_fd;
1711
1712         sock_fd = socket(AF_INET, SOCK_DGRAM, 0);
1713         if (sock_fd < 0)
1714                 return 0;
1715         memset(&ifreq.ifr_hwaddr, 0, sizeof(struct sockaddr));
1716         strlcpy(ifreq.ifr_name, name, sizeof(ifreq.ifr_name));
1717         ret = ioctl(sock_fd, SIOCGIFHWADDR, &ifreq);
1718         close(sock_fd);
1719         if (ret >= 0)
1720                 memcpy(addr, ifreq.ifr_hwaddr.sa_data, 6);
1721         return ret;
1722 }
1723
1724 /*
1725  * get_first_ethernet - return the name of the first ethernet-style
1726  * interface on this system.
1727  */
1728 char *
1729 get_first_ethernet()
1730 {
1731         return "eth0";
1732 }
1733
1734 /********************************************************************
1735  *
1736  * Return user specified netmask, modified by any mask we might determine
1737  * for address `addr' (in network byte order).
1738  * Here we scan through the system's list of interfaces, looking for
1739  * any non-point-to-point interfaces which might appear to be on the same
1740  * network as `addr'.  If we find any, we OR in their netmask to the
1741  * user-specified netmask.
1742  */
1743
1744 u_int32_t GetMask (u_int32_t addr)
1745 {
1746     u_int32_t mask, nmask, ina;
1747     struct ifreq *ifr, *ifend, ifreq;
1748     struct ifconf ifc;
1749     struct ifreq ifs[MAX_IFS];
1750
1751     addr = ntohl(addr);
1752
1753     if (IN_CLASSA(addr))        /* determine network mask for address class */
1754         nmask = IN_CLASSA_NET;
1755     else if (IN_CLASSB(addr))
1756             nmask = IN_CLASSB_NET;
1757     else
1758             nmask = IN_CLASSC_NET;
1759
1760     /* class D nets are disallowed by bad_ip_adrs */
1761     mask = netmask | htonl(nmask);
1762 /*
1763  * Scan through the system's network interfaces.
1764  */
1765     ifc.ifc_len = sizeof(ifs);
1766     ifc.ifc_req = ifs;
1767     if (ioctl(sock_fd, SIOCGIFCONF, &ifc) < 0) {
1768         if ( ! ok_error ( errno ))
1769             warn("ioctl(SIOCGIFCONF): %m(%d)", errno);
1770         return mask;
1771     }
1772
1773     ifend = (struct ifreq *) (ifc.ifc_buf + ifc.ifc_len);
1774     for (ifr = ifc.ifc_req; ifr < ifend; ifr++) {
1775 /*
1776  * Check the interface's internet address.
1777  */
1778         if (ifr->ifr_addr.sa_family != AF_INET)
1779             continue;
1780         ina = SIN_ADDR(ifr->ifr_addr);
1781         if (((ntohl(ina) ^ addr) & nmask) != 0)
1782             continue;
1783 /*
1784  * Check that the interface is up, and not point-to-point nor loopback.
1785  */
1786         strlcpy(ifreq.ifr_name, ifr->ifr_name, sizeof(ifreq.ifr_name));
1787         if (ioctl(sock_fd, SIOCGIFFLAGS, &ifreq) < 0)
1788             continue;
1789
1790         if (((ifreq.ifr_flags ^ FLAGS_GOOD) & FLAGS_MASK) != 0)
1791             continue;
1792 /*
1793  * Get its netmask and OR it into our mask.
1794  */
1795         if (ioctl(sock_fd, SIOCGIFNETMASK, &ifreq) < 0)
1796             continue;
1797         mask |= SIN_ADDR(ifreq.ifr_addr);
1798         break;
1799     }
1800     return mask;
1801 }
1802
1803 /********************************************************************
1804  *
1805  * Internal routine to decode the version.modification.patch level
1806  */
1807
1808 static void decode_version (char *buf, int *version,
1809                             int *modification, int *patch)
1810 {
1811     *version      = (int) strtoul (buf, &buf, 10);
1812     *modification = 0;
1813     *patch        = 0;
1814
1815     if (*buf == '.') {
1816         ++buf;
1817         *modification = (int) strtoul (buf, &buf, 10);
1818         if (*buf == '.') {
1819             ++buf;
1820             *patch = (int) strtoul (buf, &buf, 10);
1821         }
1822     }
1823
1824     if (*buf != '\0') {
1825         *version      =
1826         *modification =
1827         *patch        = 0;
1828     }
1829 }
1830
1831 /********************************************************************
1832  *
1833  * Procedure to determine if the PPP line discipline is registered.
1834  */
1835
1836 static int
1837 ppp_registered(void)
1838 {
1839     int local_fd;
1840     int mfd = -1;
1841     int ret = 0;
1842     char slave[16];
1843
1844     /*
1845      * We used to open the serial device and set it to the ppp line
1846      * discipline here, in order to create a ppp unit.  But that is
1847      * not a good idea - the user might have specified a device that
1848      * they can't open (permission, or maybe it doesn't really exist).
1849      * So we grab a pty master/slave pair and use that.
1850      */
1851     if (!get_pty(&mfd, &local_fd, slave, 0)) {
1852         no_ppp_msg = "Couldn't determine if PPP is supported (no free ptys)";
1853         return 0;
1854     }
1855
1856     /*
1857      * Try to put the device into the PPP discipline.
1858      */
1859     if (ioctl(local_fd, TIOCSETD, &ppp_disc) < 0) {
1860         error("ioctl(TIOCSETD(PPP)): %m(%d)", errno);
1861     } else
1862         ret = 1;
1863
1864     close(local_fd);
1865     close(mfd);
1866     return ret;
1867 }
1868
1869 /********************************************************************
1870  *
1871  * ppp_available - check whether the system has any ppp interfaces
1872  * (in fact we check whether we can do an ioctl on ppp0).
1873  */
1874
1875 int ppp_available(void)
1876 {
1877     int s, ok, fd;
1878     struct ifreq ifr;
1879     int    size;
1880     int    my_version, my_modification, my_patch;
1881     int osmaj, osmin, ospatch;
1882
1883     no_ppp_msg =
1884         "This system lacks kernel support for PPP.  This could be because\n"
1885         "the PPP kernel module could not be loaded, or because PPP was not\n"
1886         "included in the kernel configuration.  If PPP was included as a\n"
1887         "module, try `/sbin/modprobe -v ppp'.  If that fails, check that\n"
1888         "ppp.o exists in /lib/modules/`uname -r`/net.\n"
1889         "See README.linux file in the ppp distribution for more details.\n";
1890
1891     /* get the kernel version now, since we are called before sys_init */
1892     uname(&utsname);
1893     osmaj = osmin = ospatch = 0;
1894     sscanf(utsname.release, "%d.%d.%d", &osmaj, &osmin, &ospatch);
1895     kernel_version = KVERSION(osmaj, osmin, ospatch);
1896
1897     fd = open("/dev/ppp", O_RDWR);
1898 #if 0
1899     if (fd < 0 && errno == ENOENT) {
1900         /* try making it and see if that helps. */
1901         if (mknod("/dev/ppp", S_IFCHR | S_IRUSR | S_IWUSR,
1902                   makedev(108, 0)) >= 0) {
1903             fd = open("/dev/ppp", O_RDWR);
1904             if (fd >= 0)
1905                 info("Created /dev/ppp device node");
1906             else
1907                 unlink("/dev/ppp");     /* didn't work, undo the mknod */
1908         } else if (errno == EEXIST) {
1909             fd = open("/dev/ppp", O_RDWR);
1910         }
1911     }
1912 #endif /* 0 */
1913     if (fd >= 0) {
1914         new_style_driver = 1;
1915
1916         /* XXX should get from driver */
1917         driver_version = 2;
1918         driver_modification = 4;
1919         driver_patch = 0;
1920         close(fd);
1921         return 1;
1922     }
1923     if (kernel_version >= KVERSION(2,3,13))
1924         return 0;
1925
1926 /*
1927  * Open a socket for doing the ioctl operations.
1928  */
1929     s = socket(AF_INET, SOCK_DGRAM, 0);
1930     if (s < 0)
1931         return 0;
1932
1933     strlcpy (ifr.ifr_name, "ppp0", sizeof (ifr.ifr_name));
1934     ok = ioctl(s, SIOCGIFFLAGS, (caddr_t) &ifr) >= 0;
1935 /*
1936  * If the device did not exist then attempt to create one by putting the
1937  * current tty into the PPP discipline. If this works then obtain the
1938  * flags for the device again.
1939  */
1940     if (!ok) {
1941         if (ppp_registered()) {
1942             strlcpy (ifr.ifr_name, "ppp0", sizeof (ifr.ifr_name));
1943             ok = ioctl(s, SIOCGIFFLAGS, (caddr_t) &ifr) >= 0;
1944         }
1945     }
1946 /*
1947  * Ensure that the hardware address is for PPP and not something else
1948  */
1949     if (ok)
1950         ok = ioctl (s, SIOCGIFHWADDR, (caddr_t) &ifr) >= 0;
1951
1952     if (ok && ((ifr.ifr_hwaddr.sa_family & ~0xFF) != ARPHRD_PPP))
1953         ok = 0;
1954
1955 /*
1956  *  This is the PPP device. Validate the version of the driver at this
1957  *  point to ensure that this program will work with the driver.
1958  */
1959     if (ok) {
1960         char   abBuffer [1024];
1961
1962         ifr.ifr_data = abBuffer;
1963         size = ioctl (s, SIOCGPPPVER, (caddr_t) &ifr);
1964         if (size < 0) {
1965             error("Couldn't read driver version: %m");
1966             ok = 0;
1967             no_ppp_msg = "Sorry, couldn't verify kernel driver version\n";
1968
1969         } else {
1970             decode_version(abBuffer,
1971                            &driver_version,
1972                            &driver_modification,
1973                            &driver_patch);
1974 /*
1975  * Validate the version of the driver against the version that we used.
1976  */
1977             decode_version(VERSION,
1978                            &my_version,
1979                            &my_modification,
1980                            &my_patch);
1981
1982             /* The version numbers must match */
1983             if (driver_version != my_version)
1984                 ok = 0;
1985
1986             /* The modification levels must be legal */
1987             if (driver_modification < 3) {
1988                 if (driver_modification >= 2) {
1989                     /* we can cope with 2.2.0 and above */
1990                     driver_is_old = 1;
1991                 } else {
1992                     ok = 0;
1993                 }
1994             }
1995
1996             close (s);
1997             if (!ok) {
1998                 slprintf(route_buffer, sizeof(route_buffer),
1999                          "Sorry - PPP driver version %d.%d.%d is out of date\n",
2000                          driver_version, driver_modification, driver_patch);
2001
2002                 no_ppp_msg = route_buffer;
2003             }
2004         }
2005     }
2006     return ok;
2007 }
2008
2009 /********************************************************************
2010  *
2011  * Update the wtmp file with the appropriate user name and tty device.
2012  */
2013
2014 void logwtmp (const char *line, const char *name, const char *host)
2015 {
2016     struct utmp ut, *utp;
2017     pid_t  mypid = getpid();
2018 #if __GLIBC__ < 2
2019     int    wtmp;
2020 #endif
2021
2022 /*
2023  * Update the signon database for users.
2024  * Christoph Lameter: Copied from poeigl-1.36 Jan 3, 1996
2025  */
2026     utmpname(_PATH_UTMP);
2027     setutent();
2028     while ((utp = getutent()) && (utp->ut_pid != mypid))
2029         /* nothing */;
2030
2031     /* Is this call really necessary? There is another one after the 'put' */
2032     endutent();
2033
2034     if (utp)
2035         memcpy(&ut, utp, sizeof(ut));
2036     else
2037         /* some gettys/telnetds don't initialize utmp... */
2038         memset(&ut, 0, sizeof(ut));
2039
2040     if (ut.ut_id[0] == 0)
2041         strncpy(ut.ut_id, line + 3, sizeof(ut.ut_id));
2042
2043     strncpy(ut.ut_user, name, sizeof(ut.ut_user));
2044     strncpy(ut.ut_line, line, sizeof(ut.ut_line));
2045
2046     time(&ut.ut_time);
2047
2048     ut.ut_type = USER_PROCESS;
2049     ut.ut_pid  = mypid;
2050
2051     /* Insert the host name if one is supplied */
2052     if (*host)
2053         strncpy (ut.ut_host, host, sizeof(ut.ut_host));
2054
2055     /* Insert the IP address of the remote system if IP is enabled */
2056     if (ipcp_protent.enabled_flag && ipcp_hisoptions[0].neg_addr)
2057         memcpy(&ut.ut_addr, (char *) &ipcp_hisoptions[0].hisaddr,
2058                  sizeof(ut.ut_addr));
2059
2060     /* CL: Makes sure that the logout works */
2061     if (*host == 0 && *name==0)
2062         ut.ut_host[0]=0;
2063
2064     pututline(&ut);
2065     endutent();
2066 /*
2067  * Update the wtmp file.
2068  */
2069 #if __GLIBC__ >= 2
2070     updwtmp(_PATH_WTMP, &ut);
2071 #else
2072     wtmp = open(_PATH_WTMP, O_APPEND|O_WRONLY);
2073     if (wtmp >= 0) {
2074         flock(wtmp, LOCK_EX);
2075
2076         if (write (wtmp, (char *)&ut, sizeof(ut)) != sizeof(ut))
2077             warn("error writing %s: %m", _PATH_WTMP);
2078
2079         flock(wtmp, LOCK_UN);
2080
2081         close (wtmp);
2082     }
2083 #endif
2084 }
2085
2086
2087 /********************************************************************
2088  *
2089  * sifvjcomp - config tcp header compression
2090  */
2091
2092 int sifvjcomp (int u, int vjcomp, int cidcomp, int maxcid)
2093 {
2094     u_int x = get_flags(ppp_dev_fd);
2095
2096     if (vjcomp) {
2097         if (ioctl (ppp_dev_fd, PPPIOCSMAXCID, (caddr_t) &maxcid) < 0) {
2098             if (! ok_error (errno))
2099                 error("ioctl(PPPIOCSMAXCID): %m(%d)", errno);
2100             vjcomp = 0;
2101         }
2102     }
2103
2104     x = vjcomp  ? x | SC_COMP_TCP     : x &~ SC_COMP_TCP;
2105     x = cidcomp ? x & ~SC_NO_TCP_CCID : x | SC_NO_TCP_CCID;
2106     set_flags (ppp_dev_fd, x);
2107
2108     return 1;
2109 }
2110
2111 /********************************************************************
2112  *
2113  * sifup - Config the interface up and enable IP packets to pass.
2114  */
2115
2116 int sifup(int u)
2117 {
2118     struct ifreq ifr;
2119
2120     memset (&ifr, '\0', sizeof (ifr));
2121     strlcpy(ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
2122     if (ioctl(sock_fd, SIOCGIFFLAGS, (caddr_t) &ifr) < 0) {
2123         if (! ok_error (errno))
2124             error("ioctl (SIOCGIFFLAGS): %m(%d)", errno);
2125         return 0;
2126     }
2127
2128     ifr.ifr_flags |= (IFF_UP | IFF_POINTOPOINT);
2129     if (ioctl(sock_fd, SIOCSIFFLAGS, (caddr_t) &ifr) < 0) {
2130         if (! ok_error (errno))
2131             error("ioctl(SIOCSIFFLAGS): %m(%d)", errno);
2132         return 0;
2133     }
2134     if_is_up++;
2135
2136     return 1;
2137 }
2138
2139 /********************************************************************
2140  *
2141  * sifdown - Disable the indicated protocol and config the interface
2142  *           down if there are no remaining protocols.
2143  */
2144
2145 int sifdown (int u)
2146 {
2147     struct ifreq ifr;
2148
2149     if (if_is_up && --if_is_up > 0)
2150         return 1;
2151
2152     memset (&ifr, '\0', sizeof (ifr));
2153     strlcpy(ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
2154     if (ioctl(sock_fd, SIOCGIFFLAGS, (caddr_t) &ifr) < 0) {
2155         if (! ok_error (errno))
2156             error("ioctl (SIOCGIFFLAGS): %m(%d)", errno);
2157         return 0;
2158     }
2159
2160     ifr.ifr_flags &= ~IFF_UP;
2161     ifr.ifr_flags |= IFF_POINTOPOINT;
2162     if (ioctl(sock_fd, SIOCSIFFLAGS, (caddr_t) &ifr) < 0) {
2163         if (! ok_error (errno))
2164             error("ioctl(SIOCSIFFLAGS): %m(%d)", errno);
2165         return 0;
2166     }
2167     return 1;
2168 }
2169
2170 /********************************************************************
2171  *
2172  * sifaddr - Config the interface IP addresses and netmask.
2173  */
2174
2175 int sifaddr (int unit, u_int32_t our_adr, u_int32_t his_adr,
2176              u_int32_t net_mask)
2177 {
2178     struct ifreq   ifr;
2179     struct rtentry rt;
2180
2181     memset (&ifr, '\0', sizeof (ifr));
2182     memset (&rt,  '\0', sizeof (rt));
2183
2184     SET_SA_FAMILY (ifr.ifr_addr,    AF_INET);
2185     SET_SA_FAMILY (ifr.ifr_dstaddr, AF_INET);
2186     SET_SA_FAMILY (ifr.ifr_netmask, AF_INET);
2187
2188     strlcpy (ifr.ifr_name, ifname, sizeof (ifr.ifr_name));
2189 /*
2190  *  Set our IP address
2191  */
2192     SIN_ADDR(ifr.ifr_addr) = our_adr;
2193     if (ioctl(sock_fd, SIOCSIFADDR, (caddr_t) &ifr) < 0) {
2194         if (errno != EEXIST) {
2195             if (! ok_error (errno))
2196                 error("ioctl(SIOCSIFADDR): %m(%d)", errno);
2197         }
2198         else {
2199             warn("ioctl(SIOCSIFADDR): Address already exists");
2200         }
2201         return (0);
2202     }
2203 /*
2204  *  Set the gateway address
2205  */
2206     SIN_ADDR(ifr.ifr_dstaddr) = his_adr;
2207     if (ioctl(sock_fd, SIOCSIFDSTADDR, (caddr_t) &ifr) < 0) {
2208         if (! ok_error (errno))
2209             error("ioctl(SIOCSIFDSTADDR): %m(%d)", errno);
2210         return (0);
2211     }
2212 /*
2213  *  Set the netmask.
2214  *  For recent kernels, force the netmask to 255.255.255.255.
2215  */
2216     if (kernel_version >= KVERSION(2,1,16))
2217         net_mask = ~0L;
2218     if (net_mask != 0) {
2219         SIN_ADDR(ifr.ifr_netmask) = net_mask;
2220         if (ioctl(sock_fd, SIOCSIFNETMASK, (caddr_t) &ifr) < 0) {
2221             if (! ok_error (errno))
2222                 error("ioctl(SIOCSIFNETMASK): %m(%d)", errno);
2223             return (0);
2224         }
2225     }
2226 /*
2227  *  Add the device route
2228  */
2229     if (kernel_version < KVERSION(2,1,16)) {
2230         SET_SA_FAMILY (rt.rt_dst,     AF_INET);
2231         SET_SA_FAMILY (rt.rt_gateway, AF_INET);
2232         rt.rt_dev = ifname;
2233
2234         SIN_ADDR(rt.rt_gateway) = 0L;
2235         SIN_ADDR(rt.rt_dst)     = his_adr;
2236         rt.rt_flags = RTF_UP | RTF_HOST;
2237
2238         if (kernel_version > KVERSION(2,1,0)) {
2239             SET_SA_FAMILY (rt.rt_genmask, AF_INET);
2240             SIN_ADDR(rt.rt_genmask) = -1L;
2241         }
2242
2243         if (ioctl(sock_fd, SIOCADDRT, &rt) < 0) {
2244             if (! ok_error (errno))
2245                 error("ioctl(SIOCADDRT) device route: %m(%d)", errno);
2246             return (0);
2247         }
2248     }
2249
2250     /* set ip_dynaddr in demand mode if address changes */
2251     if (demand && tune_kernel && !dynaddr_set
2252         && our_old_addr && our_old_addr != our_adr) {
2253         /* set ip_dynaddr if possible */
2254         char *path;
2255         int fd;
2256
2257         path = path_to_procfs("/sys/net/ipv4/ip_dynaddr");
2258         if (path != 0 && (fd = open(path, O_WRONLY)) >= 0) {
2259             if (write(fd, "1", 1) != 1)
2260                 error("Couldn't enable dynamic IP addressing: %m");
2261             close(fd);
2262         }
2263         dynaddr_set = 1;        /* only 1 attempt */
2264     }
2265     our_old_addr = 0;
2266
2267     return 1;
2268 }
2269
2270 /********************************************************************
2271  *
2272  * cifaddr - Clear the interface IP addresses, and delete routes
2273  * through the interface if possible.
2274  */
2275
2276 int cifaddr (int unit, u_int32_t our_adr, u_int32_t his_adr)
2277 {
2278     struct ifreq ifr;
2279
2280     if (kernel_version < KVERSION(2,1,16)) {
2281 /*
2282  *  Delete the route through the device
2283  */
2284         struct rtentry rt;
2285         memset (&rt, '\0', sizeof (rt));
2286
2287         SET_SA_FAMILY (rt.rt_dst,     AF_INET);
2288         SET_SA_FAMILY (rt.rt_gateway, AF_INET);
2289         rt.rt_dev = ifname;
2290
2291         SIN_ADDR(rt.rt_gateway) = 0;
2292         SIN_ADDR(rt.rt_dst)     = his_adr;
2293         rt.rt_flags = RTF_UP | RTF_HOST;
2294
2295         if (kernel_version > KVERSION(2,1,0)) {
2296             SET_SA_FAMILY (rt.rt_genmask, AF_INET);
2297             SIN_ADDR(rt.rt_genmask) = -1L;
2298         }
2299
2300         if (ioctl(sock_fd, SIOCDELRT, &rt) < 0 && errno != ESRCH) {
2301             if (still_ppp() && ! ok_error (errno))
2302                 error("ioctl(SIOCDELRT) device route: %m(%d)", errno);
2303             return (0);
2304         }
2305     }
2306
2307     /* This way it is possible to have an IPX-only or IPv6-only interface */
2308     memset(&ifr, 0, sizeof(ifr));
2309     SET_SA_FAMILY(ifr.ifr_addr, AF_INET);
2310     strlcpy(ifr.ifr_name, ifname, sizeof(ifr.ifr_name));
2311
2312     if (ioctl(sock_fd, SIOCSIFADDR, (caddr_t) &ifr) < 0) {
2313         if (! ok_error (errno)) {
2314             error("ioctl(SIOCSIFADDR): %m(%d)", errno);
2315             return 0;
2316         }
2317     }
2318
2319     our_old_addr = our_adr;
2320
2321     return 1;
2322 }
2323
2324 #ifdef INET6
2325 /********************************************************************
2326  *
2327  * sif6addr - Config the interface with an IPv6 link-local address
2328  */
2329 int sif6addr (int unit, eui64_t our_eui64, eui64_t his_eui64)
2330 {
2331     struct in6_ifreq ifr6;
2332     struct ifreq ifr;
2333     struct in6_rtmsg rt6;
2334
2335     if (sock6_fd < 0) {
2336         errno = -sock6_fd;
2337         error("IPv6 socket creation failed: %m");
2338         return 0;
2339     }
2340     memset(&ifr, 0, sizeof (ifr));
2341     strlcpy(ifr.ifr_name, ifname, sizeof(ifr.ifr_name));
2342     if (ioctl(sock6_fd, SIOCGIFINDEX, (caddr_t) &ifr) < 0) {
2343         error("sif6addr: ioctl(SIOCGIFINDEX): %m (%d)", errno);
2344         return 0;
2345     }
2346
2347     /* Local interface */
2348     memset(&ifr6, 0, sizeof(ifr6));
2349     IN6_LLADDR_FROM_EUI64(ifr6.ifr6_addr, our_eui64);
2350     ifr6.ifr6_ifindex = ifr.ifr_ifindex;
2351     ifr6.ifr6_prefixlen = 10;
2352
2353     if (ioctl(sock6_fd, SIOCSIFADDR, &ifr6) < 0) {
2354         error("sif6addr: ioctl(SIOCSIFADDR): %m (%d)", errno);
2355         return 0;
2356     }
2357
2358     /* Route to remote host */
2359     memset(&rt6, 0, sizeof(rt6));
2360     IN6_LLADDR_FROM_EUI64(rt6.rtmsg_dst, his_eui64);
2361     rt6.rtmsg_flags = RTF_UP;
2362     rt6.rtmsg_dst_len = 10;
2363     rt6.rtmsg_ifindex = ifr.ifr_ifindex;
2364     rt6.rtmsg_metric = 1;
2365
2366     if (ioctl(sock6_fd, SIOCADDRT, &rt6) < 0) {
2367         error("sif6addr: ioctl(SIOCADDRT): %m (%d)", errno);
2368         return 0;
2369     }
2370
2371     return 1;
2372 }
2373
2374
2375 /********************************************************************
2376  *
2377  * cif6addr - Remove IPv6 address from interface
2378  */
2379 int cif6addr (int unit, eui64_t our_eui64, eui64_t his_eui64)
2380 {
2381     struct ifreq ifr;
2382     struct in6_ifreq ifr6;
2383
2384     if (sock6_fd < 0) {
2385         errno = -sock6_fd;
2386         error("IPv6 socket creation failed: %m");
2387         return 0;
2388     }
2389     memset(&ifr, 0, sizeof(ifr));
2390     strlcpy(ifr.ifr_name, ifname, sizeof(ifr.ifr_name));
2391     if (ioctl(sock6_fd, SIOCGIFINDEX, (caddr_t) &ifr) < 0) {
2392         error("cif6addr: ioctl(SIOCGIFINDEX): %m (%d)", errno);
2393         return 0;
2394     }
2395
2396     memset(&ifr6, 0, sizeof(ifr6));
2397     IN6_LLADDR_FROM_EUI64(ifr6.ifr6_addr, our_eui64);
2398     ifr6.ifr6_ifindex = ifr.ifr_ifindex;
2399     ifr6.ifr6_prefixlen = 10;
2400
2401     if (ioctl(sock6_fd, SIOCDIFADDR, &ifr6) < 0) {
2402         if (errno != EADDRNOTAVAIL) {
2403             if (! ok_error (errno))
2404                 error("cif6addr: ioctl(SIOCDIFADDR): %m (%d)", errno);
2405         }
2406         else {
2407             warn("cif6addr: ioctl(SIOCDIFADDR): No such address");
2408         }
2409         return (0);
2410     }
2411     return 1;
2412 }
2413 #endif /* INET6 */
2414
2415 /*
2416  * get_pty - get a pty master/slave pair and chown the slave side
2417  * to the uid given.  Assumes slave_name points to >= 16 bytes of space.
2418  */
2419 int
2420 get_pty(master_fdp, slave_fdp, slave_name, uid)
2421     int *master_fdp;
2422     int *slave_fdp;
2423     char *slave_name;
2424     int uid;
2425 {
2426     int i, mfd, sfd = -1;
2427     char pty_name[16];
2428     struct termios tios;
2429
2430 #ifdef TIOCGPTN
2431     /*
2432      * Try the unix98 way first.
2433      */
2434     mfd = open("/dev/ptmx", O_RDWR);
2435     if (mfd >= 0) {
2436         int ptn;
2437         if (ioctl(mfd, TIOCGPTN, &ptn) >= 0) {
2438             slprintf(pty_name, sizeof(pty_name), "/dev/pts/%d", ptn);
2439             chmod(pty_name, S_IRUSR | S_IWUSR);
2440 #ifdef TIOCSPTLCK
2441             ptn = 0;
2442             if (ioctl(mfd, TIOCSPTLCK, &ptn) < 0)
2443                 warn("Couldn't unlock pty slave %s: %m", pty_name);
2444 #endif
2445             if ((sfd = open(pty_name, O_RDWR | O_NOCTTY)) < 0)
2446                 warn("Couldn't open pty slave %s: %m", pty_name);
2447         }
2448     }
2449 #endif /* TIOCGPTN */
2450
2451     if (sfd < 0) {
2452         /* the old way - scan through the pty name space */
2453         for (i = 0; i < 64; ++i) {
2454             slprintf(pty_name, sizeof(pty_name), "/dev/pty%c%x",
2455                      'p' + i / 16, i % 16);
2456             mfd = open(pty_name, O_RDWR, 0);
2457             if (mfd >= 0) {
2458                 pty_name[5] = 't';
2459                 sfd = open(pty_name, O_RDWR | O_NOCTTY, 0);
2460                 if (sfd >= 0) {
2461                     fchown(sfd, uid, -1);
2462                     fchmod(sfd, S_IRUSR | S_IWUSR);
2463                     break;
2464                 }
2465                 close(mfd);
2466             }
2467         }
2468     }
2469
2470     if (sfd < 0)
2471         return 0;
2472
2473     strlcpy(slave_name, pty_name, 16);
2474     *master_fdp = mfd;
2475     *slave_fdp = sfd;
2476     if (tcgetattr(sfd, &tios) == 0) {
2477         tios.c_cflag &= ~(CSIZE | CSTOPB | PARENB);
2478         tios.c_cflag |= CS8 | CREAD | CLOCAL;
2479         tios.c_iflag  = IGNPAR;
2480         tios.c_oflag  = 0;
2481         tios.c_lflag  = 0;
2482         if (tcsetattr(sfd, TCSAFLUSH, &tios) < 0)
2483             warn("couldn't set attributes on pty: %m");
2484     } else
2485         warn("couldn't get attributes on pty: %m");
2486
2487     return 1;
2488 }
2489
2490 /********************************************************************
2491  *
2492  * open_loopback - open the device we use for getting packets
2493  * in demand mode.  Under Linux, we use a pty master/slave pair.
2494  */
2495 int
2496 open_ppp_loopback(void)
2497 {
2498     int flags;
2499
2500     looped = 1;
2501     if (new_style_driver) {
2502         /* allocate ourselves a ppp unit */
2503         if (make_ppp_unit() < 0)
2504             die(1);
2505         set_flags(ppp_dev_fd, SC_LOOP_TRAFFIC);
2506         set_kdebugflag(kdebugflag);
2507         ppp_fd = -1;
2508         return ppp_dev_fd;
2509     }
2510
2511     if (!get_pty(&master_fd, &slave_fd, loop_name, 0))
2512         fatal("No free pty for loopback");
2513     SYSDEBUG(("using %s for loopback", loop_name));
2514
2515     set_ppp_fd(slave_fd);
2516
2517     flags = fcntl(master_fd, F_GETFL);
2518     if (flags == -1 ||
2519         fcntl(master_fd, F_SETFL, flags | O_NONBLOCK) == -1)
2520         warn("couldn't set master loopback to nonblock: %m(%d)", errno);
2521
2522     flags = fcntl(ppp_fd, F_GETFL);
2523     if (flags == -1 ||
2524         fcntl(ppp_fd, F_SETFL, flags | O_NONBLOCK) == -1)
2525         warn("couldn't set slave loopback to nonblock: %m(%d)", errno);
2526
2527     if (ioctl(ppp_fd, TIOCSETD, &ppp_disc) < 0)
2528         fatal("ioctl(TIOCSETD): %m(%d)", errno);
2529 /*
2530  * Find out which interface we were given.
2531  */
2532     if (ioctl(ppp_fd, PPPIOCGUNIT, &ifunit) < 0)
2533         fatal("ioctl(PPPIOCGUNIT): %m(%d)", errno);
2534 /*
2535  * Enable debug in the driver if requested.
2536  */
2537     set_kdebugflag (kdebugflag);
2538
2539     return master_fd;
2540 }
2541
2542 /********************************************************************
2543  *
2544  * restore_loop - reattach the ppp unit to the loopback.
2545  *
2546  * The kernel ppp driver automatically reattaches the ppp unit to
2547  * the loopback if the serial port is set to a line discipline other
2548  * than ppp, or if it detects a modem hangup.  The former will happen
2549  * in disestablish_ppp if the latter hasn't already happened, so we
2550  * shouldn't need to do anything.
2551  *
2552  * Just to be sure, set the real serial port to the normal discipline.
2553  */
2554
2555 void
2556 restore_loop(void)
2557 {
2558     looped = 1;
2559     if (new_style_driver) {
2560         set_flags(ppp_dev_fd, get_flags(ppp_dev_fd) | SC_LOOP_TRAFFIC);
2561         return;
2562     }
2563     if (ppp_fd != slave_fd) {
2564         (void) ioctl(ppp_fd, TIOCSETD, &tty_disc);
2565         set_ppp_fd(slave_fd);
2566     }
2567 }
2568
2569 /********************************************************************
2570  *
2571  * sifnpmode - Set the mode for handling packets for a given NP.
2572  */
2573
2574 int
2575 sifnpmode(u, proto, mode)
2576     int u;
2577     int proto;
2578     enum NPmode mode;
2579 {
2580     struct npioctl npi;
2581
2582     npi.protocol = proto;
2583     npi.mode     = mode;
2584     if (ioctl(ppp_dev_fd, PPPIOCSNPMODE, (caddr_t) &npi) < 0) {
2585         if (! ok_error (errno))
2586             error("ioctl(PPPIOCSNPMODE, %d, %d): %m (%d)",
2587                    proto, mode, errno);
2588         return 0;
2589     }
2590     return 1;
2591 }
2592
2593 \f
2594 /********************************************************************
2595  *
2596  * sipxfaddr - Config the interface IPX networknumber
2597  */
2598
2599 int sipxfaddr (int unit, unsigned long int network, unsigned char * node )
2600 {
2601     int    result = 1;
2602
2603 #ifdef IPX_CHANGE
2604     int    skfd;
2605     struct ifreq         ifr;
2606     struct sockaddr_ipx *sipx = (struct sockaddr_ipx *) &ifr.ifr_addr;
2607
2608     skfd = socket (AF_IPX, SOCK_DGRAM, 0);
2609     if (skfd < 0) {
2610         if (! ok_error (errno))
2611             dbglog("socket(AF_IPX): %m (%d)", errno);
2612         result = 0;
2613     }
2614     else {
2615         memset (&ifr, '\0', sizeof (ifr));
2616         strlcpy (ifr.ifr_name, ifname, sizeof(ifr.ifr_name));
2617
2618         memcpy (sipx->sipx_node, node, IPX_NODE_LEN);
2619         sipx->sipx_family  = AF_IPX;
2620         sipx->sipx_port    = 0;
2621         sipx->sipx_network = htonl (network);
2622         sipx->sipx_type    = IPX_FRAME_ETHERII;
2623         sipx->sipx_action  = IPX_CRTITF;
2624 /*
2625  *  Set the IPX device
2626  */
2627         if (ioctl(skfd, SIOCSIFADDR, (caddr_t) &ifr) < 0) {
2628             result = 0;
2629             if (errno != EEXIST) {
2630                 if (! ok_error (errno))
2631                     dbglog("ioctl(SIOCSIFADDR, CRTITF): %m (%d)", errno);
2632             }
2633             else {
2634                 warn("ioctl(SIOCSIFADDR, CRTITF): Address already exists");
2635             }
2636         }
2637         close (skfd);
2638     }
2639 #endif
2640     return result;
2641 }
2642
2643 /********************************************************************
2644  *
2645  * cipxfaddr - Clear the information for the IPX network. The IPX routes
2646  *             are removed and the device is no longer able to pass IPX
2647  *             frames.
2648  */
2649
2650 int cipxfaddr (int unit)
2651 {
2652     int    result = 1;
2653
2654 #ifdef IPX_CHANGE
2655     int    skfd;
2656     struct ifreq         ifr;
2657     struct sockaddr_ipx *sipx = (struct sockaddr_ipx *) &ifr.ifr_addr;
2658
2659     skfd = socket (AF_IPX, SOCK_DGRAM, 0);
2660     if (skfd < 0) {
2661         if (! ok_error (errno))
2662             dbglog("socket(AF_IPX): %m (%d)", errno);
2663         result = 0;
2664     }
2665     else {
2666         memset (&ifr, '\0', sizeof (ifr));
2667         strlcpy (ifr.ifr_name, ifname, sizeof(ifr.ifr_name));
2668
2669         sipx->sipx_type    = IPX_FRAME_ETHERII;
2670         sipx->sipx_action  = IPX_DLTITF;
2671         sipx->sipx_family  = AF_IPX;
2672 /*
2673  *  Set the IPX device
2674  */
2675         if (ioctl(skfd, SIOCSIFADDR, (caddr_t) &ifr) < 0) {
2676             if (! ok_error (errno))
2677                 info("ioctl(SIOCSIFADDR, IPX_DLTITF): %m (%d)", errno);
2678             result = 0;
2679         }
2680         close (skfd);
2681     }
2682 #endif
2683     return result;
2684 }
2685
2686 /*
2687  * Use the hostname as part of the random number seed.
2688  */
2689 int
2690 get_host_seed()
2691 {
2692     int h;
2693     char *p = hostname;
2694
2695     h = 407;
2696     for (p = hostname; *p != 0; ++p)
2697         h = h * 37 + *p;
2698     return h;
2699 }
2700
2701 /********************************************************************
2702  *
2703  * sys_check_options - check the options that the user specified
2704  */
2705
2706 int
2707 sys_check_options(void)
2708 {
2709 #ifdef IPX_CHANGE
2710 /*
2711  * Disable the IPX protocol if the support is not present in the kernel.
2712  */
2713     char *path;
2714
2715     if (ipxcp_protent.enabled_flag) {
2716         struct stat stat_buf;
2717         if ((path = path_to_procfs("/net/ipx_interface")) == 0
2718             || lstat(path, &stat_buf) < 0) {
2719             error("IPX support is not present in the kernel\n");
2720             ipxcp_protent.enabled_flag = 0;
2721         }
2722     }
2723 #endif
2724     if (demand && driver_is_old) {
2725         option_error("demand dialling is not supported by kernel driver "
2726                      "version %d.%d.%d", driver_version, driver_modification,
2727                      driver_patch);
2728         return 0;
2729     }
2730     if (multilink && !new_style_driver) {
2731         warn("Warning: multilink is not supported by the kernel driver");
2732         multilink = 0;
2733     }
2734     return 1;
2735 }