sbin/ipfw/main.c

   1 /*-
   2  * Copyright (c) 2002-2003,2010 Luigi Rizzo
   3  * Copyright (c) 1996 Alex Nash, Paul Traina, Poul-Henning Kamp
   4  * Copyright (c) 1994 Ugen J.S.Antsilevich
   5  *
   6  * Idea and grammar partially left from:
   7  * Copyright (c) 1993 Daniel Boulet
   8  *
   9  * Redistribution and use in source forms, with and without modification,
  10  * are permitted provided that this entire comment appears intact.
  11  *
  12  * Redistribution in binary form may occur without any restrictions.
  13  * Obviously, it would be nice if you gave credit where credit is due
  14  * but requiring it would be too onerous.
  15  *
  16  * This software is provided ``AS IS'' without any warranties of any kind.
  17  *
  18  * Command line interface for IP firewall facility
  19  *
  20  * $FreeBSD$
  21  */
  22
  23 #include <sys/wait.h>
  24 #include <ctype.h>
  25 #include <err.h>
  26 #include <errno.h>
  27 #include <signal.h>
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <string.h>
  31 #include <sysexits.h>
  32 #include <unistd.h>
  33 #include <libgen.h>
  34
  35 #include "ipfw2.h"
  36
  37 static void
  38 help(void)
  39 {
  40         if (is_ipfw()) {
  41                 fprintf(stderr,
  42 "ipfw syntax summary (but please do read the ipfw(8) manpage):\n\n"
  43 "\tipfw [-abcdefhnNqStTv] <command>\n\n"
  44 "where <command> is one of the following:\n\n"
  45 "add [num] [set N] [prob x] RULE-BODY\n"
  46 "{pipe|queue} N config PIPE-BODY\n"
  47 "[pipe|queue] {zero|delete|show} [N{,N}]\n"
  48 "nat N config {ip IPADDR|if IFNAME|log|deny_in|same_ports|unreg_only|unreg_cgn|\n"
  49 "               reset|reverse|proxy_only|redirect_addr linkspec|\n"
  50 "               redirect_port linkspec|redirect_proto linkspec|\n"
  51 "               port_range lower-upper}\n"
  52 "set [disable N... enable N...] | move [rule] X to Y | swap X Y | show\n"
  53 "set N {show|list|zero|resetlog|delete} [N{,N}] | flush\n"
  54 "table N {add ip[/bits] [value] | delete ip[/bits] | flush | list}\n"
  55 "table all {flush | list}\n"
  56 "\n"
  57 "RULE-BODY:     check-state [PARAMS] | ACTION [PARAMS] ADDR [OPTION_LIST]\n"
  58 "ACTION:        check-state | allow | count | deny | unreach{,6} CODE |\n"
  59 "               skipto N | {divert|tee} PORT | forward ADDR |\n"
  60 "               pipe N | queue N | nat N | setfib FIB | reass\n"
  61 "PARAMS:        [log [logamount LOGLIMIT]] [altq QUEUE_NAME]\n"
  62 "ADDR:          [ MAC dst src ether_type ] \n"
  63 "               [ ip from IPADDR [ PORT ] to IPADDR [ PORTLIST ] ]\n"
  64 "               [ ipv6|ip6 from IP6ADDR [ PORT ] to IP6ADDR [ PORTLIST ] ]\n"
  65 "IPADDR:        [not] { any | me | ip/bits{x,y,z} | table(t[,v]) | IPLIST }\n"
  66 "IP6ADDR:       [not] { any | me | me6 | ip6/bits | IP6LIST }\n"
  67 "IP6LIST:       { ip6 | ip6/bits }[,IP6LIST]\n"
  68 "IPLIST:        { ip | ip/bits | ip:mask }[,IPLIST]\n"
  69 "OPTION_LIST:   OPTION [OPTION_LIST]\n"
  70 "OPTION:        bridged | diverted | diverted-loopback | diverted-output |\n"
  71 "       {dst-ip|src-ip} IPADDR | {dst-ip6|src-ip6|dst-ipv6|src-ipv6} IP6ADDR |\n"
  72 "       {dst-port|src-port} LIST |\n"
  73 "       estab | frag | {gid|uid} N | icmptypes LIST | in | out | ipid LIST |\n"
  74 "       iplen LIST | ipoptions SPEC | ipprecedence | ipsec | iptos SPEC |\n"
  75 "       ipttl LIST | ipversion VER | keep-state | layer2 | limit ... |\n"
  76 "       icmp6types LIST | ext6hdr LIST | flow-id N[,N] | fib FIB |\n"
  77 "       mac ... | mac-type LIST | proto LIST | {recv|xmit|via} {IF|IPADDR} |\n"
  78 "       setup | {tcpack|tcpseq|tcpwin} NN | tcpflags SPEC | tcpoptions SPEC |\n"
  79 "       tcpdatalen LIST | verrevpath | versrcreach | antispoof\n"
  80 );
  81         } else {
  82                 fprintf(stderr,
  83 "dnctl syntax summary (but please do read the dnctl(8) manpage):\n\n"
  84 "\tdnctl [-hnsv] <command>\n\n"
  85 "where <command> is one of the following:\n\n"
  86 "[pipe|queue|sched] N config PIPE-BODY\n"
  87 "[pipe|queue|sched] {delete|list|show} [N{,N}]\n"
  88 "\n"
  89 );
  90         }
  91
  92         exit(0);
  93 }
  94
  95 /*
  96  * Called with the arguments, including program name because getopt
  97  * wants it to be present.
  98  * Returns 0 if successful, 1 if empty command, errx() in case of errors.
  99  * First thing we do is process parameters creating an argv[] array
 100  * which includes the program name and a NULL entry at the end.
 101  * If we are called with a single string, we split it on whitespace.
 102  * Also, arguments with a trailing ',' are joined to the next one.
 103  * The pointers (av[]) and data are in a single chunk of memory.
 104  * av[0] points to the original program name, all other entries
 105  * point into the allocated chunk.
 106  */
 107 static int
 108 ipfw_main(int oldac, char **oldav)
 109 {
 110         int ch, ac;
 111         const char *errstr;
 112         char **av, **save_av;
 113         int do_acct = 0;                /* Show packet/byte count */
 114         int try_next = 0;               /* set if pipe cmd not found */
 115         int av_size;                    /* compute the av size */
 116         char *av_p;                     /* used to build the av list */
 117
 118 #define WHITESP         " \t\f\v\n\r"
 119         if (oldac < 2)
 120                 return 1;       /* need at least one argument */
 121
 122         if (oldac == 2) {
 123                 /*
 124                  * If we are called with one argument, try to split it into
 125                  * words for subsequent parsing. Spaces after a ',' are
 126                  * removed by copying the string in-place.
 127                  */
 128                 char *arg = oldav[1];   /* The string is the first arg. */
 129                 int l = strlen(arg);
 130                 int copy = 0;           /* 1 if we need to copy, 0 otherwise */
 131                 int i, j;
 132
 133                 for (i = j = 0; i < l; i++) {
 134                         if (arg[i] == '#')      /* comment marker */
 135                                 break;
 136                         if (copy) {
 137                                 arg[j++] = arg[i];
 138                                 copy = !strchr("," WHITESP, arg[i]);
 139                         } else {
 140                                 copy = !strchr(WHITESP, arg[i]);
 141                                 if (copy)
 142                                         arg[j++] = arg[i];
 143                         }
 144                 }
 145                 if (!copy && j > 0)     /* last char was a 'blank', remove it */
 146                         j--;
 147                 l = j;                  /* the new argument length */
 148                 arg[j++] = '\0';
 149                 if (l == 0)             /* empty string! */
 150                         return 1;
 151
 152                 /*
 153                  * First, count number of arguments. Because of the previous
 154                  * processing, this is just the number of blanks plus 1.
 155                  */
 156                 for (i = 0, ac = 1; i < l; i++)
 157                         if (strchr(WHITESP, arg[i]) != NULL)
 158                                 ac++;
 159
 160                 /*
 161                  * Allocate the argument list structure as a single block
 162                  * of memory, containing pointers and the argument
 163                  * strings. We include one entry for the program name
 164                  * because getopt expects it, and a NULL at the end
 165                  * to simplify further parsing.
 166                  */
 167                 ac++;           /* add 1 for the program name */
 168                 av_size = (ac+1) * sizeof(char *) + l + 1;
 169                 av = safe_calloc(av_size, 1);
 170
 171                 /*
 172                  * Init the argument pointer to the end of the array
 173                  * and copy arguments from arg[] to av[]. For each one,
 174                  * j is the initial character, i is the one past the end.
 175                  */
 176                 av_p = (char *)&av[ac+1];
 177                 for (ac = 1, i = j = 0; i < l; i++) {
 178                         if (strchr(WHITESP, arg[i]) != NULL || i == l-1) {
 179                                 if (i == l-1)
 180                                         i++;
 181                                 bcopy(arg+j, av_p, i-j);
 182                                 av[ac] = av_p;
 183                                 av_p += i-j;    /* the length of the string */
 184                                 *av_p++ = '\0';
 185                                 ac++;
 186                                 j = i + 1;
 187                         }
 188                 }
 189         } else {
 190                 /*
 191                  * If an argument ends with ',' join with the next one.
 192                  */
 193                 int first, i, l=0;
 194
 195                 /*
 196                  * Allocate the argument list structure as a single block
 197                  * of memory, containing both pointers and the argument
 198                  * strings. We include some space for the program name
 199                  * because getopt expects it.
 200                  * We add an extra pointer to the end of the array,
 201                  * to make simpler further parsing.
 202                  */
 203                 for (i=0; i<oldac; i++)
 204                         l += strlen(oldav[i]);
 205
 206                 av_size = (oldac+1) * sizeof(char *) + l + oldac;
 207                 av = safe_calloc(av_size, 1);
 208
 209                 /*
 210                  * Init the argument pointer to the end of the array
 211                  * and copy arguments from arg[] to av[]
 212                  */
 213                 av_p = (char *)&av[oldac+1];
 214                 for (first = i = ac = 1, l = 0; i < oldac; i++) {
 215                         char *arg = oldav[i];
 216                         int k = strlen(arg);
 217
 218                         l += k;
 219                         if (arg[k-1] != ',' || i == oldac-1) {
 220                                 /* Time to copy. */
 221                                 av[ac] = av_p;
 222                                 for (l=0; first <= i; first++) {
 223                                         strcat(av_p, oldav[first]);
 224                                         av_p += strlen(oldav[first]);
 225                                 }
 226                                 *av_p++ = '\0';
 227                                 ac++;
 228                                 l = 0;
 229                                 first = i+1;
 230                         }
 231                 }
 232         }
 233
 234         /*
 235          * set the progname pointer to the original string
 236          * and terminate the array with null
 237          */
 238         av[0] = oldav[0];
 239         av[ac] = NULL;
 240
 241         /* Set the force flag for non-interactive processes */
 242         if (!g_co.do_force)
 243                 g_co.do_force = !isatty(STDIN_FILENO);
 244
 245 #ifdef EMULATE_SYSCTL /* sysctl emulation */
 246         if (is_ipfw() && ac >= 2 &&
 247             !strcmp(av[1], "sysctl")) {
 248                 char *s;
 249                 int i;
 250
 251                 if (ac != 3) {
 252                         printf( "sysctl emulation usage:\n"
 253                                 "       ipfw sysctl name[=value]\n"
 254                                 "       ipfw sysctl -a\n");
 255                         return 0;
 256                 }
 257                 s = strchr(av[2], '=');
 258                 if (s == NULL) {
 259                         s = !strcmp(av[2], "-a") ? NULL : av[2];
 260                         sysctlbyname(s, NULL, NULL, NULL, 0);
 261                 } else {        /* ipfw sysctl x.y.z=value */
 262                         /* assume an INT value, will extend later */
 263                         if (s[1] == '\0') {
 264                                 printf("ipfw sysctl: missing value\n\n");
 265                                 return 0;
 266                         }
 267                         *s = '\0';
 268                         i = strtol(s+1, NULL, 0);
 269                         sysctlbyname(av[2], NULL, NULL, &i, sizeof(int));
 270                 }
 271                 return 0;
 272         }
 273 #endif
 274
 275         /* Save arguments for final freeing of memory. */
 276         save_av = av;
 277
 278         optind = optreset = 1;  /* restart getopt() */
 279         if (is_ipfw()) {
 280                 while ((ch = getopt(ac, av, "abcdDefhinNp:qs:STtvx")) != -1)
 281                         switch (ch) {
 282                         case 'a':
 283                                 do_acct = 1;
 284                                 break;
 285
 286                         case 'b':
 287                                 g_co.comment_only = 1;
 288                                 g_co.do_compact = 1;
 289                                 break;
 290
 291                         case 'c':
 292                                 g_co.do_compact = 1;
 293                                 break;
 294
 295                         case 'd':
 296                                 g_co.do_dynamic = 1;
 297                                 break;
 298
 299                         case 'D':
 300                                 g_co.do_dynamic = 2;
 301                                 break;
 302
 303                         case 'e':
 304                                 /* nop for compatibility */
 305                                 break;
 306
 307                         case 'f':
 308                                 g_co.do_force = 1;
 309                                 break;
 310
 311                         case 'h': /* help */
 312                                 free(save_av);
 313                                 help();
 314                                 break;  /* NOTREACHED */
 315
 316                         case 'i':
 317                                 g_co.do_value_as_ip = 1;
 318                                 break;
 319
 320                         case 'n':
 321                                 g_co.test_only = 1;
 322                                 break;
 323
 324                         case 'N':
 325                                 g_co.do_resolv = 1;
 326                                 break;
 327
 328                         case 'p':
 329                                 errx(EX_USAGE, "An absolute pathname must be used "
 330                                     "with -p option.");
 331                                 /* NOTREACHED */
 332
 333                         case 'q':
 334                                 g_co.do_quiet = 1;
 335                                 break;
 336
 337                         case 's': /* sort */
 338                                 g_co.do_sort = atoi(optarg);
 339                                 break;
 340
 341                         case 'S':
 342                                 g_co.show_sets = 1;
 343                                 break;
 344
 345                         case 't':
 346                                 g_co.do_time = TIMESTAMP_STRING;
 347                                 break;
 348
 349                         case 'T':
 350                                 g_co.do_time = TIMESTAMP_NUMERIC;
 351                                 break;
 352
 353                         case 'v': /* verbose */
 354                                 g_co.verbose = 1;
 355                                 break;
 356
 357                         case 'x': /* debug output */
 358                                 g_co.debug_only = 1;
 359                                 break;
 360
 361                         default:
 362                                 free(save_av);
 363                                 return 1;
 364                         }
 365         } else {
 366                 while ((ch = getopt(ac, av, "hns:v")) != -1)
 367                         switch (ch) {
 368
 369                         case 'h': /* help */
 370                                 free(save_av);
 371                                 help();
 372                                 break;  /* NOTREACHED */
 373
 374                         case 'n':
 375                                 g_co.test_only = 1;
 376                                 break;
 377
 378                         case 's': /* sort */
 379                                 g_co.do_sort = atoi(optarg);
 380                                 break;
 381
 382                         case 'v': /* verbose */
 383                                 g_co.verbose = 1;
 384                                 break;
 385
 386                         default:
 387                                 free(save_av);
 388                                 return 1;
 389                         }
 390
 391         }
 392
 393         ac -= optind;
 394         av += optind;
 395         NEED1("bad arguments, for usage summary ``ipfw''");
 396
 397         /*
 398          * An undocumented behaviour of ipfw1 was to allow rule numbers first,
 399          * e.g. "100 add allow ..." instead of "add 100 allow ...".
 400          * In case, swap first and second argument to get the normal form.
 401          */
 402         if (ac > 1 && isdigit(*av[0])) {
 403                 char *p = av[0];
 404
 405                 av[0] = av[1];
 406                 av[1] = p;
 407         }
 408
 409         /*
 410          * Optional: pipe, queue or nat.
 411          */
 412         g_co.do_nat = 0;
 413         g_co.do_pipe = 0;
 414         g_co.use_set = 0;
 415         if (is_ipfw() && !strncmp(*av, "nat", strlen(*av)))
 416                 g_co.do_nat = 1;
 417         else if (!strncmp(*av, "pipe", strlen(*av)))
 418                 g_co.do_pipe = 1;
 419         else if (_substrcmp(*av, "queue") == 0)
 420                 g_co.do_pipe = 2;
 421         else if (_substrcmp(*av, "flowset") == 0)
 422                 g_co.do_pipe = 2;
 423         else if (_substrcmp(*av, "sched") == 0)
 424                 g_co.do_pipe = 3;
 425         else if (is_ipfw() && !strncmp(*av, "set", strlen(*av))) {
 426                 if (ac > 1 && isdigit(av[1][0])) {
 427                         g_co.use_set = strtonum(av[1], 0, resvd_set_number,
 428                                         &errstr);
 429                         if (errstr)
 430                                 errx(EX_DATAERR,
 431                                     "invalid set number %s\n", av[1]);
 432                         ac -= 2; av += 2; g_co.use_set++;
 433                 }
 434         }
 435
 436         if (g_co.do_pipe || g_co.do_nat) {
 437                 ac--;
 438                 av++;
 439         }
 440         NEED1("missing command");
 441
 442         /*
 443          * For pipes, queues and nats we normally say 'nat|pipe NN config'
 444          * but the code is easier to parse as 'nat|pipe config NN'
 445          * so we swap the two arguments.
 446          */
 447         if ((g_co.do_pipe || g_co.do_nat) && ac > 1 && isdigit(*av[0])) {
 448                 char *p = av[0];
 449
 450                 av[0] = av[1];
 451                 av[1] = p;
 452         }
 453
 454         if (! is_ipfw() && g_co.do_pipe == 0) {
 455                 help();
 456         }
 457
 458         if (g_co.use_set == 0) {
 459                 if (is_ipfw() && _substrcmp(*av, "add") == 0)
 460                         ipfw_add(av);
 461                 else if (g_co.do_nat && _substrcmp(*av, "show") == 0)
 462                         ipfw_show_nat(ac, av);
 463                 else if (g_co.do_pipe && _substrcmp(*av, "config") == 0)
 464                         ipfw_config_pipe(ac, av);
 465                 else if (g_co.do_nat && _substrcmp(*av, "config") == 0)
 466                         ipfw_config_nat(ac, av);
 467                 else if (is_ipfw() && _substrcmp(*av, "set") == 0)
 468                         ipfw_sets_handler(av);
 469                 else if (is_ipfw() && _substrcmp(*av, "table") == 0)
 470                         ipfw_table_handler(ac, av);
 471                 else if (is_ipfw() && _substrcmp(*av, "enable") == 0)
 472                         ipfw_sysctl_handler(av, 1);
 473                 else if (is_ipfw() && _substrcmp(*av, "disable") == 0)
 474                         ipfw_sysctl_handler(av, 0);
 475                 else
 476                         try_next = 1;
 477         }
 478
 479         if (g_co.use_set || try_next) {
 480                 if (_substrcmp(*av, "delete") == 0)
 481                         ipfw_delete(av);
 482                 else if (is_ipfw() && !strncmp(*av, "nat64clat", strlen(*av)))
 483                         ipfw_nat64clat_handler(ac, av);
 484                 else if (is_ipfw() && !strncmp(*av, "nat64stl", strlen(*av)))
 485                         ipfw_nat64stl_handler(ac, av);
 486                 else if (is_ipfw() && !strncmp(*av, "nat64lsn", strlen(*av)))
 487                         ipfw_nat64lsn_handler(ac, av);
 488                 else if (is_ipfw() && !strncmp(*av, "nptv6", strlen(*av)))
 489                         ipfw_nptv6_handler(ac, av);
 490                 else if (_substrcmp(*av, "flush") == 0)
 491                         ipfw_flush(g_co.do_force);
 492                 else if (is_ipfw() && _substrcmp(*av, "zero") == 0)
 493                         ipfw_zero(ac, av, 0 /* IP_FW_ZERO */);
 494                 else if (is_ipfw() && _substrcmp(*av, "resetlog") == 0)
 495                         ipfw_zero(ac, av, 1 /* IP_FW_RESETLOG */);
 496                 else if (_substrcmp(*av, "print") == 0 ||
 497                          _substrcmp(*av, "list") == 0)
 498                         ipfw_list(ac, av, do_acct);
 499                 else if (_substrcmp(*av, "show") == 0)
 500                         ipfw_list(ac, av, 1 /* show counters */);
 501                 else if (is_ipfw() && _substrcmp(*av, "table") == 0)
 502                         ipfw_table_handler(ac, av);
 503                 else if (is_ipfw() && _substrcmp(*av, "internal") == 0)
 504                         ipfw_internal_handler(ac, av);
 505                 else
 506                         errx(EX_USAGE, "bad command `%s'", *av);
 507         }
 508
 509         /* Free memory allocated in the argument parsing. */
 510         free(save_av);
 511         return 0;
 512 }
 513
 514
 515 static void
 516 ipfw_readfile(int ac, char *av[])
 517 {
 518 #define MAX_ARGS        32
 519         char buf[4096];
 520         char *progname = av[0];         /* original program name */
 521         const char *cmd = NULL;         /* preprocessor name, if any */
 522         const char *filename = av[ac-1]; /* file to read */
 523         int     c, lineno=0;
 524         FILE    *f = NULL;
 525         pid_t   preproc = 0;
 526
 527         if (is_ipfw()) {
 528                 while ((c = getopt(ac, av, "cfNnp:qS")) != -1) {
 529                         switch(c) {
 530                         case 'c':
 531                                 g_co.do_compact = 1;
 532                                 break;
 533
 534                         case 'f':
 535                                 g_co.do_force = 1;
 536                                 break;
 537
 538                         case 'N':
 539                                 g_co.do_resolv = 1;
 540                                 break;
 541
 542                         case 'n':
 543                                 g_co.test_only = 1;
 544                                 break;
 545
 546                         case 'p':
 547                                 /*
 548                                  * ipfw -p cmd [args] filename
 549                                  *
 550                                  * We are done with getopt(). All arguments
 551                                  * except the filename go to the preprocessor,
 552                                  * so we need to do the following:
 553                                  * - check that a filename is actually present;
 554                                  * - advance av by optind-1 to skip arguments
 555                                  *   already processed;
 556                                  * - decrease ac by optind, to remove the args
 557                                  *   already processed and the final filename;
 558                                  * - set the last entry in av[] to NULL so
 559                                  *   popen() can detect the end of the array;
 560                                  * - set optind=ac to let getopt() terminate.
 561                                  */
 562                                 if (optind == ac)
 563                                         errx(EX_USAGE, "no filename argument");
 564                                 cmd = optarg;
 565                                 av[ac-1] = NULL;
 566                                 av += optind - 1;
 567                                 ac -= optind;
 568                                 optind = ac;
 569                                 break;
 570
 571                         case 'q':
 572                                 g_co.do_quiet = 1;
 573                                 break;
 574
 575                         case 'S':
 576                                 g_co.show_sets = 1;
 577                                 break;
 578
 579                         default:
 580                                 errx(EX_USAGE, "bad arguments, for usage"
 581                                      " summary ``ipfw''");
 582                         }
 583                 }
 584         } else {
 585                 while ((c = getopt(ac, av, "nq")) != -1) {
 586                         switch(c) {
 587                         case 'n':
 588                                 g_co.test_only = 1;
 589                                 break;
 590
 591                         case 'q':
 592                                 g_co.do_quiet = 1;
 593                                 break;
 594
 595                         default:
 596                                 errx(EX_USAGE, "bad arguments, for usage"
 597                                      " summary ``dnctl''");
 598                         }
 599                 }
 600         }
 601
 602         if (cmd == NULL && ac != optind + 1)
 603                 errx(EX_USAGE, "extraneous filename arguments %s", av[ac-1]);
 604
 605         if ((f = fopen(filename, "r")) == NULL)
 606                 err(EX_UNAVAILABLE, "fopen: %s", filename);
 607
 608         if (cmd != NULL) {                      /* pipe through preprocessor */
 609                 int pipedes[2];
 610
 611                 if (pipe(pipedes) == -1)
 612                         err(EX_OSERR, "cannot create pipe");
 613
 614                 preproc = fork();
 615                 if (preproc == -1)
 616                         err(EX_OSERR, "cannot fork");
 617
 618                 if (preproc == 0) {
 619                         /*
 620                          * Child, will run the preprocessor with the
 621                          * file on stdin and the pipe on stdout.
 622                          */
 623                         if (dup2(fileno(f), 0) == -1
 624                             || dup2(pipedes[1], 1) == -1)
 625                                 err(EX_OSERR, "dup2()");
 626                         fclose(f);
 627                         close(pipedes[1]);
 628                         close(pipedes[0]);
 629                         execvp(cmd, av);
 630                         err(EX_OSERR, "execvp(%s) failed", cmd);
 631                 } else { /* parent, will reopen f as the pipe */
 632                         fclose(f);
 633                         close(pipedes[1]);
 634                         if ((f = fdopen(pipedes[0], "r")) == NULL) {
 635                                 int savederrno = errno;
 636
 637                                 (void)kill(preproc, SIGTERM);
 638                                 errno = savederrno;
 639                                 err(EX_OSERR, "fdopen()");
 640                         }
 641                 }
 642         }
 643
 644         while (fgets(buf, sizeof(buf), f)) {            /* read commands */
 645                 char linename[20];
 646                 char *args[2];
 647
 648                 lineno++;
 649                 snprintf(linename, sizeof(linename), "Line %d", lineno);
 650                 setprogname(linename); /* XXX */
 651                 args[0] = progname;
 652                 args[1] = buf;
 653                 ipfw_main(2, args);
 654         }
 655         fclose(f);
 656         if (cmd != NULL) {
 657                 int status;
 658
 659                 if (waitpid(preproc, &status, 0) == -1)
 660                         errx(EX_OSERR, "waitpid()");
 661                 if (WIFEXITED(status) && WEXITSTATUS(status) != EX_OK)
 662                         errx(EX_UNAVAILABLE,
 663                             "preprocessor exited with status %d",
 664                             WEXITSTATUS(status));
 665                 else if (WIFSIGNALED(status))
 666                         errx(EX_UNAVAILABLE,
 667                             "preprocessor exited with signal %d",
 668                             WTERMSIG(status));
 669         }
 670 }
 671
 672 int
 673 main(int ac, char *av[])
 674 {
 675 #if defined(_WIN32) && defined(TCC)
 676         {
 677                 WSADATA wsaData;
 678                 int ret=0;
 679                 unsigned short wVersionRequested = MAKEWORD(2, 2);
 680                 ret = WSAStartup(wVersionRequested, &wsaData);
 681                 if (ret != 0) {
 682                         /* Tell the user that we could not find a usable */
 683                         /* Winsock DLL.                           */
 684                         printf("WSAStartup failed with error: %d\n", ret);
 685                         return 1;
 686                 }
 687         }
 688 #endif
 689
 690         if (strcmp("dnctl", basename(av[0])) == 0)
 691                 g_co.prog = cmdline_prog_dnctl;
 692         else
 693                 g_co.prog = cmdline_prog_ipfw;
 694
 695         /*
 696          * If the last argument is an absolute pathname, interpret it
 697          * as a file to be preprocessed.
 698          */
 699
 700         if (ac > 1 && av[ac - 1][0] == '/') {
 701                 if (access(av[ac - 1], R_OK) == 0)
 702                         ipfw_readfile(ac, av);
 703                 else
 704                         err(EX_USAGE, "pathname: %s", av[ac - 1]);
 705         } else {
 706                 if (ipfw_main(ac, av)) {
 707                         errx(EX_USAGE,
 708                             "usage: %s [options]\n"
 709                             "do \"%s -h\" or \"man %s\" for details", av[0],
 710                             av[0], av[0]);
 711                 }
 712         }
 713         return EX_OK;
 714 }