1 /*-
2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
3 *
4 * Copyright (c) 2015-2019 Yandex LLC
5 * Copyright (c) 2015-2016 Alexander V. Chernikov <[email protected]>
6 * Copyright (c) 2015-2019 Andrey V. Elsukov <[email protected]>
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 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 */
29
30 #include <sys/cdefs.h>
31 __FBSDID("$FreeBSD$");
32
33 #include <sys/types.h>
34 #include <sys/socket.h>
35
36 #include "ipfw2.h"
37
38 #include <ctype.h>
39 #include <err.h>
40 #include <errno.h>
41 #include <inttypes.h>
42 #include <netdb.h>
43 #include <stdio.h>
44 #include <stdlib.h>
45 #include <string.h>
46 #include <sysexits.h>
47
48 #include <net/if.h>
49 #include <netinet/in.h>
50 #include <netinet/ip_fw.h>
51 #include <netinet6/ip_fw_nat64.h>
52 #include <arpa/inet.h>
53
54 #ifdef FSTACK
55 #ifndef __unused
56 #define __unused __attribute__((__unused__))
57 #endif
58 #endif
59
60 static void nat64lsn_fill_ntlv(ipfw_obj_ntlv *ntlv, const char *name,
61 uint8_t set);
62 typedef int (nat64lsn_cb_t)(ipfw_nat64lsn_cfg *cfg, const char *name,
63 uint8_t set);
64 static int nat64lsn_foreach(nat64lsn_cb_t *f, const char *name, uint8_t set,
65 int sort);
66
67 static void nat64lsn_create(const char *name, uint8_t set, int ac, char **av);
68 static void nat64lsn_config(const char *name, uint8_t set, int ac, char **av);
69 static void nat64lsn_destroy(const char *name, uint8_t set);
70 static void nat64lsn_stats(const char *name, uint8_t set);
71 static void nat64lsn_reset_stats(const char *name, uint8_t set);
72 static int nat64lsn_show_cb(ipfw_nat64lsn_cfg *cfg, const char *name,
73 uint8_t set);
74 static int nat64lsn_destroy_cb(ipfw_nat64lsn_cfg *cfg, const char *name,
75 uint8_t set);
76 static int nat64lsn_states_cb(ipfw_nat64lsn_cfg *cfg, const char *name,
77 uint8_t set);
78
79 static struct _s_x nat64cmds[] = {
80 { "create", TOK_CREATE },
81 { "config", TOK_CONFIG },
82 { "destroy", TOK_DESTROY },
83 { "list", TOK_LIST },
84 { "show", TOK_LIST },
85 { "stats", TOK_STATS },
86 { NULL, 0 }
87 };
88
89 static uint64_t
nat64lsn_print_states(void * buf)90 nat64lsn_print_states(void *buf)
91 {
92 char s[INET6_ADDRSTRLEN], a[INET_ADDRSTRLEN], f[INET_ADDRSTRLEN];
93 const char *proto;
94 char sflags[4], *sf;
95 ipfw_obj_header *oh;
96 ipfw_obj_data *od;
97 ipfw_nat64lsn_stg_v1 *stg;
98 ipfw_nat64lsn_state_v1 *ste;
99 uint64_t next_idx;
100 uint32_t i;
101 int sz;
102
103 oh = (ipfw_obj_header *)buf;
104 od = (ipfw_obj_data *)(oh + 1);
105 stg = (ipfw_nat64lsn_stg_v1 *)(od + 1);
106 sz = od->head.length - sizeof(*od);
107 next_idx = 0;
108 proto = NULL;
109 while (sz > 0 && next_idx != 0xFF) {
110 next_idx = stg->next.index;
111 sz -= sizeof(*stg);
112 if (stg->count == 0) {
113 stg++;
114 continue;
115 }
116 /*
117 * NOTE: addresses are in network byte order,
118 * ports are in host byte order.
119 */
120 inet_ntop(AF_INET, &stg->alias4, a, sizeof(a));
121 ste = (ipfw_nat64lsn_state_v1 *)(stg + 1);
122 for (i = 0; i < stg->count && sz > 0; i++) {
123 sf = sflags;
124 inet_ntop(AF_INET6, &ste->host6, s, sizeof(s));
125 inet_ntop(AF_INET, &ste->daddr, f, sizeof(f));
126 switch (ste->proto) {
127 case IPPROTO_TCP:
128 proto = "TCP";
129 if (ste->flags & 0x02)
130 *sf++ = 'S';
131 if (ste->flags & 0x04)
132 *sf++ = 'E';
133 if (ste->flags & 0x01)
134 *sf++ = 'F';
135 break;
136 case IPPROTO_UDP:
137 proto = "UDP";
138 break;
139 case IPPROTO_ICMP:
140 proto = "ICMPv6";
141 break;
142 }
143 *sf = '\0';
144 switch (ste->proto) {
145 case IPPROTO_TCP:
146 case IPPROTO_UDP:
147 printf("%s:%d\t%s:%d\t%s\t%s\t%d\t%s:%d\n",
148 s, ste->sport, a, ste->aport, proto,
149 sflags, ste->idle, f, ste->dport);
150 break;
151 case IPPROTO_ICMP:
152 printf("%s\t%s\t%s\t\t%d\t%s\n",
153 s, a, proto, ste->idle, f);
154 break;
155 default:
156 printf("%s\t%s\t%d\t\t%d\t%s\n",
157 s, a, ste->proto, ste->idle, f);
158 }
159 ste++;
160 sz -= sizeof(*ste);
161 }
162 stg = (ipfw_nat64lsn_stg_v1 *)ste;
163 }
164 return (next_idx);
165 }
166
167 static int
nat64lsn_states_cb(ipfw_nat64lsn_cfg * cfg,const char * name,uint8_t set)168 nat64lsn_states_cb(ipfw_nat64lsn_cfg *cfg, const char *name, uint8_t set)
169 {
170 ipfw_obj_header *oh;
171 ipfw_obj_data *od;
172 void *buf;
173 uint64_t next_idx;
174 size_t sz;
175
176 if (name != NULL && strcmp(cfg->name, name) != 0)
177 return (ESRCH);
178
179 if (set != 0 && cfg->set != set)
180 return (ESRCH);
181
182 next_idx = 0;
183 sz = 4096;
184 if ((buf = calloc(1, sz)) == NULL)
185 err(EX_OSERR, NULL);
186 do {
187 oh = (ipfw_obj_header *)buf;
188 oh->opheader.version = 1; /* Force using ov new API */
189 od = (ipfw_obj_data *)(oh + 1);
190 nat64lsn_fill_ntlv(&oh->ntlv, cfg->name, set);
191 od->head.type = IPFW_TLV_OBJDATA;
192 od->head.length = sizeof(*od) + sizeof(next_idx);
193 *((uint64_t *)(od + 1)) = next_idx;
194 if (do_get3(IP_FW_NAT64LSN_LIST_STATES, &oh->opheader, &sz))
195 err(EX_OSERR, "Error reading nat64lsn states");
196 next_idx = nat64lsn_print_states(buf);
197 sz = 4096;
198 memset(buf, 0, sz);
199 } while (next_idx != 0xFF);
200
201 free(buf);
202 return (0);
203 }
204
205 static struct _s_x nat64statscmds[] = {
206 { "reset", TOK_RESET },
207 { NULL, 0 }
208 };
209
210 static void
ipfw_nat64lsn_stats_handler(const char * name,uint8_t set,int ac,char * av[])211 ipfw_nat64lsn_stats_handler(const char *name, uint8_t set, int ac, char *av[])
212 {
213 int tcmd;
214
215 if (ac == 0) {
216 nat64lsn_stats(name, set);
217 return;
218 }
219 NEED1("nat64lsn stats needs command");
220 tcmd = get_token(nat64statscmds, *av, "nat64lsn stats command");
221 switch (tcmd) {
222 case TOK_RESET:
223 nat64lsn_reset_stats(name, set);
224 }
225 }
226
227 static struct _s_x nat64listcmds[] = {
228 { "states", TOK_STATES },
229 { "config", TOK_CONFIG },
230 { NULL, 0 }
231 };
232
233 static void
ipfw_nat64lsn_list_handler(const char * name,uint8_t set,int ac,char * av[])234 ipfw_nat64lsn_list_handler(const char *name, uint8_t set, int ac, char *av[])
235 {
236 int tcmd;
237
238 if (ac == 0) {
239 nat64lsn_foreach(nat64lsn_show_cb, name, set, 1);
240 return;
241 }
242 NEED1("nat64lsn list needs command");
243 tcmd = get_token(nat64listcmds, *av, "nat64lsn list command");
244 switch (tcmd) {
245 case TOK_STATES:
246 nat64lsn_foreach(nat64lsn_states_cb, name, set, 1);
247 break;
248 case TOK_CONFIG:
249 nat64lsn_foreach(nat64lsn_show_cb, name, set, 1);
250 }
251 }
252
253 /*
254 * This one handles all nat64lsn-related commands
255 * ipfw [set N] nat64lsn NAME {create | config} ...
256 * ipfw [set N] nat64lsn NAME stats
257 * ipfw [set N] nat64lsn {NAME | all} destroy
258 * ipfw [set N] nat64lsn {NAME | all} {list | show} [config | states]
259 */
260 #define nat64lsn_check_name table_check_name
261 void
ipfw_nat64lsn_handler(int ac,char * av[])262 ipfw_nat64lsn_handler(int ac, char *av[])
263 {
264 const char *name;
265 int tcmd;
266 uint8_t set;
267
268 if (g_co.use_set != 0)
269 set = g_co.use_set - 1;
270 else
271 set = 0;
272 ac--; av++;
273
274 NEED1("nat64lsn needs instance name");
275 name = *av;
276 if (nat64lsn_check_name(name) != 0) {
277 if (strcmp(name, "all") == 0)
278 name = NULL;
279 else
280 errx(EX_USAGE, "nat64lsn instance name %s is invalid",
281 name);
282 }
283 ac--; av++;
284 NEED1("nat64lsn needs command");
285
286 tcmd = get_token(nat64cmds, *av, "nat64lsn command");
287 if (name == NULL && tcmd != TOK_DESTROY && tcmd != TOK_LIST)
288 errx(EX_USAGE, "nat64lsn instance name required");
289 switch (tcmd) {
290 case TOK_CREATE:
291 ac--; av++;
292 nat64lsn_create(name, set, ac, av);
293 break;
294 case TOK_CONFIG:
295 ac--; av++;
296 nat64lsn_config(name, set, ac, av);
297 break;
298 case TOK_LIST:
299 ac--; av++;
300 ipfw_nat64lsn_list_handler(name, set, ac, av);
301 break;
302 case TOK_DESTROY:
303 if (name == NULL)
304 nat64lsn_foreach(nat64lsn_destroy_cb, NULL, set, 0);
305 else
306 nat64lsn_destroy(name, set);
307 break;
308 case TOK_STATS:
309 ac--; av++;
310 ipfw_nat64lsn_stats_handler(name, set, ac, av);
311 }
312 }
313
314 static void
nat64lsn_fill_ntlv(ipfw_obj_ntlv * ntlv,const char * name,uint8_t set)315 nat64lsn_fill_ntlv(ipfw_obj_ntlv *ntlv, const char *name, uint8_t set)
316 {
317
318 ntlv->head.type = IPFW_TLV_EACTION_NAME(1); /* it doesn't matter */
319 ntlv->head.length = sizeof(ipfw_obj_ntlv);
320 ntlv->idx = 1;
321 ntlv->set = set;
322 strlcpy(ntlv->name, name, sizeof(ntlv->name));
323 }
324
325 static void
nat64lsn_apply_mask(int af,void * prefix,uint16_t plen)326 nat64lsn_apply_mask(int af, void *prefix, uint16_t plen)
327 {
328 struct in6_addr mask6, *p6;
329 struct in_addr mask4, *p4;
330
331 if (af == AF_INET) {
332 p4 = (struct in_addr *)prefix;
333 mask4.s_addr = htonl(~((1 << (32 - plen)) - 1));
334 p4->s_addr &= mask4.s_addr;
335 } else if (af == AF_INET6) {
336 p6 = (struct in6_addr *)prefix;
337 n2mask(&mask6, plen);
338 APPLY_MASK(p6, &mask6);
339 }
340 }
341
342 static void
nat64lsn_parse_prefix(const char * arg,int af,void * prefix,uint16_t * plen)343 nat64lsn_parse_prefix(const char *arg, int af, void *prefix, uint16_t *plen)
344 {
345 char *p, *l;
346
347 p = strdup(arg);
348 if (p == NULL)
349 err(EX_OSERR, NULL);
350 if ((l = strchr(p, '/')) != NULL)
351 *l++ = '\0';
352 if (l == NULL)
353 errx(EX_USAGE, "Prefix length required");
354 if (inet_pton(af, p, prefix) != 1)
355 errx(EX_USAGE, "Bad prefix: %s", p);
356 *plen = (uint16_t)strtol(l, &l, 10);
357 if (*l != '\0' || *plen == 0 || (af == AF_INET && *plen > 32) ||
358 (af == AF_INET6 && *plen > 96))
359 errx(EX_USAGE, "Bad prefix length: %s", arg);
360 nat64lsn_apply_mask(af, prefix, *plen);
361 free(p);
362 }
363
364 static uint32_t
nat64lsn_parse_int(const char * arg,const char * desc)365 nat64lsn_parse_int(const char *arg, const char *desc)
366 {
367 char *p;
368 uint32_t val;
369
370 val = (uint32_t)strtol(arg, &p, 10);
371 if (*p != '\0')
372 errx(EX_USAGE, "Invalid %s value: %s\n", desc, arg);
373 return (val);
374 }
375
376 static struct _s_x nat64newcmds[] = {
377 { "prefix6", TOK_PREFIX6 },
378 { "jmaxlen", TOK_JMAXLEN },
379 { "prefix4", TOK_PREFIX4 },
380 { "host_del_age", TOK_HOST_DEL_AGE },
381 { "pg_del_age", TOK_PG_DEL_AGE },
382 { "tcp_syn_age", TOK_TCP_SYN_AGE },
383 { "tcp_close_age",TOK_TCP_CLOSE_AGE },
384 { "tcp_est_age", TOK_TCP_EST_AGE },
385 { "udp_age", TOK_UDP_AGE },
386 { "icmp_age", TOK_ICMP_AGE },
387 { "states_chunks",TOK_STATES_CHUNKS },
388 { "log", TOK_LOG },
389 { "-log", TOK_LOGOFF },
390 { "allow_private", TOK_PRIVATE },
391 { "-allow_private", TOK_PRIVATEOFF },
392 /* for compatibility with old configurations */
393 { "max_ports", TOK_MAX_PORTS }, /* unused */
394 { NULL, 0 }
395 };
396
397 /*
398 * Creates new nat64lsn instance
399 * ipfw nat64lsn <NAME> create
400 * [ max_ports <N> ]
401 * Request: [ ipfw_obj_lheader ipfw_nat64lsn_cfg ]
402 */
403 #define NAT64LSN_HAS_PREFIX4 0x01
404 #define NAT64LSN_HAS_PREFIX6 0x02
405 static void
nat64lsn_create(const char * name,uint8_t set,int ac,char ** av)406 nat64lsn_create(const char *name, uint8_t set, int ac, char **av)
407 {
408 char buf[sizeof(ipfw_obj_lheader) + sizeof(ipfw_nat64lsn_cfg)];
409 ipfw_nat64lsn_cfg *cfg;
410 ipfw_obj_lheader *olh;
411 int tcmd, flags;
412 char *opt;
413
414 memset(&buf, 0, sizeof(buf));
415 olh = (ipfw_obj_lheader *)buf;
416 cfg = (ipfw_nat64lsn_cfg *)(olh + 1);
417
418 /* Some reasonable defaults */
419 inet_pton(AF_INET6, "64:ff9b::", &cfg->prefix6);
420 cfg->plen6 = 96;
421 cfg->set = set;
422 cfg->max_ports = NAT64LSN_MAX_PORTS;
423 cfg->jmaxlen = NAT64LSN_JMAXLEN;
424 cfg->nh_delete_delay = NAT64LSN_HOST_AGE;
425 cfg->pg_delete_delay = NAT64LSN_PG_AGE;
426 cfg->st_syn_ttl = NAT64LSN_TCP_SYN_AGE;
427 cfg->st_estab_ttl = NAT64LSN_TCP_EST_AGE;
428 cfg->st_close_ttl = NAT64LSN_TCP_FIN_AGE;
429 cfg->st_udp_ttl = NAT64LSN_UDP_AGE;
430 cfg->st_icmp_ttl = NAT64LSN_ICMP_AGE;
431 flags = NAT64LSN_HAS_PREFIX6;
432 while (ac > 0) {
433 tcmd = get_token(nat64newcmds, *av, "option");
434 opt = *av;
435 ac--; av++;
436
437 switch (tcmd) {
438 case TOK_PREFIX4:
439 NEED1("IPv4 prefix required");
440 nat64lsn_parse_prefix(*av, AF_INET, &cfg->prefix4,
441 &cfg->plen4);
442 flags |= NAT64LSN_HAS_PREFIX4;
443 ac--; av++;
444 break;
445 case TOK_PREFIX6:
446 NEED1("IPv6 prefix required");
447 nat64lsn_parse_prefix(*av, AF_INET6, &cfg->prefix6,
448 &cfg->plen6);
449 if (ipfw_check_nat64prefix(&cfg->prefix6,
450 cfg->plen6) != 0 &&
451 !IN6_IS_ADDR_UNSPECIFIED(&cfg->prefix6))
452 errx(EX_USAGE, "Bad prefix6 %s", *av);
453
454 ac--; av++;
455 break;
456 case TOK_JMAXLEN:
457 NEED1("job queue length required");
458 cfg->jmaxlen = nat64lsn_parse_int(*av, opt);
459 ac--; av++;
460 break;
461 case TOK_MAX_PORTS:
462 NEED1("Max per-user ports required");
463 cfg->max_ports = nat64lsn_parse_int(*av, opt);
464 ac--; av++;
465 break;
466 case TOK_HOST_DEL_AGE:
467 NEED1("host delete delay required");
468 cfg->nh_delete_delay = (uint16_t)nat64lsn_parse_int(
469 *av, opt);
470 ac--; av++;
471 break;
472 case TOK_PG_DEL_AGE:
473 NEED1("portgroup delete delay required");
474 cfg->pg_delete_delay = (uint16_t)nat64lsn_parse_int(
475 *av, opt);
476 ac--; av++;
477 break;
478 case TOK_TCP_SYN_AGE:
479 NEED1("tcp syn age required");
480 cfg->st_syn_ttl = (uint16_t)nat64lsn_parse_int(
481 *av, opt);
482 ac--; av++;
483 break;
484 case TOK_TCP_CLOSE_AGE:
485 NEED1("tcp close age required");
486 cfg->st_close_ttl = (uint16_t)nat64lsn_parse_int(
487 *av, opt);
488 ac--; av++;
489 break;
490 case TOK_TCP_EST_AGE:
491 NEED1("tcp est age required");
492 cfg->st_estab_ttl = (uint16_t)nat64lsn_parse_int(
493 *av, opt);
494 ac--; av++;
495 break;
496 case TOK_UDP_AGE:
497 NEED1("udp age required");
498 cfg->st_udp_ttl = (uint16_t)nat64lsn_parse_int(
499 *av, opt);
500 ac--; av++;
501 break;
502 case TOK_ICMP_AGE:
503 NEED1("icmp age required");
504 cfg->st_icmp_ttl = (uint16_t)nat64lsn_parse_int(
505 *av, opt);
506 ac--; av++;
507 break;
508 case TOK_STATES_CHUNKS:
509 NEED1("number of chunks required");
510 cfg->states_chunks = (uint8_t)nat64lsn_parse_int(
511 *av, opt);
512 ac--; av++;
513 break;
514 case TOK_LOG:
515 cfg->flags |= NAT64_LOG;
516 break;
517 case TOK_LOGOFF:
518 cfg->flags &= ~NAT64_LOG;
519 break;
520 case TOK_PRIVATE:
521 cfg->flags |= NAT64_ALLOW_PRIVATE;
522 break;
523 case TOK_PRIVATEOFF:
524 cfg->flags &= ~NAT64_ALLOW_PRIVATE;
525 break;
526 }
527 }
528
529 /* Check validness */
530 if ((flags & NAT64LSN_HAS_PREFIX4) != NAT64LSN_HAS_PREFIX4)
531 errx(EX_USAGE, "prefix4 required");
532
533 olh->count = 1;
534 olh->objsize = sizeof(*cfg);
535 olh->size = sizeof(buf);
536 strlcpy(cfg->name, name, sizeof(cfg->name));
537 if (do_set3(IP_FW_NAT64LSN_CREATE, &olh->opheader, sizeof(buf)) != 0)
538 err(EX_OSERR, "nat64lsn instance creation failed");
539 }
540
541 /*
542 * Configures existing nat64lsn instance
543 * ipfw nat64lsn <NAME> config <options>
544 * Request: [ ipfw_obj_header ipfw_nat64lsn_cfg ]
545 */
546 static void
nat64lsn_config(const char * name,uint8_t set,int ac,char ** av)547 nat64lsn_config(const char *name, uint8_t set, int ac, char **av)
548 {
549 char buf[sizeof(ipfw_obj_header) + sizeof(ipfw_nat64lsn_cfg)];
550 ipfw_nat64lsn_cfg *cfg;
551 ipfw_obj_header *oh;
552 size_t sz;
553 char *opt;
554 int tcmd;
555
556 if (ac == 0)
557 errx(EX_USAGE, "config options required");
558 memset(&buf, 0, sizeof(buf));
559 oh = (ipfw_obj_header *)buf;
560 cfg = (ipfw_nat64lsn_cfg *)(oh + 1);
561 sz = sizeof(buf);
562
563 nat64lsn_fill_ntlv(&oh->ntlv, name, set);
564 if (do_get3(IP_FW_NAT64LSN_CONFIG, &oh->opheader, &sz) != 0)
565 err(EX_OSERR, "failed to get config for instance %s", name);
566
567 while (ac > 0) {
568 tcmd = get_token(nat64newcmds, *av, "option");
569 opt = *av;
570 ac--; av++;
571
572 switch (tcmd) {
573 case TOK_MAX_PORTS:
574 NEED1("Max per-user ports required");
575 cfg->max_ports = nat64lsn_parse_int(*av, opt);
576 ac--; av++;
577 break;
578 case TOK_JMAXLEN:
579 NEED1("job queue length required");
580 cfg->jmaxlen = nat64lsn_parse_int(*av, opt);
581 ac--; av++;
582 break;
583 case TOK_HOST_DEL_AGE:
584 NEED1("host delete delay required");
585 cfg->nh_delete_delay = (uint16_t)nat64lsn_parse_int(
586 *av, opt);
587 ac--; av++;
588 break;
589 case TOK_PG_DEL_AGE:
590 NEED1("portgroup delete delay required");
591 cfg->pg_delete_delay = (uint16_t)nat64lsn_parse_int(
592 *av, opt);
593 ac--; av++;
594 break;
595 case TOK_TCP_SYN_AGE:
596 NEED1("tcp syn age required");
597 cfg->st_syn_ttl = (uint16_t)nat64lsn_parse_int(
598 *av, opt);
599 ac--; av++;
600 break;
601 case TOK_TCP_CLOSE_AGE:
602 NEED1("tcp close age required");
603 cfg->st_close_ttl = (uint16_t)nat64lsn_parse_int(
604 *av, opt);
605 ac--; av++;
606 break;
607 case TOK_TCP_EST_AGE:
608 NEED1("tcp est age required");
609 cfg->st_estab_ttl = (uint16_t)nat64lsn_parse_int(
610 *av, opt);
611 ac--; av++;
612 break;
613 case TOK_UDP_AGE:
614 NEED1("udp age required");
615 cfg->st_udp_ttl = (uint16_t)nat64lsn_parse_int(
616 *av, opt);
617 ac--; av++;
618 break;
619 case TOK_ICMP_AGE:
620 NEED1("icmp age required");
621 cfg->st_icmp_ttl = (uint16_t)nat64lsn_parse_int(
622 *av, opt);
623 ac--; av++;
624 break;
625 case TOK_STATES_CHUNKS:
626 NEED1("number of chunks required");
627 cfg->states_chunks = (uint8_t)nat64lsn_parse_int(
628 *av, opt);
629 ac--; av++;
630 break;
631 case TOK_LOG:
632 cfg->flags |= NAT64_LOG;
633 break;
634 case TOK_LOGOFF:
635 cfg->flags &= ~NAT64_LOG;
636 break;
637 case TOK_PRIVATE:
638 cfg->flags |= NAT64_ALLOW_PRIVATE;
639 break;
640 case TOK_PRIVATEOFF:
641 cfg->flags &= ~NAT64_ALLOW_PRIVATE;
642 break;
643 default:
644 errx(EX_USAGE, "Can't change %s option", opt);
645 }
646 }
647
648 if (do_set3(IP_FW_NAT64LSN_CONFIG, &oh->opheader, sizeof(buf)) != 0)
649 err(EX_OSERR, "nat64lsn instance configuration failed");
650 }
651
652 /*
653 * Reset nat64lsn instance statistics specified by @oh->ntlv.
654 * Request: [ ipfw_obj_header ]
655 */
656 static void
nat64lsn_reset_stats(const char * name,uint8_t set)657 nat64lsn_reset_stats(const char *name, uint8_t set)
658 {
659 ipfw_obj_header oh;
660
661 memset(&oh, 0, sizeof(oh));
662 nat64lsn_fill_ntlv(&oh.ntlv, name, set);
663 if (do_set3(IP_FW_NAT64LSN_RESET_STATS, &oh.opheader, sizeof(oh)) != 0)
664 err(EX_OSERR, "failed to reset stats for instance %s", name);
665 }
666
667 /*
668 * Destroys nat64lsn instance specified by @oh->ntlv.
669 * Request: [ ipfw_obj_header ]
670 */
671 static void
nat64lsn_destroy(const char * name,uint8_t set)672 nat64lsn_destroy(const char *name, uint8_t set)
673 {
674 ipfw_obj_header oh;
675
676 memset(&oh, 0, sizeof(oh));
677 nat64lsn_fill_ntlv(&oh.ntlv, name, set);
678 if (do_set3(IP_FW_NAT64LSN_DESTROY, &oh.opheader, sizeof(oh)) != 0)
679 err(EX_OSERR, "failed to destroy nat instance %s", name);
680 }
681
682 /*
683 * Get nat64lsn instance statistics.
684 * Request: [ ipfw_obj_header ]
685 * Reply: [ ipfw_obj_header ipfw_obj_ctlv [ uint64_t x N ] ]
686 */
687 static int
nat64lsn_get_stats(const char * name,uint8_t set,struct ipfw_nat64lsn_stats * stats)688 nat64lsn_get_stats(const char *name, uint8_t set,
689 struct ipfw_nat64lsn_stats *stats)
690 {
691 ipfw_obj_header *oh;
692 ipfw_obj_ctlv *oc;
693 size_t sz;
694
695 sz = sizeof(*oh) + sizeof(*oc) + sizeof(*stats);
696 oh = calloc(1, sz);
697 nat64lsn_fill_ntlv(&oh->ntlv, name, set);
698 if (do_get3(IP_FW_NAT64LSN_STATS, &oh->opheader, &sz) == 0) {
699 oc = (ipfw_obj_ctlv *)(oh + 1);
700 memcpy(stats, oc + 1, sizeof(*stats));
701 free(oh);
702 return (0);
703 }
704 free(oh);
705 return (-1);
706 }
707
708 static void
nat64lsn_stats(const char * name,uint8_t set)709 nat64lsn_stats(const char *name, uint8_t set)
710 {
711 struct ipfw_nat64lsn_stats stats;
712
713 if (nat64lsn_get_stats(name, set, &stats) != 0)
714 err(EX_OSERR, "Error retrieving stats");
715
716 if (g_co.use_set != 0 || set != 0)
717 printf("set %u ", set);
718 printf("nat64lsn %s\n", name);
719 printf("\t%ju packets translated from IPv6 to IPv4\n",
720 (uintmax_t)stats.opcnt64);
721 printf("\t%ju packets translated from IPv4 to IPv6\n",
722 (uintmax_t)stats.opcnt46);
723 printf("\t%ju IPv6 fragments created\n",
724 (uintmax_t)stats.ofrags);
725 printf("\t%ju IPv4 fragments received\n",
726 (uintmax_t)stats.ifrags);
727 printf("\t%ju output packets dropped due to no bufs, etc.\n",
728 (uintmax_t)stats.oerrors);
729 printf("\t%ju output packets discarded due to no IPv4 route\n",
730 (uintmax_t)stats.noroute4);
731 printf("\t%ju output packets discarded due to no IPv6 route\n",
732 (uintmax_t)stats.noroute6);
733 printf("\t%ju packets discarded due to unsupported protocol\n",
734 (uintmax_t)stats.noproto);
735 printf("\t%ju packets discarded due to memory allocation problems\n",
736 (uintmax_t)stats.nomem);
737 printf("\t%ju packets discarded due to some errors\n",
738 (uintmax_t)stats.dropped);
739 printf("\t%ju packets not matched with IPv4 prefix\n",
740 (uintmax_t)stats.nomatch4);
741
742 printf("\t%ju mbufs queued for post processing\n",
743 (uintmax_t)stats.jreinjected);
744 printf("\t%ju times the job queue was processed\n",
745 (uintmax_t)stats.jcalls);
746 printf("\t%ju job requests queued\n",
747 (uintmax_t)stats.jrequests);
748 printf("\t%ju job requests queue limit reached\n",
749 (uintmax_t)stats.jmaxlen);
750 printf("\t%ju job requests failed due to memory allocation problems\n",
751 (uintmax_t)stats.jnomem);
752
753 printf("\t%ju hosts allocated\n", (uintmax_t)stats.hostcount);
754 printf("\t%ju hosts requested\n", (uintmax_t)stats.jhostsreq);
755 printf("\t%ju host requests failed\n", (uintmax_t)stats.jhostfails);
756
757 printf("\t%ju portgroups requested\n", (uintmax_t)stats.jportreq);
758 printf("\t%ju portgroups allocated\n", (uintmax_t)stats.spgcreated);
759 printf("\t%ju portgroups deleted\n", (uintmax_t)stats.spgdeleted);
760 printf("\t%ju portgroup requests failed\n",
761 (uintmax_t)stats.jportfails);
762 printf("\t%ju portgroups allocated for TCP\n",
763 (uintmax_t)stats.tcpchunks);
764 printf("\t%ju portgroups allocated for UDP\n",
765 (uintmax_t)stats.udpchunks);
766 printf("\t%ju portgroups allocated for ICMP\n",
767 (uintmax_t)stats.icmpchunks);
768
769 printf("\t%ju states created\n", (uintmax_t)stats.screated);
770 printf("\t%ju states deleted\n", (uintmax_t)stats.sdeleted);
771 }
772
773 static int
nat64lsn_show_cb(ipfw_nat64lsn_cfg * cfg,const char * name,uint8_t set)774 nat64lsn_show_cb(ipfw_nat64lsn_cfg *cfg, const char *name, uint8_t set)
775 {
776 char abuf[INET6_ADDRSTRLEN];
777
778 if (name != NULL && strcmp(cfg->name, name) != 0)
779 return (ESRCH);
780
781 if (g_co.use_set != 0 && cfg->set != set)
782 return (ESRCH);
783
784 if (g_co.use_set != 0 || cfg->set != 0)
785 printf("set %u ", cfg->set);
786 inet_ntop(AF_INET, &cfg->prefix4, abuf, sizeof(abuf));
787 printf("nat64lsn %s prefix4 %s/%u", cfg->name, abuf, cfg->plen4);
788 inet_ntop(AF_INET6, &cfg->prefix6, abuf, sizeof(abuf));
789 printf(" prefix6 %s/%u", abuf, cfg->plen6);
790 if (g_co.verbose || cfg->states_chunks > 1)
791 printf(" states_chunks %u", cfg->states_chunks);
792 if (g_co.verbose || cfg->nh_delete_delay != NAT64LSN_HOST_AGE)
793 printf(" host_del_age %u", cfg->nh_delete_delay);
794 if (g_co.verbose || cfg->pg_delete_delay != NAT64LSN_PG_AGE)
795 printf(" pg_del_age %u", cfg->pg_delete_delay);
796 if (g_co.verbose || cfg->st_syn_ttl != NAT64LSN_TCP_SYN_AGE)
797 printf(" tcp_syn_age %u", cfg->st_syn_ttl);
798 if (g_co.verbose || cfg->st_close_ttl != NAT64LSN_TCP_FIN_AGE)
799 printf(" tcp_close_age %u", cfg->st_close_ttl);
800 if (g_co.verbose || cfg->st_estab_ttl != NAT64LSN_TCP_EST_AGE)
801 printf(" tcp_est_age %u", cfg->st_estab_ttl);
802 if (g_co.verbose || cfg->st_udp_ttl != NAT64LSN_UDP_AGE)
803 printf(" udp_age %u", cfg->st_udp_ttl);
804 if (g_co.verbose || cfg->st_icmp_ttl != NAT64LSN_ICMP_AGE)
805 printf(" icmp_age %u", cfg->st_icmp_ttl);
806 if (g_co.verbose || cfg->jmaxlen != NAT64LSN_JMAXLEN)
807 printf(" jmaxlen %u", cfg->jmaxlen);
808 if (cfg->flags & NAT64_LOG)
809 printf(" log");
810 if (cfg->flags & NAT64_ALLOW_PRIVATE)
811 printf(" allow_private");
812 printf("\n");
813 return (0);
814 }
815
816 static int
nat64lsn_destroy_cb(ipfw_nat64lsn_cfg * cfg,const char * name __unused,uint8_t set)817 nat64lsn_destroy_cb(ipfw_nat64lsn_cfg *cfg, const char *name __unused,
818 uint8_t set)
819 {
820
821 if (g_co.use_set != 0 && cfg->set != set)
822 return (ESRCH);
823
824 nat64lsn_destroy(cfg->name, cfg->set);
825 return (0);
826 }
827
828
829 /*
830 * Compare nat64lsn instances names.
831 * Honor number comparison.
832 */
833 static int
nat64name_cmp(const void * a,const void * b)834 nat64name_cmp(const void *a, const void *b)
835 {
836 const ipfw_nat64lsn_cfg *ca, *cb;
837
838 ca = (const ipfw_nat64lsn_cfg *)a;
839 cb = (const ipfw_nat64lsn_cfg *)b;
840
841 if (ca->set > cb->set)
842 return (1);
843 else if (ca->set < cb->set)
844 return (-1);
845 return (stringnum_cmp(ca->name, cb->name));
846 }
847
848 /*
849 * Retrieves nat64lsn instance list from kernel,
850 * optionally sorts it and calls requested function for each instance.
851 *
852 * Request: [ ipfw_obj_lheader ]
853 * Reply: [ ipfw_obj_lheader ipfw_nat64lsn_cfg x N ]
854 */
855 static int
nat64lsn_foreach(nat64lsn_cb_t * f,const char * name,uint8_t set,int sort)856 nat64lsn_foreach(nat64lsn_cb_t *f, const char *name, uint8_t set, int sort)
857 {
858 ipfw_obj_lheader *olh;
859 ipfw_nat64lsn_cfg *cfg;
860 size_t sz;
861 uint32_t i;
862 int error;
863
864 /* Start with reasonable default */
865 sz = sizeof(*olh) + 16 * sizeof(ipfw_nat64lsn_cfg);
866
867 for (;;) {
868 if ((olh = calloc(1, sz)) == NULL)
869 return (ENOMEM);
870
871 olh->size = sz;
872 if (do_get3(IP_FW_NAT64LSN_LIST, &olh->opheader, &sz) != 0) {
873 sz = olh->size;
874 free(olh);
875 if (errno != ENOMEM)
876 return (errno);
877 continue;
878 }
879
880 if (sort != 0)
881 qsort(olh + 1, olh->count, olh->objsize,
882 nat64name_cmp);
883
884 cfg = (ipfw_nat64lsn_cfg *)(olh + 1);
885 for (i = 0; i < olh->count; i++) {
886 error = f(cfg, name, set); /* Ignore errors for now */
887 cfg = (ipfw_nat64lsn_cfg *)((caddr_t)cfg +
888 olh->objsize);
889 }
890 free(olh);
891 break;
892 }
893 return (0);
894 }
895
896