options.c

   1 /*
   2  * firewall3 - 3rd OpenWrt UCI firewall implementation
   3  *
   4  *   Copyright (C) 2013-2014 Jo-Philipp Wich <jo@mein.io>
   5  *
   6  * Permission to use, copy, modify, and/or distribute this software for any
   7  * purpose with or without fee is hereby granted, provided that the above
   8  * copyright notice and this permission notice appear in all copies.
   9  *
  10  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  13  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  14  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  15  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  16  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  17  */
  18
  19 #include "options.h"
  20 #include "ubus.h"
  21
  22
  23 static bool
  24 put_value(void *ptr, void *val, int elem_size, bool is_list)
  25 {
  26         void *copy;
  27
  28         if (is_list)
  29         {
  30                 copy = malloc(elem_size);
  31
  32                 if (!copy)
  33                         return false;
  34
  35                 memcpy(copy, val, elem_size);
  36                 list_add_tail((struct list_head *)copy, (struct list_head *)ptr);
  37                 return true;
  38         }
  39
  40         memcpy(ptr, val, elem_size);
  41         return false;
  42 }
  43
  44 static bool
  45 parse_enum(void *ptr, const char *val, const char **values, int min, int max)
  46 {
  47         int i, l = strlen(val);
  48
  49         if (l > 0)
  50         {
  51                 for (i = 0; i <= (max - min); i++)
  52                 {
  53                         if (!strncasecmp(val, values[i], l))
  54                         {
  55                                 *((int *)ptr) = min + i;
  56                                 return true;
  57                         }
  58                 }
  59         }
  60
  61         return false;
  62 }
  63
  64
  65 const char *fw3_flag_names[__FW3_FLAG_MAX] = {
  66         "filter",
  67         "nat",
  68         "mangle",
  69         "raw",
  70
  71         "IPv4",
  72         "IPv6",
  73
  74         "ACCEPT",
  75         "REJECT",
  76         "DROP",
  77         "NOTRACK",
  78         "HELPER",
  79         "MARK",
  80         "DNAT",
  81         "SNAT",
  82         "MASQUERADE",
  83
  84         "ACCEPT",
  85         "REJECT",
  86         "DROP",
  87 };
  88
  89 const char *fw3_reject_code_names[__FW3_REJECT_CODE_MAX] = {
  90         "tcp-reset",
  91         "port-unreach",
  92         "adm-prohibited",
  93 };
  94
  95 const char *fw3_limit_units[__FW3_LIMIT_UNIT_MAX] = {
  96         "second",
  97         "minute",
  98         "hour",
  99         "day",
 100 };
 101
 102 const char *fw3_ipset_method_names[__FW3_IPSET_METHOD_MAX] = {
 103         "(bug)",
 104         "bitmap",
 105         "hash",
 106         "list",
 107 };
 108
 109 const char *fw3_ipset_type_names[__FW3_IPSET_TYPE_MAX] = {
 110         "(bug)",
 111         "ip",
 112         "port",
 113         "mac",
 114         "net",
 115         "set",
 116 };
 117
 118 static const char *weekdays[] = {
 119         "monday",
 120         "tuesday",
 121         "wednesday",
 122         "thursday",
 123         "friday",
 124         "saturday",
 125         "sunday",
 126 };
 127
 128 static const char *include_types[] = {
 129         "script",
 130         "restore",
 131 };
 132
 133 static const char *reflection_sources[] = {
 134         "internal",
 135         "external",
 136 };
 137
 138
 139 bool
 140 fw3_parse_bool(void *ptr, const char *val, bool is_list)
 141 {
 142         if (!strcmp(val, "true") || !strcmp(val, "yes") || !strcmp(val, "1"))
 143                 *((bool *)ptr) = true;
 144         else
 145                 *((bool *)ptr) = false;
 146
 147         return true;
 148 }
 149
 150 bool
 151 fw3_parse_int(void *ptr, const char *val, bool is_list)
 152 {
 153         char *e;
 154         int n = strtol(val, &e, 0);
 155
 156         if (e == val || *e)
 157                 return false;
 158
 159         *((int *)ptr) = n;
 160
 161         return true;
 162 }
 163
 164 bool
 165 fw3_parse_string(void *ptr, const char *val, bool is_list)
 166 {
 167         *((char **)ptr) = (char *)val;
 168         return true;
 169 }
 170
 171 bool
 172 fw3_parse_target(void *ptr, const char *val, bool is_list)
 173 {
 174         return parse_enum(ptr, val, &fw3_flag_names[FW3_FLAG_ACCEPT],
 175                           FW3_FLAG_ACCEPT, FW3_FLAG_MASQUERADE);
 176 }
 177
 178 bool
 179 fw3_parse_reject_code(void *ptr, const char *val, bool is_list)
 180 {
 181         return parse_enum(ptr, val, &fw3_reject_code_names[FW3_REJECT_CODE_TCP_RESET],
 182                           FW3_REJECT_CODE_TCP_RESET, FW3_REJECT_CODE_ADM_PROHIBITED);
 183 }
 184
 185 bool
 186 fw3_parse_limit(void *ptr, const char *val, bool is_list)
 187 {
 188         struct fw3_limit *limit = ptr;
 189         enum fw3_limit_unit u = FW3_LIMIT_UNIT_SECOND;
 190         char *e;
 191         int n;
 192
 193         if (*val == '!')
 194         {
 195                 limit->invert = true;
 196                 while (isspace(*++val));
 197         }
 198
 199         n = strtol(val, &e, 10);
 200
 201         if (errno == ERANGE || errno == EINVAL)
 202                 return false;
 203
 204         if (*e && *e++ != '/')
 205                 return false;
 206
 207         if (!strlen(e))
 208                 return false;
 209
 210         if (!parse_enum(&u, e, fw3_limit_units, 0, FW3_LIMIT_UNIT_DAY))
 211                 return false;
 212
 213         limit->rate = n;
 214         limit->unit = u;
 215
 216         return true;
 217 }
 218
 219 bool
 220 fw3_parse_device(void *ptr, const char *val, bool is_list)
 221 {
 222         char *p;
 223         struct fw3_device dev = { };
 224
 225         if (*val == '*')
 226         {
 227                 dev.set = true;
 228                 dev.any = true;
 229                 put_value(ptr, &dev, sizeof(dev), is_list);
 230                 return true;
 231         }
 232
 233         if (*val == '!')
 234         {
 235                 dev.invert = true;
 236                 while (isspace(*++val));
 237         }
 238
 239         if ((p = strchr(val, '@')) != NULL)
 240         {
 241                 *p++ = 0;
 242                 snprintf(dev.network, sizeof(dev.network), "%s", p);
 243         }
 244
 245         if (*val)
 246                 snprintf(dev.name, sizeof(dev.name), "%s", val);
 247         else
 248                 return false;
 249
 250         dev.set = true;
 251         put_value(ptr, &dev, sizeof(dev), is_list);
 252         return true;
 253 }
 254
 255 bool
 256 fw3_parse_address(void *ptr, const char *val, bool is_list)
 257 {
 258         struct fw3_address addr = { };
 259         struct in_addr v4;
 260         struct in6_addr v6;
 261         char *p = NULL, *m = NULL, *s, *e;
 262         int bits = -1;
 263
 264         if (*val == '!')
 265         {
 266                 addr.invert = true;
 267                 while (isspace(*++val));
 268         }
 269
 270         s = strdup(val);
 271
 272         if (!s)
 273                 return false;
 274
 275         if ((m = strchr(s, '/')) != NULL)
 276                 *m++ = 0;
 277         else if ((p = strchr(s, '-')) != NULL)
 278                 *p++ = 0;
 279
 280         if (inet_pton(AF_INET6, s, &v6))
 281         {
 282                 addr.family = FW3_FAMILY_V6;
 283                 addr.address.v6 = v6;
 284
 285                 if (m)
 286                 {
 287                         if (!inet_pton(AF_INET6, m, &v6))
 288                         {
 289                                 bits = strtol(m, &e, 10);
 290
 291                                 if ((*e != 0) || !fw3_bitlen2netmask(addr.family, bits, &v6))
 292                                         goto fail;
 293                         }
 294
 295                         addr.mask.v6 = v6;
 296                 }
 297                 else if (p)
 298                 {
 299                         if (!inet_pton(AF_INET6, p, &addr.mask.v6))
 300                                 goto fail;
 301
 302                         addr.range = true;
 303                 }
 304                 else
 305                 {
 306                         memset(addr.mask.v6.s6_addr, 0xFF, 16);
 307                 }
 308         }
 309         else if (inet_pton(AF_INET, s, &v4))
 310         {
 311                 addr.family = FW3_FAMILY_V4;
 312                 addr.address.v4 = v4;
 313
 314                 if (m)
 315                 {
 316                         if (!inet_pton(AF_INET, m, &v4))
 317                         {
 318                                 bits = strtol(m, &e, 10);
 319
 320                                 if ((*e != 0) || !fw3_bitlen2netmask(addr.family, bits, &v4))
 321                                         goto fail;
 322                         }
 323
 324                         addr.mask.v4 = v4;
 325                 }
 326                 else if (p)
 327                 {
 328                         if (!inet_pton(AF_INET, p, &addr.mask.v4))
 329                                 goto fail;
 330
 331                         addr.range = true;
 332                 }
 333                 else
 334                 {
 335                         addr.mask.v4.s_addr = 0xFFFFFFFF;
 336                 }
 337         }
 338         else
 339         {
 340                 goto fail;
 341         }
 342
 343         free(s);
 344         addr.set = true;
 345         put_value(ptr, &addr, sizeof(addr), is_list);
 346         return true;
 347
 348 fail:
 349         free(s);
 350         return false;
 351 }
 352
 353 bool
 354 fw3_parse_network(void *ptr, const char *val, bool is_list)
 355 {
 356         struct fw3_device dev = { };
 357         struct fw3_address *addr, *tmp;
 358         LIST_HEAD(addr_list);
 359         int n_addrs;
 360
 361         if (!fw3_parse_address(ptr, val, is_list))
 362         {
 363                 if (!fw3_parse_device(&dev, val, false))
 364                         return false;
 365
 366                 n_addrs = fw3_ubus_address(&addr_list, dev.name);
 367
 368                 list_for_each_entry(addr, &addr_list, list)
 369                 {
 370                         addr->invert = dev.invert;
 371                         addr->resolved = true;
 372                 }
 373
 374                 /* add an empty address member with .set = false, .resolved = true
 375                  * to signal resolving failure to callers */
 376                 if (n_addrs == 0)
 377                 {
 378                         tmp = fw3_alloc(sizeof(*tmp));
 379                         tmp->resolved = true;
 380
 381                         list_add_tail(&tmp->list, &addr_list);
 382                 }
 383
 384                 if (is_list)
 385                 {
 386                         list_splice_tail(&addr_list, ptr);
 387                 }
 388                 else if (!list_empty(&addr_list))
 389                 {
 390                         memcpy(ptr, list_first_entry(&addr_list, typeof(*addr), list),
 391                                sizeof(*addr));
 392
 393                         list_for_each_entry_safe(addr, tmp, &addr_list, list)
 394                                 free(addr);
 395                 }
 396         }
 397
 398         return true;
 399 }
 400
 401 bool
 402 fw3_parse_mac(void *ptr, const char *val, bool is_list)
 403 {
 404         struct fw3_mac addr = { };
 405         struct ether_addr *mac;
 406
 407         if (*val == '!')
 408         {
 409                 addr.invert = true;
 410                 while (isspace(*++val));
 411         }
 412
 413         if ((mac = ether_aton(val)) != NULL)
 414         {
 415                 addr.mac = *mac;
 416                 addr.set = true;
 417
 418                 put_value(ptr, &addr, sizeof(addr), is_list);
 419                 return true;
 420         }
 421
 422         return false;
 423 }
 424
 425 bool
 426 fw3_parse_port(void *ptr, const char *val, bool is_list)
 427 {
 428         struct fw3_port range = { };
 429         uint16_t n;
 430         uint16_t m;
 431         char *p;
 432
 433         if (*val == '!')
 434         {
 435                 range.invert = true;
 436                 while (isspace(*++val));
 437         }
 438
 439         n = strtoul(val, &p, 10);
 440
 441         if (errno == ERANGE || errno == EINVAL)
 442                 return false;
 443
 444         if (*p && *p != '-' && *p != ':')
 445                 return false;
 446
 447         if (*p)
 448         {
 449                 m = strtoul(++p, NULL, 10);
 450
 451                 if (errno == ERANGE || errno == EINVAL || m < n)
 452                         return false;
 453
 454                 range.port_min = n;
 455                 range.port_max = m;
 456         }
 457         else
 458         {
 459                 range.port_min = n;
 460                 range.port_max = n;
 461         }
 462
 463         range.set = true;
 464         put_value(ptr, &range, sizeof(range), is_list);
 465         return true;
 466 }
 467
 468 bool
 469 fw3_parse_family(void *ptr, const char *val, bool is_list)
 470 {
 471         if (!strcmp(val, "any") || !strcmp(val, "*"))
 472                 *((enum fw3_family *)ptr) = FW3_FAMILY_ANY;
 473         else if (!strcmp(val, "inet") || strrchr(val, '4'))
 474                 *((enum fw3_family *)ptr) = FW3_FAMILY_V4;
 475         else if (!strcmp(val, "inet6") || strrchr(val, '6'))
 476                 *((enum fw3_family *)ptr) = FW3_FAMILY_V6;
 477         else
 478                 return false;
 479
 480         return true;
 481 }
 482
 483 bool
 484 fw3_parse_icmptype(void *ptr, const char *val, bool is_list)
 485 {
 486         struct fw3_icmptype icmp = { };
 487         bool v4 = false;
 488         bool v6 = false;
 489         char *p;
 490         int i;
 491
 492         for (i = 0; i < ARRAY_SIZE(fw3_icmptype_list_v4); i++)
 493         {
 494                 if (!strcmp(val, fw3_icmptype_list_v4[i].name))
 495                 {
 496                         icmp.type     = fw3_icmptype_list_v4[i].type;
 497                         icmp.code_min = fw3_icmptype_list_v4[i].code_min;
 498                         icmp.code_max = fw3_icmptype_list_v4[i].code_max;
 499
 500                         v4 = true;
 501                         break;
 502                 }
 503         }
 504
 505         for (i = 0; i < ARRAY_SIZE(fw3_icmptype_list_v6); i++)
 506         {
 507                 if (!strcmp(val, fw3_icmptype_list_v6[i].name))
 508                 {
 509                         icmp.type6     = fw3_icmptype_list_v6[i].type;
 510                         icmp.code6_min = fw3_icmptype_list_v6[i].code_min;
 511                         icmp.code6_max = fw3_icmptype_list_v6[i].code_max;
 512
 513                         v6 = true;
 514                         break;
 515                 }
 516         }
 517
 518         if (!v4 && !v6)
 519         {
 520                 i = strtoul(val, &p, 10);
 521
 522                 if ((p == val) || (*p != '/' && *p != 0) || (i > 0xFF))
 523                         return false;
 524
 525                 icmp.type = i;
 526
 527                 if (*p == '/')
 528                 {
 529                         val = ++p;
 530                         i = strtoul(val, &p, 10);
 531
 532                         if ((p == val) || (*p != 0) || (i > 0xFF))
 533                                 return false;
 534
 535                         icmp.code_min = i;
 536                         icmp.code_max = i;
 537                 }
 538                 else
 539                 {
 540                         icmp.code_min = 0;
 541                         icmp.code_max = 0xFF;
 542                 }
 543
 544                 icmp.type6     = icmp.type;
 545                 icmp.code6_min = icmp.code_max;
 546                 icmp.code6_max = icmp.code_max;
 547
 548                 v4 = true;
 549                 v6 = true;
 550         }
 551
 552         icmp.family = (v4 && v6) ? FW3_FAMILY_ANY
 553                                  : (v6 ? FW3_FAMILY_V6 : FW3_FAMILY_V4);
 554
 555         put_value(ptr, &icmp, sizeof(icmp), is_list);
 556         return true;
 557 }
 558
 559 bool
 560 fw3_parse_protocol(void *ptr, const char *val, bool is_list)
 561 {
 562         struct fw3_protocol proto = { };
 563         struct protoent *ent;
 564         char *e;
 565
 566         if (*val == '!')
 567         {
 568                 proto.invert = true;
 569                 while (isspace(*++val));
 570         }
 571
 572         if (!strcmp(val, "all") || !strcmp(val, "any") || !strcmp(val, "*"))
 573         {
 574                 proto.any = true;
 575                 put_value(ptr, &proto, sizeof(proto), is_list);
 576                 return true;
 577         }
 578         else if (!strcmp(val, "icmpv6"))
 579         {
 580                 val = "ipv6-icmp";
 581         }
 582         else if (!strcmp(val, "tcpudp"))
 583         {
 584                 proto.protocol = 6;
 585                 if (put_value(ptr, &proto, sizeof(proto), is_list))
 586                 {
 587                         proto.protocol = 17;
 588                         put_value(ptr, &proto, sizeof(proto), is_list);
 589                 }
 590
 591                 return true;
 592         }
 593
 594         ent = getprotobyname(val);
 595
 596         if (ent)
 597         {
 598                 proto.protocol = ent->p_proto;
 599                 put_value(ptr, &proto, sizeof(proto), is_list);
 600                 return true;
 601         }
 602
 603         proto.protocol = strtoul(val, &e, 10);
 604
 605         if ((e == val) || (*e != 0))
 606                 return false;
 607
 608         put_value(ptr, &proto, sizeof(proto), is_list);
 609         return true;
 610 }
 611
 612 bool
 613 fw3_parse_ipset_method(void *ptr, const char *val, bool is_list)
 614 {
 615         return parse_enum(ptr, val, &fw3_ipset_method_names[FW3_IPSET_METHOD_BITMAP],
 616                           FW3_IPSET_METHOD_BITMAP, FW3_IPSET_METHOD_LIST);
 617 }
 618
 619 bool
 620 fw3_parse_ipset_datatype(void *ptr, const char *val, bool is_list)
 621 {
 622         struct fw3_ipset_datatype type = { };
 623
 624         type.dir = "src";
 625
 626         if (!strncmp(val, "dest_", 5))
 627         {
 628                 val += 5;
 629                 type.dir = "dst";
 630         }
 631         else if (!strncmp(val, "dst_", 4))
 632         {
 633                 val += 4;
 634                 type.dir = "dst";
 635         }
 636         else if (!strncmp(val, "src_", 4))
 637         {
 638                 val += 4;
 639                 type.dir = "src";
 640         }
 641
 642         if (parse_enum(&type.type, val, &fw3_ipset_type_names[FW3_IPSET_TYPE_IP],
 643                        FW3_IPSET_TYPE_IP, FW3_IPSET_TYPE_SET))
 644         {
 645                 put_value(ptr, &type, sizeof(type), is_list);
 646                 return true;
 647         }
 648
 649         return false;
 650 }
 651
 652 bool
 653 fw3_parse_date(void *ptr, const char *val, bool is_list)
 654 {
 655         unsigned int year = 1970, mon = 1, day = 1, hour = 0, min = 0, sec = 0;
 656         struct tm tm = { 0 };
 657         time_t ts;
 658         char *p;
 659
 660         year = strtoul(val, &p, 10);
 661         if ((*p != '-' && *p) || year < 1970 || year > 2038)
 662                 goto fail;
 663         else if (!*p)
 664                 goto ret;
 665
 666         mon = strtoul(++p, &p, 10);
 667         if ((*p != '-' && *p) || mon > 12)
 668                 goto fail;
 669         else if (!*p)
 670                 goto ret;
 671
 672         day = strtoul(++p, &p, 10);
 673         if ((*p != 'T' && *p) || day > 31)
 674                 goto fail;
 675         else if (!*p)
 676                 goto ret;
 677
 678         hour = strtoul(++p, &p, 10);
 679         if ((*p != ':' && *p) || hour > 23)
 680                 goto fail;
 681         else if (!*p)
 682                 goto ret;
 683
 684         min = strtoul(++p, &p, 10);
 685         if ((*p != ':' && *p) || min > 59)
 686                 goto fail;
 687         else if (!*p)
 688                 goto ret;
 689
 690         sec = strtoul(++p, &p, 10);
 691         if (*p || sec > 59)
 692                 goto fail;
 693
 694 ret:
 695         tm.tm_year = year - 1900;
 696         tm.tm_mon  = mon - 1;
 697         tm.tm_mday = day;
 698         tm.tm_hour = hour;
 699         tm.tm_min  = min;
 700         tm.tm_sec  = sec;
 701
 702         ts = mktime(&tm) - timezone;
 703
 704         if (ts >= 0)
 705         {
 706                 gmtime_r(&ts, (struct tm *)ptr);
 707                 return true;
 708         }
 709
 710 fail:
 711         return false;
 712 }
 713
 714 bool
 715 fw3_parse_time(void *ptr, const char *val, bool is_list)
 716 {
 717         unsigned int hour = 0, min = 0, sec = 0;
 718         char *p;
 719
 720         hour = strtoul(val, &p, 10);
 721         if (*p != ':' || hour > 23)
 722                 goto fail;
 723
 724         min = strtoul(++p, &p, 10);
 725         if ((*p != ':' && *p) || min > 59)
 726                 goto fail;
 727         else if (!*p)
 728                 goto ret;
 729
 730         sec = strtoul(++p, &p, 10);
 731         if (*p || sec > 59)
 732                 goto fail;
 733
 734 ret:
 735         *((int *)ptr) = 60 * 60 * hour + 60 * min + sec;
 736         return true;
 737
 738 fail:
 739         return false;
 740 }
 741
 742 bool
 743 fw3_parse_weekdays(void *ptr, const char *val, bool is_list)
 744 {
 745         unsigned int w = 0;
 746         char *p, *s;
 747
 748         if (*val == '!')
 749         {
 750                 fw3_setbit(*(uint8_t *)ptr, 0);
 751                 while (isspace(*++val));
 752         }
 753
 754         if (!(s = strdup(val)))
 755                 return false;
 756
 757         for (p = strtok(s, " \t"); p; p = strtok(NULL, " \t"))
 758         {
 759                 if (!parse_enum(&w, p, weekdays, 1, 7))
 760                 {
 761                         w = strtoul(p, &p, 10);
 762
 763                         if (*p || w < 1 || w > 7)
 764                         {
 765                                 free(s);
 766                                 return false;
 767                         }
 768                 }
 769
 770                 fw3_setbit(*(uint8_t *)ptr, w);
 771         }
 772
 773         free(s);
 774         return true;
 775 }
 776
 777 bool
 778 fw3_parse_monthdays(void *ptr, const char *val, bool is_list)
 779 {
 780         unsigned int d;
 781         char *p, *s;
 782
 783         if (*val == '!')
 784         {
 785                 fw3_setbit(*(uint32_t *)ptr, 0);
 786                 while (isspace(*++val));
 787         }
 788
 789         if (!(s = strdup(val)))
 790                 return false;
 791
 792         for (p = strtok(s, " \t"); p; p = strtok(NULL, " \t"))
 793         {
 794                 d = strtoul(p, &p, 10);
 795
 796                 if (*p || d < 1 || d > 31)
 797                 {
 798                         free(s);
 799                         return false;
 800                 }
 801
 802                 fw3_setbit(*(uint32_t *)ptr, d);
 803         }
 804
 805         free(s);
 806         return true;
 807 }
 808
 809 bool
 810 fw3_parse_include_type(void *ptr, const char *val, bool is_list)
 811 {
 812         return parse_enum(ptr, val, include_types,
 813                           FW3_INC_TYPE_SCRIPT, FW3_INC_TYPE_RESTORE);
 814 }
 815
 816 bool
 817 fw3_parse_reflection_source(void *ptr, const char *val, bool is_list)
 818 {
 819         return parse_enum(ptr, val, reflection_sources,
 820                           FW3_REFLECTION_INTERNAL, FW3_REFLECTION_EXTERNAL);
 821 }
 822
 823 bool
 824 fw3_parse_mark(void *ptr, const char *val, bool is_list)
 825 {
 826         uint32_t n;
 827         char *s, *e;
 828         struct fw3_mark *m = ptr;
 829
 830         if (*val == '!')
 831         {
 832                 m->invert = true;
 833                 while (isspace(*++val));
 834         }
 835
 836         if ((s = strchr(val, '/')) != NULL)
 837                 *s++ = 0;
 838
 839         n = strtoul(val, &e, 0);
 840
 841         if (e == val || *e)
 842                 return false;
 843
 844         m->mark = n;
 845         m->mask = 0xFFFFFFFF;
 846
 847         if (s)
 848         {
 849                 n = strtoul(s, &e, 0);
 850
 851                 if (e == s || *e)
 852                         return false;
 853
 854                 m->mask = n;
 855         }
 856
 857         m->set = true;
 858         return true;
 859 }
 860
 861 bool
 862 fw3_parse_setmatch(void *ptr, const char *val, bool is_list)
 863 {
 864         struct fw3_setmatch *m = ptr;
 865         char *p, *s;
 866         int i;
 867
 868         if (*val == '!')
 869         {
 870                 m->invert = true;
 871                 while (isspace(*++val));
 872         }
 873
 874         if (!(s = strdup(val)))
 875                 return false;
 876
 877         if (!(p = strtok(s, " \t")))
 878         {
 879                 free(s);
 880                 return false;
 881         }
 882
 883         strncpy(m->name, p, sizeof(m->name));
 884
 885         for (i = 0, p = strtok(NULL, " \t,");
 886              i < 3 && p != NULL;
 887              i++, p = strtok(NULL, " \t,"))
 888         {
 889                 if (!strncmp(p, "dest", 4) || !strncmp(p, "dst", 3))
 890                         m->dir[i] = "dst";
 891                 else if (!strncmp(p, "src", 3))
 892                         m->dir[i] = "src";
 893         }
 894
 895         free(s);
 896
 897         m->set = true;
 898         return true;
 899 }
 900
 901 bool
 902 fw3_parse_direction(void *ptr, const char *val, bool is_list)
 903 {
 904         bool *is_out = ptr;
 905         bool valid = true;
 906
 907         if (!strcmp(val, "in") || !strcmp(val, "ingress"))
 908                 *is_out = false;
 909         else if (!strcmp(val, "out") || !strcmp(val, "egress"))
 910                 *is_out = true;
 911         else
 912                 valid = false;
 913
 914         return valid;
 915 }
 916
 917 bool
 918 fw3_parse_cthelper(void *ptr, const char *val, bool is_list)
 919 {
 920         struct fw3_cthelpermatch m = { };
 921
 922         if (*val == '!')
 923         {
 924                 m.invert = true;
 925                 while (isspace(*++val));
 926         }
 927
 928         if (*val)
 929         {
 930                 m.set = true;
 931                 strncpy(m.name, val, sizeof(m.name) - 1);
 932                 put_value(ptr, &m, sizeof(m), is_list);
 933                 return true;
 934         }
 935
 936         return false;
 937 }
 938
 939 bool
 940 fw3_parse_setentry(void *ptr, const char *val, bool is_list)
 941 {
 942         struct fw3_setentry e = { };
 943
 944         e.value = val;
 945         put_value(ptr, &e, sizeof(e), is_list);
 946
 947         return true;
 948 }
 949
 950
 951 bool
 952 fw3_parse_options(void *s, const struct fw3_option *opts,
 953                   struct uci_section *section)
 954 {
 955         char *p, *v;
 956         bool known, inv;
 957         struct uci_element *e, *l;
 958         struct uci_option *o;
 959         const struct fw3_option *opt;
 960         struct list_head *dest;
 961         bool valid = true;
 962
 963         uci_foreach_element(&section->options, e)
 964         {
 965                 o = uci_to_option(e);
 966                 known = false;
 967
 968                 for (opt = opts; opt->name; opt++)
 969                 {
 970                         if (!opt->parse)
 971                                 continue;
 972
 973                         if (strcmp(opt->name, e->name))
 974                                 continue;
 975
 976                         if (o->type == UCI_TYPE_LIST)
 977                         {
 978                                 if (!opt->elem_size)
 979                                 {
 980                                         warn_elem(e, "must not be a list");
 981                                         valid = false;
 982                                 }
 983                                 else
 984                                 {
 985                                         dest = (struct list_head *)((char *)s + opt->offset);
 986
 987                                         uci_foreach_element(&o->v.list, l)
 988                                         {
 989                                                 if (!l->name)
 990                                                         continue;
 991
 992                                                 if (!opt->parse(dest, l->name, true))
 993                                                 {
 994                                                         warn_elem(e, "has invalid value '%s'", l->name);
 995                                                         valid = false;
 996                                                         continue;
 997                                                 }
 998                                         }
 999                                 }
1000                         }
1001                         else
1002                         {
1003                                 v = o->v.string;
1004
1005                                 if (!v)
1006                                         continue;
1007
1008                                 if (!opt->elem_size)
1009                                 {
1010                                         if (!opt->parse((char *)s + opt->offset, o->v.string, false))
1011                                         {
1012                                                 warn_elem(e, "has invalid value '%s'", o->v.string);
1013                                                 valid = false;
1014                                         }
1015                                 }
1016                                 else
1017                                 {
1018                                         inv = false;
1019                                         dest = (struct list_head *)((char *)s + opt->offset);
1020
1021                                         for (p = strtok(v, " \t"); p != NULL; p = strtok(NULL, " \t"))
1022                                         {
1023                                                 /* If we encounter a sole "!" token, assume that it
1024                                                  * is meant to be part of the next token, so silently
1025                                                  * skip it and remember the state... */
1026                                                 if (!strcmp(p, "!"))
1027                                                 {
1028                                                         inv = true;
1029                                                         continue;
1030                                                 }
1031
1032                                                 /* The previous token was a sole "!", rewind pointer
1033                                                  * back by one byte to precede the value with an
1034                                                  * exclamation mark which effectively turns
1035                                                  * ("!", "foo") into ("!foo") */
1036                                                 if (inv)
1037                                                 {
1038                                                         *--p = '!';
1039                                                         inv = false;
1040                                                 }
1041
1042                                                 if (!opt->parse(dest, p, true))
1043                                                 {
1044                                                         warn_elem(e, "has invalid value '%s'", p);
1045                                                         valid = false;
1046                                                         continue;
1047                                                 }
1048                                         }
1049
1050                                         /* The last token was a sole "!" without any subsequent
1051                                          * text, so pass it to the option parser as-is. */
1052                                         if (inv && !opt->parse(dest, "!", true))
1053                                         {
1054                                                 warn_elem(e, "has invalid value '%s'", p);
1055                                                 valid = false;
1056                                         }
1057                                 }
1058                         }
1059
1060                         known = true;
1061                         break;
1062                 }
1063
1064                 if (!known)
1065                         warn_elem(e, "is unknown");
1066         }
1067
1068         return valid;
1069 }
1070
1071
1072 bool
1073 fw3_parse_blob_options(void *s, const struct fw3_option *opts,
1074                        struct blob_attr *a, const char *name)
1075 {
1076         char *p, *v, buf[16];
1077         bool known;
1078         unsigned rem, erem;
1079         struct blob_attr *o, *e;
1080         const struct fw3_option *opt;
1081         struct list_head *dest;
1082         bool valid = true;
1083
1084         blobmsg_for_each_attr(o, a, rem)
1085         {
1086                 known = false;
1087
1088                 for (opt = opts; opt->name; opt++)
1089                 {
1090                         if (!opt->parse)
1091                                 continue;
1092
1093                         if (strcmp(opt->name, blobmsg_name(o)))
1094                                 continue;
1095
1096                         if (blobmsg_type(o) == BLOBMSG_TYPE_ARRAY)
1097                         {
1098                                 if (!opt->elem_size)
1099                                 {
1100                                         fprintf(stderr, "%s: '%s' must not be a list\n",
1101                                                 name, opt->name);
1102
1103                                         valid = false;
1104                                 }
1105                                 else
1106                                 {
1107                                         dest = (struct list_head *)((char *)s + opt->offset);
1108
1109                                         blobmsg_for_each_attr(e, o, erem)
1110                                         {
1111                                                 if (blobmsg_type(e) == BLOBMSG_TYPE_INT32) {
1112                                                         snprintf(buf, sizeof(buf), "%d", blobmsg_get_u32(e));
1113                                                         v = buf;
1114                                                 } else {
1115                                                         v = blobmsg_get_string(e);
1116                                                 }
1117
1118                                                 if (!opt->parse(dest, v, true))
1119                                                 {
1120                                                         fprintf(stderr, "%s: '%s' has invalid value '%s'\n",
1121                                                                 name, opt->name, v);
1122                                                         valid = false;
1123                                                         continue;
1124                                                 }
1125                                         }
1126                                 }
1127                         }
1128                         else
1129                         {
1130                                 if (blobmsg_type(o) == BLOBMSG_TYPE_INT32) {
1131                                         snprintf(buf, sizeof(buf), "%d", blobmsg_get_u32(o));
1132                                         v = buf;
1133                                 } else {
1134                                         v = blobmsg_get_string(o);
1135                                 }
1136
1137                                 if (!v)
1138                                         continue;
1139
1140                                 if (!opt->elem_size)
1141                                 {
1142                                         if (!opt->parse((char *)s + opt->offset, v, false))
1143                                         {
1144                                                 fprintf(stderr, "%s: '%s' has invalid value '%s'\n",
1145                                                         name, opt->name, v);
1146                                                 valid = false;
1147                                         }
1148                                 }
1149                                 else
1150                                 {
1151                                         dest = (struct list_head *)((char *)s + opt->offset);
1152
1153                                         for (p = strtok(v, " \t"); p != NULL; p = strtok(NULL, " \t"))
1154                                         {
1155                                                 if (!opt->parse(dest, p, true))
1156                                                 {
1157                                                         fprintf(stderr, "%s: '%s' has invalid value '%s'\n",
1158                                                                 name, opt->name, p);
1159                                                         valid = false;
1160                                                         continue;
1161                                                 }
1162                                         }
1163                                 }
1164                         }
1165
1166                         known = true;
1167                         break;
1168                 }
1169
1170                 if (!known && strcmp(blobmsg_name(o), "type"))
1171                         fprintf(stderr, "%s: '%s' is unknown\n", name, blobmsg_name(o));
1172         }
1173
1174         return valid;
1175 }
1176
1177
1178 const char *
1179 fw3_address_to_string(struct fw3_address *address, bool allow_invert, bool as_cidr)
1180 {
1181         char *p, ip[INET6_ADDRSTRLEN];
1182         static char buf[INET6_ADDRSTRLEN * 2 + 2];
1183
1184         p = buf;
1185
1186         if (address->invert && allow_invert)
1187                 p += sprintf(p, "!");
1188
1189         inet_ntop(address->family == FW3_FAMILY_V4 ? AF_INET : AF_INET6,
1190                   &address->address.v4, ip, sizeof(ip));
1191
1192         p += sprintf(p, "%s", ip);
1193
1194         if (address->range)
1195         {
1196                 inet_ntop(address->family == FW3_FAMILY_V4 ? AF_INET : AF_INET6,
1197                           &address->mask.v4, ip, sizeof(ip));
1198
1199                 p += sprintf(p, "-%s", ip);
1200         }
1201         else if (!as_cidr)
1202         {
1203                 inet_ntop(address->family == FW3_FAMILY_V4 ? AF_INET : AF_INET6,
1204                           &address->mask.v4, ip, sizeof(ip));
1205
1206                 p += sprintf(p, "/%s", ip);
1207         }
1208         else
1209         {
1210                 p += sprintf(p, "/%u", fw3_netmask2bitlen(address->family,
1211                                                           &address->mask.v6));
1212         }
1213
1214         return buf;
1215 }