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