networking/udhcp/d6_dhcpc.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * DHCPv6 client.
   4  *
   5  * WARNING: THIS CODE IS INCOMPLETE.
   6  *
   7  * Copyright (C) 2011-2017 Denys Vlasenko.
   8  *
   9  * Licensed under GPLv2, see file LICENSE in this source tree.
  10  */
  11 //config:config UDHCPC6
  12 //config:       bool "udhcpc6"
  13 //config:       default n  # not yet ready
  14 //config:       depends on FEATURE_IPV6
  15 //config:       help
  16 //config:       udhcpc6 is a DHCPv6 client
  17 //config:
  18 //config:config FEATURE_UDHCPC6_RFC3646
  19 //config:       bool "Support RFC 3646 (DNS server and search list)"
  20 //config:       default y
  21 //config:       depends on UDHCPC6
  22 //config:       help
  23 //config:       List of DNS servers and domain search list can be requested with
  24 //config:       "-O dns" and "-O search". If server gives these values,
  25 //config:       they will be set in environment variables "dns" and "search".
  26 //config:
  27 //config:config FEATURE_UDHCPC6_RFC4704
  28 //config:       bool "Support RFC 4704 (Client FQDN)"
  29 //config:       default y
  30 //config:       depends on UDHCPC6
  31 //config:       help
  32 //config:       You can request FQDN to be given by server using "-O fqdn".
  33 //config:
  34 //config:config FEATURE_UDHCPC6_RFC4833
  35 //config:       bool "Support RFC 4833 (Timezones)"
  36 //config:       default y
  37 //config:       depends on UDHCPC6
  38 //config:       help
  39 //config:       You can request POSIX timezone with "-O tz" and timezone name
  40 //config:       with "-O timezone".
  41
  42 //applet:IF_UDHCPC6(APPLET(udhcpc6, BB_DIR_USR_BIN, BB_SUID_DROP))
  43
  44 //kbuild:lib-$(CONFIG_UDHCPC6) += d6_dhcpc.o d6_packet.o d6_socket.o common.o socket.o signalpipe.o
  45 //kbuild:lib-$(CONFIG_FEATURE_UDHCPC6_RFC3646) += domain_codec.o
  46 //kbuild:lib-$(CONFIG_FEATURE_UDHCPC6_RFC4704) += domain_codec.o
  47
  48 #include <syslog.h>
  49 /* Override ENABLE_FEATURE_PIDFILE - ifupdown needs our pidfile to always exist */
  50 #define WANT_PIDFILE 1
  51 #include "common.h"
  52 #include "dhcpd.h"
  53 #include "dhcpc.h"
  54 #include "d6_common.h"
  55
  56 #include <netinet/if_ether.h>
  57 #include <netpacket/packet.h>
  58 #include <linux/filter.h>
  59
  60 /* "struct client_config_t client_config" is in bb_common_bufsiz1 */
  61
  62 static const struct dhcp_optflag d6_optflags[] = {
  63 #if ENABLE_FEATURE_UDHCPC6_RFC3646
  64         { OPTION_6RD | OPTION_LIST        | OPTION_REQ, D6_OPT_DNS_SERVERS },
  65         { OPTION_DNS_STRING | OPTION_LIST | OPTION_REQ, D6_OPT_DOMAIN_LIST },
  66 #endif
  67 #if ENABLE_FEATURE_UDHCPC6_RFC4704
  68         { OPTION_DNS_STRING,                            D6_OPT_CLIENT_FQDN },
  69 #endif
  70 #if ENABLE_FEATURE_UDHCPC6_RFC4833
  71         { OPTION_STRING,                                D6_OPT_TZ_POSIX },
  72         { OPTION_STRING,                                D6_OPT_TZ_NAME },
  73 #endif
  74         { 0, 0 }
  75 };
  76 /* Must match d6_optflags[] order */
  77 static const char d6_option_strings[] ALIGN1 =
  78 #if ENABLE_FEATURE_UDHCPC6_RFC3646
  79         "dns" "\0"      /* D6_OPT_DNS_SERVERS */
  80         "search" "\0"   /* D6_OPT_DOMAIN_LIST */
  81 #endif
  82 #if ENABLE_FEATURE_UDHCPC6_RFC4704
  83         "fqdn" "\0"     /* D6_OPT_CLIENT_FQDN */
  84 #endif
  85 #if ENABLE_FEATURE_UDHCPC6_RFC4833
  86         "tz" "\0"       /* D6_OPT_TZ_POSIX */
  87         "timezone" "\0" /* D6_OPT_TZ_NAME */
  88 #endif
  89         "\0";
  90
  91 #if ENABLE_LONG_OPTS
  92 static const char udhcpc6_longopts[] ALIGN1 =
  93         "interface\0"      Required_argument "i"
  94         "now\0"            No_argument       "n"
  95         "pidfile\0"        Required_argument "p"
  96         "quit\0"           No_argument       "q"
  97         "release\0"        No_argument       "R"
  98         "request\0"        Required_argument "r"
  99         "script\0"         Required_argument "s"
 100         "timeout\0"        Required_argument "T"
 101         "retries\0"        Required_argument "t"
 102         "tryagain\0"       Required_argument "A"
 103         "syslog\0"         No_argument       "S"
 104         "request-option\0" Required_argument "O"
 105         "no-default-options\0" No_argument   "o"
 106         "foreground\0"     No_argument       "f"
 107         USE_FOR_MMU(
 108         "background\0"     No_argument       "b"
 109         )
 110 ///     IF_FEATURE_UDHCPC_ARPING("arping\0"     No_argument       "a")
 111         IF_FEATURE_UDHCP_PORT("client-port\0"   Required_argument "P")
 112         ;
 113 #endif
 114 /* Must match getopt32 option string order */
 115 enum {
 116         OPT_i = 1 << 0,
 117         OPT_n = 1 << 1,
 118         OPT_p = 1 << 2,
 119         OPT_q = 1 << 3,
 120         OPT_R = 1 << 4,
 121         OPT_r = 1 << 5,
 122         OPT_s = 1 << 6,
 123         OPT_T = 1 << 7,
 124         OPT_t = 1 << 8,
 125         OPT_S = 1 << 9,
 126         OPT_A = 1 << 10,
 127         OPT_O = 1 << 11,
 128         OPT_o = 1 << 12,
 129         OPT_x = 1 << 13,
 130         OPT_f = 1 << 14,
 131 /* The rest has variable bit positions, need to be clever */
 132         OPTBIT_f = 14,
 133         USE_FOR_MMU(             OPTBIT_b,)
 134         ///IF_FEATURE_UDHCPC_ARPING(OPTBIT_a,)
 135         IF_FEATURE_UDHCP_PORT(   OPTBIT_P,)
 136         USE_FOR_MMU(             OPT_b = 1 << OPTBIT_b,)
 137         ///IF_FEATURE_UDHCPC_ARPING(OPT_a = 1 << OPTBIT_a,)
 138         IF_FEATURE_UDHCP_PORT(   OPT_P = 1 << OPTBIT_P,)
 139 };
 140
 141 #if ENABLE_FEATURE_UDHCPC6_RFC4704
 142 static const char opt_fqdn_req[] = {
 143         (D6_OPT_CLIENT_FQDN >> 8), (D6_OPT_CLIENT_FQDN & 0xff),
 144         0, 2, /* optlen */
 145         0, /* flags: */
 146         /* S=0: server SHOULD NOT perform AAAA RR updates */
 147         /* O=0: client MUST set this bit to 0 */
 148         /* N=0: server SHOULD perform updates (PTR RR only in our case, since S=0) */
 149         0 /* empty DNS-encoded name */
 150 };
 151 #endif
 152
 153 /*** Utility functions ***/
 154
 155 static void *d6_find_option(uint8_t *option, uint8_t *option_end, unsigned code)
 156 {
 157         /* "length minus 4" */
 158         int len_m4 = option_end - option - 4;
 159         while (len_m4 >= 0) {
 160                 /* Next option's len is too big? */
 161                 if (option[3] > len_m4)
 162                         return NULL; /* yes. bogus packet! */
 163                 /* So far we treat any opts with code >255
 164                  * or len >255 as bogus, and stop at once.
 165                  * This simplifies big-endian handling.
 166                  */
 167                 if (option[0] != 0 || option[2] != 0)
 168                         return NULL;
 169                 /* Option seems to be valid */
 170                 /* Does its code match? */
 171                 if (option[1] == code)
 172                         return option; /* yes! */
 173                 len_m4 -= option[3] + 4;
 174                 option += option[3] + 4;
 175         }
 176         return NULL;
 177 }
 178
 179 static void *d6_copy_option(uint8_t *option, uint8_t *option_end, unsigned code)
 180 {
 181         uint8_t *opt = d6_find_option(option, option_end, code);
 182         if (!opt)
 183                 return opt;
 184         return xmemdup(opt, opt[3] + 4);
 185 }
 186
 187
 188 /*** Script execution code ***/
 189
 190 static char** new_env(void)
 191 {
 192         client6_data.env_ptr = xrealloc_vector(client6_data.env_ptr, 3, client6_data.env_idx);
 193         return &client6_data.env_ptr[client6_data.env_idx++];
 194 }
 195
 196 /* put all the parameters into the environment */
 197 static void option_to_env(uint8_t *option, uint8_t *option_end)
 198 {
 199 #if ENABLE_FEATURE_UDHCPC6_RFC3646
 200         int addrs, option_offset;
 201 #endif
 202         /* "length minus 4" */
 203         int len_m4 = option_end - option - 4;
 204
 205         while (len_m4 >= 0) {
 206                 uint32_t v32;
 207                 char ipv6str[sizeof("ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff")];
 208
 209                 if (option[0] != 0 || option[2] != 0)
 210                         break;
 211
 212                 /* Check if option-length exceeds size of option */
 213                 if (option[3] > len_m4)
 214                         break;
 215
 216                 switch (option[1]) {
 217                 //case D6_OPT_CLIENTID:
 218                 //case D6_OPT_SERVERID:
 219                 case D6_OPT_IA_NA:
 220                 case D6_OPT_IA_PD:
 221                         option_to_env(option + 16, option + 4 + option[3]);
 222                         break;
 223                 //case D6_OPT_IA_TA:
 224                 case D6_OPT_IAADDR:
 225 /*  0                   1                   2                   3
 226  *  0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
 227  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 228  * |          OPTION_IAADDR        |          option-len           |
 229  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 230  * |                                                               |
 231  * |                         IPv6 address                          |
 232  * |                                                               |
 233  * |                                                               |
 234  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 235  * |                      preferred-lifetime                       |
 236  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 237  * |                        valid-lifetime                         |
 238  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 239  */
 240                         sprint_nip6(ipv6str, option + 4);
 241                         *new_env() = xasprintf("ipv6=%s", ipv6str);
 242
 243                         move_from_unaligned32(v32, option + 4 + 16 + 4);
 244                         *new_env() = xasprintf("lease=%u", (unsigned)v32);
 245                         break;
 246
 247                 //case D6_OPT_ORO:
 248                 //case D6_OPT_PREFERENCE:
 249                 //case D6_OPT_ELAPSED_TIME:
 250                 //case D6_OPT_RELAY_MSG:
 251                 //case D6_OPT_AUTH:
 252                 //case D6_OPT_UNICAST:
 253                 //case D6_OPT_STATUS_CODE:
 254                 //case D6_OPT_RAPID_COMMIT:
 255                 //case D6_OPT_USER_CLASS:
 256                 //case D6_OPT_VENDOR_CLASS:
 257                 //case D6_OPT_VENDOR_OPTS:
 258                 //case D6_OPT_INTERFACE_ID:
 259                 //case D6_OPT_RECONF_MSG:
 260                 //case D6_OPT_RECONF_ACCEPT:
 261
 262                 case D6_OPT_IAPREFIX:
 263 /*  0                   1                   2                   3
 264  *  0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
 265  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 266  * |        OPTION_IAPREFIX        |         option-length         |
 267  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 268  * |                      preferred-lifetime                       |
 269  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 270  * |                        valid-lifetime                         |
 271  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 272  * | prefix-length |                                               |
 273  * +-+-+-+-+-+-+-+-+          IPv6 prefix                          |
 274  * |                           (16 octets)                         |
 275  * |                                                               |
 276  * |               +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 277  * |               |
 278  * +-+-+-+-+-+-+-+-+
 279  */
 280                         //move_from_unaligned32(v32, option + 4 + 4);
 281                         //*new_env() = xasprintf("lease=%u", (unsigned)v32);
 282
 283                         sprint_nip6(ipv6str, option + 4 + 4 + 1);
 284                         *new_env() = xasprintf("ipv6prefix=%s/%u", ipv6str, (unsigned)(option[4 + 4]));
 285                         break;
 286 #if ENABLE_FEATURE_UDHCPC6_RFC3646
 287                 case D6_OPT_DNS_SERVERS: {
 288                         char *dlist;
 289
 290                         /* Make sure payload-size is a multiple of 16 */
 291                         if ((option[3] & 0x0f) != 0)
 292                                 break;
 293
 294                         /* Get the number of addresses on the option */
 295                         addrs = option[3] >> 4;
 296
 297                         /* Setup environment variable */
 298                         *new_env() = dlist = xmalloc(4 + addrs * 40 - 1);
 299                         dlist = stpcpy(dlist, "dns=");
 300                         option_offset = 0;
 301
 302                         while (addrs--) {
 303                                 sprint_nip6(dlist, option + 4 + option_offset);
 304                                 dlist += 39;
 305                                 option_offset += 16;
 306                                 if (addrs)
 307                                         *dlist++ = ' ';
 308                         }
 309
 310                         break;
 311                 }
 312                 case D6_OPT_DOMAIN_LIST: {
 313                         char *dlist;
 314
 315                         dlist = dname_dec(option + 4, (option[2] << 8) | option[3], "search=");
 316                         if (!dlist)
 317                                 break;
 318                         *new_env() = dlist;
 319                         break;
 320                 }
 321 #endif
 322 #if ENABLE_FEATURE_UDHCPC6_RFC4704
 323                 case D6_OPT_CLIENT_FQDN: {
 324                         char *dlist;
 325
 326                         if (option[3] == 0)
 327                                 break;
 328                         /* Work around broken ISC DHCPD6.
 329                          * ISC DHCPD6 does not implement RFC 4704 correctly: It says the first
 330                          * byte of option-payload should contain flags where the bits 7-3 are
 331                          * reserved for future use and MUST be zero. Instead ISC DHCPD6 just
 332                          * writes the entire FQDN as string to option-payload. We assume a
 333                          * broken server here if any of the reserved bits are set.
 334                          */
 335                         if (option[4] & 0xf8) {
 336                                 *new_env() = xasprintf("fqdn=%.*s", (int)option[3], (char*)option + 4);
 337                                 break;
 338                         }
 339                         dlist = dname_dec(option + 5, (/*(option[2] << 8) |*/ option[3]) - 1, "fqdn=");
 340                         if (!dlist)
 341                                 break;
 342                         *new_env() = dlist;
 343                         break;
 344                 }
 345 #endif
 346 #if ENABLE_FEATURE_UDHCPC6_RFC4833
 347                 /* RFC 4833 Timezones */
 348                 case D6_OPT_TZ_POSIX:
 349                         *new_env() = xasprintf("tz=%.*s", (int)option[3], (char*)option + 4);
 350                         break;
 351                 case D6_OPT_TZ_NAME:
 352                         *new_env() = xasprintf("tz_name=%.*s", (int)option[3], (char*)option + 4);
 353                         break;
 354 #endif
 355                 }
 356                 len_m4 -= 4 + option[3];
 357                 option += 4 + option[3];
 358         }
 359 }
 360
 361 static char **fill_envp(struct d6_packet *packet)
 362 {
 363         char **envp, **curr;
 364
 365         client6_data.env_ptr = NULL;
 366         client6_data.env_idx = 0;
 367
 368         *new_env() = xasprintf("interface=%s", client_config.interface);
 369
 370         if (packet)
 371                 option_to_env(packet->d6_options, packet->d6_options + sizeof(packet->d6_options));
 372
 373         envp = curr = client6_data.env_ptr;
 374         while (*curr)
 375                 putenv(*curr++);
 376
 377         return envp;
 378 }
 379
 380 /* Call a script with a par file and env vars */
 381 static void d6_run_script(struct d6_packet *packet, const char *name)
 382 {
 383         char **envp, **curr;
 384         char *argv[3];
 385
 386         envp = fill_envp(packet);
 387
 388         /* call script */
 389         log1("executing %s %s", client_config.script, name);
 390         argv[0] = (char*) client_config.script;
 391         argv[1] = (char*) name;
 392         argv[2] = NULL;
 393         spawn_and_wait(argv);
 394
 395         for (curr = envp; *curr; curr++) {
 396                 log2(" %s", *curr);
 397                 bb_unsetenv_and_free(*curr);
 398         }
 399         free(envp);
 400 }
 401
 402
 403 /*** Sending/receiving packets ***/
 404
 405 static ALWAYS_INLINE uint32_t random_xid(void)
 406 {
 407         uint32_t t = rand() & htonl(0x00ffffff);
 408         return t;
 409 }
 410
 411 /* Initialize the packet with the proper defaults */
 412 static uint8_t *init_d6_packet(struct d6_packet *packet, char type, uint32_t xid)
 413 {
 414         struct d6_option *clientid;
 415
 416         memset(packet, 0, sizeof(*packet));
 417
 418         packet->d6_xid32 = xid;
 419         packet->d6_msg_type = type;
 420
 421         clientid = (void*)client_config.clientid;
 422         return mempcpy(packet->d6_options, clientid, clientid->len + 2+2);
 423 }
 424
 425 static uint8_t *add_d6_client_options(uint8_t *ptr)
 426 {
 427         uint8_t *start = ptr;
 428         unsigned option;
 429
 430         ptr += 4;
 431         for (option = 1; option < 256; option++) {
 432                 if (client_config.opt_mask[option >> 3] & (1 << (option & 7))) {
 433                         ptr[0] = (option >> 8);
 434                         ptr[1] = option;
 435                         ptr += 2;
 436                 }
 437         }
 438
 439         if ((ptr - start - 4) != 0) {
 440                 start[0] = (D6_OPT_ORO >> 8);
 441                 start[1] = D6_OPT_ORO;
 442                 start[2] = ((ptr - start - 4) >> 8);
 443                 start[3] = (ptr - start - 4);
 444         } else
 445                 ptr = start;
 446
 447 #if ENABLE_FEATURE_UDHCPC6_RFC4704
 448         ptr = mempcpy(ptr, &opt_fqdn_req, sizeof(opt_fqdn_req));
 449 #endif
 450         /* Add -x options if any */
 451         //...
 452
 453         return ptr;
 454 }
 455
 456 static int d6_mcast_from_client_config_ifindex(struct d6_packet *packet, uint8_t *end)
 457 {
 458         static const uint8_t FF02__1_2[16] = {
 459                 0xFF, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 460                 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x02,
 461         };
 462
 463         return d6_send_raw_packet(
 464                 packet, (end - (uint8_t*) packet),
 465                 /*src*/ &client6_data.ll_ip6, CLIENT_PORT6,
 466                 /*dst*/ (struct in6_addr*)FF02__1_2, SERVER_PORT6, MAC_BCAST_ADDR,
 467                 client_config.ifindex
 468         );
 469 }
 470
 471 /* Milticast a DHCPv6 Solicit packet to the network, with an optionally requested IP.
 472  *
 473  * RFC 3315 17.1.1. Creation of Solicit Messages
 474  *
 475  * The client MUST include a Client Identifier option to identify itself
 476  * to the server.  The client includes IA options for any IAs to which
 477  * it wants the server to assign addresses.  The client MAY include
 478  * addresses in the IAs as a hint to the server about addresses for
 479  * which the client has a preference. ...
 480  *
 481  * The client uses IA_NA options to request the assignment of non-
 482  * temporary addresses and uses IA_TA options to request the assignment
 483  * of temporary addresses.  Either IA_NA or IA_TA options, or a
 484  * combination of both, can be included in DHCP messages.
 485  *
 486  * The client SHOULD include an Option Request option (see section 22.7)
 487  * to indicate the options the client is interested in receiving.  The
 488  * client MAY additionally include instances of those options that are
 489  * identified in the Option Request option, with data values as hints to
 490  * the server about parameter values the client would like to have
 491  * returned.
 492  *
 493  * The client includes a Reconfigure Accept option (see section 22.20)
 494  * if the client is willing to accept Reconfigure messages from the
 495  * server.
 496       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 497       |        OPTION_CLIENTID        |          option-len           |
 498       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 499       .                                                               .
 500       .                              DUID                             .
 501       .                        (variable length)                      .
 502       .                                                               .
 503       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 504
 505
 506       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 507       |          OPTION_IA_NA         |          option-len           |
 508       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 509       |                        IAID (4 octets)                        |
 510       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 511       |                              T1                               |
 512       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 513       |                              T2                               |
 514       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 515       |                                                               |
 516       .                         IA_NA-options                         .
 517       .                                                               .
 518       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 519
 520
 521       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 522       |          OPTION_IAADDR        |          option-len           |
 523       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 524       |                                                               |
 525       |                         IPv6 address                          |
 526       |                                                               |
 527       |                                                               |
 528       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 529       |                      preferred-lifetime                       |
 530       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 531       |                        valid-lifetime                         |
 532       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 533       .                                                               .
 534       .                        IAaddr-options                         .
 535       .                                                               .
 536       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 537
 538
 539       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 540       |           OPTION_ORO          |           option-len          |
 541       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 542       |    requested-option-code-1    |    requested-option-code-2    |
 543       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 544       |                              ...                              |
 545       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 546
 547
 548       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 549       |     OPTION_RECONF_ACCEPT      |               0               |
 550       +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 551  */
 552 /* NOINLINE: limit stack usage in caller */
 553 static NOINLINE int send_d6_discover(uint32_t xid, struct in6_addr *requested_ipv6)
 554 {
 555         struct d6_packet packet;
 556         uint8_t *opt_ptr;
 557         unsigned len;
 558
 559         /* Fill in: msg type, client id */
 560         opt_ptr = init_d6_packet(&packet, D6_MSG_SOLICIT, xid);
 561
 562         /* Create new IA_NA, optionally with included IAADDR with requested IP */
 563         free(client6_data.ia_na);
 564         len = requested_ipv6 ? 2+2+4+4+4 + 2+2+16+4+4 : 2+2+4+4+4;
 565         client6_data.ia_na = xzalloc(len);
 566         client6_data.ia_na->code = D6_OPT_IA_NA;
 567         client6_data.ia_na->len = len - 4;
 568         *(uint32_t*)client6_data.ia_na->data = rand(); /* IAID */
 569         if (requested_ipv6) {
 570                 struct d6_option *iaaddr = (void*)(client6_data.ia_na->data + 4+4+4);
 571                 iaaddr->code = D6_OPT_IAADDR;
 572                 iaaddr->len = 16+4+4;
 573                 memcpy(iaaddr->data, requested_ipv6, 16);
 574         }
 575         opt_ptr = mempcpy(opt_ptr, client6_data.ia_na, len);
 576
 577         /* Add options:
 578          * "param req" option according to -O, options specified with -x
 579          */
 580         opt_ptr = add_d6_client_options(opt_ptr);
 581
 582         bb_error_msg("sending %s", "discover");
 583         return d6_mcast_from_client_config_ifindex(&packet, opt_ptr);
 584 }
 585
 586 /* Multicast a DHCPv6 request message
 587  *
 588  * RFC 3315 18.1.1. Creation and Transmission of Request Messages
 589  *
 590  * The client uses a Request message to populate IAs with addresses and
 591  * obtain other configuration information.  The client includes one or
 592  * more IA options in the Request message.  The server then returns
 593  * addresses and other information about the IAs to the client in IA
 594  * options in a Reply message.
 595  *
 596  * The client generates a transaction ID and inserts this value in the
 597  * "transaction-id" field.
 598  *
 599  * The client places the identifier of the destination server in a
 600  * Server Identifier option.
 601  *
 602  * The client MUST include a Client Identifier option to identify itself
 603  * to the server.  The client adds any other appropriate options,
 604  * including one or more IA options (if the client is requesting that
 605  * the server assign it some network addresses).
 606  *
 607  * The client MUST include an Option Request option (see section 22.7)
 608  * to indicate the options the client is interested in receiving.  The
 609  * client MAY include options with data values as hints to the server
 610  * about parameter values the client would like to have returned.
 611  *
 612  * The client includes a Reconfigure Accept option (see section 22.20)
 613  * indicating whether or not the client is willing to accept Reconfigure
 614  * messages from the server.
 615  */
 616 /* NOINLINE: limit stack usage in caller */
 617 static NOINLINE int send_d6_select(uint32_t xid)
 618 {
 619         struct d6_packet packet;
 620         uint8_t *opt_ptr;
 621
 622         /* Fill in: msg type, client id */
 623         opt_ptr = init_d6_packet(&packet, D6_MSG_REQUEST, xid);
 624
 625         /* server id */
 626         opt_ptr = mempcpy(opt_ptr, client6_data.server_id, client6_data.server_id->len + 2+2);
 627         /* IA NA (contains requested IP) */
 628         opt_ptr = mempcpy(opt_ptr, client6_data.ia_na, client6_data.ia_na->len + 2+2);
 629
 630         /* Add options:
 631          * "param req" option according to -O, options specified with -x
 632          */
 633         opt_ptr = add_d6_client_options(opt_ptr);
 634
 635         bb_error_msg("sending %s", "select");
 636         return d6_mcast_from_client_config_ifindex(&packet, opt_ptr);
 637 }
 638
 639 /* Unicast or broadcast a DHCP renew message
 640  *
 641  * RFC 3315 18.1.3. Creation and Transmission of Renew Messages
 642  *
 643  * To extend the valid and preferred lifetimes for the addresses
 644  * associated with an IA, the client sends a Renew message to the server
 645  * from which the client obtained the addresses in the IA containing an
 646  * IA option for the IA.  The client includes IA Address options in the
 647  * IA option for the addresses associated with the IA.  The server
 648  * determines new lifetimes for the addresses in the IA according to the
 649  * administrative configuration of the server.  The server may also add
 650  * new addresses to the IA.  The server may remove addresses from the IA
 651  * by setting the preferred and valid lifetimes of those addresses to
 652  * zero.
 653  *
 654  * The server controls the time at which the client contacts the server
 655  * to extend the lifetimes on assigned addresses through the T1 and T2
 656  * parameters assigned to an IA.
 657  *
 658  * At time T1 for an IA, the client initiates a Renew/Reply message
 659  * exchange to extend the lifetimes on any addresses in the IA.  The
 660  * client includes an IA option with all addresses currently assigned to
 661  * the IA in its Renew message.
 662  *
 663  * If T1 or T2 is set to 0 by the server (for an IA_NA) or there are no
 664  * T1 or T2 times (for an IA_TA), the client may send a Renew or Rebind
 665  * message, respectively, at the client's discretion.
 666  *
 667  * The client sets the "msg-type" field to RENEW.  The client generates
 668  * a transaction ID and inserts this value in the "transaction-id"
 669  * field.
 670  *
 671  * The client places the identifier of the destination server in a
 672  * Server Identifier option.
 673  *
 674  * The client MUST include a Client Identifier option to identify itself
 675  * to the server.  The client adds any appropriate options, including
 676  * one or more IA options.  The client MUST include the list of
 677  * addresses the client currently has associated with the IAs in the
 678  * Renew message.
 679  *
 680  * The client MUST include an Option Request option (see section 22.7)
 681  * to indicate the options the client is interested in receiving.  The
 682  * client MAY include options with data values as hints to the server
 683  * about parameter values the client would like to have returned.
 684  */
 685 /* NOINLINE: limit stack usage in caller */
 686 static NOINLINE int send_d6_renew(uint32_t xid, struct in6_addr *server_ipv6, struct in6_addr *our_cur_ipv6)
 687 {
 688         struct d6_packet packet;
 689         uint8_t *opt_ptr;
 690
 691         /* Fill in: msg type, client id */
 692         opt_ptr = init_d6_packet(&packet, DHCPREQUEST, xid);
 693
 694         /* server id */
 695         opt_ptr = mempcpy(opt_ptr, client6_data.server_id, client6_data.server_id->len + 2+2);
 696         /* IA NA (contains requested IP) */
 697         opt_ptr = mempcpy(opt_ptr, client6_data.ia_na, client6_data.ia_na->len + 2+2);
 698
 699         /* Add options:
 700          * "param req" option according to -O, options specified with -x
 701          */
 702         opt_ptr = add_d6_client_options(opt_ptr);
 703
 704         bb_error_msg("sending %s", "renew");
 705         if (server_ipv6)
 706                 return d6_send_kernel_packet(
 707                         &packet, (opt_ptr - (uint8_t*) &packet),
 708                         our_cur_ipv6, CLIENT_PORT6,
 709                         server_ipv6, SERVER_PORT6,
 710                         client_config.ifindex
 711                 );
 712         return d6_mcast_from_client_config_ifindex(&packet, opt_ptr);
 713 }
 714
 715 /* Unicast a DHCP release message */
 716 static int send_d6_release(struct in6_addr *server_ipv6, struct in6_addr *our_cur_ipv6)
 717 {
 718         struct d6_packet packet;
 719         uint8_t *opt_ptr;
 720
 721         /* Fill in: msg type, client id */
 722         opt_ptr = init_d6_packet(&packet, D6_MSG_RELEASE, random_xid());
 723         /* server id */
 724         opt_ptr = mempcpy(opt_ptr, client6_data.server_id, client6_data.server_id->len + 2+2);
 725         /* IA NA (contains our current IP) */
 726         opt_ptr = mempcpy(opt_ptr, client6_data.ia_na, client6_data.ia_na->len + 2+2);
 727
 728         bb_error_msg("sending %s", "release");
 729         return d6_send_kernel_packet(
 730                 &packet, (opt_ptr - (uint8_t*) &packet),
 731                 our_cur_ipv6, CLIENT_PORT6,
 732                 server_ipv6, SERVER_PORT6,
 733                 client_config.ifindex
 734         );
 735 }
 736
 737 /* Returns -1 on errors that are fatal for the socket, -2 for those that aren't */
 738 /* NOINLINE: limit stack usage in caller */
 739 static NOINLINE int d6_recv_raw_packet(struct in6_addr *peer_ipv6, struct d6_packet *d6_pkt, int fd)
 740 {
 741         int bytes;
 742         struct ip6_udp_d6_packet packet;
 743
 744         bytes = safe_read(fd, &packet, sizeof(packet));
 745         if (bytes < 0) {
 746                 log1("packet read error, ignoring");
 747                 /* NB: possible down interface, etc. Caller should pause. */
 748                 return bytes; /* returns -1 */
 749         }
 750
 751         if (bytes < (int) (sizeof(packet.ip6) + sizeof(packet.udp))) {
 752                 log1("packet is too short, ignoring");
 753                 return -2;
 754         }
 755
 756         if (bytes < sizeof(packet.ip6) + ntohs(packet.ip6.ip6_plen)) {
 757                 /* packet is bigger than sizeof(packet), we did partial read */
 758                 log1("oversized packet, ignoring");
 759                 return -2;
 760         }
 761
 762         /* ignore any extra garbage bytes */
 763         bytes = sizeof(packet.ip6) + ntohs(packet.ip6.ip6_plen);
 764
 765         /* make sure its the right packet for us, and that it passes sanity checks */
 766         if (packet.ip6.ip6_nxt != IPPROTO_UDP
 767          || (packet.ip6.ip6_vfc >> 4) != 6
 768          || packet.udp.dest != htons(CLIENT_PORT6)
 769         /* || bytes > (int) sizeof(packet) - can't happen */
 770          || packet.udp.len != packet.ip6.ip6_plen
 771         ) {
 772                 log1("unrelated/bogus packet, ignoring");
 773                 return -2;
 774         }
 775
 776 //How to do this for ipv6?
 777 //      /* verify UDP checksum. IP header has to be modified for this */
 778 //      memset(&packet.ip, 0, offsetof(struct iphdr, protocol));
 779 //      /* ip.xx fields which are not memset: protocol, check, saddr, daddr */
 780 //      packet.ip.tot_len = packet.udp.len; /* yes, this is needed */
 781 //      check = packet.udp.check;
 782 //      packet.udp.check = 0;
 783 //      if (check && check != inet_cksum((uint16_t *)&packet, bytes)) {
 784 //              log1("packet with bad UDP checksum received, ignoring");
 785 //              return -2;
 786 //      }
 787
 788         if (peer_ipv6)
 789                 *peer_ipv6 = packet.ip6.ip6_src; /* struct copy */
 790
 791         log1("received %s", "a packet");
 792         d6_dump_packet(&packet.data);
 793
 794         bytes -= sizeof(packet.ip6) + sizeof(packet.udp);
 795         memcpy(d6_pkt, &packet.data, bytes);
 796         return bytes;
 797 }
 798
 799
 800 /*** Main ***/
 801
 802 static int sockfd = -1;
 803
 804 #define LISTEN_NONE   0
 805 #define LISTEN_KERNEL 1
 806 #define LISTEN_RAW    2
 807 static smallint listen_mode;
 808
 809 /* initial state: (re)start DHCP negotiation */
 810 #define INIT_SELECTING  0
 811 /* discover was sent, DHCPOFFER reply received */
 812 #define REQUESTING      1
 813 /* select/renew was sent, DHCPACK reply received */
 814 #define BOUND           2
 815 /* half of lease passed, want to renew it by sending unicast renew requests */
 816 #define RENEWING        3
 817 /* renew requests were not answered, lease is almost over, send broadcast renew */
 818 #define REBINDING       4
 819 /* manually requested renew (SIGUSR1) */
 820 #define RENEW_REQUESTED 5
 821 /* release, possibly manually requested (SIGUSR2) */
 822 #define RELEASED        6
 823 static smallint state;
 824
 825 static int d6_raw_socket(int ifindex)
 826 {
 827         int fd;
 828         struct sockaddr_ll sock;
 829
 830         /*
 831          * Comment:
 832          *
 833          *      I've selected not to see LL header, so BPF doesn't see it, too.
 834          *      The filter may also pass non-IP and non-ARP packets, but we do
 835          *      a more complete check when receiving the message in userspace.
 836          *
 837          * and filter shamelessly stolen from:
 838          *
 839          *      http://www.flamewarmaster.de/software/dhcpclient/
 840          *
 841          * There are a few other interesting ideas on that page (look under
 842          * "Motivation").  Use of netlink events is most interesting.  Think
 843          * of various network servers listening for events and reconfiguring.
 844          * That would obsolete sending HUP signals and/or make use of restarts.
 845          *
 846          * Copyright: 2006, 2007 Stefan Rompf <sux@loplof.de>.
 847          * License: GPL v2.
 848          *
 849          * TODO: make conditional?
 850          */
 851 #if 0
 852         static const struct sock_filter filter_instr[] = {
 853                 /* load 9th byte (protocol) */
 854                 BPF_STMT(BPF_LD|BPF_B|BPF_ABS, 9),
 855                 /* jump to L1 if it is IPPROTO_UDP, else to L4 */
 856                 BPF_JUMP(BPF_JMP|BPF_JEQ|BPF_K, IPPROTO_UDP, 0, 6),
 857                 /* L1: load halfword from offset 6 (flags and frag offset) */
 858                 BPF_STMT(BPF_LD|BPF_H|BPF_ABS, 6),
 859                 /* jump to L4 if any bits in frag offset field are set, else to L2 */
 860                 BPF_JUMP(BPF_JMP|BPF_JSET|BPF_K, 0x1fff, 4, 0),
 861                 /* L2: skip IP header (load index reg with header len) */
 862                 BPF_STMT(BPF_LDX|BPF_B|BPF_MSH, 0),
 863                 /* load udp destination port from halfword[header_len + 2] */
 864                 BPF_STMT(BPF_LD|BPF_H|BPF_IND, 2),
 865                 /* jump to L3 if udp dport is CLIENT_PORT6, else to L4 */
 866                 BPF_JUMP(BPF_JMP|BPF_JEQ|BPF_K, 68, 0, 1),
 867                 /* L3: accept packet */
 868                 BPF_STMT(BPF_RET|BPF_K, 0x7fffffff),
 869                 /* L4: discard packet */
 870                 BPF_STMT(BPF_RET|BPF_K, 0),
 871         };
 872         static const struct sock_fprog filter_prog = {
 873                 .len = sizeof(filter_instr) / sizeof(filter_instr[0]),
 874                 /* casting const away: */
 875                 .filter = (struct sock_filter *) filter_instr,
 876         };
 877 #endif
 878
 879         log2("opening raw socket on ifindex %d", ifindex);
 880
 881         fd = xsocket(PF_PACKET, SOCK_DGRAM, htons(ETH_P_IPV6));
 882         log2("got raw socket fd %d", fd);
 883
 884         sock.sll_family = AF_PACKET;
 885         sock.sll_protocol = htons(ETH_P_IPV6);
 886         sock.sll_ifindex = ifindex;
 887         xbind(fd, (struct sockaddr *) &sock, sizeof(sock));
 888
 889 #if 0
 890         if (CLIENT_PORT6 == 546) {
 891                 /* Use only if standard port is in use */
 892                 /* Ignoring error (kernel may lack support for this) */
 893                 if (setsockopt(fd, SOL_SOCKET, SO_ATTACH_FILTER, &filter_prog,
 894                                 sizeof(filter_prog)) >= 0)
 895                         log1("attached filter to raw socket fd %d", fd); // log?
 896         }
 897 #endif
 898
 899         log1("created raw socket");
 900
 901         return fd;
 902 }
 903
 904 static void change_listen_mode(int new_mode)
 905 {
 906         log1("entering listen mode: %s",
 907                 new_mode != LISTEN_NONE
 908                         ? (new_mode == LISTEN_KERNEL ? "kernel" : "raw")
 909                         : "none"
 910         );
 911
 912         listen_mode = new_mode;
 913         if (sockfd >= 0) {
 914                 close(sockfd);
 915                 sockfd = -1;
 916         }
 917         if (new_mode == LISTEN_KERNEL)
 918                 sockfd = udhcp_listen_socket(/*INADDR_ANY,*/ CLIENT_PORT6, client_config.interface);
 919         else if (new_mode != LISTEN_NONE)
 920                 sockfd = d6_raw_socket(client_config.ifindex);
 921         /* else LISTEN_NONE: sockfd stays closed */
 922 }
 923
 924 /* Called only on SIGUSR1 */
 925 static void perform_renew(void)
 926 {
 927         bb_error_msg("performing DHCP renew");
 928         switch (state) {
 929         case BOUND:
 930                 change_listen_mode(LISTEN_KERNEL);
 931         case RENEWING:
 932         case REBINDING:
 933                 state = RENEW_REQUESTED;
 934                 break;
 935         case RENEW_REQUESTED: /* impatient are we? fine, square 1 */
 936                 d6_run_script(NULL, "deconfig");
 937         case REQUESTING:
 938         case RELEASED:
 939                 change_listen_mode(LISTEN_RAW);
 940                 state = INIT_SELECTING;
 941                 break;
 942         case INIT_SELECTING:
 943                 break;
 944         }
 945 }
 946
 947 static void perform_d6_release(struct in6_addr *server_ipv6, struct in6_addr *our_cur_ipv6)
 948 {
 949         /* send release packet */
 950         if (state == BOUND
 951          || state == RENEWING
 952          || state == REBINDING
 953          || state == RENEW_REQUESTED
 954         ) {
 955                 bb_error_msg("unicasting a release");
 956                 send_d6_release(server_ipv6, our_cur_ipv6); /* unicast */
 957         }
 958         bb_error_msg("entering released state");
 959 /*
 960  * We can be here on: SIGUSR2,
 961  * or on exit (SIGTERM) and -R "release on quit" is specified.
 962  * Users requested to be notified in all cases, even if not in one
 963  * of the states above.
 964  */
 965         d6_run_script(NULL, "deconfig");
 966         change_listen_mode(LISTEN_NONE);
 967         state = RELEASED;
 968 }
 969
 970 ///static uint8_t* alloc_dhcp_option(int code, const char *str, int extra)
 971 ///{
 972 ///     uint8_t *storage;
 973 ///     int len = strnlen(str, 255);
 974 ///     storage = xzalloc(len + extra + OPT_DATA);
 975 ///     storage[OPT_CODE] = code;
 976 ///     storage[OPT_LEN] = len + extra;
 977 ///     memcpy(storage + extra + OPT_DATA, str, len);
 978 ///     return storage;
 979 ///}
 980
 981 #if BB_MMU
 982 static void client_background(void)
 983 {
 984         bb_daemonize(0);
 985         logmode &= ~LOGMODE_STDIO;
 986         /* rewrite pidfile, as our pid is different now */
 987         write_pidfile(client_config.pidfile);
 988 }
 989 #endif
 990
 991 //usage:#if defined CONFIG_UDHCP_DEBUG && CONFIG_UDHCP_DEBUG >= 1
 992 //usage:# define IF_UDHCP_VERBOSE(...) __VA_ARGS__
 993 //usage:#else
 994 //usage:# define IF_UDHCP_VERBOSE(...)
 995 //usage:#endif
 996 //usage:#define udhcpc6_trivial_usage
 997 //usage:       "[-fbnq"IF_UDHCP_VERBOSE("v")"oR] [-i IFACE] [-r IP] [-s PROG] [-p PIDFILE]\n"
 998 //usage:       "        [-x OPT:VAL]... [-O OPT]..." IF_FEATURE_UDHCP_PORT(" [-P N]")
 999 //usage:#define udhcpc6_full_usage "\n"
