]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - sbin/pfctl/pfctl_parser.c
MFV r322231:
[FreeBSD/FreeBSD.git] / sbin / pfctl / pfctl_parser.c
1 /*      $OpenBSD: pfctl_parser.c,v 1.240 2008/06/10 20:55:02 mcbride Exp $ */
2
3 /*-
4  * SPDX-License-Identifier: BSD-2-Clause
5  *
6  * Copyright (c) 2001 Daniel Hartmeier
7  * Copyright (c) 2002,2003 Henning Brauer
8  * All rights reserved.
9  *
10  * Redistribution and use in source and binary forms, with or without
11  * modification, are permitted provided that the following conditions
12  * are met:
13  *
14  *    - Redistributions of source code must retain the above copyright
15  *      notice, this list of conditions and the following disclaimer.
16  *    - Redistributions in binary form must reproduce the above
17  *      copyright notice, this list of conditions and the following
18  *      disclaimer in the documentation and/or other materials provided
19  *      with the distribution.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
22  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
23  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
24  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
25  * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
26  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
27  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
28  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
29  * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
31  * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
32  * POSSIBILITY OF SUCH DAMAGE.
33  *
34  */
35
36 #include <sys/cdefs.h>
37 __FBSDID("$FreeBSD$");
38
39 #include <sys/types.h>
40 #include <sys/ioctl.h>
41 #include <sys/socket.h>
42 #include <sys/param.h>
43 #include <sys/proc.h>
44 #include <net/if.h>
45 #include <netinet/in.h>
46 #include <netinet/in_systm.h>
47 #include <netinet/ip.h>
48 #include <netinet/ip_icmp.h>
49 #include <netinet/icmp6.h>
50 #include <net/pfvar.h>
51 #include <arpa/inet.h>
52
53 #include <stdio.h>
54 #include <stdlib.h>
55 #include <string.h>
56 #include <ctype.h>
57 #include <netdb.h>
58 #include <stdarg.h>
59 #include <errno.h>
60 #include <err.h>
61 #include <ifaddrs.h>
62 #include <unistd.h>
63
64 #include "pfctl_parser.h"
65 #include "pfctl.h"
66
67 void             print_op (u_int8_t, const char *, const char *);
68 void             print_port (u_int8_t, u_int16_t, u_int16_t, const char *, int);
69 void             print_ugid (u_int8_t, unsigned, unsigned, const char *, unsigned);
70 void             print_flags (u_int8_t);
71 void             print_fromto(struct pf_rule_addr *, pf_osfp_t,
72                     struct pf_rule_addr *, u_int8_t, u_int8_t, int, int);
73 int              ifa_skip_if(const char *filter, struct node_host *p);
74
75 struct node_host        *ifa_grouplookup(const char *, int);
76 struct node_host        *host_if(const char *, int);
77 struct node_host        *host_v4(const char *, int);
78 struct node_host        *host_v6(const char *, int);
79 struct node_host        *host_dns(const char *, int, int);
80
81 const char * const tcpflags = "FSRPAUEW";
82
83 static const struct icmptypeent icmp_type[] = {
84         { "echoreq",    ICMP_ECHO },
85         { "echorep",    ICMP_ECHOREPLY },
86         { "unreach",    ICMP_UNREACH },
87         { "squench",    ICMP_SOURCEQUENCH },
88         { "redir",      ICMP_REDIRECT },
89         { "althost",    ICMP_ALTHOSTADDR },
90         { "routeradv",  ICMP_ROUTERADVERT },
91         { "routersol",  ICMP_ROUTERSOLICIT },
92         { "timex",      ICMP_TIMXCEED },
93         { "paramprob",  ICMP_PARAMPROB },
94         { "timereq",    ICMP_TSTAMP },
95         { "timerep",    ICMP_TSTAMPREPLY },
96         { "inforeq",    ICMP_IREQ },
97         { "inforep",    ICMP_IREQREPLY },
98         { "maskreq",    ICMP_MASKREQ },
99         { "maskrep",    ICMP_MASKREPLY },
100         { "trace",      ICMP_TRACEROUTE },
101         { "dataconv",   ICMP_DATACONVERR },
102         { "mobredir",   ICMP_MOBILE_REDIRECT },
103         { "ipv6-where", ICMP_IPV6_WHEREAREYOU },
104         { "ipv6-here",  ICMP_IPV6_IAMHERE },
105         { "mobregreq",  ICMP_MOBILE_REGREQUEST },
106         { "mobregrep",  ICMP_MOBILE_REGREPLY },
107         { "skip",       ICMP_SKIP },
108         { "photuris",   ICMP_PHOTURIS }
109 };
110
111 static const struct icmptypeent icmp6_type[] = {
112         { "unreach",    ICMP6_DST_UNREACH },
113         { "toobig",     ICMP6_PACKET_TOO_BIG },
114         { "timex",      ICMP6_TIME_EXCEEDED },
115         { "paramprob",  ICMP6_PARAM_PROB },
116         { "echoreq",    ICMP6_ECHO_REQUEST },
117         { "echorep",    ICMP6_ECHO_REPLY },
118         { "groupqry",   ICMP6_MEMBERSHIP_QUERY },
119         { "listqry",    MLD_LISTENER_QUERY },
120         { "grouprep",   ICMP6_MEMBERSHIP_REPORT },
121         { "listenrep",  MLD_LISTENER_REPORT },
122         { "groupterm",  ICMP6_MEMBERSHIP_REDUCTION },
123         { "listendone", MLD_LISTENER_DONE },
124         { "routersol",  ND_ROUTER_SOLICIT },
125         { "routeradv",  ND_ROUTER_ADVERT },
126         { "neighbrsol", ND_NEIGHBOR_SOLICIT },
127         { "neighbradv", ND_NEIGHBOR_ADVERT },
128         { "redir",      ND_REDIRECT },
129         { "routrrenum", ICMP6_ROUTER_RENUMBERING },
130         { "wrureq",     ICMP6_WRUREQUEST },
131         { "wrurep",     ICMP6_WRUREPLY },
132         { "fqdnreq",    ICMP6_FQDN_QUERY },
133         { "fqdnrep",    ICMP6_FQDN_REPLY },
134         { "niqry",      ICMP6_NI_QUERY },
135         { "nirep",      ICMP6_NI_REPLY },
136         { "mtraceresp", MLD_MTRACE_RESP },
137         { "mtrace",     MLD_MTRACE }
138 };
139
140 static const struct icmpcodeent icmp_code[] = {
141         { "net-unr",            ICMP_UNREACH,   ICMP_UNREACH_NET },
142         { "host-unr",           ICMP_UNREACH,   ICMP_UNREACH_HOST },
143         { "proto-unr",          ICMP_UNREACH,   ICMP_UNREACH_PROTOCOL },
144         { "port-unr",           ICMP_UNREACH,   ICMP_UNREACH_PORT },
145         { "needfrag",           ICMP_UNREACH,   ICMP_UNREACH_NEEDFRAG },
146         { "srcfail",            ICMP_UNREACH,   ICMP_UNREACH_SRCFAIL },
147         { "net-unk",            ICMP_UNREACH,   ICMP_UNREACH_NET_UNKNOWN },
148         { "host-unk",           ICMP_UNREACH,   ICMP_UNREACH_HOST_UNKNOWN },
149         { "isolate",            ICMP_UNREACH,   ICMP_UNREACH_ISOLATED },
150         { "net-prohib",         ICMP_UNREACH,   ICMP_UNREACH_NET_PROHIB },
151         { "host-prohib",        ICMP_UNREACH,   ICMP_UNREACH_HOST_PROHIB },
152         { "net-tos",            ICMP_UNREACH,   ICMP_UNREACH_TOSNET },
153         { "host-tos",           ICMP_UNREACH,   ICMP_UNREACH_TOSHOST },
154         { "filter-prohib",      ICMP_UNREACH,   ICMP_UNREACH_FILTER_PROHIB },
155         { "host-preced",        ICMP_UNREACH,   ICMP_UNREACH_HOST_PRECEDENCE },
156         { "cutoff-preced",      ICMP_UNREACH,   ICMP_UNREACH_PRECEDENCE_CUTOFF },
157         { "redir-net",          ICMP_REDIRECT,  ICMP_REDIRECT_NET },
158         { "redir-host",         ICMP_REDIRECT,  ICMP_REDIRECT_HOST },
159         { "redir-tos-net",      ICMP_REDIRECT,  ICMP_REDIRECT_TOSNET },
160         { "redir-tos-host",     ICMP_REDIRECT,  ICMP_REDIRECT_TOSHOST },
161         { "normal-adv",         ICMP_ROUTERADVERT, ICMP_ROUTERADVERT_NORMAL },
162         { "common-adv",         ICMP_ROUTERADVERT, ICMP_ROUTERADVERT_NOROUTE_COMMON },
163         { "transit",            ICMP_TIMXCEED,  ICMP_TIMXCEED_INTRANS },
164         { "reassemb",           ICMP_TIMXCEED,  ICMP_TIMXCEED_REASS },
165         { "badhead",            ICMP_PARAMPROB, ICMP_PARAMPROB_ERRATPTR },
166         { "optmiss",            ICMP_PARAMPROB, ICMP_PARAMPROB_OPTABSENT },
167         { "badlen",             ICMP_PARAMPROB, ICMP_PARAMPROB_LENGTH },
168         { "unknown-ind",        ICMP_PHOTURIS,  ICMP_PHOTURIS_UNKNOWN_INDEX },
169         { "auth-fail",          ICMP_PHOTURIS,  ICMP_PHOTURIS_AUTH_FAILED },
170         { "decrypt-fail",       ICMP_PHOTURIS,  ICMP_PHOTURIS_DECRYPT_FAILED }
171 };
172
173 static const struct icmpcodeent icmp6_code[] = {
174         { "admin-unr", ICMP6_DST_UNREACH, ICMP6_DST_UNREACH_ADMIN },
175         { "noroute-unr", ICMP6_DST_UNREACH, ICMP6_DST_UNREACH_NOROUTE },
176         { "notnbr-unr", ICMP6_DST_UNREACH, ICMP6_DST_UNREACH_NOTNEIGHBOR },
177         { "beyond-unr", ICMP6_DST_UNREACH, ICMP6_DST_UNREACH_BEYONDSCOPE },
178         { "addr-unr", ICMP6_DST_UNREACH, ICMP6_DST_UNREACH_ADDR },
179         { "port-unr", ICMP6_DST_UNREACH, ICMP6_DST_UNREACH_NOPORT },
180         { "transit", ICMP6_TIME_EXCEEDED, ICMP6_TIME_EXCEED_TRANSIT },
181         { "reassemb", ICMP6_TIME_EXCEEDED, ICMP6_TIME_EXCEED_REASSEMBLY },
182         { "badhead", ICMP6_PARAM_PROB, ICMP6_PARAMPROB_HEADER },
183         { "nxthdr", ICMP6_PARAM_PROB, ICMP6_PARAMPROB_NEXTHEADER },
184         { "redironlink", ND_REDIRECT, ND_REDIRECT_ONLINK },
185         { "redirrouter", ND_REDIRECT, ND_REDIRECT_ROUTER }
186 };
187
188 const struct pf_timeout pf_timeouts[] = {
189         { "tcp.first",          PFTM_TCP_FIRST_PACKET },
190         { "tcp.opening",        PFTM_TCP_OPENING },
191         { "tcp.established",    PFTM_TCP_ESTABLISHED },
192         { "tcp.closing",        PFTM_TCP_CLOSING },
193         { "tcp.finwait",        PFTM_TCP_FIN_WAIT },
194         { "tcp.closed",         PFTM_TCP_CLOSED },
195         { "tcp.tsdiff",         PFTM_TS_DIFF },
196         { "udp.first",          PFTM_UDP_FIRST_PACKET },
197         { "udp.single",         PFTM_UDP_SINGLE },
198         { "udp.multiple",       PFTM_UDP_MULTIPLE },
199         { "icmp.first",         PFTM_ICMP_FIRST_PACKET },
200         { "icmp.error",         PFTM_ICMP_ERROR_REPLY },
201         { "other.first",        PFTM_OTHER_FIRST_PACKET },
202         { "other.single",       PFTM_OTHER_SINGLE },
203         { "other.multiple",     PFTM_OTHER_MULTIPLE },
204         { "frag",               PFTM_FRAG },
205         { "interval",           PFTM_INTERVAL },
206         { "adaptive.start",     PFTM_ADAPTIVE_START },
207         { "adaptive.end",       PFTM_ADAPTIVE_END },
208         { "src.track",          PFTM_SRC_NODE },
209         { NULL,                 0 }
210 };
211
212 const struct icmptypeent *
213 geticmptypebynumber(u_int8_t type, sa_family_t af)
214 {
215         unsigned int    i;
216
217         if (af != AF_INET6) {
218                 for (i=0; i < nitems(icmp_type); i++) {
219                         if (type == icmp_type[i].type)
220                                 return (&icmp_type[i]);
221                 }
222         } else {
223                 for (i=0; i < nitems(icmp6_type); i++) {
224                         if (type == icmp6_type[i].type)
225                                  return (&icmp6_type[i]);
226                 }
227         }
228         return (NULL);
229 }
230
231 const struct icmptypeent *
232 geticmptypebyname(char *w, sa_family_t af)
233 {
234         unsigned int    i;
235
236         if (af != AF_INET6) {
237                 for (i=0; i < nitems(icmp_type); i++) {
238                         if (!strcmp(w, icmp_type[i].name))
239                                 return (&icmp_type[i]);
240                 }
241         } else {
242                 for (i=0; i < nitems(icmp6_type); i++) {
243                         if (!strcmp(w, icmp6_type[i].name))
244                                 return (&icmp6_type[i]);
245                 }
246         }
247         return (NULL);
248 }
249
250 const struct icmpcodeent *
251 geticmpcodebynumber(u_int8_t type, u_int8_t code, sa_family_t af)
252 {
253         unsigned int    i;
254
255         if (af != AF_INET6) {
256                 for (i=0; i < nitems(icmp_code); i++) {
257                         if (type == icmp_code[i].type &&
258                             code == icmp_code[i].code)
259                                 return (&icmp_code[i]);
260                 }
261         } else {
262                 for (i=0; i < nitems(icmp6_code); i++) {
263                         if (type == icmp6_code[i].type &&
264                             code == icmp6_code[i].code)
265                                 return (&icmp6_code[i]);
266                 }
267         }
268         return (NULL);
269 }
270
271 const struct icmpcodeent *
272 geticmpcodebyname(u_long type, char *w, sa_family_t af)
273 {
274         unsigned int    i;
275
276         if (af != AF_INET6) {
277                 for (i=0; i < nitems(icmp_code); i++) {
278                         if (type == icmp_code[i].type &&
279                             !strcmp(w, icmp_code[i].name))
280                                 return (&icmp_code[i]);
281                 }
282         } else {
283                 for (i=0; i < nitems(icmp6_code); i++) {
284                         if (type == icmp6_code[i].type &&
285                             !strcmp(w, icmp6_code[i].name))
286                                 return (&icmp6_code[i]);
287                 }
288         }
289         return (NULL);
290 }
291
292 void
293 print_op(u_int8_t op, const char *a1, const char *a2)
294 {
295         if (op == PF_OP_IRG)
296                 printf(" %s >< %s", a1, a2);
297         else if (op == PF_OP_XRG)
298                 printf(" %s <> %s", a1, a2);
299         else if (op == PF_OP_EQ)
300                 printf(" = %s", a1);
301         else if (op == PF_OP_NE)
302                 printf(" != %s", a1);
303         else if (op == PF_OP_LT)
304                 printf(" < %s", a1);
305         else if (op == PF_OP_LE)
306                 printf(" <= %s", a1);
307         else if (op == PF_OP_GT)
308                 printf(" > %s", a1);
309         else if (op == PF_OP_GE)
310                 printf(" >= %s", a1);
311         else if (op == PF_OP_RRG)
312                 printf(" %s:%s", a1, a2);
313 }
314
315 void
316 print_port(u_int8_t op, u_int16_t p1, u_int16_t p2, const char *proto, int numeric)
317 {
318         char             a1[6], a2[6];
319         struct servent  *s;
320
321         if (!numeric)
322                 s = getservbyport(p1, proto);
323         else
324                 s = NULL;
325         p1 = ntohs(p1);
326         p2 = ntohs(p2);
327         snprintf(a1, sizeof(a1), "%u", p1);
328         snprintf(a2, sizeof(a2), "%u", p2);
329         printf(" port");
330         if (s != NULL && (op == PF_OP_EQ || op == PF_OP_NE))
331                 print_op(op, s->s_name, a2);
332         else
333                 print_op(op, a1, a2);
334 }
335
336 void
337 print_ugid(u_int8_t op, unsigned u1, unsigned u2, const char *t, unsigned umax)
338 {
339         char    a1[11], a2[11];
340
341         snprintf(a1, sizeof(a1), "%u", u1);
342         snprintf(a2, sizeof(a2), "%u", u2);
343         printf(" %s", t);
344         if (u1 == umax && (op == PF_OP_EQ || op == PF_OP_NE))
345                 print_op(op, "unknown", a2);
346         else
347                 print_op(op, a1, a2);
348 }
349
350 void
351 print_flags(u_int8_t f)
352 {
353         int     i;
354
355         for (i = 0; tcpflags[i]; ++i)
356                 if (f & (1 << i))
357                         printf("%c", tcpflags[i]);
358 }
359
360 void
361 print_fromto(struct pf_rule_addr *src, pf_osfp_t osfp, struct pf_rule_addr *dst,
362     sa_family_t af, u_int8_t proto, int verbose, int numeric)
363 {
364         char buf[PF_OSFP_LEN*3];
365         if (src->addr.type == PF_ADDR_ADDRMASK &&
366             dst->addr.type == PF_ADDR_ADDRMASK &&
367             PF_AZERO(&src->addr.v.a.addr, AF_INET6) &&
368             PF_AZERO(&src->addr.v.a.mask, AF_INET6) &&
369             PF_AZERO(&dst->addr.v.a.addr, AF_INET6) &&
370             PF_AZERO(&dst->addr.v.a.mask, AF_INET6) &&
371             !src->neg && !dst->neg &&
372             !src->port_op && !dst->port_op &&
373             osfp == PF_OSFP_ANY)
374                 printf(" all");
375         else {
376                 printf(" from ");
377                 if (src->neg)
378                         printf("! ");
379                 print_addr(&src->addr, af, verbose);
380                 if (src->port_op)
381                         print_port(src->port_op, src->port[0],
382                             src->port[1],
383                             proto == IPPROTO_TCP ? "tcp" : "udp",
384                             numeric);
385                 if (osfp != PF_OSFP_ANY)
386                         printf(" os \"%s\"", pfctl_lookup_fingerprint(osfp, buf,
387                             sizeof(buf)));
388
389                 printf(" to ");
390                 if (dst->neg)
391                         printf("! ");
392                 print_addr(&dst->addr, af, verbose);
393                 if (dst->port_op)
394                         print_port(dst->port_op, dst->port[0],
395                             dst->port[1],
396                             proto == IPPROTO_TCP ? "tcp" : "udp",
397                             numeric);
398         }
399 }
400
401 void
402 print_pool(struct pf_pool *pool, u_int16_t p1, u_int16_t p2,
403     sa_family_t af, int id)
404 {
405         struct pf_pooladdr      *pooladdr;
406
407         if ((TAILQ_FIRST(&pool->list) != NULL) &&
408             TAILQ_NEXT(TAILQ_FIRST(&pool->list), entries) != NULL)
409                 printf("{ ");
410         TAILQ_FOREACH(pooladdr, &pool->list, entries){
411                 switch (id) {
412                 case PF_NAT:
413                 case PF_RDR:
414                 case PF_BINAT:
415                         print_addr(&pooladdr->addr, af, 0);
416                         break;
417                 case PF_PASS:
418                         if (PF_AZERO(&pooladdr->addr.v.a.addr, af))
419                                 printf("%s", pooladdr->ifname);
420                         else {
421                                 printf("(%s ", pooladdr->ifname);
422                                 print_addr(&pooladdr->addr, af, 0);
423                                 printf(")");
424                         }
425                         break;
426                 default:
427                         break;
428                 }
429                 if (TAILQ_NEXT(pooladdr, entries) != NULL)
430                         printf(", ");
431                 else if (TAILQ_NEXT(TAILQ_FIRST(&pool->list), entries) != NULL)
432                         printf(" }");
433         }
434         switch (id) {
435         case PF_NAT:
436                 if ((p1 != PF_NAT_PROXY_PORT_LOW ||
437                     p2 != PF_NAT_PROXY_PORT_HIGH) && (p1 != 0 || p2 != 0)) {
438                         if (p1 == p2)
439                                 printf(" port %u", p1);
440                         else
441                                 printf(" port %u:%u", p1, p2);
442                 }
443                 break;
444         case PF_RDR:
445                 if (p1) {
446                         printf(" port %u", p1);
447                         if (p2 && (p2 != p1))
448                                 printf(":%u", p2);
449                 }
450                 break;
451         default:
452                 break;
453         }
454         switch (pool->opts & PF_POOL_TYPEMASK) {
455         case PF_POOL_NONE:
456                 break;
457         case PF_POOL_BITMASK:
458                 printf(" bitmask");
459                 break;
460         case PF_POOL_RANDOM:
461                 printf(" random");
462                 break;
463         case PF_POOL_SRCHASH:
464                 printf(" source-hash 0x%08x%08x%08x%08x",
465                     pool->key.key32[0], pool->key.key32[1],
466                     pool->key.key32[2], pool->key.key32[3]);
467                 break;
468         case PF_POOL_ROUNDROBIN:
469                 printf(" round-robin");
470                 break;
471         }
472         if (pool->opts & PF_POOL_STICKYADDR)
473                 printf(" sticky-address");
474         if (id == PF_NAT && p1 == 0 && p2 == 0)
475                 printf(" static-port");
476 }
477
478 const char      * const pf_reasons[PFRES_MAX+1] = PFRES_NAMES;
479 const char      * const pf_lcounters[LCNT_MAX+1] = LCNT_NAMES;
480 const char      * const pf_fcounters[FCNT_MAX+1] = FCNT_NAMES;
481 const char      * const pf_scounters[FCNT_MAX+1] = FCNT_NAMES;
482
483 void
484 print_status(struct pf_status *s, int opts)
485 {
486         char                    statline[80], *running;
487         time_t                  runtime;
488         int                     i;
489         char                    buf[PF_MD5_DIGEST_LENGTH * 2 + 1];
490         static const char       hex[] = "0123456789abcdef";
491
492         runtime = time(NULL) - s->since;
493         running = s->running ? "Enabled" : "Disabled";
494
495         if (s->since) {
496                 unsigned int    sec, min, hrs, day = runtime;
497
498                 sec = day % 60;
499                 day /= 60;
500                 min = day % 60;
501                 day /= 60;
502                 hrs = day % 24;
503                 day /= 24;
504                 snprintf(statline, sizeof(statline),
505                     "Status: %s for %u days %.2u:%.2u:%.2u",
506                     running, day, hrs, min, sec);
507         } else
508                 snprintf(statline, sizeof(statline), "Status: %s", running);
509         printf("%-44s", statline);
510         switch (s->debug) {
511         case PF_DEBUG_NONE:
512                 printf("%15s\n\n", "Debug: None");
513                 break;
514         case PF_DEBUG_URGENT:
515                 printf("%15s\n\n", "Debug: Urgent");
516                 break;
517         case PF_DEBUG_MISC:
518                 printf("%15s\n\n", "Debug: Misc");
519                 break;
520         case PF_DEBUG_NOISY:
521                 printf("%15s\n\n", "Debug: Loud");
522                 break;
523         }
524
525         if (opts & PF_OPT_VERBOSE) {
526                 printf("Hostid:   0x%08x\n", ntohl(s->hostid));
527
528                 for (i = 0; i < PF_MD5_DIGEST_LENGTH; i++) {
529                         buf[i + i] = hex[s->pf_chksum[i] >> 4];
530                         buf[i + i + 1] = hex[s->pf_chksum[i] & 0x0f];
531                 }
532                 buf[i + i] = '\0';
533                 printf("Checksum: 0x%s\n\n", buf);
534         }
535
536         if (s->ifname[0] != 0) {
537                 printf("Interface Stats for %-16s %5s %16s\n",
538                     s->ifname, "IPv4", "IPv6");
539                 printf("  %-25s %14llu %16llu\n", "Bytes In",
540                     (unsigned long long)s->bcounters[0][0],
541                     (unsigned long long)s->bcounters[1][0]);
542                 printf("  %-25s %14llu %16llu\n", "Bytes Out",
543                     (unsigned long long)s->bcounters[0][1],
544                     (unsigned long long)s->bcounters[1][1]);
545                 printf("  Packets In\n");
546                 printf("    %-23s %14llu %16llu\n", "Passed",
547                     (unsigned long long)s->pcounters[0][0][PF_PASS],
548                     (unsigned long long)s->pcounters[1][0][PF_PASS]);
549                 printf("    %-23s %14llu %16llu\n", "Blocked",
550                     (unsigned long long)s->pcounters[0][0][PF_DROP],
551                     (unsigned long long)s->pcounters[1][0][PF_DROP]);
552                 printf("  Packets Out\n");
553                 printf("    %-23s %14llu %16llu\n", "Passed",
554                     (unsigned long long)s->pcounters[0][1][PF_PASS],
555                     (unsigned long long)s->pcounters[1][1][PF_PASS]);
556                 printf("    %-23s %14llu %16llu\n\n", "Blocked",
557                     (unsigned long long)s->pcounters[0][1][PF_DROP],
558                     (unsigned long long)s->pcounters[1][1][PF_DROP]);
559         }
560         printf("%-27s %14s %16s\n", "State Table", "Total", "Rate");
561         printf("  %-25s %14u %14s\n", "current entries", s->states, "");
562         for (i = 0; i < FCNT_MAX; i++) {
563                 printf("  %-25s %14llu ", pf_fcounters[i],
564                             (unsigned long long)s->fcounters[i]);
565                 if (runtime > 0)
566                         printf("%14.1f/s\n",
567                             (double)s->fcounters[i] / (double)runtime);
568                 else
569                         printf("%14s\n", "");
570         }
571         if (opts & PF_OPT_VERBOSE) {
572                 printf("Source Tracking Table\n");
573                 printf("  %-25s %14u %14s\n", "current entries",
574                     s->src_nodes, "");
575                 for (i = 0; i < SCNT_MAX; i++) {
576                         printf("  %-25s %14lld ", pf_scounters[i],
577 #ifdef __FreeBSD__
578                                     (long long)s->scounters[i]);
579 #else
580                                     s->scounters[i]);
581 #endif
582                         if (runtime > 0)
583                                 printf("%14.1f/s\n",
584                                     (double)s->scounters[i] / (double)runtime);
585                         else
586                                 printf("%14s\n", "");
587                 }
588         }
589         printf("Counters\n");
590         for (i = 0; i < PFRES_MAX; i++) {
591                 printf("  %-25s %14llu ", pf_reasons[i],
592                     (unsigned long long)s->counters[i]);
593                 if (runtime > 0)
594                         printf("%14.1f/s\n",
595                             (double)s->counters[i] / (double)runtime);
596                 else
597                         printf("%14s\n", "");
598         }
599         if (opts & PF_OPT_VERBOSE) {
600                 printf("Limit Counters\n");
601                 for (i = 0; i < LCNT_MAX; i++) {
602                         printf("  %-25s %14lld ", pf_lcounters[i],
603 #ifdef __FreeBSD__
604                                     (unsigned long long)s->lcounters[i]);
605 #else
606                                     s->lcounters[i]);
607 #endif
608                         if (runtime > 0)
609                                 printf("%14.1f/s\n",
610                                     (double)s->lcounters[i] / (double)runtime);
611                         else
612                                 printf("%14s\n", "");
613                 }
614         }
615 }
616
617 void
618 print_src_node(struct pf_src_node *sn, int opts)
619 {
620         struct pf_addr_wrap aw;
621         int min, sec;
622
623         memset(&aw, 0, sizeof(aw));
624         if (sn->af == AF_INET)
625                 aw.v.a.mask.addr32[0] = 0xffffffff;
626         else
627                 memset(&aw.v.a.mask, 0xff, sizeof(aw.v.a.mask));
628
629         aw.v.a.addr = sn->addr;
630         print_addr(&aw, sn->af, opts & PF_OPT_VERBOSE2);
631         printf(" -> ");
632         aw.v.a.addr = sn->raddr;
633         print_addr(&aw, sn->af, opts & PF_OPT_VERBOSE2);
634         printf(" ( states %u, connections %u, rate %u.%u/%us )\n", sn->states,
635             sn->conn, sn->conn_rate.count / 1000,
636             (sn->conn_rate.count % 1000) / 100, sn->conn_rate.seconds);
637         if (opts & PF_OPT_VERBOSE) {
638                 sec = sn->creation % 60;
639                 sn->creation /= 60;
640                 min = sn->creation % 60;
641                 sn->creation /= 60;
642                 printf("   age %.2u:%.2u:%.2u", sn->creation, min, sec);
643                 if (sn->states == 0) {
644                         sec = sn->expire % 60;
645                         sn->expire /= 60;
646                         min = sn->expire % 60;
647                         sn->expire /= 60;
648                         printf(", expires in %.2u:%.2u:%.2u",
649                             sn->expire, min, sec);
650                 }
651                 printf(", %llu pkts, %llu bytes",
652 #ifdef __FreeBSD__
653                     (unsigned long long)(sn->packets[0] + sn->packets[1]),
654                     (unsigned long long)(sn->bytes[0] + sn->bytes[1]));
655 #else
656                     sn->packets[0] + sn->packets[1],
657                     sn->bytes[0] + sn->bytes[1]);
658 #endif
659                 switch (sn->ruletype) {
660                 case PF_NAT:
661                         if (sn->rule.nr != -1)
662                                 printf(", nat rule %u", sn->rule.nr);
663                         break;
664                 case PF_RDR:
665                         if (sn->rule.nr != -1)
666                                 printf(", rdr rule %u", sn->rule.nr);
667                         break;
668                 case PF_PASS:
669                         if (sn->rule.nr != -1)
670                                 printf(", filter rule %u", sn->rule.nr);
671                         break;
672                 }
673                 printf("\n");
674         }
675 }
676
677 void
678 print_rule(struct pf_rule *r, const char *anchor_call, int verbose, int numeric)
679 {
680         static const char *actiontypes[] = { "pass", "block", "scrub",
681             "no scrub", "nat", "no nat", "binat", "no binat", "rdr", "no rdr" };
682         static const char *anchortypes[] = { "anchor", "anchor", "anchor",
683             "anchor", "nat-anchor", "nat-anchor", "binat-anchor",
684             "binat-anchor", "rdr-anchor", "rdr-anchor" };
685         int     i, opts;
686
687         if (verbose)
688                 printf("@%d ", r->nr);
689         if (r->action > PF_NORDR)
690                 printf("action(%d)", r->action);
691         else if (anchor_call[0]) {
692                 if (anchor_call[0] == '_') {
693                         printf("%s", anchortypes[r->action]);
694                 } else
695                         printf("%s \"%s\"", anchortypes[r->action],
696                             anchor_call);
697         } else {
698                 printf("%s", actiontypes[r->action]);
699                 if (r->natpass)
700                         printf(" pass");
701         }
702         if (r->action == PF_DROP) {
703                 if (r->rule_flag & PFRULE_RETURN)
704                         printf(" return");
705                 else if (r->rule_flag & PFRULE_RETURNRST) {
706                         if (!r->return_ttl)
707                                 printf(" return-rst");
708                         else
709                                 printf(" return-rst(ttl %d)", r->return_ttl);
710                 } else if (r->rule_flag & PFRULE_RETURNICMP) {
711                         const struct icmpcodeent        *ic, *ic6;
712
713                         ic = geticmpcodebynumber(r->return_icmp >> 8,
714                             r->return_icmp & 255, AF_INET);
715                         ic6 = geticmpcodebynumber(r->return_icmp6 >> 8,
716                             r->return_icmp6 & 255, AF_INET6);
717
718                         switch (r->af) {
719                         case AF_INET:
720                                 printf(" return-icmp");
721                                 if (ic == NULL)
722                                         printf("(%u)", r->return_icmp & 255);
723                                 else
724                                         printf("(%s)", ic->name);
725                                 break;
726                         case AF_INET6:
727                                 printf(" return-icmp6");
728                                 if (ic6 == NULL)
729                                         printf("(%u)", r->return_icmp6 & 255);
730                                 else
731                                         printf("(%s)", ic6->name);
732                                 break;
733                         default:
734                                 printf(" return-icmp");
735                                 if (ic == NULL)
736                                         printf("(%u, ", r->return_icmp & 255);
737                                 else
738                                         printf("(%s, ", ic->name);
739                                 if (ic6 == NULL)
740                                         printf("%u)", r->return_icmp6 & 255);
741                                 else
742                                         printf("%s)", ic6->name);
743                                 break;
744                         }
745                 } else
746                         printf(" drop");
747         }
748         if (r->direction == PF_IN)
749                 printf(" in");
750         else if (r->direction == PF_OUT)
751                 printf(" out");
752         if (r->log) {
753                 printf(" log");
754                 if (r->log & ~PF_LOG || r->logif) {
755                         int count = 0;
756
757                         printf(" (");
758                         if (r->log & PF_LOG_ALL)
759                                 printf("%sall", count++ ? ", " : "");
760                         if (r->log & PF_LOG_SOCKET_LOOKUP)
761                                 printf("%suser", count++ ? ", " : "");
762                         if (r->logif)
763                                 printf("%sto pflog%u", count++ ? ", " : "",
764                                     r->logif);
765                         printf(")");
766                 }
767         }
768         if (r->quick)
769                 printf(" quick");
770         if (r->ifname[0]) {
771                 if (r->ifnot)
772                         printf(" on ! %s", r->ifname);
773                 else
774                         printf(" on %s", r->ifname);
775         }
776         if (r->rt) {
777                 if (r->rt == PF_ROUTETO)
778                         printf(" route-to");
779                 else if (r->rt == PF_REPLYTO)
780                         printf(" reply-to");
781                 else if (r->rt == PF_DUPTO)
782                         printf(" dup-to");
783                 printf(" ");
784                 print_pool(&r->rpool, 0, 0, r->af, PF_PASS);
785         }
786         if (r->af) {
787                 if (r->af == AF_INET)
788                         printf(" inet");
789                 else
790                         printf(" inet6");
791         }
792         if (r->proto) {
793                 struct protoent *p;
794
795                 if ((p = getprotobynumber(r->proto)) != NULL)
796                         printf(" proto %s", p->p_name);
797                 else
798                         printf(" proto %u", r->proto);
799         }
800         print_fromto(&r->src, r->os_fingerprint, &r->dst, r->af, r->proto,
801             verbose, numeric);
802         if (r->uid.op)
803                 print_ugid(r->uid.op, r->uid.uid[0], r->uid.uid[1], "user",
804                     UID_MAX);
805         if (r->gid.op)
806                 print_ugid(r->gid.op, r->gid.gid[0], r->gid.gid[1], "group",
807                     GID_MAX);
808         if (r->flags || r->flagset) {
809                 printf(" flags ");
810                 print_flags(r->flags);
811                 printf("/");
812                 print_flags(r->flagset);
813         } else if (r->action == PF_PASS &&
814             (!r->proto || r->proto == IPPROTO_TCP) &&
815             !(r->rule_flag & PFRULE_FRAGMENT) &&
816             !anchor_call[0] && r->keep_state)
817                 printf(" flags any");
818         if (r->type) {
819                 const struct icmptypeent        *it;
820
821                 it = geticmptypebynumber(r->type-1, r->af);
822                 if (r->af != AF_INET6)
823                         printf(" icmp-type");
824                 else
825                         printf(" icmp6-type");
826                 if (it != NULL)
827                         printf(" %s", it->name);
828                 else
829                         printf(" %u", r->type-1);
830                 if (r->code) {
831                         const struct icmpcodeent        *ic;
832
833                         ic = geticmpcodebynumber(r->type-1, r->code-1, r->af);
834                         if (ic != NULL)
835                                 printf(" code %s", ic->name);
836                         else
837                                 printf(" code %u", r->code-1);
838                 }
839         }
840         if (r->tos)
841                 printf(" tos 0x%2.2x", r->tos);
842         if (r->prio)
843                 printf(" prio %u", r->prio == PF_PRIO_ZERO ? 0 : r->prio);
844         if (r->scrub_flags & PFSTATE_SETMASK) {
845                 char *comma = "";
846                 printf(" set (");
847                 if (r->scrub_flags & PFSTATE_SETPRIO) {
848                         if (r->set_prio[0] == r->set_prio[1])
849                                 printf("%s prio %u", comma, r->set_prio[0]);
850                         else
851                                 printf("%s prio(%u, %u)", comma, r->set_prio[0],
852                                     r->set_prio[1]);
853                         comma = ",";
854                 }
855                 printf(" )");
856         }
857         if (!r->keep_state && r->action == PF_PASS && !anchor_call[0])
858                 printf(" no state");
859         else if (r->keep_state == PF_STATE_NORMAL)
860                 printf(" keep state");
861         else if (r->keep_state == PF_STATE_MODULATE)
862                 printf(" modulate state");
863         else if (r->keep_state == PF_STATE_SYNPROXY)
864                 printf(" synproxy state");
865         if (r->prob) {
866                 char    buf[20];
867
868                 snprintf(buf, sizeof(buf), "%f", r->prob*100.0/(UINT_MAX+1.0));
869                 for (i = strlen(buf)-1; i > 0; i--) {
870                         if (buf[i] == '0')
871                                 buf[i] = '\0';
872                         else {
873                                 if (buf[i] == '.')
874                                         buf[i] = '\0';
875                                 break;
876                         }
877                 }
878                 printf(" probability %s%%", buf);
879         }
880         opts = 0;
881         if (r->max_states || r->max_src_nodes || r->max_src_states)
882                 opts = 1;
883         if (r->rule_flag & PFRULE_NOSYNC)
884                 opts = 1;
885         if (r->rule_flag & PFRULE_SRCTRACK)
886                 opts = 1;
887         if (r->rule_flag & PFRULE_IFBOUND)
888                 opts = 1;
889         if (r->rule_flag & PFRULE_STATESLOPPY)
890                 opts = 1;
891         for (i = 0; !opts && i < PFTM_MAX; ++i)
892                 if (r->timeout[i])
893                         opts = 1;
894         if (opts) {
895                 printf(" (");
896                 if (r->max_states) {
897                         printf("max %u", r->max_states);
898                         opts = 0;
899                 }
900                 if (r->rule_flag & PFRULE_NOSYNC) {
901                         if (!opts)
902                                 printf(", ");
903                         printf("no-sync");
904                         opts = 0;
905                 }
906                 if (r->rule_flag & PFRULE_SRCTRACK) {
907                         if (!opts)
908                                 printf(", ");
909                         printf("source-track");
910                         if (r->rule_flag & PFRULE_RULESRCTRACK)
911                                 printf(" rule");
912                         else
913                                 printf(" global");
914                         opts = 0;
915                 }
916                 if (r->max_src_states) {
917                         if (!opts)
918                                 printf(", ");
919                         printf("max-src-states %u", r->max_src_states);
920                         opts = 0;
921                 }
922                 if (r->max_src_conn) {
923                         if (!opts)
924                                 printf(", ");
925                         printf("max-src-conn %u", r->max_src_conn);
926                         opts = 0;
927                 }
928                 if (r->max_src_conn_rate.limit) {
929                         if (!opts)
930                                 printf(", ");
931                         printf("max-src-conn-rate %u/%u",
932                             r->max_src_conn_rate.limit,
933                             r->max_src_conn_rate.seconds);
934                         opts = 0;
935                 }
936                 if (r->max_src_nodes) {
937                         if (!opts)
938                                 printf(", ");
939                         printf("max-src-nodes %u", r->max_src_nodes);
940                         opts = 0;
941                 }
942                 if (r->overload_tblname[0]) {
943                         if (!opts)
944                                 printf(", ");
945                         printf("overload <%s>", r->overload_tblname);
946                         if (r->flush)
947                                 printf(" flush");
948                         if (r->flush & PF_FLUSH_GLOBAL)
949                                 printf(" global");
950                 }
951                 if (r->rule_flag & PFRULE_IFBOUND) {
952                         if (!opts)
953                                 printf(", ");
954                         printf("if-bound");
955                         opts = 0;
956                 }
957                 if (r->rule_flag & PFRULE_STATESLOPPY) {
958                         if (!opts)
959                                 printf(", ");
960                         printf("sloppy");
961                         opts = 0;
962                 }
963                 for (i = 0; i < PFTM_MAX; ++i)
964                         if (r->timeout[i]) {
965                                 int j;
966
967                                 if (!opts)
968                                         printf(", ");
969                                 opts = 0;
970                                 for (j = 0; pf_timeouts[j].name != NULL;
971                                     ++j)
972                                         if (pf_timeouts[j].timeout == i)
973                                                 break;
974                                 printf("%s %u", pf_timeouts[j].name == NULL ?
975                                     "inv.timeout" : pf_timeouts[j].name,
976                                     r->timeout[i]);
977                         }
978                 printf(")");
979         }
980         if (r->rule_flag & PFRULE_FRAGMENT)
981                 printf(" fragment");
982         if (r->rule_flag & PFRULE_NODF)
983                 printf(" no-df");
984         if (r->rule_flag & PFRULE_RANDOMID)
985                 printf(" random-id");
986         if (r->min_ttl)
987                 printf(" min-ttl %d", r->min_ttl);
988         if (r->max_mss)
989                 printf(" max-mss %d", r->max_mss);
990         if (r->rule_flag & PFRULE_SET_TOS)
991                 printf(" set-tos 0x%2.2x", r->set_tos);
992         if (r->allow_opts)
993                 printf(" allow-opts");
994         if (r->action == PF_SCRUB) {
995                 if (r->rule_flag & PFRULE_REASSEMBLE_TCP)
996                         printf(" reassemble tcp");
997
998                 printf(" fragment reassemble");
999         }
1000         if (r->label[0])
1001                 printf(" label \"%s\"", r->label);
1002         if (r->qname[0] && r->pqname[0])
1003                 printf(" queue(%s, %s)", r->qname, r->pqname);
1004         else if (r->qname[0])
1005                 printf(" queue %s", r->qname);
1006         if (r->tagname[0])
1007                 printf(" tag %s", r->tagname);
1008         if (r->match_tagname[0]) {
1009                 if (r->match_tag_not)
1010                         printf(" !");
1011                 printf(" tagged %s", r->match_tagname);
1012         }
1013         if (r->rtableid != -1)
1014                 printf(" rtable %u", r->rtableid);
1015         if (r->divert.port) {
1016 #ifdef __FreeBSD__
1017                 printf(" divert-to %u", ntohs(r->divert.port));
1018 #else
1019                 if (PF_AZERO(&r->divert.addr, r->af)) {
1020                         printf(" divert-reply");
1021                 } else {
1022                         /* XXX cut&paste from print_addr */
1023                         char buf[48];
1024
1025                         printf(" divert-to ");
1026                         if (inet_ntop(r->af, &r->divert.addr, buf,
1027                             sizeof(buf)) == NULL)
1028                                 printf("?");
1029                         else
1030                                 printf("%s", buf);
1031                         printf(" port %u", ntohs(r->divert.port));
1032                 }
1033 #endif
1034         }
1035         if (!anchor_call[0] && (r->action == PF_NAT ||
1036             r->action == PF_BINAT || r->action == PF_RDR)) {
1037                 printf(" -> ");
1038                 print_pool(&r->rpool, r->rpool.proxy_port[0],
1039                     r->rpool.proxy_port[1], r->af, r->action);
1040         }
1041 }
1042
1043 void
1044 print_tabledef(const char *name, int flags, int addrs,
1045     struct node_tinithead *nodes)
1046 {
1047         struct node_tinit       *ti, *nti;
1048         struct node_host        *h;
1049
1050         printf("table <%s>", name);
1051         if (flags & PFR_TFLAG_CONST)
1052                 printf(" const");
1053         if (flags & PFR_TFLAG_PERSIST)
1054                 printf(" persist");
1055         if (flags & PFR_TFLAG_COUNTERS)
1056                 printf(" counters");
1057         SIMPLEQ_FOREACH(ti, nodes, entries) {
1058                 if (ti->file) {
1059                         printf(" file \"%s\"", ti->file);
1060                         continue;
1061                 }
1062                 printf(" {");
1063                 for (;;) {
1064                         for (h = ti->host; h != NULL; h = h->next) {
1065                                 printf(h->not ? " !" : " ");
1066                                 print_addr(&h->addr, h->af, 0);
1067                         }
1068                         nti = SIMPLEQ_NEXT(ti, entries);
1069                         if (nti != NULL && nti->file == NULL)
1070                                 ti = nti;       /* merge lists */
1071                         else
1072                                 break;
1073                 }
1074                 printf(" }");
1075         }
1076         if (addrs && SIMPLEQ_EMPTY(nodes))
1077                 printf(" { }");
1078         printf("\n");
1079 }
1080
1081 int
1082 parse_flags(char *s)
1083 {
1084         char            *p, *q;
1085         u_int8_t         f = 0;
1086
1087         for (p = s; *p; p++) {
1088                 if ((q = strchr(tcpflags, *p)) == NULL)
1089                         return -1;
1090                 else
1091                         f |= 1 << (q - tcpflags);
1092         }
1093         return (f ? f : PF_TH_ALL);
1094 }
1095
1096 void
1097 set_ipmask(struct node_host *h, u_int8_t b)
1098 {
1099         struct pf_addr  *m, *n;
1100         int              i, j = 0;
1101
1102         m = &h->addr.v.a.mask;
1103         memset(m, 0, sizeof(*m));
1104
1105         while (b >= 32) {
1106                 m->addr32[j++] = 0xffffffff;
1107                 b -= 32;
1108         }
1109         for (i = 31; i > 31-b; --i)
1110                 m->addr32[j] |= (1 << i);
1111         if (b)
1112                 m->addr32[j] = htonl(m->addr32[j]);
1113
1114         /* Mask off bits of the address that will never be used. */
1115         n = &h->addr.v.a.addr;
1116         if (h->addr.type == PF_ADDR_ADDRMASK)
1117                 for (i = 0; i < 4; i++)
1118                         n->addr32[i] = n->addr32[i] & m->addr32[i];
1119 }
1120
1121 int
1122 check_netmask(struct node_host *h, sa_family_t af)
1123 {
1124         struct node_host        *n = NULL;
1125         struct pf_addr  *m;
1126
1127         for (n = h; n != NULL; n = n->next) {
1128                 if (h->addr.type == PF_ADDR_TABLE)
1129                         continue;
1130                 m = &h->addr.v.a.mask;
1131                 /* fix up netmask for dynaddr */
1132                 if (af == AF_INET && h->addr.type == PF_ADDR_DYNIFTL &&
1133                     unmask(m, AF_INET6) > 32)
1134                         set_ipmask(n, 32);
1135                 /* netmasks > 32 bit are invalid on v4 */
1136                 if (af == AF_INET &&
1137                     (m->addr32[1] || m->addr32[2] || m->addr32[3])) {
1138                         fprintf(stderr, "netmask %u invalid for IPv4 address\n",
1139                             unmask(m, AF_INET6));
1140                         return (1);
1141                 }
1142         }
1143         return (0);
1144 }
1145
1146 /* interface lookup routines */
1147
1148 static struct node_host *iftab;
1149
1150 void
1151 ifa_load(void)
1152 {
1153         struct ifaddrs          *ifap, *ifa;
1154         struct node_host        *n = NULL, *h = NULL;
1155
1156         if (getifaddrs(&ifap) < 0)
1157                 err(1, "getifaddrs");
1158
1159         for (ifa = ifap; ifa; ifa = ifa->ifa_next) {
1160                 if (!(ifa->ifa_addr->sa_family == AF_INET ||
1161                     ifa->ifa_addr->sa_family == AF_INET6 ||
1162                     ifa->ifa_addr->sa_family == AF_LINK))
1163                                 continue;
1164                 n = calloc(1, sizeof(struct node_host));
1165                 if (n == NULL)
1166                         err(1, "address: calloc");
1167                 n->af = ifa->ifa_addr->sa_family;
1168                 n->ifa_flags = ifa->ifa_flags;
1169 #ifdef __KAME__
1170                 if (n->af == AF_INET6 &&
1171                     IN6_IS_ADDR_LINKLOCAL(&((struct sockaddr_in6 *)
1172                     ifa->ifa_addr)->sin6_addr) &&
1173                     ((struct sockaddr_in6 *)ifa->ifa_addr)->sin6_scope_id ==
1174                     0) {
1175                         struct sockaddr_in6     *sin6;
1176
1177                         sin6 = (struct sockaddr_in6 *)ifa->ifa_addr;
1178                         sin6->sin6_scope_id = sin6->sin6_addr.s6_addr[2] << 8 |
1179                             sin6->sin6_addr.s6_addr[3];
1180                         sin6->sin6_addr.s6_addr[2] = 0;
1181                         sin6->sin6_addr.s6_addr[3] = 0;
1182                 }
1183 #endif
1184                 n->ifindex = 0;
1185                 if (n->af == AF_INET) {
1186                         memcpy(&n->addr.v.a.addr, &((struct sockaddr_in *)
1187                             ifa->ifa_addr)->sin_addr.s_addr,
1188                             sizeof(struct in_addr));
1189                         memcpy(&n->addr.v.a.mask, &((struct sockaddr_in *)
1190                             ifa->ifa_netmask)->sin_addr.s_addr,
1191                             sizeof(struct in_addr));
1192                         if (ifa->ifa_broadaddr != NULL)
1193                                 memcpy(&n->bcast, &((struct sockaddr_in *)
1194                                     ifa->ifa_broadaddr)->sin_addr.s_addr,
1195                                     sizeof(struct in_addr));
1196                         if (ifa->ifa_dstaddr != NULL)
1197                                 memcpy(&n->peer, &((struct sockaddr_in *)
1198                                     ifa->ifa_dstaddr)->sin_addr.s_addr,
1199                                     sizeof(struct in_addr));
1200                 } else if (n->af == AF_INET6) {
1201                         memcpy(&n->addr.v.a.addr, &((struct sockaddr_in6 *)
1202                             ifa->ifa_addr)->sin6_addr.s6_addr,
1203                             sizeof(struct in6_addr));
1204                         memcpy(&n->addr.v.a.mask, &((struct sockaddr_in6 *)
1205                             ifa->ifa_netmask)->sin6_addr.s6_addr,
1206                             sizeof(struct in6_addr));
1207                         if (ifa->ifa_broadaddr != NULL)
1208                                 memcpy(&n->bcast, &((struct sockaddr_in6 *)
1209                                     ifa->ifa_broadaddr)->sin6_addr.s6_addr,
1210                                     sizeof(struct in6_addr));
1211                         if (ifa->ifa_dstaddr != NULL)
1212                                  memcpy(&n->peer, &((struct sockaddr_in6 *)
1213                                     ifa->ifa_dstaddr)->sin6_addr.s6_addr,
1214                                     sizeof(struct in6_addr));
1215                         n->ifindex = ((struct sockaddr_in6 *)
1216                             ifa->ifa_addr)->sin6_scope_id;
1217                 }
1218                 if ((n->ifname = strdup(ifa->ifa_name)) == NULL)
1219                         err(1, "ifa_load: strdup");
1220                 n->next = NULL;
1221                 n->tail = n;
1222                 if (h == NULL)
1223                         h = n;
1224                 else {
1225                         h->tail->next = n;
1226                         h->tail = n;
1227                 }
1228         }
1229
1230         iftab = h;
1231         freeifaddrs(ifap);
1232 }
1233
1234 int
1235 get_socket_domain(void)
1236 {
1237         int sdom;
1238
1239         sdom = AF_UNSPEC;
1240 #ifdef WITH_INET6
1241         if (sdom == AF_UNSPEC && feature_present("inet6"))
1242                 sdom = AF_INET6;
1243 #endif
1244 #ifdef WITH_INET
1245         if (sdom == AF_UNSPEC && feature_present("inet"))
1246                 sdom = AF_INET;
1247 #endif
1248         if (sdom == AF_UNSPEC)
1249                 sdom = AF_LINK;
1250
1251         return (sdom);
1252 }
1253
1254 struct node_host *
1255 ifa_exists(const char *ifa_name)
1256 {
1257         struct node_host        *n;
1258         struct ifgroupreq       ifgr;
1259         int                     s;
1260
1261         if (iftab == NULL)
1262                 ifa_load();
1263
1264         /* check wether this is a group */
1265         if ((s = socket(get_socket_domain(), SOCK_DGRAM, 0)) == -1)
1266                 err(1, "socket");
1267         bzero(&ifgr, sizeof(ifgr));
1268         strlcpy(ifgr.ifgr_name, ifa_name, sizeof(ifgr.ifgr_name));
1269         if (ioctl(s, SIOCGIFGMEMB, (caddr_t)&ifgr) == 0) {
1270                 /* fake a node_host */
1271                 if ((n = calloc(1, sizeof(*n))) == NULL)
1272                         err(1, "calloc");
1273                 if ((n->ifname = strdup(ifa_name)) == NULL)
1274                         err(1, "strdup");
1275                 close(s);
1276                 return (n);
1277         }
1278         close(s);
1279
1280         for (n = iftab; n; n = n->next) {
1281                 if (n->af == AF_LINK && !strncmp(n->ifname, ifa_name, IFNAMSIZ))
1282                         return (n);
1283         }
1284
1285         return (NULL);
1286 }
1287
1288 struct node_host *
1289 ifa_grouplookup(const char *ifa_name, int flags)
1290 {
1291         struct ifg_req          *ifg;
1292         struct ifgroupreq        ifgr;
1293         int                      s, len;
1294         struct node_host        *n, *h = NULL;
1295
1296         if ((s = socket(get_socket_domain(), SOCK_DGRAM, 0)) == -1)
1297                 err(1, "socket");
1298         bzero(&ifgr, sizeof(ifgr));
1299         strlcpy(ifgr.ifgr_name, ifa_name, sizeof(ifgr.ifgr_name));
1300         if (ioctl(s, SIOCGIFGMEMB, (caddr_t)&ifgr) == -1) {
1301                 close(s);
1302                 return (NULL);
1303         }
1304
1305         len = ifgr.ifgr_len;
1306         if ((ifgr.ifgr_groups = calloc(1, len)) == NULL)
1307                 err(1, "calloc");
1308         if (ioctl(s, SIOCGIFGMEMB, (caddr_t)&ifgr) == -1)
1309                 err(1, "SIOCGIFGMEMB");
1310
1311         for (ifg = ifgr.ifgr_groups; ifg && len >= sizeof(struct ifg_req);
1312             ifg++) {
1313                 len -= sizeof(struct ifg_req);
1314                 if ((n = ifa_lookup(ifg->ifgrq_member, flags)) == NULL)
1315                         continue;
1316                 if (h == NULL)
1317                         h = n;
1318                 else {
1319                         h->tail->next = n;
1320                         h->tail = n->tail;
1321                 }
1322         }
1323         free(ifgr.ifgr_groups);
1324         close(s);
1325
1326         return (h);
1327 }
1328
1329 struct node_host *
1330 ifa_lookup(const char *ifa_name, int flags)
1331 {
1332         struct node_host        *p = NULL, *h = NULL, *n = NULL;
1333         int                      got4 = 0, got6 = 0;
1334         const char               *last_if = NULL;
1335
1336         if ((h = ifa_grouplookup(ifa_name, flags)) != NULL)
1337                 return (h);
1338
1339         if (!strncmp(ifa_name, "self", IFNAMSIZ))
1340                 ifa_name = NULL;
1341
1342         if (iftab == NULL)
1343                 ifa_load();
1344
1345         for (p = iftab; p; p = p->next) {
1346                 if (ifa_skip_if(ifa_name, p))
1347                         continue;
1348                 if ((flags & PFI_AFLAG_BROADCAST) && p->af != AF_INET)
1349                         continue;
1350                 if ((flags & PFI_AFLAG_BROADCAST) &&
1351                     !(p->ifa_flags & IFF_BROADCAST))
1352                         continue;
1353                 if ((flags & PFI_AFLAG_PEER) &&
1354                     !(p->ifa_flags & IFF_POINTOPOINT))
1355                         continue;
1356                 if ((flags & PFI_AFLAG_NETWORK) && p->ifindex > 0)
1357                         continue;
1358                 if (last_if == NULL || strcmp(last_if, p->ifname))
1359                         got4 = got6 = 0;
1360                 last_if = p->ifname;
1361                 if ((flags & PFI_AFLAG_NOALIAS) && p->af == AF_INET && got4)
1362                         continue;
1363                 if ((flags & PFI_AFLAG_NOALIAS) && p->af == AF_INET6 && got6)
1364                         continue;
1365                 if (p->af == AF_INET)
1366                         got4 = 1;
1367                 else
1368                         got6 = 1;
1369                 n = calloc(1, sizeof(struct node_host));
1370                 if (n == NULL)
1371                         err(1, "address: calloc");
1372                 n->af = p->af;
1373                 if (flags & PFI_AFLAG_BROADCAST)
1374                         memcpy(&n->addr.v.a.addr, &p->bcast,
1375                             sizeof(struct pf_addr));
1376                 else if (flags & PFI_AFLAG_PEER)
1377                         memcpy(&n->addr.v.a.addr, &p->peer,
1378                             sizeof(struct pf_addr));
1379                 else
1380                         memcpy(&n->addr.v.a.addr, &p->addr.v.a.addr,
1381                             sizeof(struct pf_addr));
1382                 if (flags & PFI_AFLAG_NETWORK)
1383                         set_ipmask(n, unmask(&p->addr.v.a.mask, n->af));
1384                 else {
1385                         if (n->af == AF_INET) {
1386                                 if (p->ifa_flags & IFF_LOOPBACK &&
1387                                     p->ifa_flags & IFF_LINK1)
1388                                         memcpy(&n->addr.v.a.mask,
1389                                             &p->addr.v.a.mask,
1390                                             sizeof(struct pf_addr));
1391                                 else
1392                                         set_ipmask(n, 32);
1393                         } else
1394                                 set_ipmask(n, 128);
1395                 }
1396                 n->ifindex = p->ifindex;
1397
1398                 n->next = NULL;
1399                 n->tail = n;
1400                 if (h == NULL)
1401                         h = n;
1402                 else {
1403                         h->tail->next = n;
1404                         h->tail = n;
1405                 }
1406         }
1407         return (h);
1408 }
1409
1410 int
1411 ifa_skip_if(const char *filter, struct node_host *p)
1412 {
1413         int     n;
1414
1415         if (p->af != AF_INET && p->af != AF_INET6)
1416                 return (1);
1417         if (filter == NULL || !*filter)
1418                 return (0);
1419         if (!strcmp(p->ifname, filter))
1420                 return (0);     /* exact match */
1421         n = strlen(filter);
1422         if (n < 1 || n >= IFNAMSIZ)
1423                 return (1);     /* sanity check */
1424         if (filter[n-1] >= '0' && filter[n-1] <= '9')
1425                 return (1);     /* only do exact match in that case */
1426         if (strncmp(p->ifname, filter, n))
1427                 return (1);     /* prefix doesn't match */
1428         return (p->ifname[n] < '0' || p->ifname[n] > '9');
1429 }
1430
1431
1432 struct node_host *
1433 host(const char *s)
1434 {
1435         struct node_host        *h = NULL;
1436         int                      mask, v4mask, v6mask, cont = 1;
1437         char                    *p, *q, *ps;
1438
1439         if ((p = strrchr(s, '/')) != NULL) {
1440                 mask = strtol(p+1, &q, 0);
1441                 if (!q || *q || mask > 128 || q == (p+1)) {
1442                         fprintf(stderr, "invalid netmask '%s'\n", p);
1443                         return (NULL);
1444                 }
1445                 if ((ps = malloc(strlen(s) - strlen(p) + 1)) == NULL)
1446                         err(1, "host: malloc");
1447                 strlcpy(ps, s, strlen(s) - strlen(p) + 1);
1448                 v4mask = v6mask = mask;
1449         } else {
1450                 if ((ps = strdup(s)) == NULL)
1451                         err(1, "host: strdup");
1452                 v4mask = 32;
1453                 v6mask = 128;
1454                 mask = -1;
1455         }
1456
1457         /* interface with this name exists? */
1458         if (cont && (h = host_if(ps, mask)) != NULL)
1459                 cont = 0;
1460
1461         /* IPv4 address? */
1462         if (cont && (h = host_v4(s, mask)) != NULL)
1463                 cont = 0;
1464
1465         /* IPv6 address? */
1466         if (cont && (h = host_v6(ps, v6mask)) != NULL)
1467                 cont = 0;
1468
1469         /* dns lookup */
1470         if (cont && (h = host_dns(ps, v4mask, v6mask)) != NULL)
1471                 cont = 0;
1472         free(ps);
1473
1474         if (h == NULL || cont == 1) {
1475                 fprintf(stderr, "no IP address found for %s\n", s);
1476                 return (NULL);
1477         }
1478         return (h);
1479 }
1480
1481 struct node_host *
1482 host_if(const char *s, int mask)
1483 {
1484         struct node_host        *n, *h = NULL;
1485         char                    *p, *ps;
1486         int                      flags = 0;
1487
1488         if ((ps = strdup(s)) == NULL)
1489                 err(1, "host_if: strdup");
1490         while ((p = strrchr(ps, ':')) != NULL) {
1491                 if (!strcmp(p+1, "network"))
1492                         flags |= PFI_AFLAG_NETWORK;
1493                 else if (!strcmp(p+1, "broadcast"))
1494                         flags |= PFI_AFLAG_BROADCAST;
1495                 else if (!strcmp(p+1, "peer"))
1496                         flags |= PFI_AFLAG_PEER;
1497                 else if (!strcmp(p+1, "0"))
1498                         flags |= PFI_AFLAG_NOALIAS;
1499                 else {
1500                         free(ps);
1501                         return (NULL);
1502                 }
1503                 *p = '\0';
1504         }
1505         if (flags & (flags - 1) & PFI_AFLAG_MODEMASK) { /* Yep! */
1506                 fprintf(stderr, "illegal combination of interface modifiers\n");
1507                 free(ps);
1508                 return (NULL);
1509         }
1510         if ((flags & (PFI_AFLAG_NETWORK|PFI_AFLAG_BROADCAST)) && mask > -1) {
1511                 fprintf(stderr, "network or broadcast lookup, but "
1512                     "extra netmask given\n");
1513                 free(ps);
1514                 return (NULL);
1515         }
1516         if (ifa_exists(ps) || !strncmp(ps, "self", IFNAMSIZ)) {
1517                 /* interface with this name exists */
1518                 h = ifa_lookup(ps, flags);
1519                 for (n = h; n != NULL && mask > -1; n = n->next)
1520                         set_ipmask(n, mask);
1521         }
1522
1523         free(ps);
1524         return (h);
1525 }
1526
1527 struct node_host *
1528 host_v4(const char *s, int mask)
1529 {
1530         struct node_host        *h = NULL;
1531         struct in_addr           ina;
1532         int                      bits = 32;
1533
1534         memset(&ina, 0, sizeof(struct in_addr));
1535         if (strrchr(s, '/') != NULL) {
1536                 if ((bits = inet_net_pton(AF_INET, s, &ina, sizeof(ina))) == -1)
1537                         return (NULL);
1538         } else {
1539                 if (inet_pton(AF_INET, s, &ina) != 1)
1540                         return (NULL);
1541         }
1542
1543         h = calloc(1, sizeof(struct node_host));
1544         if (h == NULL)
1545                 err(1, "address: calloc");
1546         h->ifname = NULL;
1547         h->af = AF_INET;
1548         h->addr.v.a.addr.addr32[0] = ina.s_addr;
1549         set_ipmask(h, bits);
1550         h->next = NULL;
1551         h->tail = h;
1552
1553         return (h);
1554 }
1555
1556 struct node_host *
1557 host_v6(const char *s, int mask)
1558 {
1559         struct addrinfo          hints, *res;
1560         struct node_host        *h = NULL;
1561
1562         memset(&hints, 0, sizeof(hints));
1563         hints.ai_family = AF_INET6;
1564         hints.ai_socktype = SOCK_DGRAM; /*dummy*/
1565         hints.ai_flags = AI_NUMERICHOST;
1566         if (getaddrinfo(s, "0", &hints, &res) == 0) {
1567                 h = calloc(1, sizeof(struct node_host));
1568                 if (h == NULL)
1569                         err(1, "address: calloc");
1570                 h->ifname = NULL;
1571                 h->af = AF_INET6;
1572                 memcpy(&h->addr.v.a.addr,
1573                     &((struct sockaddr_in6 *)res->ai_addr)->sin6_addr,
1574                     sizeof(h->addr.v.a.addr));
1575                 h->ifindex =
1576                     ((struct sockaddr_in6 *)res->ai_addr)->sin6_scope_id;
1577                 set_ipmask(h, mask);
1578                 freeaddrinfo(res);
1579                 h->next = NULL;
1580                 h->tail = h;
1581         }
1582
1583         return (h);
1584 }
1585
1586 struct node_host *
1587 host_dns(const char *s, int v4mask, int v6mask)
1588 {
1589         struct addrinfo          hints, *res0, *res;
1590         struct node_host        *n, *h = NULL;
1591         int                      error, noalias = 0;
1592         int                      got4 = 0, got6 = 0;
1593         char                    *p, *ps;
1594
1595         if ((ps = strdup(s)) == NULL)
1596                 err(1, "host_dns: strdup");
1597         if ((p = strrchr(ps, ':')) != NULL && !strcmp(p, ":0")) {
1598                 noalias = 1;
1599                 *p = '\0';
1600         }
1601         memset(&hints, 0, sizeof(hints));
1602         hints.ai_family = PF_UNSPEC;
1603         hints.ai_socktype = SOCK_STREAM; /* DUMMY */
1604         error = getaddrinfo(ps, NULL, &hints, &res0);
1605         if (error) {
1606                 free(ps);
1607                 return (h);
1608         }
1609
1610         for (res = res0; res; res = res->ai_next) {
1611                 if (res->ai_family != AF_INET &&
1612                     res->ai_family != AF_INET6)
1613                         continue;
1614                 if (noalias) {
1615                         if (res->ai_family == AF_INET) {
1616                                 if (got4)
1617                                         continue;
1618                                 got4 = 1;
1619                         } else {
1620                                 if (got6)
1621                                         continue;
1622                                 got6 = 1;
1623                         }
1624                 }
1625                 n = calloc(1, sizeof(struct node_host));
1626                 if (n == NULL)
1627                         err(1, "host_dns: calloc");
1628                 n->ifname = NULL;
1629                 n->af = res->ai_family;
1630                 if (res->ai_family == AF_INET) {
1631                         memcpy(&n->addr.v.a.addr,
1632                             &((struct sockaddr_in *)
1633                             res->ai_addr)->sin_addr.s_addr,
1634                             sizeof(struct in_addr));
1635                         set_ipmask(n, v4mask);
1636                 } else {
1637                         memcpy(&n->addr.v.a.addr,
1638                             &((struct sockaddr_in6 *)
1639                             res->ai_addr)->sin6_addr.s6_addr,
1640                             sizeof(struct in6_addr));
1641                         n->ifindex =
1642                             ((struct sockaddr_in6 *)
1643                             res->ai_addr)->sin6_scope_id;
1644                         set_ipmask(n, v6mask);
1645                 }
1646                 n->next = NULL;
1647                 n->tail = n;
1648                 if (h == NULL)
1649                         h = n;
1650                 else {
1651                         h->tail->next = n;
1652                         h->tail = n;
1653                 }
1654         }
1655         freeaddrinfo(res0);
1656         free(ps);
1657
1658         return (h);
1659 }
1660
1661 /*
1662  * convert a hostname to a list of addresses and put them in the given buffer.
1663  * test:
1664  *      if set to 1, only simple addresses are accepted (no netblock, no "!").
1665  */
1666 int
1667 append_addr(struct pfr_buffer *b, char *s, int test)
1668 {
1669         char                     *r;
1670         struct node_host        *h, *n;
1671         int                      rv, not = 0;
1672
1673         for (r = s; *r == '!'; r++)
1674                 not = !not;
1675         if ((n = host(r)) == NULL) {
1676                 errno = 0;
1677                 return (-1);
1678         }
1679         rv = append_addr_host(b, n, test, not);
1680         do {
1681                 h = n;
1682                 n = n->next;
1683                 free(h);
1684         } while (n != NULL);
1685         return (rv);
1686 }
1687
1688 /*
1689  * same as previous function, but with a pre-parsed input and the ability
1690  * to "negate" the result. Does not free the node_host list.
1691  * not:
1692  *      setting it to 1 is equivalent to adding "!" in front of parameter s.
1693  */
1694 int
1695 append_addr_host(struct pfr_buffer *b, struct node_host *n, int test, int not)
1696 {
1697         int                      bits;
1698         struct pfr_addr          addr;
1699
1700         do {
1701                 bzero(&addr, sizeof(addr));
1702                 addr.pfra_not = n->not ^ not;
1703                 addr.pfra_af = n->af;
1704                 addr.pfra_net = unmask(&n->addr.v.a.mask, n->af);
1705                 switch (n->af) {
1706                 case AF_INET:
1707                         addr.pfra_ip4addr.s_addr = n->addr.v.a.addr.addr32[0];
1708                         bits = 32;
1709                         break;
1710                 case AF_INET6:
1711                         memcpy(&addr.pfra_ip6addr, &n->addr.v.a.addr.v6,
1712                             sizeof(struct in6_addr));
1713                         bits = 128;
1714                         break;
1715                 default:
1716                         errno = EINVAL;
1717                         return (-1);
1718                 }
1719                 if ((test && (not || addr.pfra_net != bits)) ||
1720                     addr.pfra_net > bits) {
1721                         errno = EINVAL;
1722                         return (-1);
1723                 }
1724                 if (pfr_buf_add(b, &addr))
1725                         return (-1);
1726         } while ((n = n->next) != NULL);
1727
1728         return (0);
1729 }
1730
1731 int
1732 pfctl_add_trans(struct pfr_buffer *buf, int rs_num, const char *anchor)
1733 {
1734         struct pfioc_trans_e trans;
1735
1736         bzero(&trans, sizeof(trans));
1737         trans.rs_num = rs_num;
1738         if (strlcpy(trans.anchor, anchor,
1739             sizeof(trans.anchor)) >= sizeof(trans.anchor))
1740                 errx(1, "pfctl_add_trans: strlcpy");
1741
1742         return pfr_buf_add(buf, &trans);
1743 }
1744
1745 u_int32_t
1746 pfctl_get_ticket(struct pfr_buffer *buf, int rs_num, const char *anchor)
1747 {
1748         struct pfioc_trans_e *p;
1749
1750         PFRB_FOREACH(p, buf)
1751                 if (rs_num == p->rs_num && !strcmp(anchor, p->anchor))
1752                         return (p->ticket);
1753         errx(1, "pfctl_get_ticket: assertion failed");
1754 }
1755
1756 int
1757 pfctl_trans(int dev, struct pfr_buffer *buf, u_long cmd, int from)
1758 {
1759         struct pfioc_trans trans;
1760
1761         bzero(&trans, sizeof(trans));
1762         trans.size = buf->pfrb_size - from;
1763         trans.esize = sizeof(struct pfioc_trans_e);
1764         trans.array = ((struct pfioc_trans_e *)buf->pfrb_caddr) + from;
1765         return ioctl(dev, cmd, &trans);
1766 }