3d4fc499253a7c15535410e303dd0e0dc7674558
[dragonfly.git] / usr.bin / netstat / route.c
1 /*
2  * Copyright (c) 1983, 1988, 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  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *      This product includes software developed by the University of
16  *      California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  *
33  * @(#)route.c  8.6 (Berkeley) 4/28/95
34  * $FreeBSD: src/usr.bin/netstat/route.c,v 1.41.2.14 2002/07/17 02:22:22 kbyanc Exp $
35  * $DragonFly: src/usr.bin/netstat/route.c,v 1.13 2008/07/07 22:02:10 nant Exp $
36  */
37
38 #include <sys/param.h>
39 #include <sys/protosw.h>
40 #include <sys/socket.h>
41 #include <sys/time.h>
42
43 #include <net/ethernet.h>
44 #include <net/if.h>
45 #include <net/if_var.h>
46 #include <net/if_dl.h>
47 #include <net/if_types.h>
48 #include <net/route.h>
49
50 #include <netinet/in.h>
51 #include <netipx/ipx.h>
52 #include <netatalk/at.h>
53 #include <netgraph/socket/ng_socket.h>
54
55 #ifdef NS
56 #include <netns/ns.h>
57 #endif
58
59 #include <netproto/mpls/mpls.h>
60
61 #include <sys/sysctl.h>
62
63 #include <arpa/inet.h>
64 #include <libutil.h>
65 #include <netdb.h>
66 #include <stdio.h>
67 #include <stdlib.h>
68 #include <string.h>
69 #include <unistd.h>
70 #include <err.h>
71 #include <time.h>
72 #include <kinfo.h>
73 #include "netstat.h"
74
75 #define kget(p, d) (kread((u_long)(p), (char *)&(d), sizeof (d)))
76
77
78 /* alignment constraint for routing socket */
79 #define ROUNDUP(a) \
80        ((a) > 0 ? (1 + (((a) - 1) | (sizeof(long) - 1))) : sizeof(long))
81 #define ADVANCE(x, n) (x += ROUNDUP((n)->sa_len))
82
83 /*
84  * Definitions for showing gateway flags.
85  */
86 struct bits {
87         u_long  b_mask;
88         char    b_val;
89 } bits[] = {
90         { RTF_UP,       'U' },
91         { RTF_GATEWAY,  'G' },
92         { RTF_HOST,     'H' },
93         { RTF_REJECT,   'R' },
94         { RTF_DYNAMIC,  'D' },
95         { RTF_MODIFIED, 'M' },
96         { RTF_DONE,     'd' }, /* Completed -- for routing messages only */
97         { RTF_CLONING,  'C' },
98         { RTF_XRESOLVE, 'X' },
99         { RTF_LLINFO,   'L' },
100         { RTF_STATIC,   'S' },
101         { RTF_PROTO1,   '1' },
102         { RTF_PROTO2,   '2' },
103         { RTF_WASCLONED,'W' },
104         { RTF_PRCLONING,'c' },
105         { RTF_PROTO3,   '3' },
106         { RTF_BLACKHOLE,'B' },
107         { RTF_BROADCAST,'b' },
108         { RTF_MPLSOPS,  'm' },
109         { 0 }
110 };
111
112 typedef union {
113         long    dummy;          /* Helps align structure. */
114         struct  sockaddr u_sa;
115         u_short u_data[128];
116 } sa_u;
117
118 static sa_u pt_u;
119
120 int     do_rtent = 0;
121 struct  rtentry rtentry;
122 struct  radix_node rnode;
123 struct  radix_mask rmask;
124 struct  radix_node_head *rt_tables[AF_MAX+1];
125
126 int     NewTree = 0;
127
128 static struct sockaddr *kgetsa (struct sockaddr *);
129 static void size_cols (int ef, struct radix_node *rn);
130 static void size_cols_tree (struct radix_node *rn);
131 static void size_cols_rtentry (struct rtentry *rt);
132 static void p_tree (struct radix_node *);
133 static void p_rtnode (void);
134 static void ntreestuff (void);
135 static void np_rtentry (struct rt_msghdr *);
136 static void p_sockaddr (struct sockaddr *, struct sockaddr *, int, int);
137 static const char *fmt_sockaddr (struct sockaddr *sa, struct sockaddr *mask,
138                                  int flags);
139 static void p_flags (int, char *);
140 static const char *fmt_flags(int f);
141 static void p_rtentry (struct rtentry *);
142 static u_long forgemask (u_long);
143 static void domask (char *, u_long, u_long);
144 static const char *labelops(struct rtentry *);
145
146 /*
147  * Print routing tables.
148  */
149 void
150 routepr(u_long rtree)
151 {
152         struct radix_node_head *rnh, head;
153         int i;
154
155         printf("Routing tables\n");
156
157         if (Aflag == 0 && NewTree) {
158                 ntreestuff();
159         } else {
160                 if (rtree == 0) {
161                         printf("rt_tables: symbol not in namelist\n");
162                         return;
163                 }
164                 if (cpuflag >= 0) {
165                         /*
166                          * Severe hack.
167                          */
168                         rtree += cpuflag * (AF_MAX + 1) * sizeof(void *);
169                 }
170                 kget(rtree, rt_tables);
171                 for (i = 0; i <= AF_MAX; i++) {
172                         if ((rnh = rt_tables[i]) == 0)
173                                 continue;
174                         kget(rnh, head);
175                         if (i == AF_UNSPEC) {
176                                 if (Aflag && af == 0) {
177                                         printf("Netmasks:\n");
178                                         p_tree(head.rnh_treetop);
179                                 }
180                         } else if (af == AF_UNSPEC || af == i) {
181                                 size_cols(i, head.rnh_treetop);
182                                 pr_family(i);
183                                 do_rtent = 1;
184                                 pr_rthdr(i);
185                                 p_tree(head.rnh_treetop);
186                         }
187                 }
188         }
189 }
190
191 /*
192  * Print address family header before a section of the routing table.
193  */
194 void
195 pr_family(int af)
196 {
197         char *afname;
198
199         switch (af) {
200         case AF_INET:
201                 afname = "Internet";
202                 break;
203 #ifdef INET6
204         case AF_INET6:
205                 afname = "Internet6";
206                 break;
207 #endif /*INET6*/
208         case AF_IPX:
209                 afname = "IPX";
210                 break;
211 #ifdef NS
212         case AF_NS:
213                 afname = "XNS";
214                 break;
215 #endif
216         case AF_ISO:
217                 afname = "ISO";
218                 break;
219         case AF_APPLETALK:
220                 afname = "AppleTalk";
221                 break;
222         case AF_CCITT:
223                 afname = "X.25";
224                 break;
225         case AF_NETGRAPH:
226                 afname = "Netgraph";
227                 break;
228         case AF_MPLS:
229                 afname = "MPLS";
230                 break;
231         default:
232                 afname = NULL;
233                 break;
234         }
235         if (afname)
236                 printf("\n%s:\n", afname);
237         else
238                 printf("\nProtocol Family %d:\n", af);
239 }
240
241 /* column widths; each followed by one space */
242 #ifndef INET6
243 #define WID_DST_DEFAULT(af)     18      /* width of destination column */
244 #define WID_GW_DEFAULT(af)      18      /* width of gateway column */
245 #define WID_IF_DEFAULT(af)      (Wflag ? 8 : 6) /* width of netif column */
246 #else
247 #define WID_DST_DEFAULT(af) \
248         ((af) == AF_INET6 ? (numeric_addr ? 33: 18) : 18)
249 #define WID_GW_DEFAULT(af) \
250         ((af) == AF_INET6 ? (numeric_addr ? 29 : 18) : 18)
251 #define WID_IF_DEFAULT(af)      ((af) == AF_INET6 ? 8 : (Wflag ? 8 :6))
252 #endif /*INET6*/
253
254 static int wid_dst;
255 static int wid_gw;
256 static int wid_flags;
257 static int wid_refs;
258 static int wid_use;
259 static int wid_mtu;
260 static int wid_if;
261 static int wid_expire;
262 static int wid_mplslops;
263
264 static void
265 size_cols(int ef, struct radix_node *rn)
266 {
267         wid_dst = WID_DST_DEFAULT(ef);
268         wid_gw = WID_GW_DEFAULT(ef);
269         wid_flags = 6;
270         wid_refs = 6;
271         wid_use = 8;
272         wid_mtu = 6;
273         wid_if = WID_IF_DEFAULT(ef);
274         wid_expire = 6;
275         wid_mplslops = 7;
276
277         if (Wflag)
278                 size_cols_tree(rn);
279 }
280
281 static void
282 size_cols_tree(struct radix_node *rn)
283 {
284 again:
285         kget(rn, rnode);
286         if (rnode.rn_bit < 0) {
287                 if ((rnode.rn_flags & RNF_ROOT) == 0) {
288                         kget(rn, rtentry);
289                         size_cols_rtentry(&rtentry);
290                 }
291                 if ((rn = rnode.rn_dupedkey))
292                         goto again;
293         } else {
294                 rn = rnode.rn_right;
295                 size_cols_tree(rnode.rn_left);
296                 size_cols_tree(rn);
297         }
298 }
299
300 static void
301 size_cols_rtentry(struct rtentry *rt)
302 {
303         static struct ifnet ifnet, *lastif;
304         struct rtentry parent;
305         static char buffer[100];
306         const char *bp;
307         struct sockaddr *sa;
308         sa_u addr, mask;
309         int len, i;
310
311         /*
312          * Don't print protocol-cloned routes unless -a.
313          */
314         if (rt->rt_flags & RTF_WASCLONED && !aflag) {
315                 kget(rt->rt_parent, parent);
316                 if (parent.rt_flags & RTF_PRCLONING)
317                         return;
318         }
319
320         bzero(&addr, sizeof(addr));
321         if ((sa = kgetsa(rt_key(rt))))
322                 bcopy(sa, &addr, sa->sa_len);
323         bzero(&mask, sizeof(mask));
324         if (rt_mask(rt) && (sa = kgetsa(rt_mask(rt))))
325                 bcopy(sa, &mask, sa->sa_len);
326         bp = fmt_sockaddr(&addr.u_sa, &mask.u_sa, rt->rt_flags);
327         len = strlen(bp);
328         wid_dst = MAX(len, wid_dst);
329
330         bp = fmt_sockaddr(kgetsa(rt->rt_gateway), NULL, RTF_HOST);
331         len = strlen(bp);
332         wid_gw = MAX(len, wid_gw);
333
334         bp = fmt_flags(rt->rt_flags);
335         len = strlen(bp);
336         wid_flags = MAX(len, wid_flags);
337
338         if (addr.u_sa.sa_family == AF_INET || Wflag) {
339                 len = snprintf(buffer, sizeof(buffer), "%ld", rt->rt_refcnt);
340                 wid_refs = MAX(len, wid_refs);
341                 len = snprintf(buffer, sizeof(buffer), "%lu", rt->rt_use);
342                 wid_use = MAX(len, wid_use);
343                 if (Wflag && rt->rt_rmx.rmx_mtu != 0) {
344                         len = snprintf(buffer, sizeof(buffer),
345                                        "%lu", rt->rt_rmx.rmx_mtu);
346                         wid_mtu = MAX(len, wid_mtu);
347                 }
348         }
349         if (rt->rt_ifp) {
350                 if (rt->rt_ifp != lastif) {
351                         kget(rt->rt_ifp, ifnet);
352                         lastif = rt->rt_ifp;
353                         len = strlen(ifnet.if_xname);
354                         wid_if = MAX(len, wid_if);
355                 }
356                 if (rt->rt_rmx.rmx_expire) {
357                         time_t expire_time;
358
359                         if ((expire_time =
360                             rt->rt_rmx.rmx_expire - time(NULL)) > 0) {
361                                 snprintf(buffer, sizeof(buffer), "%d",
362                                          (int)expire_time);
363                                 wid_expire = MAX(len, wid_expire);
364                         }
365                 }
366         }
367         if (rt->rt_shim[0] != NULL)
368                 len = strlen(labelops(rt));
369         wid_mplslops = MAX(len, wid_mplslops);
370 }
371
372
373 /*
374  * Print header for routing table columns.
375  */
376 void
377 pr_rthdr(int af)
378 {
379
380         if (Aflag)
381                 printf("%-8.8s ","Address");
382         if (af == AF_INET || Wflag) {
383                 if (Wflag) {
384                         printf("%-*.*s %-*.*s %-*.*s %*.*s %*.*s %*.*s %*.*s %*s %-*s\n",
385                                 wid_dst,        wid_dst,        "Destination",
386                                 wid_gw,         wid_gw,         "Gateway",
387                                 wid_flags,      wid_flags,      "Flags",
388                                 wid_refs,       wid_refs,       "Refs",
389                                 wid_use,        wid_use,        "Use",
390                                 wid_mtu,        wid_mtu,        "Mtu",
391                                 wid_if,         wid_if,         "Netif",
392                                 wid_expire,                     "Expire",
393                                 wid_mplslops,                   "Labelops");
394                 } else {
395                         printf("%-*.*s %-*.*s %-*.*s %*.*s %*.*s %*.*s %*s\n",
396                                 wid_dst,        wid_dst,        "Destination",
397                                 wid_gw,         wid_gw,         "Gateway",
398                                 wid_flags,      wid_flags,      "Flags",
399                                 wid_refs,       wid_refs,       "Refs",
400                                 wid_use,        wid_use,        "Use",
401                                 wid_if,         wid_if,         "Netif",
402                                 wid_expire,                     "Expire");
403                 }
404         } else {
405                 printf("%-*.*s %-*.*s %-*.*s  %*.*s %*s\n",
406                         wid_dst,        wid_dst,        "Destination",
407                         wid_gw,         wid_gw,         "Gateway",
408                         wid_flags,      wid_flags,      "Flags",
409                         wid_if,         wid_if,         "Netif",
410                         wid_expire,                     "Expire");
411         }
412 }
413
414 static struct sockaddr *
415 kgetsa(struct sockaddr *dst)
416 {
417
418         kget(dst, pt_u.u_sa);
419         if (pt_u.u_sa.sa_len > sizeof (pt_u.u_sa))
420                 kread((u_long)dst, (char *)pt_u.u_data, pt_u.u_sa.sa_len);
421         return (&pt_u.u_sa);
422 }
423
424 static void
425 p_tree(struct radix_node *rn)
426 {
427
428 again:
429         kget(rn, rnode);
430         if (rnode.rn_bit < 0) {
431                 if (Aflag)
432                         printf("%-8.8lx ", (u_long)rn);
433                 if (rnode.rn_flags & RNF_ROOT) {
434                         if (Aflag)
435                                 printf("(root node)%s",
436                                     rnode.rn_dupedkey ? " =>\n" : "\n");
437                 } else if (do_rtent) {
438                         kget(rn, rtentry);
439                         p_rtentry(&rtentry);
440                         if (Aflag)
441                                 p_rtnode();
442                 } else {
443                         p_sockaddr(kgetsa((struct sockaddr *)rnode.rn_key),
444                                    NULL, 0, 44);
445                         putchar('\n');
446                 }
447                 if ((rn = rnode.rn_dupedkey))
448                         goto again;
449         } else {
450                 if (Aflag && do_rtent) {
451                         printf("%-8.8lx ", (u_long)rn);
452                         p_rtnode();
453                 }
454                 rn = rnode.rn_right;
455                 p_tree(rnode.rn_left);
456                 p_tree(rn);
457         }
458 }
459
460 char    nbuf[20];
461
462 static void
463 p_rtnode(void)
464 {
465         struct radix_mask *rm = rnode.rn_mklist;
466
467         if (rnode.rn_bit < 0) {
468                 if (rnode.rn_mask) {
469                         printf("\t  mask ");
470                         p_sockaddr(kgetsa((struct sockaddr *)rnode.rn_mask),
471                                    NULL, 0, -1);
472                 } else if (rm == 0)
473                         return;
474         } else {
475                 sprintf(nbuf, "(%d)", rnode.rn_bit);
476                 printf("%6.6s %8.8lx : %8.8lx", nbuf, (u_long)rnode.rn_left, (u_long)rnode.rn_right);
477         }
478         while (rm) {
479                 kget(rm, rmask);
480                 sprintf(nbuf, " %d refs, ", rmask.rm_refs);
481                 printf(" mk = %8.8lx {(%d),%s",
482                         (u_long)rm, -1 - rmask.rm_bit, rmask.rm_refs ? nbuf : " ");
483                 if (rmask.rm_flags & RNF_NORMAL) {
484                         struct radix_node rnode_aux;
485                         printf(" <normal>, ");
486                         kget(rmask.rm_leaf, rnode_aux);
487                         p_sockaddr(kgetsa((struct sockaddr *)rnode_aux.rn_mask),
488                                     NULL, 0, -1);
489                 } else
490                     p_sockaddr(kgetsa((struct sockaddr *)rmask.rm_mask),
491                                 NULL, 0, -1);
492                 putchar('}');
493                 if ((rm = rmask.rm_next))
494                         printf(" ->");
495         }
496         putchar('\n');
497 }
498
499 static void
500 ntreestuff(void)
501 {
502         size_t needed;
503         int mib[7];
504         int miblen;
505         char *buf, *next, *lim;
506         struct rt_msghdr *rtm;
507
508         mib[0] = CTL_NET;
509         mib[1] = PF_ROUTE;
510         mib[2] = 0;
511         mib[3] = 0;
512         mib[4] = NET_RT_DUMP;
513         mib[5] = 0;
514         if (cpuflag >= 0) {
515                 mib[6] = cpuflag;
516                 miblen = 7;
517         } else {
518                 miblen = 6;
519         }
520         if (sysctl(mib, miblen, NULL, &needed, NULL, 0) < 0) {
521                 err(1, "sysctl: net.route.0.0.dump estimate");
522         }
523
524         if ((buf = malloc(needed)) == 0) {
525                 err(2, "malloc(%lu)", (unsigned long)needed);
526         }
527         if (sysctl(mib, miblen, buf, &needed, NULL, 0) < 0) {
528                 err(1, "sysctl: net.route.0.0.dump");
529         }
530         lim  = buf + needed;
531         for (next = buf; next < lim; next += rtm->rtm_msglen) {
532                 rtm = (struct rt_msghdr *)next;
533                 np_rtentry(rtm);
534         }
535 }
536
537 static void
538 np_rtentry(struct rt_msghdr *rtm)
539 {
540         struct sockaddr *sa = (struct sockaddr *)(rtm + 1);
541 #ifdef notdef
542         static int masks_done, banner_printed;
543 #endif
544         static int old_af;
545         int af = 0, interesting = RTF_UP | RTF_GATEWAY | RTF_HOST;
546
547 #ifdef notdef
548         /* for the moment, netmasks are skipped over */
549         if (!banner_printed) {
550                 printf("Netmasks:\n");
551                 banner_printed = 1;
552         }
553         if (masks_done == 0) {
554                 if (rtm->rtm_addrs != RTA_DST ) {
555                         masks_done = 1;
556                         af = sa->sa_family;
557                 }
558         } else
559 #endif
560                 af = sa->sa_family;
561         if (af != old_af) {
562                 pr_family(af);
563                 old_af = af;
564         }
565         if (rtm->rtm_addrs == RTA_DST)
566                 p_sockaddr(sa, NULL, 0, 36);
567         else {
568                 p_sockaddr(sa, NULL, rtm->rtm_flags, 16);
569                 sa = (struct sockaddr *)(ROUNDUP(sa->sa_len) + (char *)sa);
570                 p_sockaddr(sa, NULL, 0, 18);
571         }
572         p_flags(rtm->rtm_flags & interesting, "%-6.6s ");
573         putchar('\n');
574 }
575
576 static void
577 p_sockaddr(struct sockaddr *sa, struct sockaddr *mask, int flags, int width)
578 {
579         const char *cp;
580
581         cp = fmt_sockaddr(sa, mask, flags);
582
583         if (width < 0 )
584                 printf("%s ", cp);
585         else {
586                 if (numeric_addr)
587                         printf("%-*s ", width, cp);
588                 else
589                         printf("%-*.*s ", width, width, cp);
590         }
591 }
592
593 static const char *
594 fmt_sockaddr(struct sockaddr *sa, struct sockaddr *mask, int flags)
595 {
596         static char workbuf[128];
597         char *cplim;
598         char *cp = workbuf;
599
600         switch(sa->sa_family) {
601         case AF_INET:
602             {
603                 struct sockaddr_in *sin = (struct sockaddr_in *)sa;
604
605                 if ((sin->sin_addr.s_addr == INADDR_ANY) &&
606                         mask &&
607                         ntohl(((struct sockaddr_in *)mask)->sin_addr.s_addr)
608                                 ==0L)
609                                 cp = "default" ;
610                 else if (flags & RTF_HOST)
611                         cp = routename(sin->sin_addr.s_addr);
612                 else if (mask)
613                         cp = netname(sin->sin_addr.s_addr,
614                                      ntohl(((struct sockaddr_in *)mask)
615                                            ->sin_addr.s_addr));
616                 else
617                         cp = netname(sin->sin_addr.s_addr, 0L);
618                 break;
619             }
620
621 #ifdef INET6
622         case AF_INET6:
623             {
624                 struct sockaddr_in6 *sa6 = (struct sockaddr_in6 *)sa;
625                 struct in6_addr *in6 = &sa6->sin6_addr;
626
627                 /*
628                  * XXX: This is a special workaround for KAME kernels.
629                  * sin6_scope_id field of SA should be set in the future.
630                  */
631                 if (IN6_IS_ADDR_LINKLOCAL(in6) ||
632                     IN6_IS_ADDR_MC_LINKLOCAL(in6)) {
633                     /* XXX: override is ok? */
634                     sa6->sin6_scope_id = (u_int32_t)ntohs(*(u_short *)&in6->s6_addr[2]);
635                     *(u_short *)&in6->s6_addr[2] = 0;
636                 }
637
638                 if (flags & RTF_HOST)
639                     cp = routename6(sa6);
640                 else if (mask)
641                     cp = netname6(sa6,
642                                   &((struct sockaddr_in6 *)mask)->sin6_addr);
643                 else {
644                     cp = netname6(sa6, NULL);
645                 }
646                 break;
647             }
648 #endif /*INET6*/
649
650         case AF_IPX:
651             {
652                 struct ipx_addr work = ((struct sockaddr_ipx *)sa)->sipx_addr;
653                 if (ipx_nullnet(satoipx_addr(work)))
654                         cp = "default";
655                 else
656                         cp = ipx_print(sa);
657                 break;
658             }
659         case AF_APPLETALK:
660             {
661                 if (!(flags & RTF_HOST) && mask)
662                         cp = atalk_print2(sa,mask,9);
663                 else
664                         cp = atalk_print(sa,11);
665                 break;
666             }
667         case AF_NETGRAPH:
668             {
669                 printf("%s", ((struct sockaddr_ng *)sa)->sg_data);
670                 break;
671             }
672 #ifdef NS
673         case AF_NS:
674                 cp = ns_print(sa);
675                 break;
676 #endif
677
678         case AF_LINK:
679             {
680                 struct sockaddr_dl *sdl = (struct sockaddr_dl *)sa;
681
682                 if (sdl->sdl_nlen == 0 && sdl->sdl_alen == 0 &&
683                     sdl->sdl_slen == 0)
684                         (void) sprintf(workbuf, "link#%d", sdl->sdl_index);
685                 else
686                         switch (sdl->sdl_type) {
687
688                         case IFT_ETHER:
689                         case IFT_L2VLAN:
690                                 if (sdl->sdl_alen == ETHER_ADDR_LEN) {
691                                         cp = ether_ntoa((struct ether_addr *)
692                                             (sdl->sdl_data + sdl->sdl_nlen));
693                                         break;
694                                 }
695                                 /* FALLTHROUGH */
696                         default:
697                                 cp = link_ntoa(sdl);
698                                 break;
699                         }
700                 break;
701             }
702
703         case AF_MPLS:
704             {
705                 struct sockaddr_mpls *smpls = (struct sockaddr_mpls *)sa;
706
707                 (void) sprintf(workbuf, "%d", ntohl(smpls->smpls_label));
708                 break;
709             }
710                 
711         default:
712             {
713                 u_char *s = (u_char *)sa->sa_data, *slim;
714
715                 slim =  sa->sa_len + (u_char *) sa;
716                 cplim = cp + sizeof(workbuf) - 6;
717                 cp += sprintf(cp, "(%d)", sa->sa_family);
718                 while (s < slim && cp < cplim) {
719                         cp += sprintf(cp, " %02x", *s++);
720                         if (s < slim)
721                             cp += sprintf(cp, "%02x", *s++);
722                 }
723                 cp = workbuf;
724             }
725         }
726
727         return (cp);
728 }
729
730 static void
731 p_flags(int f, char *format)
732 {
733         printf(format, fmt_flags(f));
734 }
735
736 static const char *
737 fmt_flags(int f)
738 {
739         static char name[33];
740         char *flags;
741         struct bits *p = bits;
742
743         for (flags = name; p->b_mask; p++)
744                 if (p->b_mask & f)
745                         *flags++ = p->b_val;
746         *flags = '\0';
747         return (name);
748 }
749
750 static void
751 p_rtentry(struct rtentry *rt)
752 {
753         static struct ifnet ifnet, *lastif;
754         struct rtentry parent;
755         static char buffer[128];
756         static char prettyname[128];
757         struct sockaddr *sa;
758         sa_u addr, mask;
759
760         /*
761          * Don't print protocol-cloned routes unless -a.
762          */
763         if (rt->rt_flags & RTF_WASCLONED && !aflag) {
764                 kget(rt->rt_parent, parent);
765                 if (parent.rt_flags & RTF_PRCLONING)
766                         return;
767         }
768
769         bzero(&addr, sizeof(addr));
770         if ((sa = kgetsa(rt_key(rt))))
771                 bcopy(sa, &addr, sa->sa_len);
772         bzero(&mask, sizeof(mask));
773         if (rt_mask(rt) && (sa = kgetsa(rt_mask(rt))))
774                 bcopy(sa, &mask, sa->sa_len);
775         p_sockaddr(&addr.u_sa, &mask.u_sa, rt->rt_flags, wid_dst);
776         p_sockaddr(kgetsa(rt->rt_gateway), NULL, RTF_HOST, wid_gw);
777         snprintf(buffer, sizeof(buffer), "%%-%d.%ds ", wid_flags, wid_flags);
778         p_flags(rt->rt_flags, buffer);
779         if (addr.u_sa.sa_family == AF_INET || Wflag) {
780                 printf("%*ld %*lu ", wid_refs, rt->rt_refcnt,
781                                      wid_use, rt->rt_use);
782                 if (Wflag) {
783                         if (rt->rt_rmx.rmx_mtu != 0)
784                                 printf("%*lu ", wid_mtu, rt->rt_rmx.rmx_mtu);
785                         else
786                                 printf("%*s ", wid_mtu, "");
787                 }
788         }
789         if (rt->rt_ifp) {
790                 if (rt->rt_ifp != lastif) {
791                         kget(rt->rt_ifp, ifnet);
792                         lastif = rt->rt_ifp;
793                         strlcpy(prettyname, ifnet.if_xname, sizeof(prettyname));
794                 }
795                 printf("%*.*s", wid_if, wid_if, prettyname);
796                 if (rt->rt_rmx.rmx_expire) {
797                         time_t expire_time;
798
799                         if ((expire_time =
800                             rt->rt_rmx.rmx_expire - time((time_t *)0)) > 0)
801                                 printf(" %*d", wid_expire, (int)expire_time);
802                 } else {
803                         printf("%*s ", wid_expire, "");
804                 }
805                 if (rt->rt_nodes[0].rn_dupedkey)
806                         printf(" =>");
807         }
808         if (Wflag) {
809                 if (rt->rt_shim[0] != NULL)
810                         printf(" %-*s", wid_mplslops, labelops(rt));
811         }
812         putchar('\n');
813 }
814
815 char *
816 routename(u_long in)
817 {
818         char *cp;
819         static char line[MAXHOSTNAMELEN];
820         struct hostent *hp;
821
822         cp = 0;
823         if (!numeric_addr) {
824                 hp = gethostbyaddr((char *)&in, sizeof (struct in_addr),
825                         AF_INET);
826                 if (hp) {
827                         cp = hp->h_name;
828                         trimdomain(cp, strlen(cp));
829                 }
830         }
831         if (cp) {
832                 strncpy(line, cp, sizeof(line) - 1);
833                 line[sizeof(line) - 1] = '\0';
834         } else {
835 #define C(x)    ((x) & 0xff)
836                 in = ntohl(in);
837                 sprintf(line, "%lu.%lu.%lu.%lu",
838                     C(in >> 24), C(in >> 16), C(in >> 8), C(in));
839         }
840         return (line);
841 }
842
843 static u_long
844 forgemask(u_long a)
845 {
846         u_long m;
847
848         if (IN_CLASSA(a))
849                 m = IN_CLASSA_NET;
850         else if (IN_CLASSB(a))
851                 m = IN_CLASSB_NET;
852         else
853                 m = IN_CLASSC_NET;
854         return (m);
855 }
856
857 static void
858 domask(char *dst, u_long addr, u_long mask)
859 {
860         int b, i;
861
862         if (!mask || (forgemask(addr) == mask)) {
863                 *dst = '\0';
864                 return;
865         }
866         i = 0;
867         for (b = 0; b < 32; b++)
868                 if (mask & (1 << b)) {
869                         int bb;
870
871                         i = b;
872                         for (bb = b+1; bb < 32; bb++)
873                                 if (!(mask & (1 << bb))) {
874                                         i = -1; /* noncontig */
875                                         break;
876                                 }
877                         break;
878                 }
879         if (i == -1)
880                 sprintf(dst, "&0x%lx", mask);
881         else
882                 sprintf(dst, "/%d", 32-i);
883 }
884
885 /*
886  * Return the name of the network whose address is given.
887  * The address is assumed to be that of a net or subnet, not a host.
888  */
889 char *
890 netname(u_long in, u_long mask)
891 {
892         char *cp = 0;
893         static char line[MAXHOSTNAMELEN];
894         struct netent *np = 0;
895         u_long dmask;
896         u_long i;
897
898 #define NSHIFT(m) (                                                     \
899         (m) == IN_CLASSA_NET ? IN_CLASSA_NSHIFT :                       \
900         (m) == IN_CLASSB_NET ? IN_CLASSB_NSHIFT :                       \
901         (m) == IN_CLASSC_NET ? IN_CLASSC_NSHIFT :                       \
902         0)
903
904         i = ntohl(in);
905         dmask = forgemask(i);
906         if (!numeric_addr && i) {
907                 np = getnetbyaddr(i >> NSHIFT(mask), AF_INET);
908                 if (np == NULL && mask == 0)
909                         np = getnetbyaddr(i >> NSHIFT(dmask), AF_INET);
910                 if (np != NULL) {
911                         cp = np->n_name;
912                         trimdomain(cp, strlen(cp));
913                 }
914         }
915 #undef NSHIFT
916         if (cp != NULL) {
917                 strncpy(line, cp, sizeof(line) - 1);
918                 line[sizeof(line) - 1] = '\0';
919         } else {
920                 if (mask <= IN_CLASSA_NET &&
921                         (i & IN_CLASSA_HOST) == 0) {
922                                 sprintf(line, "%lu", C(i >> 24));
923                 } else if (mask <= IN_CLASSB_NET &&
924                         (i & IN_CLASSB_HOST) == 0) {
925                                 sprintf(line, "%lu.%lu",
926                                         C(i >> 24), C(i >> 16));
927                 } else if (mask <= IN_CLASSC_NET &&
928                         (i & IN_CLASSC_HOST) == 0) {
929                                 sprintf(line, "%lu.%lu.%lu",
930                                         C(i >> 24), C(i >> 16), C(i >> 8));
931                 } else {
932                         sprintf(line, "%lu.%lu.%lu.%lu",
933                                 C(i >> 24), C(i >> 16), C(i >> 8), C(i));
934                 }
935         }
936         domask(line + strlen(line), i, mask);
937         return (line);
938 }
939
940 #ifdef INET6
941 char *
942 netname6(struct sockaddr_in6 *sa6, struct in6_addr *mask)
943 {
944         static char line[MAXHOSTNAMELEN];
945         u_char *p = (u_char *)mask;
946         u_char *lim;
947         int masklen, illegal = 0, flag = NI_WITHSCOPEID;
948
949         if (mask) {
950                 for (masklen = 0, lim = p + 16; p < lim; p++) {
951                         switch (*p) {
952                          case 0xff:
953                                  masklen += 8;
954                                  break;
955                          case 0xfe:
956                                  masklen += 7;
957                                  break;
958                          case 0xfc:
959                                  masklen += 6;
960                                  break;
961                          case 0xf8:
962                                  masklen += 5;
963                                  break;
964                          case 0xf0:
965                                  masklen += 4;
966                                  break;
967                          case 0xe0:
968                                  masklen += 3;
969                                  break;
970                          case 0xc0:
971                                  masklen += 2;
972                                  break;
973                          case 0x80:
974                                  masklen += 1;
975                                  break;
976                          case 0x00:
977                                  break;
978                          default:
979                                  illegal ++;
980                                  break;
981                         }
982                 }
983                 if (illegal)
984                         fprintf(stderr, "illegal prefixlen\n");
985         }
986         else
987                 masklen = 128;
988
989         if (masklen == 0 && IN6_IS_ADDR_UNSPECIFIED(&sa6->sin6_addr))
990                 return("default");
991
992         if (numeric_addr)
993                 flag |= NI_NUMERICHOST;
994         getnameinfo((struct sockaddr *)sa6, sa6->sin6_len, line, sizeof(line),
995                     NULL, 0, flag);
996
997         if (numeric_addr)
998                 sprintf(&line[strlen(line)], "/%d", masklen);
999
1000         return line;
1001 }
1002
1003 char *
1004 routename6(struct sockaddr_in6 *sa6)
1005 {
1006         static char line[MAXHOSTNAMELEN];
1007         int flag = NI_WITHSCOPEID;
1008         /* use local variable for safety */
1009         struct sockaddr_in6 sa6_local = {AF_INET6, sizeof(sa6_local),};
1010
1011         sa6_local.sin6_addr = sa6->sin6_addr;
1012         sa6_local.sin6_scope_id = sa6->sin6_scope_id;
1013
1014         if (numeric_addr)
1015                 flag |= NI_NUMERICHOST;
1016
1017         getnameinfo((struct sockaddr *)&sa6_local, sa6_local.sin6_len,
1018                     line, sizeof(line), NULL, 0, flag);
1019
1020         return line;
1021 }
1022 #endif /*INET6*/
1023
1024 /*
1025  * Print routing statistics
1026  */
1027 void
1028 rt_stats(void)
1029 {
1030         struct rtstatistics rts;
1031         int error = 0;
1032
1033         error = kinfo_get_net_rtstatistics(&rts);
1034         if (error) {
1035                 printf("routing: could not retrieve statistics\n");
1036                 return;
1037         }
1038         printf("routing:\n");
1039
1040 #define p(f, m) if (rts.f || sflag <= 1) \
1041         printf(m, rts.f, plural(rts.f))
1042
1043         p(rts_badredirect, "\t%lu bad routing redirect%s\n");
1044         p(rts_dynamic, "\t%lu dynamically created route%s\n");
1045         p(rts_newgateway, "\t%lu new gateway%s due to redirects\n");
1046         p(rts_unreach, "\t%lu destination%s found unreachable\n");
1047         p(rts_wildcard, "\t%lu use%s of a wildcard route\n");
1048 #undef p
1049 }
1050
1051 char *
1052 ipx_print(struct sockaddr *sa)
1053 {
1054         u_short port;
1055         struct servent *sp = 0;
1056         char *net = "", *host = "";
1057         char *p;
1058         u_char *q;
1059         struct ipx_addr work = ((struct sockaddr_ipx *)sa)->sipx_addr;
1060         static char mybuf[50];
1061         char cport[10], chost[15], cnet[15];
1062
1063         port = ntohs(work.x_port);
1064
1065         if (ipx_nullnet(work) && ipx_nullhost(work)) {
1066
1067                 if (port) {
1068                         if (sp)
1069                                 sprintf(mybuf, "*.%s", sp->s_name);
1070                         else
1071                                 sprintf(mybuf, "*.%x", port);
1072                 } else
1073                         sprintf(mybuf, "*.*");
1074
1075                 return (mybuf);
1076         }
1077
1078         if (ipx_wildnet(work))
1079                 net = "any";
1080         else if (ipx_nullnet(work))
1081                 net = "*";
1082         else {
1083                 q = work.x_net.c_net;
1084                 sprintf(cnet, "%02x%02x%02x%02x",
1085                         q[0], q[1], q[2], q[3]);
1086                 for (p = cnet; *p == '0' && p < cnet + 8; p++)
1087                         continue;
1088                 net = p;
1089         }
1090
1091         if (ipx_wildhost(work))
1092                 host = "any";
1093         else if (ipx_nullhost(work))
1094                 host = "*";
1095         else {
1096                 q = work.x_host.c_host;
1097                 sprintf(chost, "%02x%02x%02x%02x%02x%02x",
1098                         q[0], q[1], q[2], q[3], q[4], q[5]);
1099                 for (p = chost; *p == '0' && p < chost + 12; p++)
1100                         continue;
1101                 host = p;
1102         }
1103
1104         if (port) {
1105                 if (strcmp(host, "*") == 0)
1106                         host = "";
1107                 if (sp) 
1108                         snprintf(cport, sizeof(cport),
1109                                 "%s%s", *host ? "." : "", sp->s_name);
1110                 else    
1111                         snprintf(cport, sizeof(cport),
1112                                 "%s%x", *host ? "." : "", port);
1113         } else
1114                 *cport = 0;
1115
1116         snprintf(mybuf, sizeof(mybuf), "%s.%s%s", net, host, cport);
1117         return(mybuf);
1118 }
1119
1120 char *
1121 ipx_phost(struct sockaddr *sa)
1122 {
1123         struct sockaddr_ipx *sipx = (struct sockaddr_ipx *)sa;
1124         struct sockaddr_ipx work;
1125         static union ipx_net ipx_zeronet;
1126         char *p;
1127         struct ipx_addr in;
1128
1129         work = *sipx;
1130         in = work.sipx_addr;
1131
1132         work.sipx_addr.x_port = 0;
1133         work.sipx_addr.x_net = ipx_zeronet;
1134         p = ipx_print((struct sockaddr *)&work);
1135         if (strncmp("*.", p, 2) == 0) p += 2;
1136
1137         return(p);
1138 }
1139
1140 #ifdef NS
1141 short ns_nullh[] = {0,0,0};
1142 short ns_bh[] = {-1,-1,-1};
1143
1144 char *
1145 ns_print(struct sockaddr *sa)
1146 {
1147         struct sockaddr_ns *sns = (struct sockaddr_ns*)sa;
1148         struct ns_addr work;
1149         union { union ns_net net_e; u_long long_e; } net;
1150         u_short port;
1151         static char mybuf[50], cport[10], chost[25];
1152         char *host = "";
1153         char *p; u_char *q;
1154
1155         work = sns->sns_addr;
1156         port = ntohs(work.x_port);
1157         work.x_port = 0;
1158         net.net_e  = work.x_net;
1159         if (ns_nullhost(work) && net.long_e == 0) {
1160                 if (port ) {
1161                         sprintf(mybuf, "*.%xH", port);
1162                         upHex(mybuf);
1163                 } else
1164                         sprintf(mybuf, "*.*");
1165                 return (mybuf);
1166         }
1167
1168         if (bcmp(ns_bh, work.x_host.c_host, 6) == 0) {
1169                 host = "any";
1170         } else if (bcmp(ns_nullh, work.x_host.c_host, 6) == 0) {
1171                 host = "*";
1172         } else {
1173                 q = work.x_host.c_host;
1174                 sprintf(chost, "%02x%02x%02x%02x%02x%02xH",
1175                         q[0], q[1], q[2], q[3], q[4], q[5]);
1176                 for (p = chost; *p == '0' && p < chost + 12; p++)
1177                         continue;
1178                 host = p;
1179         }
1180         if (port)
1181                 sprintf(cport, ".%xH", htons(port));
1182         else
1183                 *cport = 0;
1184
1185         sprintf(mybuf,"%xH.%s%s", ntohl(net.long_e), host, cport);
1186         upHex(mybuf);
1187         return(mybuf);
1188 }
1189
1190 char *
1191 ns_phost(struct sockaddr *sa)
1192 {
1193         struct sockaddr_ns *sns = (struct sockaddr_ns *)sa;
1194         struct sockaddr_ns work;
1195         static union ns_net ns_zeronet;
1196         char *p;
1197
1198         work = *sns;
1199         work.sns_addr.x_port = 0;
1200         work.sns_addr.x_net = ns_zeronet;
1201
1202         p = ns_print((struct sockaddr *)&work);
1203         if (strncmp("0H.", p, 3) == 0)
1204                 p += 3;
1205         return(p);
1206 }
1207 #endif
1208
1209 void
1210 upHex(char *p0)
1211 {
1212         char *p = p0;
1213
1214         for (; *p; p++)
1215                 switch (*p) {
1216
1217                 case 'a':
1218                 case 'b':
1219                 case 'c':
1220                 case 'd':
1221                 case 'e':
1222                 case 'f':
1223                         *p += ('A' - 'a');
1224                         break;
1225                 }
1226 }
1227
1228 static const char *
1229 labelops(struct rtentry *rt)
1230 {
1231         char *lops[] = { "push", "pop", "swap", "pop all" };
1232         static char buffer[100];
1233         char *cp = buffer;
1234         struct sockaddr_mpls *smpls;
1235         int i;
1236
1237         for (i=0; i<MPLS_MAXLOPS; ++i) {
1238
1239                 if (rt->rt_shim[i] == NULL)
1240                         break;
1241                 if (i>0) {
1242                         cp += snprintf(cp,
1243                                        sizeof(buffer) - (cp - buffer),
1244                                        ", ");
1245                 }
1246                 smpls = (struct sockaddr_mpls *)kgetsa(rt->rt_shim[i]);
1247                 if (smpls->smpls_op != MPLSLOP_POP &&
1248                     smpls->smpls_op != MPLSLOP_POPALL){
1249                         cp += snprintf(cp,
1250                                        sizeof(buffer) - (cp - buffer),
1251                                        "%s %d",
1252                                        lops[smpls->smpls_op - 1],
1253                                        ntohl(smpls->smpls_label));
1254                 } else {
1255                         cp += snprintf(cp,
1256                                        sizeof(buffer) - (cp - buffer),
1257                                        "%s",
1258                                        lops[smpls->smpls_op - 1]);
1259                 }
1260         }
1261
1262         return (buffer);
1263 }