1000 //usage:        IF_LONG_OPTS(
1001 //usage:     "\n        -i,--interface IFACE    Interface to use (default eth0)"
1002 //usage:     "\n        -p,--pidfile FILE       Create pidfile"
1003 //usage:     "\n        -s,--script PROG        Run PROG at DHCP events (default "CONFIG_UDHCPC_DEFAULT_SCRIPT")"
1004 //usage:     "\n        -B,--broadcast          Request broadcast replies"
1005 //usage:     "\n        -t,--retries N          Send up to N discover packets"
1006 //usage:     "\n        -T,--timeout N          Pause between packets (default 3 seconds)"
1007 //usage:     "\n        -A,--tryagain N         Wait N seconds after failure (default 20)"
1008 //usage:     "\n        -f,--foreground         Run in foreground"
1009 //usage:        USE_FOR_MMU(
1010 //usage:     "\n        -b,--background         Background if lease is not obtained"
1011 //usage:        )
1012 //usage:     "\n        -n,--now                Exit if lease is not obtained"
1013 //usage:     "\n        -q,--quit               Exit after obtaining lease"
1014 //usage:     "\n        -R,--release            Release IP on exit"
1015 //usage:     "\n        -S,--syslog             Log to syslog too"
1016 //usage:        IF_FEATURE_UDHCP_PORT(
1017 //usage:     "\n        -P,--client-port N      Use port N (default 546)"
1018 //usage:        )
1019 ////usage:      IF_FEATURE_UDHCPC_ARPING(
1020 ////usage:     "\n      -a,--arping             Use arping to validate offered address"
1021 ////usage:      )
1022 //usage:     "\n        -O,--request-option OPT Request option OPT from server (cumulative)"
1023 //usage:     "\n        -o,--no-default-options Don't request any options (unless -O is given)"
1024 //usage:     "\n        -r,--request IP         Request this IP address"
1025 //usage:     "\n        -x OPT:VAL              Include option OPT in sent packets (cumulative)"
1026 //usage:     "\n                                Examples of string, numeric, and hex byte opts:"
1027 //usage:     "\n                                -x hostname:bbox - option 12"
1028 //usage:     "\n                                -x lease:3600 - option 51 (lease time)"
1029 //usage:     "\n                                -x 0x3d:0100BEEFC0FFEE - option 61 (client id)"
1030 //usage:        IF_UDHCP_VERBOSE(
1031 //usage:     "\n        -v                      Verbose"
1032 //usage:        )
1033 //usage:        )
1034 //usage:        IF_NOT_LONG_OPTS(
1035 //usage:     "\n        -i IFACE        Interface to use (default eth0)"
1036 //usage:     "\n        -p FILE         Create pidfile"
1037 //usage:     "\n        -s PROG         Run PROG at DHCP events (default "CONFIG_UDHCPC_DEFAULT_SCRIPT")"
1038 //usage:     "\n        -B              Request broadcast replies"
1039 //usage:     "\n        -t N            Send up to N discover packets"
1040 //usage:     "\n        -T N            Pause between packets (default 3 seconds)"
1041 //usage:     "\n        -A N            Wait N seconds (default 20) after failure"
1042 //usage:     "\n        -f              Run in foreground"
1043 //usage:        USE_FOR_MMU(
1044 //usage:     "\n        -b              Background if lease is not obtained"
1045 //usage:        )
1046 //usage:     "\n        -n              Exit if lease is not obtained"
1047 //usage:     "\n        -q              Exit after obtaining lease"
1048 //usage:     "\n        -R              Release IP on exit"
1049 //usage:     "\n        -S              Log to syslog too"
1050 //usage:        IF_FEATURE_UDHCP_PORT(
1051 //usage:     "\n        -P N            Use port N (default 546)"
1052 //usage:        )
1053 ////usage:      IF_FEATURE_UDHCPC_ARPING(
1054 ////usage:     "\n      -a              Use arping to validate offered address"
1055 ////usage:      )
1056 //usage:     "\n        -O OPT          Request option OPT from server (cumulative)"
1057 //usage:     "\n        -o              Don't request any options (unless -O is given)"
1058 //usage:     "\n        -r IP           Request this IP address"
1059 //usage:     "\n        -x OPT:VAL      Include option OPT in sent packets (cumulative)"
1060 //usage:     "\n                        Examples of string, numeric, and hex byte opts:"
1061 //usage:     "\n                        -x hostname:bbox - option 12"
1062 //usage:     "\n                        -x lease:3600 - option 51 (lease time)"
1063 //usage:     "\n                        -x 0x3d:0100BEEFC0FFEE - option 61 (client id)"
1064 //usage:        IF_UDHCP_VERBOSE(
1065 //usage:     "\n        -v              Verbose"
1066 //usage:        )
1067 //usage:        )
1068 //usage:     "\nSignals:"
1069 //usage:     "\n        USR1    Renew lease"
1070 //usage:     "\n        USR2    Release lease"
1071
1072
1073 int udhcpc6_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
1074 int udhcpc6_main(int argc UNUSED_PARAM, char **argv)
1075 {
1076         const char *str_r;
1077         IF_FEATURE_UDHCP_PORT(char *str_P;)
1078         void *clientid_mac_ptr;
1079         llist_t *list_O = NULL;
1080         llist_t *list_x = NULL;
1081         int tryagain_timeout = 20;
1082         int discover_timeout = 3;
1083         int discover_retries = 3;
1084         struct in6_addr srv6_buf;
1085         struct in6_addr ipv6_buf;
1086         struct in6_addr *requested_ipv6;
1087         uint32_t xid = 0;
1088         int packet_num;
1089         int timeout; /* must be signed */
1090         unsigned already_waited_sec;
1091         unsigned opt;
1092         int retval;
1093
1094         setup_common_bufsiz();
1095
1096         /* Default options */
1097         IF_FEATURE_UDHCP_PORT(SERVER_PORT6 = 547;)
1098         IF_FEATURE_UDHCP_PORT(CLIENT_PORT6 = 546;)
1099         client_config.interface = "eth0";
1100         client_config.script = CONFIG_UDHCPC_DEFAULT_SCRIPT;
1101
1102         /* Parse command line */
1103         opt = getopt32long(argv, "^"
1104                 /* O,x: list; -T,-t,-A take numeric param */
1105                 "i:np:qRr:s:T:+t:+SA:+O:*ox:*f"
1106                 USE_FOR_MMU("b")
1107                 ///IF_FEATURE_UDHCPC_ARPING("a")
1108                 IF_FEATURE_UDHCP_PORT("P:")
1109                 "v"
1110                 "\0" IF_UDHCP_VERBOSE("vv") /* -v is a counter */
1111                 , udhcpc6_longopts
1112                 , &client_config.interface, &client_config.pidfile, &str_r /* i,p */
1113                 , &client_config.script /* s */
1114                 , &discover_timeout, &discover_retries, &tryagain_timeout /* T,t,A */
1115                 , &list_O
1116                 , &list_x
1117                 IF_FEATURE_UDHCP_PORT(, &str_P)
1118                 IF_UDHCP_VERBOSE(, &dhcp_verbose)
1119         );
1120         requested_ipv6 = NULL;
1121         if (opt & OPT_r) {
1122                 if (inet_pton(AF_INET6, str_r, &ipv6_buf) <= 0)
1123                         bb_error_msg_and_die("bad IPv6 address '%s'", str_r);
1124                 requested_ipv6 = &ipv6_buf;
1125         }
1126 #if ENABLE_FEATURE_UDHCP_PORT
1127         if (opt & OPT_P) {
1128                 CLIENT_PORT6 = xatou16(str_P);
1129                 SERVER_PORT6 = CLIENT_PORT6 + 1;
1130         }
1131 #endif
1132         while (list_O) {
1133                 char *optstr = llist_pop(&list_O);
1134                 unsigned n = bb_strtou(optstr, NULL, 0);
1135                 if (errno || n > 254) {
1136                         n = udhcp_option_idx(optstr, d6_option_strings);
1137                         n = d6_optflags[n].code;
1138                 }
1139                 client_config.opt_mask[n >> 3] |= 1 << (n & 7);
1140         }
1141         if (!(opt & OPT_o)) {
1142                 unsigned i, n;
1143                 for (i = 0; (n = d6_optflags[i].code) != 0; i++) {
1144                         if (d6_optflags[i].flags & OPTION_REQ) {
1145                                 client_config.opt_mask[n >> 3] |= 1 << (n & 7);
1146                         }
1147                 }
1148         }
1149         while (list_x) {
1150                 char *optstr = llist_pop(&list_x);
1151                 char *colon = strchr(optstr, ':');
1152                 if (colon)
1153                         *colon = ' ';
1154                 /* now it looks similar to udhcpd's config file line:
1155                  * "optname optval", using the common routine: */
1156                 udhcp_str2optset(optstr, &client_config.options, d6_optflags, d6_option_strings);
1157                 if (colon)
1158                         *colon = ':'; /* restore it for NOMMU reexec */
1159         }
1160
1161         if (d6_read_interface(client_config.interface,
1162                         &client_config.ifindex,
1163                         &client6_data.ll_ip6,
1164                         client_config.client_mac)
1165         ) {
1166                 return 1;
1167         }
1168
1169         /* Create client ID based on mac, set clientid_mac_ptr */
1170         {
1171                 struct d6_option *clientid;
1172                 clientid = xzalloc(2+2+2+2+6);
1173                 clientid->code = D6_OPT_CLIENTID;
1174                 clientid->len = 2+2+6;
1175                 clientid->data[1] = 3; /* DUID-LL */
1176                 clientid->data[3] = 1; /* ethernet */
1177                 clientid_mac_ptr = clientid->data + 2+2;
1178                 memcpy(clientid_mac_ptr, client_config.client_mac, 6);
1179                 client_config.clientid = (void*)clientid;
1180         }
1181
1182 #if !BB_MMU
1183         /* on NOMMU reexec (i.e., background) early */
1184         if (!(opt & OPT_f)) {
1185                 bb_daemonize_or_rexec(0 /* flags */, argv);
1186                 logmode = LOGMODE_NONE;
1187         }
1188 #endif
1189         if (opt & OPT_S) {
1190                 openlog(applet_name, LOG_PID, LOG_DAEMON);
1191                 logmode |= LOGMODE_SYSLOG;
1192         }
1193
1194         /* Make sure fd 0,1,2 are open */
1195         bb_sanitize_stdio();
1196         /* Equivalent of doing a fflush after every \n */
1197         setlinebuf(stdout);
1198         /* Create pidfile */
1199         write_pidfile(client_config.pidfile);
1200         /* Goes to stdout (unless NOMMU) and possibly syslog */
1201         bb_error_msg("started, v"BB_VER);
1202         /* Set up the signal pipe */
1203         udhcp_sp_setup();
1204         /* We want random_xid to be random... */
1205         srand(monotonic_us());
1206
1207         state = INIT_SELECTING;
1208         d6_run_script(NULL, "deconfig");
1209         change_listen_mode(LISTEN_RAW);
1210         packet_num = 0;
1211         timeout = 0;
1212         already_waited_sec = 0;
1213
1214         /* Main event loop. select() waits on signal pipe and possibly
1215          * on sockfd.
1216          * "continue" statements in code below jump to the top of the loop.
1217          */
1218         for (;;) {
1219                 int tv;
1220                 struct pollfd pfds[2];
1221                 struct d6_packet packet;
1222                 uint8_t *packet_end;
1223                 /* silence "uninitialized!" warning */
1224                 unsigned timestamp_before_wait = timestamp_before_wait;
1225
1226                 //bb_error_msg("sockfd:%d, listen_mode:%d", sockfd, listen_mode);
1227
1228                 /* Was opening raw or udp socket here
1229                  * if (listen_mode != LISTEN_NONE && sockfd < 0),
1230                  * but on fast network renew responses return faster
1231                  * than we open sockets. Thus this code is moved
1232                  * to change_listen_mode(). Thus we open listen socket
1233                  * BEFORE we send renew request (see "case BOUND:"). */
1234
1235                 udhcp_sp_fd_set(pfds, sockfd);
1236
1237                 tv = timeout - already_waited_sec;
1238                 retval = 0;
1239                 /* If we already timed out, fall through with retval = 0, else... */
1240                 if (tv > 0) {
1241                         log1("waiting %u seconds", tv);
1242                         timestamp_before_wait = (unsigned)monotonic_sec();
1243                         retval = poll(pfds, 2, tv < INT_MAX/1000 ? tv * 1000 : INT_MAX);
1244                         if (retval < 0) {
1245                                 /* EINTR? A signal was caught, don't panic */
1246                                 if (errno == EINTR) {
1247                                         already_waited_sec += (unsigned)monotonic_sec() - timestamp_before_wait;
1248                                         continue;
1249                                 }
1250                                 /* Else: an error occured, panic! */
1251                                 bb_perror_msg_and_die("poll");
1252                         }
1253                 }
1254
1255                 /* If timeout dropped to zero, time to become active:
1256                  * resend discover/renew/whatever
1257                  */
1258                 if (retval == 0) {
1259                         /* When running on a bridge, the ifindex may have changed
1260                          * (e.g. if member interfaces were added/removed
1261                          * or if the status of the bridge changed).
1262                          * Refresh ifindex and client_mac:
1263                          */
1264                         if (d6_read_interface(client_config.interface,
1265                                         &client_config.ifindex,
1266                                         &client6_data.ll_ip6,
1267                                         client_config.client_mac)
1268                         ) {
1269                                 goto ret0; /* iface is gone? */
1270                         }
1271
1272                         memcpy(clientid_mac_ptr, client_config.client_mac, 6);
1273
1274                         /* We will restart the wait in any case */
1275                         already_waited_sec = 0;
1276
1277                         switch (state) {
1278                         case INIT_SELECTING:
1279                                 if (!discover_retries || packet_num < discover_retries) {
1280                                         if (packet_num == 0)
1281                                                 xid = random_xid();
1282                                         /* multicast */
1283                                         send_d6_discover(xid, requested_ipv6);
1284                                         timeout = discover_timeout;
1285                                         packet_num++;
1286                                         continue;
1287                                 }
1288  leasefail:
1289                                 d6_run_script(NULL, "leasefail");
1290 #if BB_MMU /* -b is not supported on NOMMU */
1291                                 if (opt & OPT_b) { /* background if no lease */
1292                                         bb_error_msg("no lease, forking to background");
1293                                         client_background();
1294                                         /* do not background again! */
1295                                         opt = ((opt & ~OPT_b) | OPT_f);
1296                                 } else
1297 #endif
1298                                 if (opt & OPT_n) { /* abort if no lease */
1299                                         bb_error_msg("no lease, failing");
1300                                         retval = 1;
1301                                         goto ret;
1302                                 }
1303                                 /* wait before trying again */
1304                                 timeout = tryagain_timeout;
1305                                 packet_num = 0;
1306                                 continue;
1307                         case REQUESTING:
1308                                 if (!discover_retries || packet_num < discover_retries) {
1309                                         /* send multicast select packet */
1310                                         send_d6_select(xid);
1311                                         timeout = discover_timeout;
1312                                         packet_num++;
1313                                         continue;
1314                                 }
1315                                 /* Timed out, go back to init state.
1316                                  * "discover...select...discover..." loops
1317                                  * were seen in the wild. Treat them similarly
1318                                  * to "no response to discover" case */
1319                                 change_listen_mode(LISTEN_RAW);
1320                                 state = INIT_SELECTING;
1321                                 goto leasefail;
1322                         case BOUND:
1323                                 /* 1/2 lease passed, enter renewing state */
1324                                 state = RENEWING;
1325                                 client_config.first_secs = 0; /* make secs field count from 0 */
1326                                 change_listen_mode(LISTEN_KERNEL);
1327                                 log1("entering renew state");
1328                                 /* fall right through */
1329                         case RENEW_REQUESTED: /* manual (SIGUSR1) renew */
1330                         case_RENEW_REQUESTED:
1331                         case RENEWING:
1332                                 if (timeout > 60) {
1333                                         /* send an unicast renew request */
1334                         /* Sometimes observed to fail (EADDRNOTAVAIL) to bind
1335                          * a new UDP socket for sending inside send_renew.
1336                          * I hazard to guess existing listening socket
1337                          * is somehow conflicting with it, but why is it
1338                          * not deterministic then?! Strange.
1339                          * Anyway, it does recover by eventually failing through
1340                          * into INIT_SELECTING state.
1341                          */
1342                                         send_d6_renew(xid, &srv6_buf, requested_ipv6);
1343                                         timeout >>= 1;
1344                                         continue;
1345                                 }
1346                                 /* Timed out, enter rebinding state */
1347                                 log1("entering rebinding state");
1348                                 state = REBINDING;
1349                                 /* fall right through */
1350                         case REBINDING:
1351                                 /* Switch to bcast receive */
1352                                 change_listen_mode(LISTEN_RAW);
1353                                 /* Lease is *really* about to run out,
1354                                  * try to find DHCP server using broadcast */
1355                                 if (timeout > 0) {
1356                                         /* send a broadcast renew request */
1357                                         send_d6_renew(xid, /*server_ipv6:*/ NULL, requested_ipv6);
1358                                         timeout >>= 1;
1359                                         continue;
1360                                 }
1361                                 /* Timed out, enter init state */
1362                                 bb_error_msg("lease lost, entering init state");
1363                                 d6_run_script(NULL, "deconfig");
1364                                 state = INIT_SELECTING;
1365                                 client_config.first_secs = 0; /* make secs field count from 0 */
1366                                 /*timeout = 0; - already is */
1367                                 packet_num = 0;
1368                                 continue;
1369                         /* case RELEASED: */
1370                         }
1371                         /* yah, I know, *you* say it would never happen */
1372                         timeout = INT_MAX;
1373                         continue; /* back to main loop */
1374                 } /* if select timed out */
1375
1376                 /* select() didn't timeout, something happened */
1377
1378                 /* Is it a signal? */
1379                 /* note: udhcp_sp_read checks poll result before reading */
1380                 switch (udhcp_sp_read(pfds)) {
1381                 case SIGUSR1:
1382                         client_config.first_secs = 0; /* make secs field count from 0 */
1383                         already_waited_sec = 0;
1384                         perform_renew();
1385                         if (state == RENEW_REQUESTED) {
1386                                 /* We might be either on the same network
1387                                  * (in which case renew might work),
1388                                  * or we might be on a completely different one
1389                                  * (in which case renew won't ever succeed).
1390                                  * For the second case, must make sure timeout
1391                                  * is not too big, or else we can send
1392                                  * futile renew requests for hours.
1393                                  * (Ab)use -A TIMEOUT value (usually 20 sec)
1394                                  * as a cap on the timeout.
1395                                  */
1396                                 if (timeout > tryagain_timeout)
1397                                         timeout = tryagain_timeout;
1398                                 goto case_RENEW_REQUESTED;
1399                         }
1400                         /* Start things over */
1401                         packet_num = 0;
1402                         /* Kill any timeouts, user wants this to hurry along */
1403                         timeout = 0;
1404                         continue;
1405                 case SIGUSR2:
1406                         perform_d6_release(&srv6_buf, requested_ipv6);
1407                         timeout = INT_MAX;
1408                         continue;
1409                 case SIGTERM:
1410                         bb_error_msg("received %s", "SIGTERM");
1411                         goto ret0;
1412                 }
1413
1414                 /* Is it a packet? */
1415                 if (listen_mode == LISTEN_NONE || !pfds[1].revents)
1416                         continue; /* no */
1417
1418                 {
1419                         int len;
1420
1421                         /* A packet is ready, read it */
1422                         if (listen_mode == LISTEN_KERNEL)
1423                                 len = d6_recv_kernel_packet(&srv6_buf, &packet, sockfd);
1424                         else
1425                                 len = d6_recv_raw_packet(&srv6_buf, &packet, sockfd);
1426                         if (len == -1) {
1427                                 /* Error is severe, reopen socket */
1428                                 bb_error_msg("read error: %s, reopening socket", strerror(errno));
1429                                 sleep(discover_timeout); /* 3 seconds by default */
1430                                 change_listen_mode(listen_mode); /* just close and reopen */
1431                         }
1432                         /* If this packet will turn out to be unrelated/bogus,
1433                          * we will go back and wait for next one.
1434                          * Be sure timeout is properly decreased. */
1435                         already_waited_sec += (unsigned)monotonic_sec() - timestamp_before_wait;
1436                         if (len < 0)
1437                                 continue;
1438                         packet_end = (uint8_t*)&packet + len;
1439                 }
1440
1441                 if ((packet.d6_xid32 & htonl(0x00ffffff)) != xid) {
1442                         log1("xid %x (our is %x), ignoring packet",
1443                                 (unsigned)(packet.d6_xid32 & htonl(0x00ffffff)), (unsigned)xid);
1444                         continue;
1445                 }
1446
1447                 switch (state) {
1448                 case INIT_SELECTING:
1449                         if (packet.d6_msg_type == D6_MSG_ADVERTISE)
1450                                 goto type_is_ok;
1451                         /* DHCPv6 has "Rapid Commit", when instead of Advertise,
1452                          * server sends Reply right away.
1453                          * Fall through to check for this case.
1454                          */
1455                 case REQUESTING:
1456                 case RENEWING:
1457                 case RENEW_REQUESTED:
1458                 case REBINDING:
1459                         if (packet.d6_msg_type == D6_MSG_REPLY) {
1460                                 uint32_t lease_seconds;
1461                                 struct d6_option *option, *iaaddr;
1462  type_is_ok:
1463                                 option = d6_find_option(packet.d6_options, packet_end, D6_OPT_STATUS_CODE);
1464                                 if (option && (option->data[0] | option->data[1]) != 0) {
1465                                         /* return to init state */
1466                                         bb_error_msg("received DHCP NAK (%u)", option->data[4]);
1467                                         d6_run_script(&packet, "nak");
1468                                         if (state != REQUESTING)
1469                                                 d6_run_script(NULL, "deconfig");
1470                                         change_listen_mode(LISTEN_RAW);
1471                                         sleep(3); /* avoid excessive network traffic */
1472                                         state = INIT_SELECTING;
1473                                         client_config.first_secs = 0; /* make secs field count from 0 */
1474                                         requested_ipv6 = NULL;
1475                                         timeout = 0;
1476                                         packet_num = 0;
1477                                         already_waited_sec = 0;
1478                                         continue;
1479                                 }
1480                                 option = d6_copy_option(packet.d6_options, packet_end, D6_OPT_SERVERID);
1481                                 if (!option) {
1482                                         bb_error_msg("no server ID, ignoring packet");
1483                                         continue;
1484                                         /* still selecting - this server looks bad */
1485                                 }
1486 //Note: we do not bother comparing server IDs in Advertise and Reply msgs.
1487 //server_id variable is used solely for creation of proper server_id option
1488 //in outgoing packets. (why DHCPv6 even introduced it is a mystery).
1489                                 free(client6_data.server_id);
1490                                 client6_data.server_id = option;
1491                                 if (packet.d6_msg_type == D6_MSG_ADVERTISE) {
1492                                         /* enter requesting state */
1493                                         state = REQUESTING;
1494                                         timeout = 0;
1495                                         packet_num = 0;
1496                                         already_waited_sec = 0;
1497                                         continue;
1498                                 }
1499                                 /* It's a D6_MSG_REPLY */
1500 /*
1501  * RFC 3315 18.1.8. Receipt of Reply Messages
1502  *
1503  * Upon the receipt of a valid Reply message in response to a Solicit
1504  * (with a Rapid Commit option), Request, Confirm, Renew, Rebind or
1505  * Information-request message, the client extracts the configuration
1506  * information contained in the Reply.  The client MAY choose to report
1507  * any status code or message from the status code option in the Reply
1508  * message.
1509  *
1510  * The client SHOULD perform duplicate address detection [17] on each of
1511  * the addresses in any IAs it receives in the Reply message before
1512  * using that address for traffic.  If any of the addresses are found to
1513  * be in use on the link, the client sends a Decline message to the
1514  * server as described in section 18.1.7.
1515  *
1516  * If the Reply was received in response to a Solicit (with a Rapid
1517  * Commit option), Request, Renew or Rebind message, the client updates
1518  * the information it has recorded about IAs from the IA options
1519  * contained in the Reply message:
1520  *
1521  * -  Record T1 and T2 times.
1522  *
1523  * -  Add any new addresses in the IA option to the IA as recorded by
1524  *    the client.
1525  *
1526  * -  Update lifetimes for any addresses in the IA option that the
1527  *    client already has recorded in the IA.
1528  *
1529  * -  Discard any addresses from the IA, as recorded by the client, that
1530  *    have a valid lifetime of 0 in the IA Address option.
1531  *
1532  * -  Leave unchanged any information about addresses the client has
1533  *    recorded in the IA but that were not included in the IA from the
1534  *    server.
1535  *
1536  * Management of the specific configuration information is detailed in
1537  * the definition of each option in section 22.
1538  *
1539  * If the client receives a Reply message with a Status Code containing
1540  * UnspecFail, the server is indicating that it was unable to process
1541  * the message due to an unspecified failure condition.  If the client
1542  * retransmits the original message to the same server to retry the
1543  * desired operation, the client MUST limit the rate at which it
1544  * retransmits the message and limit the duration of the time during
1545  * which it retransmits the message.
1546  *
1547  * When the client receives a Reply message with a Status Code option
1548  * with the value UseMulticast, the client records the receipt of the
1549  * message and sends subsequent messages to the server through the
1550  * interface on which the message was received using multicast.  The
1551  * client resends the original message using multicast.
1552  *
1553  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1554  * |          OPTION_IA_NA         |          option-len           |
1555  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1556  * |                        IAID (4 octets)                        |
1557  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1558  * |                              T1                               |
1559  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1560  * |                              T2                               |
1561  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1562  * |                                                               |
1563  * .                         IA_NA-options                         .
1564  * .                                                               .
1565  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1566  *
1567  *
1568  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1569  * |          OPTION_IAADDR        |          option-len           |
1570  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1571  * |                                                               |
1572  * |                         IPv6 address                          |
1573  * |                                                               |
1574  * |                                                               |
1575  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1576  * |                      preferred-lifetime                       |
1577  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1578  * |                        valid-lifetime                         |
1579  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1580  * .                                                               .
1581  * .                        IAaddr-options                         .
1582  * .                                                               .
1583  * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
1584  */
1585                                 free(client6_data.ia_na);
1586                                 client6_data.ia_na = d6_copy_option(packet.d6_options, packet_end, D6_OPT_IA_NA);
1587                                 if (!client6_data.ia_na) {
1588                                         bb_error_msg("no %s option, ignoring packet", "IA_NA");
1589                                         continue;
1590                                 }
1591                                 if (client6_data.ia_na->len < (4 + 4 + 4) + (2 + 2 + 16 + 4 + 4)) {
1592                                         bb_error_msg("IA_NA option is too short:%d bytes", client6_data.ia_na->len);
1593                                         continue;
1594                                 }
1595                                 iaaddr = d6_find_option(client6_data.ia_na->data + 4 + 4 + 4,
1596                                                 client6_data.ia_na->data + client6_data.ia_na->len,
1597                                                 D6_OPT_IAADDR
1598                                 );
1599                                 if (!iaaddr) {
1600                                         bb_error_msg("no %s option, ignoring packet", "IAADDR");
1601                                         continue;
1602                                 }
1603                                 if (iaaddr->len < (16 + 4 + 4)) {
1604                                         bb_error_msg("IAADDR option is too short:%d bytes", iaaddr->len);
1605                                         continue;
1606                                 }
1607                                 /* Note: the address is sufficiently aligned for cast:
1608                                  * we _copied_ IA-NA, and copy is always well-aligned.
1609                                  */
1610                                 requested_ipv6 = (struct in6_addr*) iaaddr->data;
1611                                 move_from_unaligned32(lease_seconds, iaaddr->data + 16 + 4);
1612                                 lease_seconds = ntohl(lease_seconds);
1613                                 /* paranoia: must not be too small and not prone to overflows */
1614                                 if (lease_seconds < 0x10)
1615                                         lease_seconds = 0x10;
1616 /// TODO: check for 0 lease time?
1617                                 if (lease_seconds > 0x7fffffff / 1000)
1618                                         lease_seconds = 0x7fffffff / 1000;
1619                                 /* enter bound state */
1620                                 timeout = lease_seconds / 2;
1621                                 bb_error_msg("lease obtained, lease time %u",
1622                                         /*inet_ntoa(temp_addr),*/ (unsigned)lease_seconds);
1623                                 d6_run_script(&packet, state == REQUESTING ? "bound" : "renew");
1624
1625                                 state = BOUND;
1626                                 change_listen_mode(LISTEN_NONE);
1627                                 if (opt & OPT_q) { /* quit after lease */
1628                                         goto ret0;
1629                                 }
1630                                 /* future renew failures should not exit (JM) */
1631                                 opt &= ~OPT_n;
1632 #if BB_MMU /* NOMMU case backgrounded earlier */
1633                                 if (!(opt & OPT_f)) {
1634                                         client_background();
1635                                         /* do not background again! */
1636                                         opt = ((opt & ~OPT_b) | OPT_f);
1637                                 }
1638 #endif
1639                                 already_waited_sec = 0;
1640                                 continue; /* back to main loop */
1641                         }
1642                         continue;
1643                 /* case BOUND: - ignore all packets */
1644                 /* case RELEASED: - ignore all packets */
1645                 }
1646                 /* back to main loop */
1647         } /* for (;;) - main loop ends */
1648
1649  ret0:
1650         if (opt & OPT_R) /* release on quit */
1651                 perform_d6_release(&srv6_buf, requested_ipv6);
1652         retval = 0;
1653  ret:
1654         /*if (client_config.pidfile) - remove_pidfile has its own check */
1655                 remove_pidfile(client_config.pidfile);
1656         return retval;
1657 }