1/*	$OpenBSD: pf_print_state.c,v 1.52 2008/08/12 16:40:18 david Exp $	*/
2
3/*
4 * Copyright (c) 2001 Daniel Hartmeier
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 *
11 *    - Redistributions of source code must retain the above copyright
12 *      notice, this list of conditions and the following disclaimer.
13 *    - Redistributions in binary form must reproduce the above
14 *      copyright notice, this list of conditions and the following
15 *      disclaimer in the documentation and/or other materials provided
16 *      with the distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
21 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
22 * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
23 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
24 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
25 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
26 * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
28 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 *
31 */
32
33#include <sys/cdefs.h>
34__FBSDID("$FreeBSD$");
35
36#include <sys/types.h>
37#include <sys/socket.h>
38#include <sys/endian.h>
39#include <net/if.h>
40#define TCPSTATES
41#include <netinet/tcp_fsm.h>
42#include <net/pfvar.h>
43#include <arpa/inet.h>
44#include <netdb.h>
45
46#include <stdint.h>
47#include <stdio.h>
48#include <string.h>
49
50#include "pfctl_parser.h"
51#include "pfctl.h"
52
53void	print_name(struct pf_addr *, sa_family_t);
54
55void
56print_addr(struct pf_addr_wrap *addr, sa_family_t af, int verbose)
57{
58	switch (addr->type) {
59	case PF_ADDR_DYNIFTL:
60		printf("(%s", addr->v.ifname);
61		if (addr->iflags & PFI_AFLAG_NETWORK)
62			printf(":network");
63		if (addr->iflags & PFI_AFLAG_BROADCAST)
64			printf(":broadcast");
65		if (addr->iflags & PFI_AFLAG_PEER)
66			printf(":peer");
67		if (addr->iflags & PFI_AFLAG_NOALIAS)
68			printf(":0");
69		if (verbose) {
70			if (addr->p.dyncnt <= 0)
71				printf(":*");
72			else
73				printf(":%d", addr->p.dyncnt);
74		}
75		printf(")");
76		break;
77	case PF_ADDR_TABLE:
78		if (verbose)
79			if (addr->p.tblcnt == -1)
80				printf("<%s:*>", addr->v.tblname);
81			else
82				printf("<%s:%d>", addr->v.tblname,
83				    addr->p.tblcnt);
84		else
85			printf("<%s>", addr->v.tblname);
86		return;
87	case PF_ADDR_RANGE: {
88		char buf[48];
89
90		if (inet_ntop(af, &addr->v.a.addr, buf, sizeof(buf)) == NULL)
91			printf("?");
92		else
93			printf("%s", buf);
94		if (inet_ntop(af, &addr->v.a.mask, buf, sizeof(buf)) == NULL)
95			printf(" - ?");
96		else
97			printf(" - %s", buf);
98		break;
99	}
100	case PF_ADDR_ADDRMASK:
101		if (PF_AZERO(&addr->v.a.addr, AF_INET6) &&
102		    PF_AZERO(&addr->v.a.mask, AF_INET6))
103			printf("any");
104		else {
105			char buf[48];
106
107			if (inet_ntop(af, &addr->v.a.addr, buf,
108			    sizeof(buf)) == NULL)
109				printf("?");
110			else
111				printf("%s", buf);
112		}
113		break;
114	case PF_ADDR_NOROUTE:
115		printf("no-route");
116		return;
117	case PF_ADDR_URPFFAILED:
118		printf("urpf-failed");
119		return;
120	default:
121		printf("?");
122		return;
123	}
124
125	/* mask if not _both_ address and mask are zero */
126	if (addr->type != PF_ADDR_RANGE &&
127	    !(PF_AZERO(&addr->v.a.addr, AF_INET6) &&
128	    PF_AZERO(&addr->v.a.mask, AF_INET6))) {
129		int bits = unmask(&addr->v.a.mask, af);
130
131		if (bits != (af == AF_INET ? 32 : 128))
132			printf("/%d", bits);
133	}
134}
135
136void
137print_name(struct pf_addr *addr, sa_family_t af)
138{
139	char host[NI_MAXHOST];
140
141	strlcpy(host, "?", sizeof(host));
142	switch (af) {
143	case AF_INET: {
144		struct sockaddr_in sin;
145
146		memset(&sin, 0, sizeof(sin));
147		sin.sin_len = sizeof(sin);
148		sin.sin_family = AF_INET;
149		sin.sin_addr = addr->v4;
150		getnameinfo((struct sockaddr *)&sin, sin.sin_len,
151		    host, sizeof(host), NULL, 0, NI_NOFQDN);
152		break;
153	}
154	case AF_INET6: {
155		struct sockaddr_in6 sin6;
156
157		memset(&sin6, 0, sizeof(sin6));
158		sin6.sin6_len = sizeof(sin6);
159		sin6.sin6_family = AF_INET6;
160		sin6.sin6_addr = addr->v6;
161		getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len,
162		    host, sizeof(host), NULL, 0, NI_NOFQDN);
163		break;
164	}
165	}
166	printf("%s", host);
167}
168
169void
170print_host(struct pf_addr *addr, u_int16_t port, sa_family_t af, int opts)
171{
172	if (opts & PF_OPT_USEDNS)
173		print_name(addr, af);
174	else {
175		struct pf_addr_wrap aw;
176
177		memset(&aw, 0, sizeof(aw));
178		aw.v.a.addr = *addr;
179		if (af == AF_INET)
180			aw.v.a.mask.addr32[0] = 0xffffffff;
181		else {
182			memset(&aw.v.a.mask, 0xff, sizeof(aw.v.a.mask));
183			af = AF_INET6;
184		}
185		print_addr(&aw, af, opts & PF_OPT_VERBOSE2);
186	}
187
188	if (port) {
189		if (af == AF_INET)
190			printf(":%u", ntohs(port));
191		else
192			printf("[%u]", ntohs(port));
193	}
194}
195
196void
197print_seq(struct pfsync_state_peer *p)
198{
199	if (p->seqdiff)
200		printf("[%u + %u](+%u)", ntohl(p->seqlo),
201		    ntohl(p->seqhi) - ntohl(p->seqlo), ntohl(p->seqdiff));
202	else
203		printf("[%u + %u]", ntohl(p->seqlo),
204		    ntohl(p->seqhi) - ntohl(p->seqlo));
205}
206
207void
208print_state(struct pfsync_state *s, int opts)
209{
210	struct pfsync_state_peer *src, *dst;
211	struct pfsync_state_key *sk, *nk;
212	struct protoent *p;
213	int min, sec;
214
215	if (s->direction == PF_OUT) {
216		src = &s->src;
217		dst = &s->dst;
218		sk = &s->key[PF_SK_STACK];
219		nk = &s->key[PF_SK_WIRE];
220		if (s->proto == IPPROTO_ICMP || s->proto == IPPROTO_ICMPV6)
221			sk->port[0] = nk->port[0];
222	} else {
223		src = &s->dst;
224		dst = &s->src;
225		sk = &s->key[PF_SK_WIRE];
226		nk = &s->key[PF_SK_STACK];
227		if (s->proto == IPPROTO_ICMP || s->proto == IPPROTO_ICMPV6)
228			sk->port[1] = nk->port[1];
229	}
230	printf("%s ", s->ifname);
231	if ((p = getprotobynumber(s->proto)) != NULL)
232		printf("%s ", p->p_name);
233	else
234		printf("%u ", s->proto);
235
236	print_host(&nk->addr[1], nk->port[1], s->af, opts);
237	if (PF_ANEQ(&nk->addr[1], &sk->addr[1], s->af) ||
238	    nk->port[1] != sk->port[1]) {
239		printf(" (");
240		print_host(&sk->addr[1], sk->port[1], s->af, opts);
241		printf(")");
242	}
243	if (s->direction == PF_OUT)
244		printf(" -> ");
245	else
246		printf(" <- ");
247	print_host(&nk->addr[0], nk->port[0], s->af, opts);
248	if (PF_ANEQ(&nk->addr[0], &sk->addr[0], s->af) ||
249	    nk->port[0] != sk->port[0]) {
250		printf(" (");
251		print_host(&sk->addr[0], sk->port[0], s->af, opts);
252		printf(")");
253	}
254
255	printf("    ");
256	if (s->proto == IPPROTO_TCP) {
257		if (src->state <= TCPS_TIME_WAIT &&
258		    dst->state <= TCPS_TIME_WAIT)
259			printf("   %s:%s\n", tcpstates[src->state],
260			    tcpstates[dst->state]);
261		else if (src->state == PF_TCPS_PROXY_SRC ||
262		    dst->state == PF_TCPS_PROXY_SRC)
263			printf("   PROXY:SRC\n");
264		else if (src->state == PF_TCPS_PROXY_DST ||
265		    dst->state == PF_TCPS_PROXY_DST)
266			printf("   PROXY:DST\n");
267		else
268			printf("   <BAD STATE LEVELS %u:%u>\n",
269			    src->state, dst->state);
270		if (opts & PF_OPT_VERBOSE) {
271			printf("   ");
272			print_seq(src);
273			if (src->wscale && dst->wscale)
274				printf(" wscale %u",
275				    src->wscale & PF_WSCALE_MASK);
276			printf("  ");
277			print_seq(dst);
278			if (src->wscale && dst->wscale)
279				printf(" wscale %u",
280				    dst->wscale & PF_WSCALE_MASK);
281			printf("\n");
282		}
283	} else if (s->proto == IPPROTO_UDP && src->state < PFUDPS_NSTATES &&
284	    dst->state < PFUDPS_NSTATES) {
285		const char *states[] = PFUDPS_NAMES;
286
287		printf("   %s:%s\n", states[src->state], states[dst->state]);
288	} else if (s->proto != IPPROTO_ICMP && src->state < PFOTHERS_NSTATES &&
289	    dst->state < PFOTHERS_NSTATES) {
290		/* XXX ICMP doesn't really have state levels */
291		const char *states[] = PFOTHERS_NAMES;
292
293		printf("   %s:%s\n", states[src->state], states[dst->state]);
294	} else {
295		printf("   %u:%u\n", src->state, dst->state);
296	}
297
298	if (opts & PF_OPT_VERBOSE) {
299		u_int64_t packets[2];
300		u_int64_t bytes[2];
301		u_int32_t creation = ntohl(s->creation);
302		u_int32_t expire = ntohl(s->expire);
303
304		sec = creation % 60;
305		creation /= 60;
306		min = creation % 60;
307		creation /= 60;
308		printf("   age %.2u:%.2u:%.2u", creation, min, sec);
309		sec = expire % 60;
310		expire /= 60;
311		min = expire % 60;
312		expire /= 60;
313		printf(", expires in %.2u:%.2u:%.2u", expire, min, sec);
314
315		bcopy(s->packets[0], &packets[0], sizeof(u_int64_t));
316		bcopy(s->packets[1], &packets[1], sizeof(u_int64_t));
317		bcopy(s->bytes[0], &bytes[0], sizeof(u_int64_t));
318		bcopy(s->bytes[1], &bytes[1], sizeof(u_int64_t));
319		printf(", %ju:%ju pkts, %ju:%ju bytes",
320		    (uintmax_t )be64toh(packets[0]),
321		    (uintmax_t )be64toh(packets[1]),
322		    (uintmax_t )be64toh(bytes[0]),
323		    (uintmax_t )be64toh(bytes[1]));
324		if (ntohl(s->anchor) != -1)
325			printf(", anchor %u", ntohl(s->anchor));
326		if (ntohl(s->rule) != -1)
327			printf(", rule %u", ntohl(s->rule));
328		if (s->state_flags & PFSTATE_SLOPPY)
329			printf(", sloppy");
330		if (s->sync_flags & PFSYNC_FLAG_SRCNODE)
331			printf(", source-track");
332		if (s->sync_flags & PFSYNC_FLAG_NATSRCNODE)
333			printf(", sticky-address");
334		printf("\n");
335	}
336	if (opts & PF_OPT_VERBOSE2) {
337		u_int64_t id;
338
339		bcopy(&s->id, &id, sizeof(u_int64_t));
340		printf("   id: %016jx creatorid: %08x",
341		    (uintmax_t )be64toh(id), ntohl(s->creatorid));
342		printf("\n");
343	}
344}
345
346int
347unmask(struct pf_addr *m, sa_family_t af)
348{
349	int i = 31, j = 0, b = 0;
350	u_int32_t tmp;
351
352	while (j < 4 && m->addr32[j] == 0xffffffff) {
353		b += 32;
354		j++;
355	}
356	if (j < 4) {
357		tmp = ntohl(m->addr32[j]);
358		for (i = 31; tmp & (1 << i); --i)
359			b++;
360	}
361	return (b);
362}
363