1/*
2 * Copyright (c) 1983, 1989, 1991, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 4. Neither the name of the University nor the names of its contributors
14 * may be used to endorse or promote products derived from this software
15 * without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 */
29
30#ifndef lint
31static const char copyright[] =
32"@(#) Copyright (c) 1983, 1989, 1991, 1993\n\
33 The Regents of the University of California. All rights reserved.\n";
34#endif /* not lint */
35
36#ifndef lint
37#if 0
38static char sccsid[] = "@(#)route.c 8.6 (Berkeley) 4/28/95";
39#endif
40#endif /* not lint */
41
42#include <sys/cdefs.h>
| 1/*
2 * Copyright (c) 1983, 1989, 1991, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 4. Neither the name of the University nor the names of its contributors
14 * may be used to endorse or promote products derived from this software
15 * without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 */
29
30#ifndef lint
31static const char copyright[] =
32"@(#) Copyright (c) 1983, 1989, 1991, 1993\n\
33 The Regents of the University of California. All rights reserved.\n";
34#endif /* not lint */
35
36#ifndef lint
37#if 0
38static char sccsid[] = "@(#)route.c 8.6 (Berkeley) 4/28/95";
39#endif
40#endif /* not lint */
41
42#include <sys/cdefs.h>
|
43__FBSDID("$FreeBSD: head/sbin/route/route.c 245168 2013-01-08 17:24:43Z hrs $");
| 43__FBSDID("$FreeBSD: head/sbin/route/route.c 246143 2013-01-31 08:55:21Z glebius $");
|
44
45#include <sys/param.h>
46#include <sys/file.h>
47#include <sys/socket.h>
48#include <sys/ioctl.h>
49#include <sys/sysctl.h>
50#include <sys/types.h>
51#include <sys/queue.h>
52
53#include <net/if.h>
54#include <net/route.h>
55#include <net/if_dl.h>
56#include <netinet/in.h>
57#include <netinet/if_ether.h>
58#include <netatalk/at.h>
59#include <arpa/inet.h>
60#include <netdb.h>
61
62#include <ctype.h>
63#include <err.h>
64#include <errno.h>
65#include <paths.h>
66#include <stdio.h>
67#include <stdlib.h>
68#include <string.h>
69#include <sysexits.h>
70#include <unistd.h>
71#include <ifaddrs.h>
72
73struct keytab {
74 const char *kt_cp;
75 int kt_i;
76} keywords[] = {
77#include "keywords.h"
78 {0, 0}
79};
80
81union sockunion {
82 struct sockaddr sa;
83 struct sockaddr_in sin;
84#ifdef INET6
85 struct sockaddr_in6 sin6;
86#endif
87 struct sockaddr_at sat;
88 struct sockaddr_dl sdl;
| 44
45#include <sys/param.h>
46#include <sys/file.h>
47#include <sys/socket.h>
48#include <sys/ioctl.h>
49#include <sys/sysctl.h>
50#include <sys/types.h>
51#include <sys/queue.h>
52
53#include <net/if.h>
54#include <net/route.h>
55#include <net/if_dl.h>
56#include <netinet/in.h>
57#include <netinet/if_ether.h>
58#include <netatalk/at.h>
59#include <arpa/inet.h>
60#include <netdb.h>
61
62#include <ctype.h>
63#include <err.h>
64#include <errno.h>
65#include <paths.h>
66#include <stdio.h>
67#include <stdlib.h>
68#include <string.h>
69#include <sysexits.h>
70#include <unistd.h>
71#include <ifaddrs.h>
72
73struct keytab {
74 const char *kt_cp;
75 int kt_i;
76} keywords[] = {
77#include "keywords.h"
78 {0, 0}
79};
80
81union sockunion {
82 struct sockaddr sa;
83 struct sockaddr_in sin;
84#ifdef INET6
85 struct sockaddr_in6 sin6;
86#endif
87 struct sockaddr_at sat;
88 struct sockaddr_dl sdl;
|
89 struct sockaddr_inarp sinarp;
| |
90 struct sockaddr_storage ss; /* added to avoid memory overrun */
91} so_dst, so_gate, so_mask, so_genmask, so_ifa, so_ifp;
92
93typedef union sockunion *sup;
94int pid, rtm_addrs;
95int s;
96int forcehost, forcenet, doflush, nflag, af, qflag, tflag;
97int verbose, aflen = sizeof (struct sockaddr_in);
98int locking, lockrest, debugonly;
99struct rt_metrics rt_metrics;
100u_long rtm_inits;
101uid_t uid;
102static int defaultfib;
103static int numfibs;
104
105static int atalk_aton(const char *, struct at_addr *);
106static char *atalk_ntoa(struct at_addr);
107static void bprintf(FILE *, int, u_char *);
108static void flushroutes(int argc, char *argv[]);
109static int flushroutes_fib(int);
110static int getaddr(int, char *, struct hostent **, int);
111static int keyword(const char *);
112static void inet_makenetandmask(u_long, struct sockaddr_in *, u_long);
113#ifdef INET6
114static int inet6_makenetandmask(struct sockaddr_in6 *, const char *);
115#endif
116static void interfaces(void);
117static void mask_addr(void);
118static void monitor(int, char*[]);
119static const char *netname(struct sockaddr *);
120static void newroute(int, char **);
121static int newroute_fib(int, char *, int);
122static void pmsg_addrs(char *, int, size_t);
123static void pmsg_common(struct rt_msghdr *, size_t);
124static int prefixlen(const char *);
125static void print_getmsg(struct rt_msghdr *, int, int);
126static void print_rtmsg(struct rt_msghdr *, size_t);
127static const char *routename(struct sockaddr *);
128static int rtmsg(int, int, int);
129static void set_metric(char *, int);
130static int set_sofib(int);
131static int set_procfib(int);
132static void sockaddr(char *, struct sockaddr *);
133static void sodump(sup, const char *);
134extern char *iso_ntoa(void);
135
136struct fibl {
137 TAILQ_ENTRY(fibl) fl_next;
138
139 int fl_num;
140 int fl_error;
141 int fl_errno;
142};
143TAILQ_HEAD(fibl_head_t, fibl) fibl_head;
144
145static int fiboptlist_csv(const char *, struct fibl_head_t *);
146static int fiboptlist_range(const char *, struct fibl_head_t *);
147
148static void usage(const char *) __dead2;
149
150void
151usage(const char *cp)
152{
153 if (cp != NULL)
154 warnx("bad keyword: %s", cp);
155 (void) fprintf(stderr,
156 "usage: route [-dnqtv] command [[modifiers] args]\n");
157 exit(EX_USAGE);
158 /* NOTREACHED */
159}
160
161int
162main(int argc, char **argv)
163{
164 int ch;
165 size_t len;
166
167 if (argc < 2)
168 usage(NULL);
169
170 while ((ch = getopt(argc, argv, "nqdtv")) != -1)
171 switch(ch) {
172 case 'n':
173 nflag = 1;
174 break;
175 case 'q':
176 qflag = 1;
177 break;
178 case 'v':
179 verbose = 1;
180 break;
181 case 't':
182 tflag = 1;
183 break;
184 case 'd':
185 debugonly = 1;
186 break;
187 case '?':
188 default:
189 usage(NULL);
190 }
191 argc -= optind;
192 argv += optind;
193
194 pid = getpid();
195 uid = geteuid();
196 if (tflag)
197 s = open(_PATH_DEVNULL, O_WRONLY, 0);
198 else
199 s = socket(PF_ROUTE, SOCK_RAW, 0);
200 if (s < 0)
201 err(EX_OSERR, "socket");
202
203 len = sizeof(numfibs);
204 if (sysctlbyname("net.fibs", (void *)&numfibs, &len, NULL, 0) == -1)
205 numfibs = -1;
206
207 len = sizeof(defaultfib);
208 if (numfibs != -1 &&
209 sysctlbyname("net.my_fibnum", (void *)&defaultfib, &len, NULL,
210 0) == -1)
211 defaultfib = -1;
212
213 if (*argv != NULL)
214 switch (keyword(*argv)) {
215 case K_GET:
216 case K_SHOW:
217 uid = 0;
218 /* FALLTHROUGH */
219
220 case K_CHANGE:
221 case K_ADD:
222 case K_DEL:
223 case K_DELETE:
224 newroute(argc, argv);
225 /* NOTREACHED */
226
227 case K_MONITOR:
228 monitor(argc, argv);
229 /* NOTREACHED */
230
231 case K_FLUSH:
232 flushroutes(argc, argv);
233 exit(0);
234 /* NOTREACHED */
235 }
236 usage(*argv);
237 /* NOTREACHED */
238}
239
240static int
241set_sofib(int fib)
242{
243
244 if (fib < 0)
245 return (0);
246 return (setsockopt(s, SOL_SOCKET, SO_SETFIB, (void *)&fib,
247 sizeof(fib)));
248}
249
250static int
251set_procfib(int fib)
252{
253
254 if (fib < 0)
255 return (0);
256 return (setfib(fib));
257}
258
259static int
260fiboptlist_range(const char *arg, struct fibl_head_t *flh)
261{
262 struct fibl *fl;
263 char *str0, *str, *token, *endptr;
264 int fib[2], i, error;
265
266 str0 = str = strdup(arg);
267 error = 0;
268 i = 0;
269 while ((token = strsep(&str, "-")) != NULL) {
270 switch (i) {
271 case 0:
272 case 1:
273 errno = 0;
274 fib[i] = strtol(token, &endptr, 0);
275 if (errno == 0) {
276 if (*endptr != '\0' ||
277 fib[i] < 0 ||
278 (numfibs != -1 && fib[i] > numfibs - 1))
279 errno = EINVAL;
280 }
281 if (errno)
282 error = 1;
283 break;
284 default:
285 error = 1;
286 }
287 if (error)
288 goto fiboptlist_range_ret;
289 i++;
290 }
291 if (fib[0] >= fib[1]) {
292 error = 1;
293 goto fiboptlist_range_ret;
294 }
295 for (i = fib[0]; i <= fib[1]; i++) {
296 fl = calloc(1, sizeof(*fl));
297 if (fl == NULL) {
298 error = 1;
299 goto fiboptlist_range_ret;
300 }
301 fl->fl_num = i;
302 TAILQ_INSERT_TAIL(flh, fl, fl_next);
303 }
304fiboptlist_range_ret:
305 free(str0);
306 return (error);
307}
308
309#define ALLSTRLEN 64
310static int
311fiboptlist_csv(const char *arg, struct fibl_head_t *flh)
312{
313 struct fibl *fl;
314 char *str0, *str, *token, *endptr;
315 int fib, error;
316
317 if (strcmp("all", arg) == 0) {
318 str = calloc(1, ALLSTRLEN);
319 if (str == NULL) {
320 error = 1;
321 goto fiboptlist_csv_ret;
322 }
323 if (numfibs > 1)
324 snprintf(str, ALLSTRLEN - 1, "%d-%d", 0, numfibs - 1);
325 else
326 snprintf(str, ALLSTRLEN - 1, "%d", 0);
327 } else if (strcmp("default", arg) == 0) {
328 str0 = str = calloc(1, ALLSTRLEN);
329 if (str == NULL) {
330 error = 1;
331 goto fiboptlist_csv_ret;
332 }
333 snprintf(str, ALLSTRLEN - 1, "%d", defaultfib);
334 } else
335 str0 = str = strdup(arg);
336
337 error = 0;
338 while ((token = strsep(&str, ",")) != NULL) {
339 if (*token != '-' && strchr(token, '-') != NULL) {
340 error = fiboptlist_range(token, flh);
341 if (error)
342 goto fiboptlist_csv_ret;
343 } else {
344 errno = 0;
345 fib = strtol(token, &endptr, 0);
346 if (errno == 0) {
347 if (*endptr != '\0' ||
348 fib < 0 ||
349 (numfibs != -1 && fib > numfibs - 1))
350 errno = EINVAL;
351 }
352 if (errno) {
353 error = 1;
354 goto fiboptlist_csv_ret;
355 }
356 fl = calloc(1, sizeof(*fl));
357 if (fl == NULL) {
358 error = 1;
359 goto fiboptlist_csv_ret;
360 }
361 fl->fl_num = fib;
362 TAILQ_INSERT_TAIL(flh, fl, fl_next);
363 }
364 }
365fiboptlist_csv_ret:
366 free(str0);
367 return (error);
368}
369
370/*
371 * Purge all entries in the routing tables not
372 * associated with network interfaces.
373 */
374static void
375flushroutes(int argc, char *argv[])
376{
377 struct fibl *fl;
378 int error;
379
380 if (uid != 0 && !debugonly && !tflag) {
381 errx(EX_NOPERM, "must be root to alter routing table");
382 }
383 shutdown(s, SHUT_RD); /* Don't want to read back our messages */
384
385 TAILQ_INIT(&fibl_head);
386 while (argc > 1) {
387 argc--;
388 argv++;
389 if (**argv != '-')
390 usage(*argv);
391 switch (keyword(*argv + 1)) {
392 case K_INET:
393 af = AF_INET;
394 break;
395#ifdef INET6
396 case K_INET6:
397 af = AF_INET6;
398 break;
399#endif
400 case K_ATALK:
401 af = AF_APPLETALK;
402 break;
403 case K_LINK:
404 af = AF_LINK;
405 break;
406 case K_FIB:
407 if (!--argc)
408 usage(*argv);
409 error = fiboptlist_csv(*++argv, &fibl_head);
410 if (error)
411 errx(EX_USAGE, "invalid fib number: %s", *argv);
412 break;
413 default:
414 usage(*argv);
415 }
416 }
417 if (TAILQ_EMPTY(&fibl_head)) {
418 error = fiboptlist_csv("default", &fibl_head);
419 if (error)
420 errx(EX_OSERR, "fiboptlist_csv failed.");
421 }
422 TAILQ_FOREACH(fl, &fibl_head, fl_next)
423 flushroutes_fib(fl->fl_num);
424}
425
426static int
427flushroutes_fib(int fib)
428{
429 struct rt_msghdr *rtm;
430 size_t needed;
431 char *buf, *next, *lim;
432 int mib[6], rlen, seqno, count = 0;
433 int error;
434
435 error = set_sofib(fib);
436 error += set_procfib(fib);
437 if (error) {
438 warn("fib number %d is ignored", fib);
439 return (error);
440 }
441
442retry:
443 mib[0] = CTL_NET;
444 mib[1] = PF_ROUTE;
445 mib[2] = 0; /* protocol */
446 mib[3] = 0; /* wildcard address family */
447 mib[4] = NET_RT_DUMP;
448 mib[5] = 0; /* no flags */
449 if (sysctl(mib, 6, NULL, &needed, NULL, 0) < 0)
450 err(EX_OSERR, "route-sysctl-estimate");
451 if ((buf = malloc(needed)) == NULL)
452 errx(EX_OSERR, "malloc failed");
453 if (sysctl(mib, 6, buf, &needed, NULL, 0) < 0) {
454 if (errno == ENOMEM && count++ < 10) {
455 warnx("Routing table grew, retrying");
456 sleep(1);
457 free(buf);
458 goto retry;
459 }
460 err(EX_OSERR, "route-sysctl-get");
461 }
462 lim = buf + needed;
463 if (verbose)
464 (void) printf("Examining routing table from sysctl\n");
465 seqno = 0; /* ??? */
466 for (next = buf; next < lim; next += rtm->rtm_msglen) {
467 rtm = (struct rt_msghdr *)next;
468 if (verbose)
469 print_rtmsg(rtm, rtm->rtm_msglen);
470 if ((rtm->rtm_flags & RTF_GATEWAY) == 0)
471 continue;
472 if (af != 0) {
473 struct sockaddr *sa = (struct sockaddr *)(rtm + 1);
474
475 if (sa->sa_family != af)
476 continue;
477 }
478 if (debugonly)
479 continue;
480 rtm->rtm_type = RTM_DELETE;
481 rtm->rtm_seq = seqno;
482 rlen = write(s, next, rtm->rtm_msglen);
483 if (rlen < 0 && errno == EPERM)
484 err(1, "write to routing socket");
485 if (rlen < (int)rtm->rtm_msglen) {
486 warn("write to routing socket");
487 (void) printf("got only %d for rlen\n", rlen);
488 free(buf);
489 goto retry;
490 break;
491 }
492 seqno++;
493 if (qflag)
494 continue;
495 if (verbose)
496 print_rtmsg(rtm, rlen);
497 else {
498 struct sockaddr *sa = (struct sockaddr *)(rtm + 1);
499
500 printf("%-20.20s ", rtm->rtm_flags & RTF_HOST ?
501 routename(sa) : netname(sa));
502 sa = (struct sockaddr *)(SA_SIZE(sa) + (char *)sa);
503 printf("%-20.20s ", routename(sa));
504 if (fib >= 0)
505 printf("-fib %-3d ", fib);
506 printf("done\n");
507 }
508 }
509 return (error);
510}
511
512const char *
513routename(struct sockaddr *sa)
514{
515 const char *cp;
516 static char line[MAXHOSTNAMELEN + 1];
517 struct hostent *hp;
518 static char domain[MAXHOSTNAMELEN + 1];
519 static int first = 1, n;
520
521 if (first) {
522 first = 0;
523 if (gethostname(domain, MAXHOSTNAMELEN) == 0 &&
524 (cp = strchr(domain, '.'))) {
525 domain[MAXHOSTNAMELEN] = '\0';
526 (void) strcpy(domain, cp + 1);
527 } else
528 domain[0] = 0;
529 }
530
531 if (sa->sa_len == 0)
532 strcpy(line, "default");
533 else switch (sa->sa_family) {
534
535 case AF_INET:
536 { struct in_addr in;
537 in = ((struct sockaddr_in *)sa)->sin_addr;
538
539 cp = NULL;
540 if (in.s_addr == INADDR_ANY || sa->sa_len < 4)
541 cp = "default";
542 if (cp == NULL && !nflag) {
543 hp = gethostbyaddr((char *)&in, sizeof (struct in_addr),
544 AF_INET);
545 if (hp != NULL) {
546 char *cptr;
547 cptr = strchr(hp->h_name, '.');
548 if (cptr != NULL &&
549 strcmp(cptr + 1, domain) == 0)
550 *cptr = '\0';
551 cp = hp->h_name;
552 }
553 }
554 if (cp != NULL) {
555 strncpy(line, cp, sizeof(line) - 1);
556 line[sizeof(line) - 1] = '\0';
557 } else
558 (void) sprintf(line, "%s", inet_ntoa(in));
559 break;
560 }
561
562#ifdef INET6
563 case AF_INET6:
564 {
565 struct sockaddr_in6 sin6; /* use static var for safety */
566 int niflags = 0;
567
568 memset(&sin6, 0, sizeof(sin6));
569 memcpy(&sin6, sa, sa->sa_len);
570 sin6.sin6_len = sizeof(struct sockaddr_in6);
571 sin6.sin6_family = AF_INET6;
572 if (nflag)
573 niflags |= NI_NUMERICHOST;
574 if (getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len,
575 line, sizeof(line), NULL, 0, niflags) != 0)
576 strncpy(line, "invalid", sizeof(line));
577
578 return(line);
579 }
580#endif
581
582 case AF_APPLETALK:
583 (void) snprintf(line, sizeof(line), "atalk %s",
584 atalk_ntoa(((struct sockaddr_at *)sa)->sat_addr));
585 break;
586
587 case AF_LINK:
588 return (link_ntoa((struct sockaddr_dl *)sa));
589
590 default:
591 {
592 u_short *sp = (u_short *)sa;
593 u_short *splim = sp + ((sa->sa_len + 1) >> 1);
594 char *cps = line + sprintf(line, "(%d)", sa->sa_family);
595 char *cpe = line + sizeof(line);
596
597 while (++sp < splim && cps < cpe) /* start with sa->sa_data */
598 if ((n = snprintf(cps, cpe - cps, " %x", *sp)) > 0)
599 cps += n;
600 else
601 *cps = '\0';
602 break;
603 }
604 }
605 return (line);
606}
607
608/*
609 * Return the name of the network whose address is given.
610 * The address is assumed to be that of a net, not a host.
611 */
612const char *
613netname(struct sockaddr *sa)
614{
615 const char *cp = NULL;
616 static char line[MAXHOSTNAMELEN + 1];
617 struct netent *np = NULL;
618 u_long i;
619 int n;
620
621 switch (sa->sa_family) {
622
623 case AF_INET:
624 { struct in_addr in;
625 in = ((struct sockaddr_in *)sa)->sin_addr;
626
627 i = in.s_addr = ntohl(in.s_addr);
628 if (in.s_addr == 0)
629 cp = "default";
630 else if (!nflag) {
631 np = getnetbyaddr(i, AF_INET);
632 if (np != NULL)
633 cp = np->n_name;
634 }
635#define C(x) (unsigned)((x) & 0xff)
636 if (cp != NULL)
637 strncpy(line, cp, sizeof(line));
638 else if ((in.s_addr & 0xffffff) == 0)
639 (void) sprintf(line, "%u", C(in.s_addr >> 24));
640 else if ((in.s_addr & 0xffff) == 0)
641 (void) sprintf(line, "%u.%u", C(in.s_addr >> 24),
642 C(in.s_addr >> 16));
643 else if ((in.s_addr & 0xff) == 0)
644 (void) sprintf(line, "%u.%u.%u", C(in.s_addr >> 24),
645 C(in.s_addr >> 16), C(in.s_addr >> 8));
646 else
647 (void) sprintf(line, "%u.%u.%u.%u", C(in.s_addr >> 24),
648 C(in.s_addr >> 16), C(in.s_addr >> 8),
649 C(in.s_addr));
650#undef C
651 break;
652 }
653
654#ifdef INET6
655 case AF_INET6:
656 {
657 struct sockaddr_in6 sin6; /* use static var for safety */
658 int niflags = 0;
659
660 memset(&sin6, 0, sizeof(sin6));
661 memcpy(&sin6, sa, sa->sa_len);
662 sin6.sin6_len = sizeof(struct sockaddr_in6);
663 sin6.sin6_family = AF_INET6;
664 if (nflag)
665 niflags |= NI_NUMERICHOST;
666 if (getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len,
667 line, sizeof(line), NULL, 0, niflags) != 0)
668 strncpy(line, "invalid", sizeof(line));
669
670 return(line);
671 }
672#endif
673
674 case AF_APPLETALK:
675 (void) snprintf(line, sizeof(line), "atalk %s",
676 atalk_ntoa(((struct sockaddr_at *)sa)->sat_addr));
677 break;
678
679 case AF_LINK:
680 return (link_ntoa((struct sockaddr_dl *)sa));
681
682
683 default:
684 {
685 u_short *sp = (u_short *)sa->sa_data;
686 u_short *splim = sp + ((sa->sa_len + 1)>>1);
687 char *cps = line + sprintf(line, "af %d:", sa->sa_family);
688 char *cpe = line + sizeof(line);
689
690 while (sp < splim && cps < cpe)
691 if ((n = snprintf(cps, cpe - cps, " %x", *sp++)) > 0)
692 cps += n;
693 else
694 *cps = '\0';
695 break;
696 }
697 }
698 return (line);
699}
700
701static void
702set_metric(char *value, int key)
703{
704 int flag = 0;
705 u_long noval, *valp = &noval;
706
707 switch (key) {
708#define caseof(x, y, z) case x: valp = &rt_metrics.z; flag = y; break
709 caseof(K_MTU, RTV_MTU, rmx_mtu);
710 caseof(K_HOPCOUNT, RTV_HOPCOUNT, rmx_hopcount);
711 caseof(K_EXPIRE, RTV_EXPIRE, rmx_expire);
712 caseof(K_RECVPIPE, RTV_RPIPE, rmx_recvpipe);
713 caseof(K_SENDPIPE, RTV_SPIPE, rmx_sendpipe);
714 caseof(K_SSTHRESH, RTV_SSTHRESH, rmx_ssthresh);
715 caseof(K_RTT, RTV_RTT, rmx_rtt);
716 caseof(K_RTTVAR, RTV_RTTVAR, rmx_rttvar);
717 caseof(K_WEIGHT, RTV_WEIGHT, rmx_weight);
718 }
719 rtm_inits |= flag;
720 if (lockrest || locking)
721 rt_metrics.rmx_locks |= flag;
722 if (locking)
723 locking = 0;
724 *valp = atoi(value);
725}
726
727#define F_ISHOST 0x01
728#define F_FORCENET 0x02
729#define F_FORCEHOST 0x04
730#define F_PROXY 0x08
731#define F_INTERFACE 0x10
732
733static void
734newroute(int argc, char **argv)
735{
736 struct hostent *hp;
737 struct fibl *fl;
738 char *cmd;
739 const char *dest, *gateway, *errmsg;
740 int key, error, flags, nrflags, fibnum;
741
742 if (uid != 0 && !debugonly && !tflag) {
743 errx(EX_NOPERM, "must be root to alter routing table");
744 }
745
746 dest = NULL;
747 gateway = NULL;
748 flags = RTF_STATIC;
749 nrflags = 0;
750 hp = NULL;
751 TAILQ_INIT(&fibl_head);
752
753 cmd = argv[0];
754 if (*cmd != 'g' && *cmd != 's')
755 shutdown(s, SHUT_RD); /* Don't want to read back our messages */
756
757 while (--argc > 0) {
758 if (**(++argv)== '-') {
759 switch (key = keyword(1 + *argv)) {
760 case K_LINK:
761 af = AF_LINK;
762 aflen = sizeof(struct sockaddr_dl);
763 break;
764 case K_INET:
765 af = AF_INET;
766 aflen = sizeof(struct sockaddr_in);
767 break;
768#ifdef INET6
769 case K_INET6:
770 af = AF_INET6;
771 aflen = sizeof(struct sockaddr_in6);
772 break;
773#endif
774 case K_ATALK:
775 af = AF_APPLETALK;
776 aflen = sizeof(struct sockaddr_at);
777 break;
778 case K_SA:
779 af = PF_ROUTE;
780 aflen = sizeof(union sockunion);
781 break;
782 case K_IFACE:
783 case K_INTERFACE:
784 nrflags |= F_INTERFACE;
785 break;
786 case K_NOSTATIC:
787 flags &= ~RTF_STATIC;
788 break;
789 case K_LOCK:
790 locking = 1;
791 break;
792 case K_LOCKREST:
793 lockrest = 1;
794 break;
795 case K_HOST:
796 nrflags |= F_FORCEHOST;
797 break;
798 case K_REJECT:
799 flags |= RTF_REJECT;
800 break;
801 case K_BLACKHOLE:
802 flags |= RTF_BLACKHOLE;
803 break;
804 case K_PROTO1:
805 flags |= RTF_PROTO1;
806 break;
807 case K_PROTO2:
808 flags |= RTF_PROTO2;
809 break;
810 case K_PROXY:
811 nrflags |= F_PROXY;
812 break;
813 case K_XRESOLVE:
814 flags |= RTF_XRESOLVE;
815 break;
816 case K_STATIC:
817 flags |= RTF_STATIC;
818 break;
819 case K_STICKY:
820 flags |= RTF_STICKY;
821 break;
822 case K_NOSTICK:
823 flags &= ~RTF_STICKY;
824 break;
825 case K_FIB:
826 if (!--argc)
827 usage(NULL);
828 error = fiboptlist_csv(*++argv, &fibl_head);
829 if (error)
830 errx(EX_USAGE,
831 "invalid fib number: %s", *argv);
832 break;
833 case K_IFA:
834 if (!--argc)
835 usage(NULL);
836 getaddr(RTA_IFA, *++argv, 0, nrflags);
837 break;
838 case K_IFP:
839 if (!--argc)
840 usage(NULL);
841 getaddr(RTA_IFP, *++argv, 0, nrflags);
842 break;
843 case K_GENMASK:
844 if (!--argc)
845 usage(NULL);
846 getaddr(RTA_GENMASK, *++argv, 0, nrflags);
847 break;
848 case K_GATEWAY:
849 if (!--argc)
850 usage(NULL);
851 getaddr(RTA_GATEWAY, *++argv, 0, nrflags);
852 break;
853 case K_DST:
854 if (!--argc)
855 usage(NULL);
856 if (getaddr(RTA_DST, *++argv, &hp, nrflags))
857 nrflags |= F_ISHOST;
858 dest = *argv;
859 break;
860 case K_NETMASK:
861 if (!--argc)
862 usage(NULL);
863 getaddr(RTA_NETMASK, *++argv, 0, nrflags);
864 /* FALLTHROUGH */
865 case K_NET:
866 nrflags |= F_FORCENET;
867 break;
868 case K_PREFIXLEN:
869 if (!--argc)
870 usage(NULL);
871 if (prefixlen(*++argv) == -1) {
872 nrflags &= ~F_FORCENET;
873 nrflags |= F_ISHOST;
874 } else {
875 nrflags |= F_FORCENET;
876 nrflags &= ~F_ISHOST;
877 }
878 break;
879 case K_MTU:
880 case K_HOPCOUNT:
881 case K_EXPIRE:
882 case K_RECVPIPE:
883 case K_SENDPIPE:
884 case K_SSTHRESH:
885 case K_RTT:
886 case K_RTTVAR:
887 case K_WEIGHT:
888 if (!--argc)
889 usage(NULL);
890 set_metric(*++argv, key);
891 break;
892 default:
893 usage(1+*argv);
894 }
895 } else {
896 if ((rtm_addrs & RTA_DST) == 0) {
897 dest = *argv;
898 if (getaddr(RTA_DST, *argv, &hp, nrflags))
899 nrflags |= F_ISHOST;
900 } else if ((rtm_addrs & RTA_GATEWAY) == 0) {
901 gateway = *argv;
902 getaddr(RTA_GATEWAY, *argv, &hp, nrflags);
903 } else {
904 getaddr(RTA_NETMASK, *argv, 0, nrflags);
905 nrflags |= F_FORCENET;
906 }
907 }
908 }
909
910 if (nrflags & F_FORCEHOST) {
911 nrflags |= F_ISHOST;
912#ifdef INET6
913 if (af == AF_INET6) {
914 rtm_addrs &= ~RTA_NETMASK;
915 memset((void *)&so_mask, 0, sizeof(so_mask));
916 }
917#endif
918 }
919 if (nrflags & F_FORCENET)
920 nrflags &= ~F_ISHOST;
921 flags |= RTF_UP;
922 if (nrflags & F_ISHOST)
923 flags |= RTF_HOST;
924 if ((nrflags & F_INTERFACE) == 0)
925 flags |= RTF_GATEWAY;
| 89 struct sockaddr_storage ss; /* added to avoid memory overrun */
90} so_dst, so_gate, so_mask, so_genmask, so_ifa, so_ifp;
91
92typedef union sockunion *sup;
93int pid, rtm_addrs;
94int s;
95int forcehost, forcenet, doflush, nflag, af, qflag, tflag;
96int verbose, aflen = sizeof (struct sockaddr_in);
97int locking, lockrest, debugonly;
98struct rt_metrics rt_metrics;
99u_long rtm_inits;
100uid_t uid;
101static int defaultfib;
102static int numfibs;
103
104static int atalk_aton(const char *, struct at_addr *);
105static char *atalk_ntoa(struct at_addr);
106static void bprintf(FILE *, int, u_char *);
107static void flushroutes(int argc, char *argv[]);
108static int flushroutes_fib(int);
109static int getaddr(int, char *, struct hostent **, int);
110static int keyword(const char *);
111static void inet_makenetandmask(u_long, struct sockaddr_in *, u_long);
112#ifdef INET6
113static int inet6_makenetandmask(struct sockaddr_in6 *, const char *);
114#endif
115static void interfaces(void);
116static void mask_addr(void);
117static void monitor(int, char*[]);
118static const char *netname(struct sockaddr *);
119static void newroute(int, char **);
120static int newroute_fib(int, char *, int);
121static void pmsg_addrs(char *, int, size_t);
122static void pmsg_common(struct rt_msghdr *, size_t);
123static int prefixlen(const char *);
124static void print_getmsg(struct rt_msghdr *, int, int);
125static void print_rtmsg(struct rt_msghdr *, size_t);
126static const char *routename(struct sockaddr *);
127static int rtmsg(int, int, int);
128static void set_metric(char *, int);
129static int set_sofib(int);
130static int set_procfib(int);
131static void sockaddr(char *, struct sockaddr *);
132static void sodump(sup, const char *);
133extern char *iso_ntoa(void);
134
135struct fibl {
136 TAILQ_ENTRY(fibl) fl_next;
137
138 int fl_num;
139 int fl_error;
140 int fl_errno;
141};
142TAILQ_HEAD(fibl_head_t, fibl) fibl_head;
143
144static int fiboptlist_csv(const char *, struct fibl_head_t *);
145static int fiboptlist_range(const char *, struct fibl_head_t *);
146
147static void usage(const char *) __dead2;
148
149void
150usage(const char *cp)
151{
152 if (cp != NULL)
153 warnx("bad keyword: %s", cp);
154 (void) fprintf(stderr,
155 "usage: route [-dnqtv] command [[modifiers] args]\n");
156 exit(EX_USAGE);
157 /* NOTREACHED */
158}
159
160int
161main(int argc, char **argv)
162{
163 int ch;
164 size_t len;
165
166 if (argc < 2)
167 usage(NULL);
168
169 while ((ch = getopt(argc, argv, "nqdtv")) != -1)
170 switch(ch) {
171 case 'n':
172 nflag = 1;
173 break;
174 case 'q':
175 qflag = 1;
176 break;
177 case 'v':
178 verbose = 1;
179 break;
180 case 't':
181 tflag = 1;
182 break;
183 case 'd':
184 debugonly = 1;
185 break;
186 case '?':
187 default:
188 usage(NULL);
189 }
190 argc -= optind;
191 argv += optind;
192
193 pid = getpid();
194 uid = geteuid();
195 if (tflag)
196 s = open(_PATH_DEVNULL, O_WRONLY, 0);
197 else
198 s = socket(PF_ROUTE, SOCK_RAW, 0);
199 if (s < 0)
200 err(EX_OSERR, "socket");
201
202 len = sizeof(numfibs);
203 if (sysctlbyname("net.fibs", (void *)&numfibs, &len, NULL, 0) == -1)
204 numfibs = -1;
205
206 len = sizeof(defaultfib);
207 if (numfibs != -1 &&
208 sysctlbyname("net.my_fibnum", (void *)&defaultfib, &len, NULL,
209 0) == -1)
210 defaultfib = -1;
211
212 if (*argv != NULL)
213 switch (keyword(*argv)) {
214 case K_GET:
215 case K_SHOW:
216 uid = 0;
217 /* FALLTHROUGH */
218
219 case K_CHANGE:
220 case K_ADD:
221 case K_DEL:
222 case K_DELETE:
223 newroute(argc, argv);
224 /* NOTREACHED */
225
226 case K_MONITOR:
227 monitor(argc, argv);
228 /* NOTREACHED */
229
230 case K_FLUSH:
231 flushroutes(argc, argv);
232 exit(0);
233 /* NOTREACHED */
234 }
235 usage(*argv);
236 /* NOTREACHED */
237}
238
239static int
240set_sofib(int fib)
241{
242
243 if (fib < 0)
244 return (0);
245 return (setsockopt(s, SOL_SOCKET, SO_SETFIB, (void *)&fib,
246 sizeof(fib)));
247}
248
249static int
250set_procfib(int fib)
251{
252
253 if (fib < 0)
254 return (0);
255 return (setfib(fib));
256}
257
258static int
259fiboptlist_range(const char *arg, struct fibl_head_t *flh)
260{
261 struct fibl *fl;
262 char *str0, *str, *token, *endptr;
263 int fib[2], i, error;
264
265 str0 = str = strdup(arg);
266 error = 0;
267 i = 0;
268 while ((token = strsep(&str, "-")) != NULL) {
269 switch (i) {
270 case 0:
271 case 1:
272 errno = 0;
273 fib[i] = strtol(token, &endptr, 0);
274 if (errno == 0) {
275 if (*endptr != '\0' ||
276 fib[i] < 0 ||
277 (numfibs != -1 && fib[i] > numfibs - 1))
278 errno = EINVAL;
279 }
280 if (errno)
281 error = 1;
282 break;
283 default:
284 error = 1;
285 }
286 if (error)
287 goto fiboptlist_range_ret;
288 i++;
289 }
290 if (fib[0] >= fib[1]) {
291 error = 1;
292 goto fiboptlist_range_ret;
293 }
294 for (i = fib[0]; i <= fib[1]; i++) {
295 fl = calloc(1, sizeof(*fl));
296 if (fl == NULL) {
297 error = 1;
298 goto fiboptlist_range_ret;
299 }
300 fl->fl_num = i;
301 TAILQ_INSERT_TAIL(flh, fl, fl_next);
302 }
303fiboptlist_range_ret:
304 free(str0);
305 return (error);
306}
307
308#define ALLSTRLEN 64
309static int
310fiboptlist_csv(const char *arg, struct fibl_head_t *flh)
311{
312 struct fibl *fl;
313 char *str0, *str, *token, *endptr;
314 int fib, error;
315
316 if (strcmp("all", arg) == 0) {
317 str = calloc(1, ALLSTRLEN);
318 if (str == NULL) {
319 error = 1;
320 goto fiboptlist_csv_ret;
321 }
322 if (numfibs > 1)
323 snprintf(str, ALLSTRLEN - 1, "%d-%d", 0, numfibs - 1);
324 else
325 snprintf(str, ALLSTRLEN - 1, "%d", 0);
326 } else if (strcmp("default", arg) == 0) {
327 str0 = str = calloc(1, ALLSTRLEN);
328 if (str == NULL) {
329 error = 1;
330 goto fiboptlist_csv_ret;
331 }
332 snprintf(str, ALLSTRLEN - 1, "%d", defaultfib);
333 } else
334 str0 = str = strdup(arg);
335
336 error = 0;
337 while ((token = strsep(&str, ",")) != NULL) {
338 if (*token != '-' && strchr(token, '-') != NULL) {
339 error = fiboptlist_range(token, flh);
340 if (error)
341 goto fiboptlist_csv_ret;
342 } else {
343 errno = 0;
344 fib = strtol(token, &endptr, 0);
345 if (errno == 0) {
346 if (*endptr != '\0' ||
347 fib < 0 ||
348 (numfibs != -1 && fib > numfibs - 1))
349 errno = EINVAL;
350 }
351 if (errno) {
352 error = 1;
353 goto fiboptlist_csv_ret;
354 }
355 fl = calloc(1, sizeof(*fl));
356 if (fl == NULL) {
357 error = 1;
358 goto fiboptlist_csv_ret;
359 }
360 fl->fl_num = fib;
361 TAILQ_INSERT_TAIL(flh, fl, fl_next);
362 }
363 }
364fiboptlist_csv_ret:
365 free(str0);
366 return (error);
367}
368
369/*
370 * Purge all entries in the routing tables not
371 * associated with network interfaces.
372 */
373static void
374flushroutes(int argc, char *argv[])
375{
376 struct fibl *fl;
377 int error;
378
379 if (uid != 0 && !debugonly && !tflag) {
380 errx(EX_NOPERM, "must be root to alter routing table");
381 }
382 shutdown(s, SHUT_RD); /* Don't want to read back our messages */
383
384 TAILQ_INIT(&fibl_head);
385 while (argc > 1) {
386 argc--;
387 argv++;
388 if (**argv != '-')
389 usage(*argv);
390 switch (keyword(*argv + 1)) {
391 case K_INET:
392 af = AF_INET;
393 break;
394#ifdef INET6
395 case K_INET6:
396 af = AF_INET6;
397 break;
398#endif
399 case K_ATALK:
400 af = AF_APPLETALK;
401 break;
402 case K_LINK:
403 af = AF_LINK;
404 break;
405 case K_FIB:
406 if (!--argc)
407 usage(*argv);
408 error = fiboptlist_csv(*++argv, &fibl_head);
409 if (error)
410 errx(EX_USAGE, "invalid fib number: %s", *argv);
411 break;
412 default:
413 usage(*argv);
414 }
415 }
416 if (TAILQ_EMPTY(&fibl_head)) {
417 error = fiboptlist_csv("default", &fibl_head);
418 if (error)
419 errx(EX_OSERR, "fiboptlist_csv failed.");
420 }
421 TAILQ_FOREACH(fl, &fibl_head, fl_next)
422 flushroutes_fib(fl->fl_num);
423}
424
425static int
426flushroutes_fib(int fib)
427{
428 struct rt_msghdr *rtm;
429 size_t needed;
430 char *buf, *next, *lim;
431 int mib[6], rlen, seqno, count = 0;
432 int error;
433
434 error = set_sofib(fib);
435 error += set_procfib(fib);
436 if (error) {
437 warn("fib number %d is ignored", fib);
438 return (error);
439 }
440
441retry:
442 mib[0] = CTL_NET;
443 mib[1] = PF_ROUTE;
444 mib[2] = 0; /* protocol */
445 mib[3] = 0; /* wildcard address family */
446 mib[4] = NET_RT_DUMP;
447 mib[5] = 0; /* no flags */
448 if (sysctl(mib, 6, NULL, &needed, NULL, 0) < 0)
449 err(EX_OSERR, "route-sysctl-estimate");
450 if ((buf = malloc(needed)) == NULL)
451 errx(EX_OSERR, "malloc failed");
452 if (sysctl(mib, 6, buf, &needed, NULL, 0) < 0) {
453 if (errno == ENOMEM && count++ < 10) {
454 warnx("Routing table grew, retrying");
455 sleep(1);
456 free(buf);
457 goto retry;
458 }
459 err(EX_OSERR, "route-sysctl-get");
460 }
461 lim = buf + needed;
462 if (verbose)
463 (void) printf("Examining routing table from sysctl\n");
464 seqno = 0; /* ??? */
465 for (next = buf; next < lim; next += rtm->rtm_msglen) {
466 rtm = (struct rt_msghdr *)next;
467 if (verbose)
468 print_rtmsg(rtm, rtm->rtm_msglen);
469 if ((rtm->rtm_flags & RTF_GATEWAY) == 0)
470 continue;
471 if (af != 0) {
472 struct sockaddr *sa = (struct sockaddr *)(rtm + 1);
473
474 if (sa->sa_family != af)
475 continue;
476 }
477 if (debugonly)
478 continue;
479 rtm->rtm_type = RTM_DELETE;
480 rtm->rtm_seq = seqno;
481 rlen = write(s, next, rtm->rtm_msglen);
482 if (rlen < 0 && errno == EPERM)
483 err(1, "write to routing socket");
484 if (rlen < (int)rtm->rtm_msglen) {
485 warn("write to routing socket");
486 (void) printf("got only %d for rlen\n", rlen);
487 free(buf);
488 goto retry;
489 break;
490 }
491 seqno++;
492 if (qflag)
493 continue;
494 if (verbose)
495 print_rtmsg(rtm, rlen);
496 else {
497 struct sockaddr *sa = (struct sockaddr *)(rtm + 1);
498
499 printf("%-20.20s ", rtm->rtm_flags & RTF_HOST ?
500 routename(sa) : netname(sa));
501 sa = (struct sockaddr *)(SA_SIZE(sa) + (char *)sa);
502 printf("%-20.20s ", routename(sa));
503 if (fib >= 0)
504 printf("-fib %-3d ", fib);
505 printf("done\n");
506 }
507 }
508 return (error);
509}
510
511const char *
512routename(struct sockaddr *sa)
513{
514 const char *cp;
515 static char line[MAXHOSTNAMELEN + 1];
516 struct hostent *hp;
517 static char domain[MAXHOSTNAMELEN + 1];
518 static int first = 1, n;
519
520 if (first) {
521 first = 0;
522 if (gethostname(domain, MAXHOSTNAMELEN) == 0 &&
523 (cp = strchr(domain, '.'))) {
524 domain[MAXHOSTNAMELEN] = '\0';
525 (void) strcpy(domain, cp + 1);
526 } else
527 domain[0] = 0;
528 }
529
530 if (sa->sa_len == 0)
531 strcpy(line, "default");
532 else switch (sa->sa_family) {
533
534 case AF_INET:
535 { struct in_addr in;
536 in = ((struct sockaddr_in *)sa)->sin_addr;
537
538 cp = NULL;
539 if (in.s_addr == INADDR_ANY || sa->sa_len < 4)
540 cp = "default";
541 if (cp == NULL && !nflag) {
542 hp = gethostbyaddr((char *)&in, sizeof (struct in_addr),
543 AF_INET);
544 if (hp != NULL) {
545 char *cptr;
546 cptr = strchr(hp->h_name, '.');
547 if (cptr != NULL &&
548 strcmp(cptr + 1, domain) == 0)
549 *cptr = '\0';
550 cp = hp->h_name;
551 }
552 }
553 if (cp != NULL) {
554 strncpy(line, cp, sizeof(line) - 1);
555 line[sizeof(line) - 1] = '\0';
556 } else
557 (void) sprintf(line, "%s", inet_ntoa(in));
558 break;
559 }
560
561#ifdef INET6
562 case AF_INET6:
563 {
564 struct sockaddr_in6 sin6; /* use static var for safety */
565 int niflags = 0;
566
567 memset(&sin6, 0, sizeof(sin6));
568 memcpy(&sin6, sa, sa->sa_len);
569 sin6.sin6_len = sizeof(struct sockaddr_in6);
570 sin6.sin6_family = AF_INET6;
571 if (nflag)
572 niflags |= NI_NUMERICHOST;
573 if (getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len,
574 line, sizeof(line), NULL, 0, niflags) != 0)
575 strncpy(line, "invalid", sizeof(line));
576
577 return(line);
578 }
579#endif
580
581 case AF_APPLETALK:
582 (void) snprintf(line, sizeof(line), "atalk %s",
583 atalk_ntoa(((struct sockaddr_at *)sa)->sat_addr));
584 break;
585
586 case AF_LINK:
587 return (link_ntoa((struct sockaddr_dl *)sa));
588
589 default:
590 {
591 u_short *sp = (u_short *)sa;
592 u_short *splim = sp + ((sa->sa_len + 1) >> 1);
593 char *cps = line + sprintf(line, "(%d)", sa->sa_family);
594 char *cpe = line + sizeof(line);
595
596 while (++sp < splim && cps < cpe) /* start with sa->sa_data */
597 if ((n = snprintf(cps, cpe - cps, " %x", *sp)) > 0)
598 cps += n;
599 else
600 *cps = '\0';
601 break;
602 }
603 }
604 return (line);
605}
606
607/*
608 * Return the name of the network whose address is given.
609 * The address is assumed to be that of a net, not a host.
610 */
611const char *
612netname(struct sockaddr *sa)
613{
614 const char *cp = NULL;
615 static char line[MAXHOSTNAMELEN + 1];
616 struct netent *np = NULL;
617 u_long i;
618 int n;
619
620 switch (sa->sa_family) {
621
622 case AF_INET:
623 { struct in_addr in;
624 in = ((struct sockaddr_in *)sa)->sin_addr;
625
626 i = in.s_addr = ntohl(in.s_addr);
627 if (in.s_addr == 0)
628 cp = "default";
629 else if (!nflag) {
630 np = getnetbyaddr(i, AF_INET);
631 if (np != NULL)
632 cp = np->n_name;
633 }
634#define C(x) (unsigned)((x) & 0xff)
635 if (cp != NULL)
636 strncpy(line, cp, sizeof(line));
637 else if ((in.s_addr & 0xffffff) == 0)
638 (void) sprintf(line, "%u", C(in.s_addr >> 24));
639 else if ((in.s_addr & 0xffff) == 0)
640 (void) sprintf(line, "%u.%u", C(in.s_addr >> 24),
641 C(in.s_addr >> 16));
642 else if ((in.s_addr & 0xff) == 0)
643 (void) sprintf(line, "%u.%u.%u", C(in.s_addr >> 24),
644 C(in.s_addr >> 16), C(in.s_addr >> 8));
645 else
646 (void) sprintf(line, "%u.%u.%u.%u", C(in.s_addr >> 24),
647 C(in.s_addr >> 16), C(in.s_addr >> 8),
648 C(in.s_addr));
649#undef C
650 break;
651 }
652
653#ifdef INET6
654 case AF_INET6:
655 {
656 struct sockaddr_in6 sin6; /* use static var for safety */
657 int niflags = 0;
658
659 memset(&sin6, 0, sizeof(sin6));
660 memcpy(&sin6, sa, sa->sa_len);
661 sin6.sin6_len = sizeof(struct sockaddr_in6);
662 sin6.sin6_family = AF_INET6;
663 if (nflag)
664 niflags |= NI_NUMERICHOST;
665 if (getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len,
666 line, sizeof(line), NULL, 0, niflags) != 0)
667 strncpy(line, "invalid", sizeof(line));
668
669 return(line);
670 }
671#endif
672
673 case AF_APPLETALK:
674 (void) snprintf(line, sizeof(line), "atalk %s",
675 atalk_ntoa(((struct sockaddr_at *)sa)->sat_addr));
676 break;
677
678 case AF_LINK:
679 return (link_ntoa((struct sockaddr_dl *)sa));
680
681
682 default:
683 {
684 u_short *sp = (u_short *)sa->sa_data;
685 u_short *splim = sp + ((sa->sa_len + 1)>>1);
686 char *cps = line + sprintf(line, "af %d:", sa->sa_family);
687 char *cpe = line + sizeof(line);
688
689 while (sp < splim && cps < cpe)
690 if ((n = snprintf(cps, cpe - cps, " %x", *sp++)) > 0)
691 cps += n;
692 else
693 *cps = '\0';
694 break;
695 }
696 }
697 return (line);
698}
699
700static void
701set_metric(char *value, int key)
702{
703 int flag = 0;
704 u_long noval, *valp = &noval;
705
706 switch (key) {
707#define caseof(x, y, z) case x: valp = &rt_metrics.z; flag = y; break
708 caseof(K_MTU, RTV_MTU, rmx_mtu);
709 caseof(K_HOPCOUNT, RTV_HOPCOUNT, rmx_hopcount);
710 caseof(K_EXPIRE, RTV_EXPIRE, rmx_expire);
711 caseof(K_RECVPIPE, RTV_RPIPE, rmx_recvpipe);
712 caseof(K_SENDPIPE, RTV_SPIPE, rmx_sendpipe);
713 caseof(K_SSTHRESH, RTV_SSTHRESH, rmx_ssthresh);
714 caseof(K_RTT, RTV_RTT, rmx_rtt);
715 caseof(K_RTTVAR, RTV_RTTVAR, rmx_rttvar);
716 caseof(K_WEIGHT, RTV_WEIGHT, rmx_weight);
717 }
718 rtm_inits |= flag;
719 if (lockrest || locking)
720 rt_metrics.rmx_locks |= flag;
721 if (locking)
722 locking = 0;
723 *valp = atoi(value);
724}
725
726#define F_ISHOST 0x01
727#define F_FORCENET 0x02
728#define F_FORCEHOST 0x04
729#define F_PROXY 0x08
730#define F_INTERFACE 0x10
731
732static void
733newroute(int argc, char **argv)
734{
735 struct hostent *hp;
736 struct fibl *fl;
737 char *cmd;
738 const char *dest, *gateway, *errmsg;
739 int key, error, flags, nrflags, fibnum;
740
741 if (uid != 0 && !debugonly && !tflag) {
742 errx(EX_NOPERM, "must be root to alter routing table");
743 }
744
745 dest = NULL;
746 gateway = NULL;
747 flags = RTF_STATIC;
748 nrflags = 0;
749 hp = NULL;
750 TAILQ_INIT(&fibl_head);
751
752 cmd = argv[0];
753 if (*cmd != 'g' && *cmd != 's')
754 shutdown(s, SHUT_RD); /* Don't want to read back our messages */
755
756 while (--argc > 0) {
757 if (**(++argv)== '-') {
758 switch (key = keyword(1 + *argv)) {
759 case K_LINK:
760 af = AF_LINK;
761 aflen = sizeof(struct sockaddr_dl);
762 break;
763 case K_INET:
764 af = AF_INET;
765 aflen = sizeof(struct sockaddr_in);
766 break;
767#ifdef INET6
768 case K_INET6:
769 af = AF_INET6;
770 aflen = sizeof(struct sockaddr_in6);
771 break;
772#endif
773 case K_ATALK:
774 af = AF_APPLETALK;
775 aflen = sizeof(struct sockaddr_at);
776 break;
777 case K_SA:
778 af = PF_ROUTE;
779 aflen = sizeof(union sockunion);
780 break;
781 case K_IFACE:
782 case K_INTERFACE:
783 nrflags |= F_INTERFACE;
784 break;
785 case K_NOSTATIC:
786 flags &= ~RTF_STATIC;
787 break;
788 case K_LOCK:
789 locking = 1;
790 break;
791 case K_LOCKREST:
792 lockrest = 1;
793 break;
794 case K_HOST:
795 nrflags |= F_FORCEHOST;
796 break;
797 case K_REJECT:
798 flags |= RTF_REJECT;
799 break;
800 case K_BLACKHOLE:
801 flags |= RTF_BLACKHOLE;
802 break;
803 case K_PROTO1:
804 flags |= RTF_PROTO1;
805 break;
806 case K_PROTO2:
807 flags |= RTF_PROTO2;
808 break;
809 case K_PROXY:
810 nrflags |= F_PROXY;
811 break;
812 case K_XRESOLVE:
813 flags |= RTF_XRESOLVE;
814 break;
815 case K_STATIC:
816 flags |= RTF_STATIC;
817 break;
818 case K_STICKY:
819 flags |= RTF_STICKY;
820 break;
821 case K_NOSTICK:
822 flags &= ~RTF_STICKY;
823 break;
824 case K_FIB:
825 if (!--argc)
826 usage(NULL);
827 error = fiboptlist_csv(*++argv, &fibl_head);
828 if (error)
829 errx(EX_USAGE,
830 "invalid fib number: %s", *argv);
831 break;
832 case K_IFA:
833 if (!--argc)
834 usage(NULL);
835 getaddr(RTA_IFA, *++argv, 0, nrflags);
836 break;
837 case K_IFP:
838 if (!--argc)
839 usage(NULL);
840 getaddr(RTA_IFP, *++argv, 0, nrflags);
841 break;
842 case K_GENMASK:
843 if (!--argc)
844 usage(NULL);
845 getaddr(RTA_GENMASK, *++argv, 0, nrflags);
846 break;
847 case K_GATEWAY:
848 if (!--argc)
849 usage(NULL);
850 getaddr(RTA_GATEWAY, *++argv, 0, nrflags);
851 break;
852 case K_DST:
853 if (!--argc)
854 usage(NULL);
855 if (getaddr(RTA_DST, *++argv, &hp, nrflags))
856 nrflags |= F_ISHOST;
857 dest = *argv;
858 break;
859 case K_NETMASK:
860 if (!--argc)
861 usage(NULL);
862 getaddr(RTA_NETMASK, *++argv, 0, nrflags);
863 /* FALLTHROUGH */
864 case K_NET:
865 nrflags |= F_FORCENET;
866 break;
867 case K_PREFIXLEN:
868 if (!--argc)
869 usage(NULL);
870 if (prefixlen(*++argv) == -1) {
871 nrflags &= ~F_FORCENET;
872 nrflags |= F_ISHOST;
873 } else {
874 nrflags |= F_FORCENET;
875 nrflags &= ~F_ISHOST;
876 }
877 break;
878 case K_MTU:
879 case K_HOPCOUNT:
880 case K_EXPIRE:
881 case K_RECVPIPE:
882 case K_SENDPIPE:
883 case K_SSTHRESH:
884 case K_RTT:
885 case K_RTTVAR:
886 case K_WEIGHT:
887 if (!--argc)
888 usage(NULL);
889 set_metric(*++argv, key);
890 break;
891 default:
892 usage(1+*argv);
893 }
894 } else {
895 if ((rtm_addrs & RTA_DST) == 0) {
896 dest = *argv;
897 if (getaddr(RTA_DST, *argv, &hp, nrflags))
898 nrflags |= F_ISHOST;
899 } else if ((rtm_addrs & RTA_GATEWAY) == 0) {
900 gateway = *argv;
901 getaddr(RTA_GATEWAY, *argv, &hp, nrflags);
902 } else {
903 getaddr(RTA_NETMASK, *argv, 0, nrflags);
904 nrflags |= F_FORCENET;
905 }
906 }
907 }
908
909 if (nrflags & F_FORCEHOST) {
910 nrflags |= F_ISHOST;
911#ifdef INET6
912 if (af == AF_INET6) {
913 rtm_addrs &= ~RTA_NETMASK;
914 memset((void *)&so_mask, 0, sizeof(so_mask));
915 }
916#endif
917 }
918 if (nrflags & F_FORCENET)
919 nrflags &= ~F_ISHOST;
920 flags |= RTF_UP;
921 if (nrflags & F_ISHOST)
922 flags |= RTF_HOST;
923 if ((nrflags & F_INTERFACE) == 0)
924 flags |= RTF_GATEWAY;
|
926 if (nrflags & F_PROXY) {
927 so_dst.sinarp.sin_other = SIN_PROXY;
| 925 if (nrflags & F_PROXY)
|
928 flags |= RTF_ANNOUNCE;
| 926 flags |= RTF_ANNOUNCE;
|
929 }
| |
930 if (dest == NULL)
931 dest = "";
932 if (gateway == NULL)
933 gateway = "";
934
935 if (TAILQ_EMPTY(&fibl_head)) {
936 error = fiboptlist_csv("default", &fibl_head);
937 if (error)
938 errx(EX_OSERR, "fiboptlist_csv failed.");
939 }
940 error = 0;
941 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
942 fl->fl_error = newroute_fib(fl->fl_num, cmd, flags);
943 if (fl->fl_error)
944 fl->fl_errno = errno;
945 error += fl->fl_error;
946 }
947 if (*cmd == 'g' || *cmd == 's')
948 exit(error);
949
950 error = 0;
951 if (!qflag) {
952 fibnum = 0;
953 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
954 if (fl->fl_error == 0)
955 fibnum++;
956 }
957 if (fibnum > 0) {
958 int firstfib = 1;
959
960 printf("%s %s %s", cmd,
961 (nrflags & F_ISHOST) ? "host" : "net", dest);
962 if (*gateway)
963 printf(": gateway %s", gateway);
964
965 if (numfibs > 1) {
966 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
967 if (fl->fl_error == 0
968 && fl->fl_num >= 0) {
969 if (firstfib) {
970 printf(" fib ");
971 firstfib = 0;
972 }
973 printf("%d", fl->fl_num);
974 if (fibnum-- > 1)
975 printf(",");
976 }
977 }
978 }
979 printf("\n");
980 }
981
982 fibnum = 0;
983 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
984 if (fl->fl_error != 0) {
985 printf("%s %s %s", cmd, (nrflags & F_ISHOST)
986 ? "host" : "net", dest);
987 if (*gateway)
988 printf(": gateway %s", gateway);
989
990 if (fl->fl_num >= 0)
991 printf(" fib %d", fl->fl_num);
992
993 switch (fl->fl_errno) {
994 case ESRCH:
995 errmsg = "not in table";
996 break;
997 case EBUSY:
998 errmsg = "entry in use";
999 break;
1000 case ENOBUFS:
1001 errmsg = "not enough memory";
1002 break;
1003 case EADDRINUSE:
1004 /*
1005 * handle recursion avoidance
1006 * in rt_setgate()
1007 */
1008 errmsg = "gateway uses the same route";
1009 break;
1010 case EEXIST:
1011 errmsg = "route already in table";
1012 break;
1013 default:
1014 errmsg = strerror(fl->fl_errno);
1015 break;
1016 }
1017 printf(": %s\n", errmsg);
1018 error = 1;
1019 }
1020 }
1021 }
1022 exit(error);
1023}
1024
1025static int
1026newroute_fib(int fib, char *cmd, int flags)
1027{
1028 int error;
1029
1030 error = set_sofib(fib);
1031 if (error) {
1032 warn("fib number %d is ignored", fib);
1033 return (error);
1034 }
1035
1036 error = rtmsg(*cmd, flags, fib);
1037 return (error);
1038}
1039
1040static void
1041inet_makenetandmask(u_long net, struct sockaddr_in *sin, u_long bits)
1042{
1043 u_long mask = 0;
1044 char *cp;
1045
1046 rtm_addrs |= RTA_NETMASK;
1047
1048 /*
1049 * MSB of net should be meaningful. 0/0 is exception.
1050 */
1051 if (net > 0)
1052 while ((net & 0xff000000) == 0)
1053 net <<= 8;
1054
1055 /*
1056 * If no /xx was specified we must calculate the
1057 * CIDR address.
1058 */
1059 if ((bits == 0) && (net != 0)) {
1060 u_long i, j;
1061 for(i=0,j=0xff; i<4; i++) {
1062 if (net & j) {
1063 break;
1064 }
1065 j <<= 8;
1066 }
1067 /* i holds the first non zero bit */
1068 bits = 32 - (i*8);
1069 }
1070 if (bits != 0)
1071 mask = 0xffffffff << (32 - bits);
1072
1073 sin->sin_addr.s_addr = htonl(net);
1074 sin = &so_mask.sin;
1075 sin->sin_addr.s_addr = htonl(mask);
1076 sin->sin_len = 0;
1077 sin->sin_family = 0;
1078 cp = (char *)(&sin->sin_addr + 1);
1079 while (*--cp == 0 && cp > (char *)sin)
1080 ;
1081 sin->sin_len = 1 + cp - (char *)sin;
1082}
1083
1084#ifdef INET6
1085/*
1086 * XXX the function may need more improvement...
1087 */
1088static int
1089inet6_makenetandmask(struct sockaddr_in6 *sin6, const char *plen)
1090{
1091 struct in6_addr in6;
1092
1093 if (plen == NULL) {
1094 if (IN6_IS_ADDR_UNSPECIFIED(&sin6->sin6_addr) &&
1095 sin6->sin6_scope_id == 0) {
1096 plen = "0";
1097 } else if ((sin6->sin6_addr.s6_addr[0] & 0xe0) == 0x20) {
1098 /* aggregatable global unicast - RFC2374 */
1099 memset(&in6, 0, sizeof(in6));
1100 if (!memcmp(&sin6->sin6_addr.s6_addr[8],
1101 &in6.s6_addr[8], 8))
1102 plen = "64";
1103 }
1104 }
1105
1106 if (plen == NULL || strcmp(plen, "128") == 0)
1107 return (1);
1108 rtm_addrs |= RTA_NETMASK;
1109 prefixlen(plen);
1110 return (0);
1111}
1112#endif
1113
1114/*
1115 * Interpret an argument as a network address of some kind,
1116 * returning 1 if a host address, 0 if a network address.
1117 */
1118static int
1119getaddr(int which, char *str, struct hostent **hpp, int nrflags)
1120{
1121 sup su;
1122 struct hostent *hp;
1123 struct netent *np;
1124 u_long val;
1125 char *q;
1126 int afamily; /* local copy of af so we can change it */
1127
1128 if (af == 0) {
1129 af = AF_INET;
1130 aflen = sizeof(struct sockaddr_in);
1131 }
1132 afamily = af;
1133 rtm_addrs |= which;
1134 switch (which) {
1135 case RTA_DST:
1136 su = &so_dst;
1137 break;
1138 case RTA_GATEWAY:
1139 su = &so_gate;
1140 if (nrflags & F_INTERFACE) {
1141 struct ifaddrs *ifap, *ifa;
1142 struct sockaddr_dl *sdl = NULL;
1143
1144 if (getifaddrs(&ifap))
1145 err(1, "getifaddrs");
1146
1147 for (ifa = ifap; ifa != NULL; ifa = ifa->ifa_next) {
1148 if (ifa->ifa_addr->sa_family != AF_LINK)
1149 continue;
1150
1151 if (strcmp(str, ifa->ifa_name) != 0)
1152 continue;
1153
1154 sdl = (struct sockaddr_dl *)ifa->ifa_addr;
1155 }
1156 /* If we found it, then use it */
1157 if (sdl != NULL) {
1158 /*
1159 * Copy is safe since we have a
1160 * sockaddr_storage member in sockunion{}.
1161 * Note that we need to copy before calling
1162 * freeifaddrs().
1163 */
1164 memcpy(&su->sdl, sdl, sdl->sdl_len);
1165 }
1166 freeifaddrs(ifap);
1167 if (sdl != NULL)
1168 return(1);
1169 }
1170 break;
1171 case RTA_NETMASK:
1172 su = &so_mask;
1173 break;
1174 case RTA_GENMASK:
1175 su = &so_genmask;
1176 break;
1177 case RTA_IFP:
1178 su = &so_ifp;
1179 afamily = AF_LINK;
1180 break;
1181 case RTA_IFA:
1182 su = &so_ifa;
1183 break;
1184 default:
1185 usage("internal error");
1186 /*NOTREACHED*/
1187 }
1188 su->sa.sa_len = aflen;
1189 su->sa.sa_family = afamily; /* cases that don't want it have left already */
1190 if (strcmp(str, "default") == 0) {
1191 /*
1192 * Default is net 0.0.0.0/0
1193 */
1194 switch (which) {
1195 case RTA_DST:
1196 forcenet++;
1197#if 0
1198 bzero(su, sizeof(*su)); /* for readability */
1199#endif
1200 getaddr(RTA_NETMASK, str, 0, nrflags);
1201 break;
1202#if 0
1203 case RTA_NETMASK:
1204 case RTA_GENMASK:
1205 bzero(su, sizeof(*su)); /* for readability */
1206#endif
1207 }
1208 return (0);
1209 }
1210 switch (afamily) {
1211#ifdef INET6
1212 case AF_INET6:
1213 {
1214 struct addrinfo hints, *res;
1215 int ecode;
1216
1217 q = NULL;
1218 if (which == RTA_DST && (q = strchr(str, '/')) != NULL)
1219 *q = '\0';
1220 memset(&hints, 0, sizeof(hints));
1221 hints.ai_family = afamily; /*AF_INET6*/
1222 hints.ai_socktype = SOCK_DGRAM; /*dummy*/
1223 ecode = getaddrinfo(str, NULL, &hints, &res);
1224 if (ecode != 0 || res->ai_family != AF_INET6 ||
1225 res->ai_addrlen != sizeof(su->sin6)) {
1226 (void) fprintf(stderr, "%s: %s\n", str,
1227 gai_strerror(ecode));
1228 exit(1);
1229 }
1230 memcpy(&su->sin6, res->ai_addr, sizeof(su->sin6));
1231 freeaddrinfo(res);
1232 if (q != NULL)
1233 *q++ = '/';
1234 if (which == RTA_DST)
1235 return (inet6_makenetandmask(&su->sin6, q));
1236 return (0);
1237 }
1238#endif /* INET6 */
1239
1240 case AF_APPLETALK:
1241 if (!atalk_aton(str, &su->sat.sat_addr))
1242 errx(EX_NOHOST, "bad address: %s", str);
1243 rtm_addrs |= RTA_NETMASK;
1244 return(forcehost || su->sat.sat_addr.s_node != 0);
1245
1246 case AF_LINK:
1247 link_addr(str, &su->sdl);
1248 return (1);
1249
1250
1251 case PF_ROUTE:
1252 su->sa.sa_len = sizeof(*su);
1253 sockaddr(str, &su->sa);
1254 return (1);
1255
1256 case AF_INET:
1257 default:
1258 break;
1259 }
1260
1261 if (hpp == NULL)
1262 hpp = &hp;
1263 *hpp = NULL;
1264
1265 q = strchr(str,'/');
1266 if (q != NULL && which == RTA_DST) {
1267 *q = '\0';
1268 if ((val = inet_network(str)) != INADDR_NONE) {
1269 inet_makenetandmask(
1270 val, &su->sin, strtoul(q+1, 0, 0));
1271 return (0);
1272 }
1273 *q = '/';
1274 }
1275 if ((which != RTA_DST || forcenet == 0) &&
1276 inet_aton(str, &su->sin.sin_addr)) {
1277 val = su->sin.sin_addr.s_addr;
1278 if (which != RTA_DST || forcehost ||
1279 inet_lnaof(su->sin.sin_addr) != INADDR_ANY)
1280 return (1);
1281 else {
1282 val = ntohl(val);
1283 goto netdone;
1284 }
1285 }
1286 if (which == RTA_DST && forcehost == 0 &&
1287 ((val = inet_network(str)) != INADDR_NONE ||
1288 ((np = getnetbyname(str)) != NULL && (val = np->n_net) != 0))) {
1289netdone:
1290 inet_makenetandmask(val, &su->sin, 0);
1291 return (0);
1292 }
1293 hp = gethostbyname(str);
1294 if (hp != NULL) {
1295 *hpp = hp;
1296 su->sin.sin_family = hp->h_addrtype;
1297 memmove((char *)&su->sin.sin_addr, hp->h_addr,
1298 MIN((size_t)hp->h_length, sizeof(su->sin.sin_addr)));
1299 return (1);
1300 }
1301 errx(EX_NOHOST, "bad address: %s", str);
1302}
1303
1304static int
1305prefixlen(const char *str)
1306{
1307 int len = atoi(str), q, r;
1308 int max;
1309 char *p;
1310
1311 rtm_addrs |= RTA_NETMASK;
1312 switch (af) {
1313#ifdef INET6
1314 case AF_INET6:
1315 max = 128;
1316 p = (char *)&so_mask.sin6.sin6_addr;
1317 break;
1318#endif
1319 case AF_INET:
1320 max = 32;
1321 p = (char *)&so_mask.sin.sin_addr;
1322 break;
1323 default:
1324 fprintf(stderr, "prefixlen not supported in this af\n");
1325 exit(1);
1326 }
1327
1328 if (len < 0 || max < len) {
1329 fprintf(stderr, "%s: bad value\n", str);
1330 exit(1);
1331 }
1332
1333 q = len >> 3;
1334 r = len & 7;
1335 so_mask.sa.sa_family = af;
1336 so_mask.sa.sa_len = aflen;
1337 memset((void *)p, 0, max / 8);
1338 if (q > 0)
1339 memset((void *)p, 0xff, q);
1340 if (r > 0)
1341 *((u_char *)p + q) = (0xff00 >> r) & 0xff;
1342 if (len == max)
1343 return (-1);
1344 else
1345 return (len);
1346}
1347
1348static void
1349interfaces(void)
1350{
1351 size_t needed;
1352 int mib[6];
1353 char *buf, *lim, *next, count = 0;
1354 struct rt_msghdr *rtm;
1355
1356retry2:
1357 mib[0] = CTL_NET;
1358 mib[1] = PF_ROUTE;
1359 mib[2] = 0; /* protocol */
1360 mib[3] = 0; /* wildcard address family */
1361 mib[4] = NET_RT_IFLIST;
1362 mib[5] = 0; /* no flags */
1363 if (sysctl(mib, 6, NULL, &needed, NULL, 0) < 0)
1364 err(EX_OSERR, "route-sysctl-estimate");
1365 if ((buf = malloc(needed)) == NULL)
1366 errx(EX_OSERR, "malloc failed");
1367 if (sysctl(mib, 6, buf, &needed, NULL, 0) < 0) {
1368 if (errno == ENOMEM && count++ < 10) {
1369 warnx("Routing table grew, retrying");
1370 sleep(1);
1371 free(buf);
1372 goto retry2;
1373 }
1374 err(EX_OSERR, "actual retrieval of interface table");
1375 }
1376 lim = buf + needed;
1377 for (next = buf; next < lim; next += rtm->rtm_msglen) {
1378 rtm = (struct rt_msghdr *)next;
1379 print_rtmsg(rtm, rtm->rtm_msglen);
1380 }
1381}
1382
1383static void
1384monitor(int argc, char *argv[])
1385{
1386 int n, fib, error;
1387 char msg[2048], *endptr;
1388
1389 fib = defaultfib;
1390 while (argc > 1) {
1391 argc--;
1392 argv++;
1393 if (**argv != '-')
1394 usage(*argv);
1395 switch (keyword(*argv + 1)) {
1396 case K_FIB:
1397 if (!--argc)
1398 usage(*argv);
1399 errno = 0;
1400 fib = strtol(*++argv, &endptr, 0);
1401 if (errno == 0) {
1402 if (*endptr != '\0' ||
1403 fib < 0 ||
1404 (numfibs != -1 && fib > numfibs - 1))
1405 errno = EINVAL;
1406 }
1407 if (errno)
1408 errx(EX_USAGE, "invalid fib number: %s", *argv);
1409 break;
1410 default:
1411 usage(*argv);
1412 }
1413 }
1414 error = set_sofib(fib);
1415 if (error)
1416 errx(EX_USAGE, "invalid fib number: %d", fib);
1417
1418 verbose = 1;
1419 if (debugonly) {
1420 interfaces();
1421 exit(0);
1422 }
1423 for (;;) {
1424 time_t now;
1425 n = read(s, msg, 2048);
1426 now = time(NULL);
1427 (void) printf("\ngot message of size %d on %s", n, ctime(&now));
1428 print_rtmsg((struct rt_msghdr *)msg, n);
1429 }
1430}
1431
1432struct {
1433 struct rt_msghdr m_rtm;
1434 char m_space[512];
1435} m_rtmsg;
1436
1437static int
1438rtmsg(int cmd, int flags, int fib)
1439{
1440 static int seq;
1441 int rlen;
1442 char *cp = m_rtmsg.m_space;
1443 int l;
1444
1445#define NEXTADDR(w, u) \
1446 if (rtm_addrs & (w)) {\
1447 l = SA_SIZE(&(u.sa)); memmove(cp, &(u), l); cp += l;\
1448 if (verbose) sodump(&(u),#u);\
1449 }
1450
1451 errno = 0;
1452 memset(&m_rtmsg, 0, sizeof(m_rtmsg));
1453 if (cmd == 'a')
1454 cmd = RTM_ADD;
1455 else if (cmd == 'c')
1456 cmd = RTM_CHANGE;
1457 else if (cmd == 'g' || cmd == 's') {
1458 cmd = RTM_GET;
1459 if (so_ifp.sa.sa_family == 0) {
1460 so_ifp.sa.sa_family = AF_LINK;
1461 so_ifp.sa.sa_len = sizeof(struct sockaddr_dl);
1462 rtm_addrs |= RTA_IFP;
1463 }
1464 } else
1465 cmd = RTM_DELETE;
1466#define rtm m_rtmsg.m_rtm
1467 rtm.rtm_type = cmd;
1468 rtm.rtm_flags = flags;
1469 rtm.rtm_version = RTM_VERSION;
1470 rtm.rtm_seq = ++seq;
1471 rtm.rtm_addrs = rtm_addrs;
1472 rtm.rtm_rmx = rt_metrics;
1473 rtm.rtm_inits = rtm_inits;
1474
1475 if (rtm_addrs & RTA_NETMASK)
1476 mask_addr();
1477 NEXTADDR(RTA_DST, so_dst);
1478 NEXTADDR(RTA_GATEWAY, so_gate);
1479 NEXTADDR(RTA_NETMASK, so_mask);
1480 NEXTADDR(RTA_GENMASK, so_genmask);
1481 NEXTADDR(RTA_IFP, so_ifp);
1482 NEXTADDR(RTA_IFA, so_ifa);
1483 rtm.rtm_msglen = l = cp - (char *)&m_rtmsg;
1484 if (verbose)
1485 print_rtmsg(&rtm, l);
1486 if (debugonly)
1487 return (0);
1488 if ((rlen = write(s, (char *)&m_rtmsg, l)) < 0) {
1489 if (errno == EPERM)
1490 err(1, "writing to routing socket");
1491 warn("writing to routing socket");
1492 return (-1);
1493 }
1494 if (cmd == RTM_GET) {
1495 do {
1496 l = read(s, (char *)&m_rtmsg, sizeof(m_rtmsg));
1497 } while (l > 0 && (rtm.rtm_seq != seq || rtm.rtm_pid != pid));
1498 if (l < 0)
1499 warn("read from routing socket");
1500 else
1501 print_getmsg(&rtm, l, fib);
1502 }
1503#undef rtm
1504 return (0);
1505}
1506
1507static void
1508mask_addr(void)
1509{
1510 int olen = so_mask.sa.sa_len;
1511 char *cp1 = olen + (char *)&so_mask, *cp2;
1512
1513 for (so_mask.sa.sa_len = 0; cp1 > (char *)&so_mask; )
1514 if (*--cp1 != 0) {
1515 so_mask.sa.sa_len = 1 + cp1 - (char *)&so_mask;
1516 break;
1517 }
1518 if ((rtm_addrs & RTA_DST) == 0)
1519 return;
1520 switch (so_dst.sa.sa_family) {
1521 case AF_INET:
1522#ifdef INET6
1523 case AF_INET6:
1524#endif
1525 case AF_APPLETALK:
1526 case 0:
1527 return;
1528 }
1529 cp1 = so_mask.sa.sa_len + 1 + (char *)&so_dst;
1530 cp2 = so_dst.sa.sa_len + 1 + (char *)&so_dst;
1531 while (cp2 > cp1)
1532 *--cp2 = 0;
1533 cp2 = so_mask.sa.sa_len + 1 + (char *)&so_mask;
1534 while (cp1 > so_dst.sa.sa_data)
1535 *--cp1 &= *--cp2;
1536}
1537
1538const char *msgtypes[] = {
1539 "",
1540 "RTM_ADD: Add Route",
1541 "RTM_DELETE: Delete Route",
1542 "RTM_CHANGE: Change Metrics or flags",
1543 "RTM_GET: Report Metrics",
1544 "RTM_LOSING: Kernel Suspects Partitioning",
1545 "RTM_REDIRECT: Told to use different route",
1546 "RTM_MISS: Lookup failed on this address",
1547 "RTM_LOCK: fix specified metrics",
1548 "RTM_OLDADD: caused by SIOCADDRT",
1549 "RTM_OLDDEL: caused by SIOCDELRT",
1550 "RTM_RESOLVE: Route created by cloning",
1551 "RTM_NEWADDR: address being added to iface",
1552 "RTM_DELADDR: address being removed from iface",
1553 "RTM_IFINFO: iface status change",
1554 "RTM_NEWMADDR: new multicast group membership on iface",
1555 "RTM_DELMADDR: multicast group membership removed from iface",
1556 "RTM_IFANNOUNCE: interface arrival/departure",
1557 "RTM_IEEE80211: IEEE 802.11 wireless event",
1558};
1559
1560char metricnames[] =
1561"\011weight\010rttvar\7rtt\6ssthresh\5sendpipe\4recvpipe\3expire"
1562"\1mtu";
1563char routeflags[] =
1564"\1UP\2GATEWAY\3HOST\4REJECT\5DYNAMIC\6MODIFIED\7DONE"
1565"\012XRESOLVE\013LLINFO\014STATIC\015BLACKHOLE"
1566"\017PROTO2\020PROTO1\021PRCLONING\022WASCLONED\023PROTO3"
1567"\025PINNED\026LOCAL\027BROADCAST\030MULTICAST\035STICKY";
1568char ifnetflags[] =
1569"\1UP\2BROADCAST\3DEBUG\4LOOPBACK\5PTP\6b6\7RUNNING\010NOARP"
1570"\011PPROMISC\012ALLMULTI\013OACTIVE\014SIMPLEX\015LINK0\016LINK1"
1571"\017LINK2\020MULTICAST";
1572char addrnames[] =
1573"\1DST\2GATEWAY\3NETMASK\4GENMASK\5IFP\6IFA\7AUTHOR\010BRD";
1574
1575static const char errfmt[] =
1576"\n%s: truncated route message, only %zu bytes left\n";
1577
1578static void
1579print_rtmsg(struct rt_msghdr *rtm, size_t msglen)
1580{
1581 struct if_msghdr *ifm;
1582 struct ifa_msghdr *ifam;
1583#ifdef RTM_NEWMADDR
1584 struct ifma_msghdr *ifmam;
1585#endif
1586 struct if_announcemsghdr *ifan;
1587 const char *state;
1588
1589 if (verbose == 0)
1590 return;
1591 if (rtm->rtm_version != RTM_VERSION) {
1592 (void) printf("routing message version %d not understood\n",
1593 rtm->rtm_version);
1594 return;
1595 }
1596 if (rtm->rtm_type < sizeof(msgtypes) / sizeof(msgtypes[0]))
1597 (void)printf("%s: ", msgtypes[rtm->rtm_type]);
1598 else
1599 (void)printf("unknown type %d: ", rtm->rtm_type);
1600 (void)printf("len %d, ", rtm->rtm_msglen);
1601
1602#define REQUIRE(x) do { \
1603 if (msglen < sizeof(x)) \
1604 goto badlen; \
1605 else \
1606 msglen -= sizeof(x); \
1607 } while (0)
1608
1609 switch (rtm->rtm_type) {
1610 case RTM_IFINFO:
1611 REQUIRE(struct if_msghdr);
1612 ifm = (struct if_msghdr *)rtm;
1613 (void) printf("if# %d, ", ifm->ifm_index);
1614 switch (ifm->ifm_data.ifi_link_state) {
1615 case LINK_STATE_DOWN:
1616 state = "down";
1617 break;
1618 case LINK_STATE_UP:
1619 state = "up";
1620 break;
1621 default:
1622 state = "unknown";
1623 break;
1624 }
1625 (void) printf("link: %s, flags:", state);
1626 bprintf(stdout, ifm->ifm_flags, ifnetflags);
1627 pmsg_addrs((char *)(ifm + 1), ifm->ifm_addrs, msglen);
1628 break;
1629 case RTM_NEWADDR:
1630 case RTM_DELADDR:
1631 REQUIRE(struct ifa_msghdr);
1632 ifam = (struct ifa_msghdr *)rtm;
1633 (void) printf("metric %d, flags:", ifam->ifam_metric);
1634 bprintf(stdout, ifam->ifam_flags, routeflags);
1635 pmsg_addrs((char *)(ifam + 1), ifam->ifam_addrs, msglen);
1636 break;
1637#ifdef RTM_NEWMADDR
1638 case RTM_NEWMADDR:
1639 case RTM_DELMADDR:
1640 REQUIRE(struct ifma_msghdr);
1641 ifmam = (struct ifma_msghdr *)rtm;
1642 pmsg_addrs((char *)(ifmam + 1), ifmam->ifmam_addrs, msglen);
1643 break;
1644#endif
1645 case RTM_IFANNOUNCE:
1646 REQUIRE(struct if_announcemsghdr);
1647 ifan = (struct if_announcemsghdr *)rtm;
1648 (void) printf("if# %d, what: ", ifan->ifan_index);
1649 switch (ifan->ifan_what) {
1650 case IFAN_ARRIVAL:
1651 printf("arrival");
1652 break;
1653 case IFAN_DEPARTURE:
1654 printf("departure");
1655 break;
1656 default:
1657 printf("#%d", ifan->ifan_what);
1658 break;
1659 }
1660 printf("\n");
1661 fflush(stdout);
1662 break;
1663
1664 default:
1665 (void) printf("pid: %ld, seq %d, errno %d, flags:",
1666 (long)rtm->rtm_pid, rtm->rtm_seq, rtm->rtm_errno);
1667 bprintf(stdout, rtm->rtm_flags, routeflags);
1668 pmsg_common(rtm, msglen);
1669 }
1670
1671 return;
1672
1673badlen:
1674 (void)printf(errfmt, __func__, msglen);
1675#undef REQUIRE
1676}
1677
1678static void
1679print_getmsg(struct rt_msghdr *rtm, int msglen, int fib)
1680{
1681 struct sockaddr *dst = NULL, *gate = NULL, *mask = NULL;
1682 struct sockaddr_dl *ifp = NULL;
1683 struct sockaddr *sa;
1684 char *cp;
1685 int i;
1686
1687 (void) printf(" route to: %s\n",
1688 routename((struct sockaddr *)&so_dst));
1689 if (rtm->rtm_version != RTM_VERSION) {
1690 warnx("routing message version %d not understood",
1691 rtm->rtm_version);
1692 return;
1693 }
1694 if (rtm->rtm_msglen > msglen) {
1695 warnx("message length mismatch, in packet %d, returned %d",
1696 rtm->rtm_msglen, msglen);
1697 }
1698 if (rtm->rtm_errno) {
1699 errno = rtm->rtm_errno;
1700 warn("message indicates error %d", errno);
1701 return;
1702 }
1703 cp = ((char *)(rtm + 1));
1704 if (rtm->rtm_addrs)
1705 for (i = 1; i; i <<= 1)
1706 if (i & rtm->rtm_addrs) {
1707 sa = (struct sockaddr *)cp;
1708 switch (i) {
1709 case RTA_DST:
1710 dst = sa;
1711 break;
1712 case RTA_GATEWAY:
1713 gate = sa;
1714 break;
1715 case RTA_NETMASK:
1716 mask = sa;
1717 break;
1718 case RTA_IFP:
1719 if (sa->sa_family == AF_LINK &&
1720 ((struct sockaddr_dl *)sa)->sdl_nlen)
1721 ifp = (struct sockaddr_dl *)sa;
1722 break;
1723 }
1724 cp += SA_SIZE(sa);
1725 }
1726 if (dst && mask)
1727 mask->sa_family = dst->sa_family; /* XXX */
1728 if (dst)
1729 (void)printf("destination: %s\n", routename(dst));
1730 if (mask) {
1731 int savenflag = nflag;
1732
1733 nflag = 1;
1734 (void)printf(" mask: %s\n", routename(mask));
1735 nflag = savenflag;
1736 }
1737 if (gate && rtm->rtm_flags & RTF_GATEWAY)
1738 (void)printf(" gateway: %s\n", routename(gate));
1739 if (fib >= 0)
1740 (void)printf(" fib: %u\n", (unsigned int)fib);
1741 if (ifp)
1742 (void)printf(" interface: %.*s\n",
1743 ifp->sdl_nlen, ifp->sdl_data);
1744 (void)printf(" flags: ");
1745 bprintf(stdout, rtm->rtm_flags, routeflags);
1746
1747#define lock(f) ((rtm->rtm_rmx.rmx_locks & __CONCAT(RTV_,f)) ? 'L' : ' ')
1748#define msec(u) (((u) + 500) / 1000) /* usec to msec */
1749
1750 (void) printf("\n%s\n", "\
1751 recvpipe sendpipe ssthresh rtt,msec mtu weight expire");
1752 printf("%8ld%c ", rtm->rtm_rmx.rmx_recvpipe, lock(RPIPE));
1753 printf("%8ld%c ", rtm->rtm_rmx.rmx_sendpipe, lock(SPIPE));
1754 printf("%8ld%c ", rtm->rtm_rmx.rmx_ssthresh, lock(SSTHRESH));
1755 printf("%8ld%c ", msec(rtm->rtm_rmx.rmx_rtt), lock(RTT));
1756 printf("%8ld%c ", rtm->rtm_rmx.rmx_mtu, lock(MTU));
1757 printf("%8ld%c ", rtm->rtm_rmx.rmx_weight, lock(WEIGHT));
1758 if (rtm->rtm_rmx.rmx_expire)
1759 rtm->rtm_rmx.rmx_expire -= time(0);
1760 printf("%8ld%c\n", rtm->rtm_rmx.rmx_expire, lock(EXPIRE));
1761#undef lock
1762#undef msec
1763#define RTA_IGN (RTA_DST|RTA_GATEWAY|RTA_NETMASK|RTA_IFP|RTA_IFA|RTA_BRD)
1764 if (verbose)
1765 pmsg_common(rtm, msglen);
1766 else if (rtm->rtm_addrs &~ RTA_IGN) {
1767 (void) printf("sockaddrs: ");
1768 bprintf(stdout, rtm->rtm_addrs, addrnames);
1769 putchar('\n');
1770 }
1771#undef RTA_IGN
1772}
1773
1774static void
1775pmsg_common(struct rt_msghdr *rtm, size_t msglen)
1776{
1777 (void) printf("\nlocks: ");
1778 bprintf(stdout, rtm->rtm_rmx.rmx_locks, metricnames);
1779 (void) printf(" inits: ");
1780 bprintf(stdout, rtm->rtm_inits, metricnames);
1781 if (msglen > sizeof(struct rt_msghdr))
1782 pmsg_addrs(((char *)(rtm + 1)), rtm->rtm_addrs,
1783 msglen - sizeof(struct rt_msghdr));
1784 else
1785 (void) fflush(stdout);
1786}
1787
1788static void
1789pmsg_addrs(char *cp, int addrs, size_t len)
1790{
1791 struct sockaddr *sa;
1792 int i;
1793
1794 if (addrs == 0) {
1795 (void) putchar('\n');
1796 return;
1797 }
1798 (void) printf("\nsockaddrs: ");
1799 bprintf(stdout, addrs, addrnames);
1800 (void) putchar('\n');
1801 for (i = 1; i != 0; i <<= 1)
1802 if (i & addrs) {
1803 sa = (struct sockaddr *)cp;
1804 if (len == 0 || len < SA_SIZE(sa)) {
1805 (void) printf(errfmt, __func__, len);
1806 break;
1807 }
1808 (void) printf(" %s", routename(sa));
1809 len -= SA_SIZE(sa);
1810 cp += SA_SIZE(sa);
1811 }
1812 (void) putchar('\n');
1813 (void) fflush(stdout);
1814}
1815
1816static void
1817bprintf(FILE *fp, int b, u_char *str)
1818{
1819 int i;
1820 int gotsome = 0;
1821
1822 if (b == 0)
1823 return;
1824 while ((i = *str++) != 0) {
1825 if (b & (1 << (i-1))) {
1826 if (gotsome == 0)
1827 i = '<';
1828 else
1829 i = ',';
1830 (void) putc(i, fp);
1831 gotsome = 1;
1832 for (; (i = *str) > 32; str++)
1833 (void) putc(i, fp);
1834 } else
1835 while (*str > 32)
1836 str++;
1837 }
1838 if (gotsome)
1839 (void) putc('>', fp);
1840}
1841
1842int
1843keyword(const char *cp)
1844{
1845 struct keytab *kt = keywords;
1846
1847 while (kt->kt_cp != NULL && strcmp(kt->kt_cp, cp) != 0)
1848 kt++;
1849 return (kt->kt_i);
1850}
1851
1852static void
1853sodump(sup su, const char *which)
1854{
1855 switch (su->sa.sa_family) {
1856 case AF_LINK:
1857 (void) printf("%s: link %s; ",
1858 which, link_ntoa(&su->sdl));
1859 break;
1860 case AF_INET:
1861 (void) printf("%s: inet %s; ",
1862 which, inet_ntoa(su->sin.sin_addr));
1863 break;
1864 case AF_APPLETALK:
1865 (void) printf("%s: atalk %s; ",
1866 which, atalk_ntoa(su->sat.sat_addr));
1867 break;
1868 }
1869 (void) fflush(stdout);
1870}
1871
1872/* States*/
1873#define VIRGIN 0
1874#define GOTONE 1
1875#define GOTTWO 2
1876/* Inputs */
1877#define DIGIT (4*0)
1878#define END (4*1)
1879#define DELIM (4*2)
1880
1881static void
1882sockaddr(char *addr, struct sockaddr *sa)
1883{
1884 char *cp = (char *)sa;
1885 int size = sa->sa_len;
1886 char *cplim = cp + size;
1887 int byte = 0, state = VIRGIN, new = 0 /* foil gcc */;
1888
1889 memset(cp, 0, size);
1890 cp++;
1891 do {
1892 if ((*addr >= '0') && (*addr <= '9')) {
1893 new = *addr - '0';
1894 } else if ((*addr >= 'a') && (*addr <= 'f')) {
1895 new = *addr - 'a' + 10;
1896 } else if ((*addr >= 'A') && (*addr <= 'F')) {
1897 new = *addr - 'A' + 10;
1898 } else if (*addr == '\0')
1899 state |= END;
1900 else
1901 state |= DELIM;
1902 addr++;
1903 switch (state /* | INPUT */) {
1904 case GOTTWO | DIGIT:
1905 *cp++ = byte; /*FALLTHROUGH*/
1906 case VIRGIN | DIGIT:
1907 state = GOTONE; byte = new; continue;
1908 case GOTONE | DIGIT:
1909 state = GOTTWO; byte = new + (byte << 4); continue;
1910 default: /* | DELIM */
1911 state = VIRGIN; *cp++ = byte; byte = 0; continue;
1912 case GOTONE | END:
1913 case GOTTWO | END:
1914 *cp++ = byte; /* FALLTHROUGH */
1915 case VIRGIN | END:
1916 break;
1917 }
1918 break;
1919 } while (cp < cplim);
1920 sa->sa_len = cp - (char *)sa;
1921}
1922
1923static int
1924atalk_aton(const char *text, struct at_addr *addr)
1925{
1926 u_int net, node;
1927
1928 if (sscanf(text, "%u.%u", &net, &node) != 2
1929 || net > 0xffff || node > 0xff)
1930 return(0);
1931 addr->s_net = htons(net);
1932 addr->s_node = node;
1933 return(1);
1934}
1935
1936static char *
1937atalk_ntoa(struct at_addr at)
1938{
1939 static char buf[20];
1940
1941 (void) snprintf(buf, sizeof(buf), "%u.%u", ntohs(at.s_net), at.s_node);
1942 return(buf);
1943}
| 927 if (dest == NULL)
928 dest = "";
929 if (gateway == NULL)
930 gateway = "";
931
932 if (TAILQ_EMPTY(&fibl_head)) {
933 error = fiboptlist_csv("default", &fibl_head);
934 if (error)
935 errx(EX_OSERR, "fiboptlist_csv failed.");
936 }
937 error = 0;
938 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
939 fl->fl_error = newroute_fib(fl->fl_num, cmd, flags);
940 if (fl->fl_error)
941 fl->fl_errno = errno;
942 error += fl->fl_error;
943 }
944 if (*cmd == 'g' || *cmd == 's')
945 exit(error);
946
947 error = 0;
948 if (!qflag) {
949 fibnum = 0;
950 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
951 if (fl->fl_error == 0)
952 fibnum++;
953 }
954 if (fibnum > 0) {
955 int firstfib = 1;
956
957 printf("%s %s %s", cmd,
958 (nrflags & F_ISHOST) ? "host" : "net", dest);
959 if (*gateway)
960 printf(": gateway %s", gateway);
961
962 if (numfibs > 1) {
963 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
964 if (fl->fl_error == 0
965 && fl->fl_num >= 0) {
966 if (firstfib) {
967 printf(" fib ");
968 firstfib = 0;
969 }
970 printf("%d", fl->fl_num);
971 if (fibnum-- > 1)
972 printf(",");
973 }
974 }
975 }
976 printf("\n");
977 }
978
979 fibnum = 0;
980 TAILQ_FOREACH(fl, &fibl_head, fl_next) {
981 if (fl->fl_error != 0) {
982 printf("%s %s %s", cmd, (nrflags & F_ISHOST)
983 ? "host" : "net", dest);
984 if (*gateway)
985 printf(": gateway %s", gateway);
986
987 if (fl->fl_num >= 0)
988 printf(" fib %d", fl->fl_num);
989
990 switch (fl->fl_errno) {
991 case ESRCH:
992 errmsg = "not in table";
993 break;
994 case EBUSY:
995 errmsg = "entry in use";
996 break;
997 case ENOBUFS:
998 errmsg = "not enough memory";
999 break;
1000 case EADDRINUSE:
1001 /*
1002 * handle recursion avoidance
1003 * in rt_setgate()
1004 */
1005 errmsg = "gateway uses the same route";
1006 break;
1007 case EEXIST:
1008 errmsg = "route already in table";
1009 break;
1010 default:
1011 errmsg = strerror(fl->fl_errno);
1012 break;
1013 }
1014 printf(": %s\n", errmsg);
1015 error = 1;
1016 }
1017 }
1018 }
1019 exit(error);
1020}
1021
1022static int
1023newroute_fib(int fib, char *cmd, int flags)
1024{
1025 int error;
1026
1027 error = set_sofib(fib);
1028 if (error) {
1029 warn("fib number %d is ignored", fib);
1030 return (error);
1031 }
1032
1033 error = rtmsg(*cmd, flags, fib);
1034 return (error);
1035}
1036
1037static void
1038inet_makenetandmask(u_long net, struct sockaddr_in *sin, u_long bits)
1039{
1040 u_long mask = 0;
1041 char *cp;
1042
1043 rtm_addrs |= RTA_NETMASK;
1044
1045 /*
1046 * MSB of net should be meaningful. 0/0 is exception.
1047 */
1048 if (net > 0)
1049 while ((net & 0xff000000) == 0)
1050 net <<= 8;
1051
1052 /*
1053 * If no /xx was specified we must calculate the
1054 * CIDR address.
1055 */
1056 if ((bits == 0) && (net != 0)) {
1057 u_long i, j;
1058 for(i=0,j=0xff; i<4; i++) {
1059 if (net & j) {
1060 break;
1061 }
1062 j <<= 8;
1063 }
1064 /* i holds the first non zero bit */
1065 bits = 32 - (i*8);
1066 }
1067 if (bits != 0)
1068 mask = 0xffffffff << (32 - bits);
1069
1070 sin->sin_addr.s_addr = htonl(net);
1071 sin = &so_mask.sin;
1072 sin->sin_addr.s_addr = htonl(mask);
1073 sin->sin_len = 0;
1074 sin->sin_family = 0;
1075 cp = (char *)(&sin->sin_addr + 1);
1076 while (*--cp == 0 && cp > (char *)sin)
1077 ;
1078 sin->sin_len = 1 + cp - (char *)sin;
1079}
1080
1081#ifdef INET6
1082/*
1083 * XXX the function may need more improvement...
1084 */
1085static int
1086inet6_makenetandmask(struct sockaddr_in6 *sin6, const char *plen)
1087{
1088 struct in6_addr in6;
1089
1090 if (plen == NULL) {
1091 if (IN6_IS_ADDR_UNSPECIFIED(&sin6->sin6_addr) &&
1092 sin6->sin6_scope_id == 0) {
1093 plen = "0";
1094 } else if ((sin6->sin6_addr.s6_addr[0] & 0xe0) == 0x20) {
1095 /* aggregatable global unicast - RFC2374 */
1096 memset(&in6, 0, sizeof(in6));
1097 if (!memcmp(&sin6->sin6_addr.s6_addr[8],
1098 &in6.s6_addr[8], 8))
1099 plen = "64";
1100 }
1101 }
1102
1103 if (plen == NULL || strcmp(plen, "128") == 0)
1104 return (1);
1105 rtm_addrs |= RTA_NETMASK;
1106 prefixlen(plen);
1107 return (0);
1108}
1109#endif
1110
1111/*
1112 * Interpret an argument as a network address of some kind,
1113 * returning 1 if a host address, 0 if a network address.
1114 */
1115static int
1116getaddr(int which, char *str, struct hostent **hpp, int nrflags)
1117{
1118 sup su;
1119 struct hostent *hp;
1120 struct netent *np;
1121 u_long val;
1122 char *q;
1123 int afamily; /* local copy of af so we can change it */
1124
1125 if (af == 0) {
1126 af = AF_INET;
1127 aflen = sizeof(struct sockaddr_in);
1128 }
1129 afamily = af;
1130 rtm_addrs |= which;
1131 switch (which) {
1132 case RTA_DST:
1133 su = &so_dst;
1134 break;
1135 case RTA_GATEWAY:
1136 su = &so_gate;
1137 if (nrflags & F_INTERFACE) {
1138 struct ifaddrs *ifap, *ifa;
1139 struct sockaddr_dl *sdl = NULL;
1140
1141 if (getifaddrs(&ifap))
1142 err(1, "getifaddrs");
1143
1144 for (ifa = ifap; ifa != NULL; ifa = ifa->ifa_next) {
1145 if (ifa->ifa_addr->sa_family != AF_LINK)
1146 continue;
1147
1148 if (strcmp(str, ifa->ifa_name) != 0)
1149 continue;
1150
1151 sdl = (struct sockaddr_dl *)ifa->ifa_addr;
1152 }
1153 /* If we found it, then use it */
1154 if (sdl != NULL) {
1155 /*
1156 * Copy is safe since we have a
1157 * sockaddr_storage member in sockunion{}.
1158 * Note that we need to copy before calling
1159 * freeifaddrs().
1160 */
1161 memcpy(&su->sdl, sdl, sdl->sdl_len);
1162 }
1163 freeifaddrs(ifap);
1164 if (sdl != NULL)
1165 return(1);
1166 }
1167 break;
1168 case RTA_NETMASK:
1169 su = &so_mask;
1170 break;
1171 case RTA_GENMASK:
1172 su = &so_genmask;
1173 break;
1174 case RTA_IFP:
1175 su = &so_ifp;
1176 afamily = AF_LINK;
1177 break;
1178 case RTA_IFA:
1179 su = &so_ifa;
1180 break;
1181 default:
1182 usage("internal error");
1183 /*NOTREACHED*/
1184 }
1185 su->sa.sa_len = aflen;
1186 su->sa.sa_family = afamily; /* cases that don't want it have left already */
1187 if (strcmp(str, "default") == 0) {
1188 /*
1189 * Default is net 0.0.0.0/0
1190 */
1191 switch (which) {
1192 case RTA_DST:
1193 forcenet++;
1194#if 0
1195 bzero(su, sizeof(*su)); /* for readability */
1196#endif
1197 getaddr(RTA_NETMASK, str, 0, nrflags);
1198 break;
1199#if 0
1200 case RTA_NETMASK:
1201 case RTA_GENMASK:
1202 bzero(su, sizeof(*su)); /* for readability */
1203#endif
1204 }
1205 return (0);
1206 }
1207 switch (afamily) {
1208#ifdef INET6
1209 case AF_INET6:
1210 {
1211 struct addrinfo hints, *res;
1212 int ecode;
1213
1214 q = NULL;
1215 if (which == RTA_DST && (q = strchr(str, '/')) != NULL)
1216 *q = '\0';
1217 memset(&hints, 0, sizeof(hints));
1218 hints.ai_family = afamily; /*AF_INET6*/
1219 hints.ai_socktype = SOCK_DGRAM; /*dummy*/
1220 ecode = getaddrinfo(str, NULL, &hints, &res);
1221 if (ecode != 0 || res->ai_family != AF_INET6 ||
1222 res->ai_addrlen != sizeof(su->sin6)) {
1223 (void) fprintf(stderr, "%s: %s\n", str,
1224 gai_strerror(ecode));
1225 exit(1);
1226 }
1227 memcpy(&su->sin6, res->ai_addr, sizeof(su->sin6));
1228 freeaddrinfo(res);
1229 if (q != NULL)
1230 *q++ = '/';
1231 if (which == RTA_DST)
1232 return (inet6_makenetandmask(&su->sin6, q));
1233 return (0);
1234 }
1235#endif /* INET6 */
1236
1237 case AF_APPLETALK:
1238 if (!atalk_aton(str, &su->sat.sat_addr))
1239 errx(EX_NOHOST, "bad address: %s", str);
1240 rtm_addrs |= RTA_NETMASK;
1241 return(forcehost || su->sat.sat_addr.s_node != 0);
1242
1243 case AF_LINK:
1244 link_addr(str, &su->sdl);
1245 return (1);
1246
1247
1248 case PF_ROUTE:
1249 su->sa.sa_len = sizeof(*su);
1250 sockaddr(str, &su->sa);
1251 return (1);
1252
1253 case AF_INET:
1254 default:
1255 break;
1256 }
1257
1258 if (hpp == NULL)
1259 hpp = &hp;
1260 *hpp = NULL;
1261
1262 q = strchr(str,'/');
1263 if (q != NULL && which == RTA_DST) {
1264 *q = '\0';
1265 if ((val = inet_network(str)) != INADDR_NONE) {
1266 inet_makenetandmask(
1267 val, &su->sin, strtoul(q+1, 0, 0));
1268 return (0);
1269 }
1270 *q = '/';
1271 }
1272 if ((which != RTA_DST || forcenet == 0) &&
1273 inet_aton(str, &su->sin.sin_addr)) {
1274 val = su->sin.sin_addr.s_addr;
1275 if (which != RTA_DST || forcehost ||
1276 inet_lnaof(su->sin.sin_addr) != INADDR_ANY)
1277 return (1);
1278 else {
1279 val = ntohl(val);
1280 goto netdone;
1281 }
1282 }
1283 if (which == RTA_DST && forcehost == 0 &&
1284 ((val = inet_network(str)) != INADDR_NONE ||
1285 ((np = getnetbyname(str)) != NULL && (val = np->n_net) != 0))) {
1286netdone:
1287 inet_makenetandmask(val, &su->sin, 0);
1288 return (0);
1289 }
1290 hp = gethostbyname(str);
1291 if (hp != NULL) {
1292 *hpp = hp;
1293 su->sin.sin_family = hp->h_addrtype;
1294 memmove((char *)&su->sin.sin_addr, hp->h_addr,
1295 MIN((size_t)hp->h_length, sizeof(su->sin.sin_addr)));
1296 return (1);
1297 }
1298 errx(EX_NOHOST, "bad address: %s", str);
1299}
1300
1301static int
1302prefixlen(const char *str)
1303{
1304 int len = atoi(str), q, r;
1305 int max;
1306 char *p;
1307
1308 rtm_addrs |= RTA_NETMASK;
1309 switch (af) {
1310#ifdef INET6
1311 case AF_INET6:
1312 max = 128;
1313 p = (char *)&so_mask.sin6.sin6_addr;
1314 break;
1315#endif
1316 case AF_INET:
1317 max = 32;
1318 p = (char *)&so_mask.sin.sin_addr;
1319 break;
1320 default:
1321 fprintf(stderr, "prefixlen not supported in this af\n");
1322 exit(1);
1323 }
1324
1325 if (len < 0 || max < len) {
1326 fprintf(stderr, "%s: bad value\n", str);
1327 exit(1);
1328 }
1329
1330 q = len >> 3;
1331 r = len & 7;
1332 so_mask.sa.sa_family = af;
1333 so_mask.sa.sa_len = aflen;
1334 memset((void *)p, 0, max / 8);
1335 if (q > 0)
1336 memset((void *)p, 0xff, q);
1337 if (r > 0)
1338 *((u_char *)p + q) = (0xff00 >> r) & 0xff;
1339 if (len == max)
1340 return (-1);
1341 else
1342 return (len);
1343}
1344
1345static void
1346interfaces(void)
1347{
1348 size_t needed;
1349 int mib[6];
1350 char *buf, *lim, *next, count = 0;
1351 struct rt_msghdr *rtm;
1352
1353retry2:
1354 mib[0] = CTL_NET;
1355 mib[1] = PF_ROUTE;
1356 mib[2] = 0; /* protocol */
1357 mib[3] = 0; /* wildcard address family */
1358 mib[4] = NET_RT_IFLIST;
1359 mib[5] = 0; /* no flags */
1360 if (sysctl(mib, 6, NULL, &needed, NULL, 0) < 0)
1361 err(EX_OSERR, "route-sysctl-estimate");
1362 if ((buf = malloc(needed)) == NULL)
1363 errx(EX_OSERR, "malloc failed");
1364 if (sysctl(mib, 6, buf, &needed, NULL, 0) < 0) {
1365 if (errno == ENOMEM && count++ < 10) {
1366 warnx("Routing table grew, retrying");
1367 sleep(1);
1368 free(buf);
1369 goto retry2;
1370 }
1371 err(EX_OSERR, "actual retrieval of interface table");
1372 }
1373 lim = buf + needed;
1374 for (next = buf; next < lim; next += rtm->rtm_msglen) {
1375 rtm = (struct rt_msghdr *)next;
1376 print_rtmsg(rtm, rtm->rtm_msglen);
1377 }
1378}
1379
1380static void
1381monitor(int argc, char *argv[])
1382{
1383 int n, fib, error;
1384 char msg[2048], *endptr;
1385
1386 fib = defaultfib;
1387 while (argc > 1) {
1388 argc--;
1389 argv++;
1390 if (**argv != '-')
1391 usage(*argv);
1392 switch (keyword(*argv + 1)) {
1393 case K_FIB:
1394 if (!--argc)
1395 usage(*argv);
1396 errno = 0;
1397 fib = strtol(*++argv, &endptr, 0);
1398 if (errno == 0) {
1399 if (*endptr != '\0' ||
1400 fib < 0 ||
1401 (numfibs != -1 && fib > numfibs - 1))
1402 errno = EINVAL;
1403 }
1404 if (errno)
1405 errx(EX_USAGE, "invalid fib number: %s", *argv);
1406 break;
1407 default:
1408 usage(*argv);
1409 }
1410 }
1411 error = set_sofib(fib);
1412 if (error)
1413 errx(EX_USAGE, "invalid fib number: %d", fib);
1414
1415 verbose = 1;
1416 if (debugonly) {
1417 interfaces();
1418 exit(0);
1419 }
1420 for (;;) {
1421 time_t now;
1422 n = read(s, msg, 2048);
1423 now = time(NULL);
1424 (void) printf("\ngot message of size %d on %s", n, ctime(&now));
1425 print_rtmsg((struct rt_msghdr *)msg, n);
1426 }
1427}
1428
1429struct {
1430 struct rt_msghdr m_rtm;
1431 char m_space[512];
1432} m_rtmsg;
1433
1434static int
1435rtmsg(int cmd, int flags, int fib)
1436{
1437 static int seq;
1438 int rlen;
1439 char *cp = m_rtmsg.m_space;
1440 int l;
1441
1442#define NEXTADDR(w, u) \
1443 if (rtm_addrs & (w)) {\
1444 l = SA_SIZE(&(u.sa)); memmove(cp, &(u), l); cp += l;\
1445 if (verbose) sodump(&(u),#u);\
1446 }
1447
1448 errno = 0;
1449 memset(&m_rtmsg, 0, sizeof(m_rtmsg));
1450 if (cmd == 'a')
1451 cmd = RTM_ADD;
1452 else if (cmd == 'c')
1453 cmd = RTM_CHANGE;
1454 else if (cmd == 'g' || cmd == 's') {
1455 cmd = RTM_GET;
1456 if (so_ifp.sa.sa_family == 0) {
1457 so_ifp.sa.sa_family = AF_LINK;
1458 so_ifp.sa.sa_len = sizeof(struct sockaddr_dl);
1459 rtm_addrs |= RTA_IFP;
1460 }
1461 } else
1462 cmd = RTM_DELETE;
1463#define rtm m_rtmsg.m_rtm
1464 rtm.rtm_type = cmd;
1465 rtm.rtm_flags = flags;
1466 rtm.rtm_version = RTM_VERSION;
1467 rtm.rtm_seq = ++seq;
1468 rtm.rtm_addrs = rtm_addrs;
1469 rtm.rtm_rmx = rt_metrics;
1470 rtm.rtm_inits = rtm_inits;
1471
1472 if (rtm_addrs & RTA_NETMASK)
1473 mask_addr();
1474 NEXTADDR(RTA_DST, so_dst);
1475 NEXTADDR(RTA_GATEWAY, so_gate);
1476 NEXTADDR(RTA_NETMASK, so_mask);
1477 NEXTADDR(RTA_GENMASK, so_genmask);
1478 NEXTADDR(RTA_IFP, so_ifp);
1479 NEXTADDR(RTA_IFA, so_ifa);
1480 rtm.rtm_msglen = l = cp - (char *)&m_rtmsg;
1481 if (verbose)
1482 print_rtmsg(&rtm, l);
1483 if (debugonly)
1484 return (0);
1485 if ((rlen = write(s, (char *)&m_rtmsg, l)) < 0) {
1486 if (errno == EPERM)
1487 err(1, "writing to routing socket");
1488 warn("writing to routing socket");
1489 return (-1);
1490 }
1491 if (cmd == RTM_GET) {
1492 do {
1493 l = read(s, (char *)&m_rtmsg, sizeof(m_rtmsg));
1494 } while (l > 0 && (rtm.rtm_seq != seq || rtm.rtm_pid != pid));
1495 if (l < 0)
1496 warn("read from routing socket");
1497 else
1498 print_getmsg(&rtm, l, fib);
1499 }
1500#undef rtm
1501 return (0);
1502}
1503
1504static void
1505mask_addr(void)
1506{
1507 int olen = so_mask.sa.sa_len;
1508 char *cp1 = olen + (char *)&so_mask, *cp2;
1509
1510 for (so_mask.sa.sa_len = 0; cp1 > (char *)&so_mask; )
1511 if (*--cp1 != 0) {
1512 so_mask.sa.sa_len = 1 + cp1 - (char *)&so_mask;
1513 break;
1514 }
1515 if ((rtm_addrs & RTA_DST) == 0)
1516 return;
1517 switch (so_dst.sa.sa_family) {
1518 case AF_INET:
1519#ifdef INET6
1520 case AF_INET6:
1521#endif
1522 case AF_APPLETALK:
1523 case 0:
1524 return;
1525 }
1526 cp1 = so_mask.sa.sa_len + 1 + (char *)&so_dst;
1527 cp2 = so_dst.sa.sa_len + 1 + (char *)&so_dst;
1528 while (cp2 > cp1)
1529 *--cp2 = 0;
1530 cp2 = so_mask.sa.sa_len + 1 + (char *)&so_mask;
1531 while (cp1 > so_dst.sa.sa_data)
1532 *--cp1 &= *--cp2;
1533}
1534
1535const char *msgtypes[] = {
1536 "",
1537 "RTM_ADD: Add Route",
1538 "RTM_DELETE: Delete Route",
1539 "RTM_CHANGE: Change Metrics or flags",
1540 "RTM_GET: Report Metrics",
1541 "RTM_LOSING: Kernel Suspects Partitioning",
1542 "RTM_REDIRECT: Told to use different route",
1543 "RTM_MISS: Lookup failed on this address",
1544 "RTM_LOCK: fix specified metrics",
1545 "RTM_OLDADD: caused by SIOCADDRT",
1546 "RTM_OLDDEL: caused by SIOCDELRT",
1547 "RTM_RESOLVE: Route created by cloning",
1548 "RTM_NEWADDR: address being added to iface",
1549 "RTM_DELADDR: address being removed from iface",
1550 "RTM_IFINFO: iface status change",
1551 "RTM_NEWMADDR: new multicast group membership on iface",
1552 "RTM_DELMADDR: multicast group membership removed from iface",
1553 "RTM_IFANNOUNCE: interface arrival/departure",
1554 "RTM_IEEE80211: IEEE 802.11 wireless event",
1555};
1556
1557char metricnames[] =
1558"\011weight\010rttvar\7rtt\6ssthresh\5sendpipe\4recvpipe\3expire"
1559"\1mtu";
1560char routeflags[] =
1561"\1UP\2GATEWAY\3HOST\4REJECT\5DYNAMIC\6MODIFIED\7DONE"
1562"\012XRESOLVE\013LLINFO\014STATIC\015BLACKHOLE"
1563"\017PROTO2\020PROTO1\021PRCLONING\022WASCLONED\023PROTO3"
1564"\025PINNED\026LOCAL\027BROADCAST\030MULTICAST\035STICKY";
1565char ifnetflags[] =
1566"\1UP\2BROADCAST\3DEBUG\4LOOPBACK\5PTP\6b6\7RUNNING\010NOARP"
1567"\011PPROMISC\012ALLMULTI\013OACTIVE\014SIMPLEX\015LINK0\016LINK1"
1568"\017LINK2\020MULTICAST";
1569char addrnames[] =
1570"\1DST\2GATEWAY\3NETMASK\4GENMASK\5IFP\6IFA\7AUTHOR\010BRD";
1571
1572static const char errfmt[] =
1573"\n%s: truncated route message, only %zu bytes left\n";
1574
1575static void
1576print_rtmsg(struct rt_msghdr *rtm, size_t msglen)
1577{
1578 struct if_msghdr *ifm;
1579 struct ifa_msghdr *ifam;
1580#ifdef RTM_NEWMADDR
1581 struct ifma_msghdr *ifmam;
1582#endif
1583 struct if_announcemsghdr *ifan;
1584 const char *state;
1585
1586 if (verbose == 0)
1587 return;
1588 if (rtm->rtm_version != RTM_VERSION) {
1589 (void) printf("routing message version %d not understood\n",
1590 rtm->rtm_version);
1591 return;
1592 }
1593 if (rtm->rtm_type < sizeof(msgtypes) / sizeof(msgtypes[0]))
1594 (void)printf("%s: ", msgtypes[rtm->rtm_type]);
1595 else
1596 (void)printf("unknown type %d: ", rtm->rtm_type);
1597 (void)printf("len %d, ", rtm->rtm_msglen);
1598
1599#define REQUIRE(x) do { \
1600 if (msglen < sizeof(x)) \
1601 goto badlen; \
1602 else \
1603 msglen -= sizeof(x); \
1604 } while (0)
1605
1606 switch (rtm->rtm_type) {
1607 case RTM_IFINFO:
1608 REQUIRE(struct if_msghdr);
1609 ifm = (struct if_msghdr *)rtm;
1610 (void) printf("if# %d, ", ifm->ifm_index);
1611 switch (ifm->ifm_data.ifi_link_state) {
1612 case LINK_STATE_DOWN:
1613 state = "down";
1614 break;
1615 case LINK_STATE_UP:
1616 state = "up";
1617 break;
1618 default:
1619 state = "unknown";
1620 break;
1621 }
1622 (void) printf("link: %s, flags:", state);
1623 bprintf(stdout, ifm->ifm_flags, ifnetflags);
1624 pmsg_addrs((char *)(ifm + 1), ifm->ifm_addrs, msglen);
1625 break;
1626 case RTM_NEWADDR:
1627 case RTM_DELADDR:
1628 REQUIRE(struct ifa_msghdr);
1629 ifam = (struct ifa_msghdr *)rtm;
1630 (void) printf("metric %d, flags:", ifam->ifam_metric);
1631 bprintf(stdout, ifam->ifam_flags, routeflags);
1632 pmsg_addrs((char *)(ifam + 1), ifam->ifam_addrs, msglen);
1633 break;
1634#ifdef RTM_NEWMADDR
1635 case RTM_NEWMADDR:
1636 case RTM_DELMADDR:
1637 REQUIRE(struct ifma_msghdr);
1638 ifmam = (struct ifma_msghdr *)rtm;
1639 pmsg_addrs((char *)(ifmam + 1), ifmam->ifmam_addrs, msglen);
1640 break;
1641#endif
1642 case RTM_IFANNOUNCE:
1643 REQUIRE(struct if_announcemsghdr);
1644 ifan = (struct if_announcemsghdr *)rtm;
1645 (void) printf("if# %d, what: ", ifan->ifan_index);
1646 switch (ifan->ifan_what) {
1647 case IFAN_ARRIVAL:
1648 printf("arrival");
1649 break;
1650 case IFAN_DEPARTURE:
1651 printf("departure");
1652 break;
1653 default:
1654 printf("#%d", ifan->ifan_what);
1655 break;
1656 }
1657 printf("\n");
1658 fflush(stdout);
1659 break;
1660
1661 default:
1662 (void) printf("pid: %ld, seq %d, errno %d, flags:",
1663 (long)rtm->rtm_pid, rtm->rtm_seq, rtm->rtm_errno);
1664 bprintf(stdout, rtm->rtm_flags, routeflags);
1665 pmsg_common(rtm, msglen);
1666 }
1667
1668 return;
1669
1670badlen:
1671 (void)printf(errfmt, __func__, msglen);
1672#undef REQUIRE
1673}
1674
1675static void
1676print_getmsg(struct rt_msghdr *rtm, int msglen, int fib)
1677{
1678 struct sockaddr *dst = NULL, *gate = NULL, *mask = NULL;
1679 struct sockaddr_dl *ifp = NULL;
1680 struct sockaddr *sa;
1681 char *cp;
1682 int i;
1683
1684 (void) printf(" route to: %s\n",
1685 routename((struct sockaddr *)&so_dst));
1686 if (rtm->rtm_version != RTM_VERSION) {
1687 warnx("routing message version %d not understood",
1688 rtm->rtm_version);
1689 return;
1690 }
1691 if (rtm->rtm_msglen > msglen) {
1692 warnx("message length mismatch, in packet %d, returned %d",
1693 rtm->rtm_msglen, msglen);
1694 }
1695 if (rtm->rtm_errno) {
1696 errno = rtm->rtm_errno;
1697 warn("message indicates error %d", errno);
1698 return;
1699 }
1700 cp = ((char *)(rtm + 1));
1701 if (rtm->rtm_addrs)
1702 for (i = 1; i; i <<= 1)
1703 if (i & rtm->rtm_addrs) {
1704 sa = (struct sockaddr *)cp;
1705 switch (i) {
1706 case RTA_DST:
1707 dst = sa;
1708 break;
1709 case RTA_GATEWAY:
1710 gate = sa;
1711 break;
1712 case RTA_NETMASK:
1713 mask = sa;
1714 break;
1715 case RTA_IFP:
1716 if (sa->sa_family == AF_LINK &&
1717 ((struct sockaddr_dl *)sa)->sdl_nlen)
1718 ifp = (struct sockaddr_dl *)sa;
1719 break;
1720 }
1721 cp += SA_SIZE(sa);
1722 }
1723 if (dst && mask)
1724 mask->sa_family = dst->sa_family; /* XXX */
1725 if (dst)
1726 (void)printf("destination: %s\n", routename(dst));
1727 if (mask) {
1728 int savenflag = nflag;
1729
1730 nflag = 1;
1731 (void)printf(" mask: %s\n", routename(mask));
1732 nflag = savenflag;
1733 }
1734 if (gate && rtm->rtm_flags & RTF_GATEWAY)
1735 (void)printf(" gateway: %s\n", routename(gate));
1736 if (fib >= 0)
1737 (void)printf(" fib: %u\n", (unsigned int)fib);
1738 if (ifp)
1739 (void)printf(" interface: %.*s\n",
1740 ifp->sdl_nlen, ifp->sdl_data);
1741 (void)printf(" flags: ");
1742 bprintf(stdout, rtm->rtm_flags, routeflags);
1743
1744#define lock(f) ((rtm->rtm_rmx.rmx_locks & __CONCAT(RTV_,f)) ? 'L' : ' ')
1745#define msec(u) (((u) + 500) / 1000) /* usec to msec */
1746
1747 (void) printf("\n%s\n", "\
1748 recvpipe sendpipe ssthresh rtt,msec mtu weight expire");
1749 printf("%8ld%c ", rtm->rtm_rmx.rmx_recvpipe, lock(RPIPE));
1750 printf("%8ld%c ", rtm->rtm_rmx.rmx_sendpipe, lock(SPIPE));
1751 printf("%8ld%c ", rtm->rtm_rmx.rmx_ssthresh, lock(SSTHRESH));
1752 printf("%8ld%c ", msec(rtm->rtm_rmx.rmx_rtt), lock(RTT));
1753 printf("%8ld%c ", rtm->rtm_rmx.rmx_mtu, lock(MTU));
1754 printf("%8ld%c ", rtm->rtm_rmx.rmx_weight, lock(WEIGHT));
1755 if (rtm->rtm_rmx.rmx_expire)
1756 rtm->rtm_rmx.rmx_expire -= time(0);
1757 printf("%8ld%c\n", rtm->rtm_rmx.rmx_expire, lock(EXPIRE));
1758#undef lock
1759#undef msec
1760#define RTA_IGN (RTA_DST|RTA_GATEWAY|RTA_NETMASK|RTA_IFP|RTA_IFA|RTA_BRD)
1761 if (verbose)
1762 pmsg_common(rtm, msglen);
1763 else if (rtm->rtm_addrs &~ RTA_IGN) {
1764 (void) printf("sockaddrs: ");
1765 bprintf(stdout, rtm->rtm_addrs, addrnames);
1766 putchar('\n');
1767 }
1768#undef RTA_IGN
1769}
1770
1771static void
1772pmsg_common(struct rt_msghdr *rtm, size_t msglen)
1773{
1774 (void) printf("\nlocks: ");
1775 bprintf(stdout, rtm->rtm_rmx.rmx_locks, metricnames);
1776 (void) printf(" inits: ");
1777 bprintf(stdout, rtm->rtm_inits, metricnames);
1778 if (msglen > sizeof(struct rt_msghdr))
1779 pmsg_addrs(((char *)(rtm + 1)), rtm->rtm_addrs,
1780 msglen - sizeof(struct rt_msghdr));
1781 else
1782 (void) fflush(stdout);
1783}
1784
1785static void
1786pmsg_addrs(char *cp, int addrs, size_t len)
1787{
1788 struct sockaddr *sa;
1789 int i;
1790
1791 if (addrs == 0) {
1792 (void) putchar('\n');
1793 return;
1794 }
1795 (void) printf("\nsockaddrs: ");
1796 bprintf(stdout, addrs, addrnames);
1797 (void) putchar('\n');
1798 for (i = 1; i != 0; i <<= 1)
1799 if (i & addrs) {
1800 sa = (struct sockaddr *)cp;
1801 if (len == 0 || len < SA_SIZE(sa)) {
1802 (void) printf(errfmt, __func__, len);
1803 break;
1804 }
1805 (void) printf(" %s", routename(sa));
1806 len -= SA_SIZE(sa);
1807 cp += SA_SIZE(sa);
1808 }
1809 (void) putchar('\n');
1810 (void) fflush(stdout);
1811}
1812
1813static void
1814bprintf(FILE *fp, int b, u_char *str)
1815{
1816 int i;
1817 int gotsome = 0;
1818
1819 if (b == 0)
1820 return;
1821 while ((i = *str++) != 0) {
1822 if (b & (1 << (i-1))) {
1823 if (gotsome == 0)
1824 i = '<';
1825 else
1826 i = ',';
1827 (void) putc(i, fp);
1828 gotsome = 1;
1829 for (; (i = *str) > 32; str++)
1830 (void) putc(i, fp);
1831 } else
1832 while (*str > 32)
1833 str++;
1834 }
1835 if (gotsome)
1836 (void) putc('>', fp);
1837}
1838
1839int
1840keyword(const char *cp)
1841{
1842 struct keytab *kt = keywords;
1843
1844 while (kt->kt_cp != NULL && strcmp(kt->kt_cp, cp) != 0)
1845 kt++;
1846 return (kt->kt_i);
1847}
1848
1849static void
1850sodump(sup su, const char *which)
1851{
1852 switch (su->sa.sa_family) {
1853 case AF_LINK:
1854 (void) printf("%s: link %s; ",
1855 which, link_ntoa(&su->sdl));
1856 break;
1857 case AF_INET:
1858 (void) printf("%s: inet %s; ",
1859 which, inet_ntoa(su->sin.sin_addr));
1860 break;
1861 case AF_APPLETALK:
1862 (void) printf("%s: atalk %s; ",
1863 which, atalk_ntoa(su->sat.sat_addr));
1864 break;
1865 }
1866 (void) fflush(stdout);
1867}
1868
1869/* States*/
1870#define VIRGIN 0
1871#define GOTONE 1
1872#define GOTTWO 2
1873/* Inputs */
1874#define DIGIT (4*0)
1875#define END (4*1)
1876#define DELIM (4*2)
1877
1878static void
1879sockaddr(char *addr, struct sockaddr *sa)
1880{
1881 char *cp = (char *)sa;
1882 int size = sa->sa_len;
1883 char *cplim = cp + size;
1884 int byte = 0, state = VIRGIN, new = 0 /* foil gcc */;
1885
1886 memset(cp, 0, size);
1887 cp++;
1888 do {
1889 if ((*addr >= '0') && (*addr <= '9')) {
1890 new = *addr - '0';
1891 } else if ((*addr >= 'a') && (*addr <= 'f')) {
1892 new = *addr - 'a' + 10;
1893 } else if ((*addr >= 'A') && (*addr <= 'F')) {
1894 new = *addr - 'A' + 10;
1895 } else if (*addr == '\0')
1896 state |= END;
1897 else
1898 state |= DELIM;
1899 addr++;
1900 switch (state /* | INPUT */) {
1901 case GOTTWO | DIGIT:
1902 *cp++ = byte; /*FALLTHROUGH*/
1903 case VIRGIN | DIGIT:
1904 state = GOTONE; byte = new; continue;
1905 case GOTONE | DIGIT:
1906 state = GOTTWO; byte = new + (byte << 4); continue;
1907 default: /* | DELIM */
1908 state = VIRGIN; *cp++ = byte; byte = 0; continue;
1909 case GOTONE | END:
1910 case GOTTWO | END:
1911 *cp++ = byte; /* FALLTHROUGH */
1912 case VIRGIN | END:
1913 break;
1914 }
1915 break;
1916 } while (cp < cplim);
1917 sa->sa_len = cp - (char *)sa;
1918}
1919
1920static int
1921atalk_aton(const char *text, struct at_addr *addr)
1922{
1923 u_int net, node;
1924
1925 if (sscanf(text, "%u.%u", &net, &node) != 2
1926 || net > 0xffff || node > 0xff)
1927 return(0);
1928 addr->s_net = htons(net);
1929 addr->s_node = node;
1930 return(1);
1931}
1932
1933static char *
1934atalk_ntoa(struct at_addr at)
1935{
1936 static char buf[20];
1937
1938 (void) snprintf(buf, sizeof(buf), "%u.%u", ntohs(at.s_net), at.s_node);
1939 return(buf);
1940}
|