#include <sys/socket.h>
#include <sys/sysctl.h>
#include <net/if.h>
#include <net/if_dl.h>
#include <net/if_media.h>
#include <net/if_types.h>
#include <net/route.h>
#include <netinet/in.h>
#include <netmpls/mpls.h>
#ifdef BFD
#include <sys/time.h>
#include <net/bfd.h>
#endif
#include <arpa/inet.h>
#include <netdb.h>
#include <ifaddrs.h>
#include <errno.h>
#include <fcntl.h>
#include <unistd.h>
#include <limits.h>
#include <stdio.h>
#include <ctype.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <paths.h>
#include <err.h>
#include "keywords.h"
#include "show.h"
const struct if_status_description
if_status_descriptions[] = LINK_STATE_DESCRIPTIONS;
union sockunion so_dst, so_gate, so_mask, so_ifa, so_ifp, so_src, so_label,
so_source;
typedef union sockunion *sup;
pid_t pid;
int rtm_addrs, s;
int forcehost, forcenet, Fflag, nflag, qflag, tflag, Tflag;
int iflag, verbose, aflen = sizeof(struct sockaddr_in);
int locking, lockrest, debugonly;
u_long mpls_flags = MPLS_OP_LOCAL;
u_long rtm_inits;
uid_t uid;
u_int tableid;
struct rt_metrics rt_metrics;
int flushroutes(int, char **);
int newroute(int, char **);
int setsource(int, char **);
int pushsrc(int, char *, int);
int show(int, char *[]);
int keycmp(const void *, const void *);
int keyword(char *);
void monitor(int, char *[]);
int nameserver(int, char **);
int prefixlen(int, char *);
void sockaddr(char *, struct sockaddr *);
void sodump(sup, char *);
char *priorityname(uint8_t);
uint8_t getpriority(char *);
void print_getmsg(struct rt_msghdr *, int);
#ifdef BFD
const char *bfd_state(unsigned int);
const char *bfd_diag(unsigned int);
const char *bfd_calc_uptime(time_t);
void print_bfdmsg(struct rt_msghdr *);
void print_sabfd(struct sockaddr_bfd *, int);
#endif
const char *get_linkstate(int, int);
void print_rtmsg(struct rt_msghdr *, int);
void pmsg_common(struct rt_msghdr *);
void pmsg_addrs(char *, int);
void bprintf(FILE *, int, char *);
int getaddr(int, int, char *, struct hostent **);
void getmplslabel(char *, int);
int rtmsg(int, int, int, uint8_t);
__dead void usage(char *);
void set_metric(char *, int);
void inet_makenetandmask(u_int32_t, struct sockaddr_in *, int);
void getlabel(char *);
int gettable(const char *);
int rdomain(int, char **);
void print_rtdns(struct sockaddr_rtdns *);
void print_rtstatic(struct sockaddr_rtstatic *);
void print_rtsearch(struct sockaddr_rtsearch *);
void print_80211info(struct if_ieee80211_msghdr *);
__dead void
usage(char *cp)
{
extern char *__progname;
if (cp)
warnx("botched keyword: %s", cp);
fprintf(stderr,
#ifndef SMALL
"usage: %s [-dnqtv] [-T rtable] command [[modifier ...] arg ...]\n",
#else
"usage: %s [-dnqtv] command [[modifier ...] arg ...]\n",
#endif
__progname);
exit(1);
}
#define ROUNDUP(a) \
((a) > 0 ? (1 + (((a) - 1) | (sizeof(long) - 1))) : sizeof(long))
#define ADVANCE(x, n) (x += ROUNDUP((n)->sa_len))
int
main(int argc, char **argv)
{
unsigned int filter = 0;
int ch;
int rval = 0;
int kw;
int af = AF_UNSPEC;
#ifndef SMALL
int Terr = 0;
u_int rtable_any = RTABLE_ANY;
#endif
if (argc < 2)
usage(NULL);
#ifndef SMALL
tableid = getrtable();
#endif
while ((ch = getopt(argc, argv, "dnqtT:v")) != -1)
switch (ch) {
case 'n':
nflag = 1;
break;
case 'q':
qflag = 1;
break;
case 'v':
verbose = 1;
break;
case 't':
tflag = 1;
break;
#ifndef SMALL
case 'T':
Terr = gettable(optarg);
Tflag = 1;
break;
#endif
case 'd':
debugonly = 1;
break;
default:
usage(NULL);
}
argc -= optind;
argv += optind;
pid = getpid();
uid = geteuid();
if (*argv == NULL)
usage(NULL);
kw = keyword(*argv);
#ifndef SMALL
if (Tflag && Terr != 0 && kw != K_ADD) {
errno = Terr;
err(1, "routing table %u", tableid);
}
if (kw == K_EXEC)
exit(rdomain(argc - 1, argv + 1));
#endif
if (kw == K_MONITOR) {
while (--argc > 0) {
if (**(++argv)== '-')
switch (keyword(*argv + 1)) {
case K_INET:
af = AF_INET;
break;
case K_INET6:
af = AF_INET6;
break;
case K_MPLS:
af = AF_MPLS;
break;
case K_IFACE:
case K_INTERFACE:
filter = ROUTE_FILTER(RTM_IFINFO) |
ROUTE_FILTER(RTM_IFANNOUNCE) |
ROUTE_FILTER(RTM_80211INFO);
break;
default:
usage(*argv);
}
else
usage(*argv);
}
}
if (tflag)
s = open(_PATH_DEVNULL, O_WRONLY);
else
s = socket(AF_ROUTE, SOCK_RAW, af);
if (s == -1)
err(1, "socket");
if (filter != 0) {
if (setsockopt(s, AF_ROUTE, ROUTE_MSGFILTER, &filter,
sizeof(filter)) == -1)
err(1, "setsockopt(ROUTE_MSGFILTER)");
}
#ifndef SMALL
if (!tflag) {
if (Tflag == 1 && Terr == 0) {
if (setsockopt(s, AF_ROUTE, ROUTE_TABLEFILTER,
&tableid, sizeof(tableid)) == -1)
err(1, "setsockopt(ROUTE_TABLEFILTER)");
} else {
if (setsockopt(s, AF_ROUTE, ROUTE_TABLEFILTER,
&rtable_any, sizeof(tableid)) == -1)
err(1, "setsockopt(ROUTE_TABLEFILTER)");
}
}
#endif
if (pledge("stdio dns route", NULL) == -1)
err(1, "pledge");
switch (kw) {
case K_SHOW:
uid = 0;
exit(show(argc, argv));
break;
case K_FLUSH:
exit(flushroutes(argc, argv));
break;
case K_SOURCEADDR:
nflag = 1;
exit(setsource(argc, argv));
break;
}
if (pledge("stdio dns", NULL) == -1)
err(1, "pledge");
switch (kw) {
case K_GET:
uid = 0;
case K_CHANGE:
case K_ADD:
case K_DEL:
case K_DELETE:
rval = newroute(argc, argv);
break;
case K_MONITOR:
monitor(argc, argv);
break;
case K_NAMESERVER:
rval = nameserver(argc, argv);
break;
default:
usage(*argv);
}
exit(rval);
}
int
flushroutes(int argc, char **argv)
{
size_t needed;
int mib[7], mcnt, rlen, seqno, af = AF_UNSPEC;
char *buf = NULL, *next, *lim = NULL;
struct rt_msghdr *rtm;
struct sockaddr *sa;
uint8_t prio = 0;
unsigned int ifindex = 0;
if (uid)
errx(1, "must be root to alter routing table");
shutdown(s, SHUT_RD);
while (--argc > 0) {
if (**(++argv) == '-')
switch (keyword(*argv + 1)) {
case K_INET:
af = AF_INET;
break;
case K_INET6:
af = AF_INET6;
break;
case K_LINK:
af = AF_LINK;
break;
case K_MPLS:
af = AF_MPLS;
break;
case K_IFACE:
case K_INTERFACE:
if (!--argc)
usage(1+*argv);
ifindex = if_nametoindex(*++argv);
if (ifindex == 0)
errx(1, "no such interface %s", *argv);
break;
case K_PRIORITY:
if (!--argc)
usage(1+*argv);
prio = getpriority(*++argv);
break;
default:
usage(*argv);
}
else
usage(*argv);
}
mib[0] = CTL_NET;
mib[1] = PF_ROUTE;
mib[2] = 0;
mib[3] = af;
mib[4] = NET_RT_DUMP;
mib[5] = prio;
mib[6] = tableid;
mcnt = 7;
needed = get_sysctl(mib, mcnt, &buf);
lim = buf + needed;
if (pledge("stdio dns", NULL) == -1)
err(1, "pledge");
if (verbose) {
printf("Examining routing table from sysctl\n");
if (af)
printf("(address family %s)\n", (*argv + 1));
}
if (buf == NULL)
return (1);
seqno = 0;
for (next = buf; next < lim; next += rtm->rtm_msglen) {
rtm = (struct rt_msghdr *)next;
if (rtm->rtm_version != RTM_VERSION)
continue;
if (verbose)
print_rtmsg(rtm, rtm->rtm_msglen);
if ((rtm->rtm_flags & (RTF_GATEWAY|RTF_STATIC|RTF_LLINFO)) == 0)
continue;
if ((rtm->rtm_flags & (RTF_LOCAL|RTF_BROADCAST)) != 0)
continue;
sa = (struct sockaddr *)(next + rtm->rtm_hdrlen);
if (ifindex && rtm->rtm_index != ifindex)
continue;
if (sa->sa_family == AF_KEY)
continue;
if (debugonly)
continue;
rtm->rtm_type = RTM_DELETE;
rtm->rtm_seq = seqno;
rtm->rtm_tableid = tableid;
rlen = write(s, next, rtm->rtm_msglen);
if (rlen < (int)rtm->rtm_msglen) {
warn("write to routing socket");
printf("got only %d for rlen\n", rlen);
break;
}
seqno++;
if (qflag)
continue;
if (verbose)
print_rtmsg(rtm, rlen);
else {
struct sockaddr *mask, *rti_info[RTAX_MAX];
sa = (struct sockaddr *)(next + rtm->rtm_hdrlen);
get_rtaddrs(rtm->rtm_addrs, sa, rti_info);
sa = rti_info[RTAX_DST];
mask = rti_info[RTAX_NETMASK];
p_sockaddr(sa, mask, rtm->rtm_flags, 20);
p_sockaddr(rti_info[RTAX_GATEWAY], NULL, RTF_HOST, 20);
printf("done\n");
}
}
free(buf);
return (0);
}
void
set_metric(char *value, int key)
{
long long relative_expire;
const char *errstr;
int flag = 0;
switch (key) {
case K_MTU:
rt_metrics.rmx_mtu = strtonum(value, 0, UINT_MAX, &errstr);
if (errstr)
errx(1, "set_metric mtu: %s is %s", value, errstr);
flag = RTV_MTU;
break;
case K_EXPIRE:
relative_expire = strtonum(value, 0, INT_MAX, &errstr);
if (errstr)
errx(1, "set_metric expire: %s is %s", value, errstr);
rt_metrics.rmx_expire = relative_expire ?
relative_expire + time(NULL) : 0;
flag = RTV_EXPIRE;
break;
case K_HOPCOUNT:
case K_RECVPIPE:
case K_SENDPIPE:
case K_SSTHRESH:
case K_RTT:
case K_RTTVAR:
return;
default:
errx(1, "king bula sez: set_metric with invalid key");
}
rtm_inits |= flag;
if (lockrest || locking)
rt_metrics.rmx_locks |= flag;
if (locking)
locking = 0;
}
int
setsource(int argc, char **argv)
{
struct ifaddrs *ifap, *ifa = NULL;
char *cmd;
int af = AF_UNSPEC, ret = 0, key;
unsigned int ifindex = 0;
cmd = argv[0];
if (argc == 1)
printsource(AF_UNSPEC, tableid);
while (--argc > 0) {
if (**(++argv)== '-') {
switch (key = keyword(1 + *argv)) {
case K_INET:
af = AF_INET;
aflen = sizeof(struct sockaddr_in);
break;
case K_INET6:
af = AF_INET6;
aflen = sizeof(struct sockaddr_in6);
break;
case K_IFP:
if (!--argc)
usage(1+*argv);
ifindex = if_nametoindex(*++argv);
if (ifindex == 0)
errx(1, "no such interface %s", *argv);
break;
default:
usage(NULL);
}
} else
break;
}
if (!(argc == 1 && ifindex == 0) && !(argc == 0 && ifindex != 0))
usage(NULL);
if (uid)
errx(1, "must be root to alter source address");
if (ifindex) {
if (getifaddrs(&ifap) == -1)
err(1, "getifaddrs");
for (ifa = ifap; ifa; ifa = ifa->ifa_next) {
if (if_nametoindex(ifa->ifa_name) != ifindex)
continue;
if (ifa->ifa_addr == NULL ||
!(ifa->ifa_addr->sa_family == AF_INET ||
ifa->ifa_addr->sa_family == AF_INET6))
continue;
if ((af != AF_UNSPEC) &&
(ifa->ifa_addr->sa_family != af))
continue;
if (ifa->ifa_addr->sa_family == AF_INET6) {
struct sockaddr_in6 *sin6 =
(struct sockaddr_in6 *)ifa->ifa_addr;
if (IN6_IS_ADDR_LINKLOCAL(&sin6->sin6_addr) ||
IN6_IS_ADDR_MULTICAST(&sin6->sin6_addr))
continue;
}
if (pushsrc(*cmd, routename(ifa->ifa_addr),
ifa->ifa_addr->sa_family))
break;
}
freeifaddrs(ifap);
} else {
ret = pushsrc(*cmd, *argv, af);
}
return (ret != 0);
}
int
pushsrc(int cmd, char *src, int af)
{
int ret = 0;
getaddr(RTA_IFA, af, src, NULL);
errno = 0;
ret = rtmsg(cmd, 0, 0, 0);
if (!qflag && ret != 0)
printf("sourceaddr %s: %s\n", src, strerror(errno));
return (ret);
}
int
newroute(int argc, char **argv)
{
char *cmd, *dest = "", *gateway = "", *error;
int ishost = 0, ret = 0, attempts, oerrno, flags = RTF_STATIC;
int fmask = 0, af = AF_UNSPEC;
int key;
uint8_t prio = 0;
struct hostent *hp = NULL;
int sawdest = 0;
if (uid)
errx(1, "must be root to alter routing table");
cmd = argv[0];
if (*cmd != 'g')
shutdown(s, SHUT_RD);
while (--argc > 0) {
if (**(++argv) == '-') {
switch (key = keyword(1 + *argv)) {
case K_LINK:
af = AF_LINK;
aflen = sizeof(struct sockaddr_dl);
break;
case K_INET:
af = AF_INET;
aflen = sizeof(struct sockaddr_in);
break;
case K_INET6:
af = AF_INET6;
aflen = sizeof(struct sockaddr_in6);
break;
case K_SA:
af = PF_ROUTE;
aflen = sizeof(struct sockaddr_storage) - 1;
break;
case K_MPLS:
af = AF_MPLS;
aflen = sizeof(struct sockaddr_mpls);
fmask |= RTF_MPLS;
break;
case K_MPLSLABEL:
if (!--argc)
usage(1+*argv);
if (af != AF_INET && af != AF_INET6)
errx(1, "-mplslabel requires "
"-inet or -inet6");
getmplslabel(*++argv, 0);
mpls_flags = MPLS_OP_PUSH;
flags |= RTF_MPLS;
break;
case K_IN:
if (!--argc)
usage(1+*argv);
if (af != AF_MPLS)
errx(1, "-in requires -mpls");
getmplslabel(*++argv, 1);
break;
case K_OUT:
if (!--argc)
usage(1+*argv);
if (af != AF_MPLS)
errx(1, "-out requires -mpls");
if (mpls_flags == MPLS_OP_LOCAL)
errx(1, "-out requires -push, -pop, "
"-swap");
getmplslabel(*++argv, 0);
flags |= RTF_MPLS;
break;
case K_POP:
if (af != AF_MPLS)
errx(1, "-pop requires -mpls");
mpls_flags = MPLS_OP_POP;
break;
case K_PUSH:
if (af != AF_MPLS)
errx(1, "-push requires -mpls");
mpls_flags = MPLS_OP_PUSH;
break;
case K_SWAP:
if (af != AF_MPLS)
errx(1, "-swap requires -mpls");
mpls_flags = MPLS_OP_SWAP;
break;
case K_IFACE:
case K_INTERFACE:
iflag++;
break;
case K_NOSTATIC:
flags &= ~RTF_STATIC;
break;
case K_LLINFO:
flags |= RTF_LLINFO;
break;
case K_LOCK:
locking = 1;
break;
case K_LOCKREST:
lockrest = 1;
break;
case K_HOST:
forcehost++;
break;
case K_REJECT:
flags |= RTF_REJECT;
break;
case K_BLACKHOLE:
flags |= RTF_BLACKHOLE;
break;
case K_PROTO1:
flags |= RTF_PROTO1;
break;
case K_PROTO2:
flags |= RTF_PROTO2;
break;
case K_CLONING:
flags |= RTF_CLONING;
break;
case K_STATIC:
flags |= RTF_STATIC;
break;
case K_IFA:
if (!--argc)
usage(1+*argv);
getaddr(RTA_IFA, af, *++argv, NULL);
break;
case K_IFP:
if (!--argc)
usage(1+*argv);
getaddr(RTA_IFP, AF_LINK, *++argv, NULL);
break;
case K_GATEWAY:
if (!--argc)
usage(1+*argv);
getaddr(RTA_GATEWAY, af, *++argv, NULL);
gateway = *argv;
break;
case K_DST:
if (!--argc)
usage(1+*argv);
ishost = getaddr(RTA_DST, af, *++argv, &hp);
dest = *argv;
sawdest = 1;
break;
case K_LABEL:
if (!--argc)
usage(1+*argv);
getlabel(*++argv);
break;
case K_NETMASK:
if (!sawdest)
errx(1, "-netmask must follow "
"destination parameter");
if (!--argc)
usage(1+*argv);
getaddr(RTA_NETMASK, af, *++argv, NULL);
case K_NET:
forcenet++;
break;
case K_PREFIXLEN:
if (!sawdest)
errx(1, "-prefixlen must follow "
"destination parameter");
if (!--argc)
usage(1+*argv);
ishost = prefixlen(af, *++argv);
break;
case K_MPATH:
flags |= RTF_MPATH;
break;
case K_MTU:
case K_HOPCOUNT:
case K_EXPIRE:
case K_RECVPIPE:
case K_SENDPIPE:
case K_SSTHRESH:
case K_RTT:
case K_RTTVAR:
if (!--argc)
usage(1+*argv);
set_metric(*++argv, key);
break;
case K_PRIORITY:
if (!--argc)
usage(1+*argv);
prio = getpriority(*++argv);
break;
case K_BFD:
flags |= RTF_BFD;
fmask |= RTF_BFD;
break;
case K_NOBFD:
flags &= ~RTF_BFD;
fmask |= RTF_BFD;
break;
default:
usage(1+*argv);
}
} else {
if ((rtm_addrs & RTA_DST) == 0) {
dest = *argv;
sawdest = 1;
ishost = getaddr(RTA_DST, af, *argv, &hp);
} else if ((rtm_addrs & RTA_GATEWAY) == 0) {
gateway = *argv;
getaddr(RTA_GATEWAY, af, *argv, &hp);
} else
usage(NULL);
}
}
if (forcehost)
ishost = 1;
if (forcenet)
ishost = 0;
if (forcenet && !(rtm_addrs & RTA_NETMASK))
errx(1, "netmask missing");
flags |= RTF_UP;
if (ishost)
flags |= RTF_HOST;
if (iflag == 0)
flags |= RTF_GATEWAY;
for (attempts = 1; ; attempts++) {
errno = 0;
if ((ret = rtmsg(*cmd, flags, fmask, prio)) == 0)
break;
if (errno != ENETUNREACH && errno != ESRCH)
break;
if (af == AF_INET && *gateway && hp && hp->h_addr_list[1]) {
hp->h_addr_list++;
memcpy(&so_gate.sin.sin_addr, hp->h_addr_list[0],
hp->h_length);
} else
break;
}
oerrno = errno;
if (!qflag && (*cmd != 'g' || ret != 0)) {
printf("%s %s %s", cmd, ishost ? "host" : "net", dest);
if (*gateway) {
printf(": gateway %s", gateway);
if (attempts > 1 && ret == 0 && af == AF_INET)
printf(" (%s)", inet_ntoa(so_gate.sin.sin_addr));
}
if (ret == 0)
printf("\n");
if (ret != 0) {
switch (oerrno) {
case ESRCH:
error = "not in table";
break;
case EBUSY:
error = "entry in use";
break;
case ENOBUFS:
error = "routing table overflow";
break;
default:
error = strerror(oerrno);
break;
}
printf(": %s\n", error);
}
}
return (ret != 0);
}
int
show(int argc, char *argv[])
{
int af = AF_UNSPEC;
char prio = 0;
while (--argc > 0) {
if (**(++argv)== '-')
switch (keyword(*argv + 1)) {
case K_INET:
af = AF_INET;
break;
case K_INET6:
af = AF_INET6;
break;
case K_LINK:
af = AF_LINK;
break;
case K_MPLS:
af = AF_MPLS;
break;
case K_GATEWAY:
Fflag = 1;
break;
case K_LABEL:
if (!--argc)
usage(1+*argv);
getlabel(*++argv);
break;
case K_PRIORITY:
if (!--argc)
usage(1+*argv);
prio = getpriority(*++argv);
break;
default:
usage(*argv);
}
else
usage(*argv);
}
p_rttables(af, tableid, prio);
return (0);
}
void
inet_makenetandmask(u_int32_t net, struct sockaddr_in *sin, int bits)
{
u_int32_t mask;
rtm_addrs |= RTA_NETMASK;
if (bits == 0 && net == 0)
mask = 0;
else {
if (bits == 0)
bits = 32;
mask = 0xffffffff << (32 - bits);
net &= mask;
}
sin->sin_addr.s_addr = htonl(net);
sin = &so_mask.sin;
sin->sin_addr.s_addr = htonl(mask);
sin->sin_family = AF_INET;
sin->sin_len = sizeof(struct sockaddr_in);
}
int
getaddr(int which, int af, char *s, struct hostent **hpp)
{
sup su = NULL;
struct hostent *hp;
int aflength, afamily, bits;
if (af == AF_UNSPEC) {
if (strchr(s, ':') != NULL) {
af = AF_INET6;
aflen = sizeof(struct sockaddr_in6);
} else {
af = AF_INET;
aflen = sizeof(struct sockaddr_in);
}
}
aflength = aflen;
afamily = af;
rtm_addrs |= which;
switch (which) {
case RTA_DST:
su = &so_dst;
break;
case RTA_GATEWAY:
su = &so_gate;
break;
case RTA_NETMASK:
su = &so_mask;
break;
case RTA_IFP:
su = &so_ifp;
aflength = sizeof(struct sockaddr_dl);
afamily = AF_LINK;
break;
case RTA_IFA:
su = &so_ifa;
break;
default:
errx(1, "internal error");
}
memset(su, 0, sizeof(union sockunion));
su->sa.sa_len = aflength;
su->sa.sa_family = afamily;
if (strcmp(s, "default") == 0) {
switch (which) {
case RTA_DST:
forcenet++;
getaddr(RTA_NETMASK, af, s, NULL);
break;
case RTA_NETMASK:
su->sa.sa_len = 0;
}
return (0);
}
switch (afamily) {
case AF_INET6:
{
struct addrinfo hints, *res;
char buf[
sizeof("xxxx:xxxx:xxxx:xxxx:xxxx:xxxx:255:255:255:255/128")
];
char *sep;
int error;
if (strlcpy(buf, s, sizeof buf) >= sizeof buf) {
errx(1, "%s: bad value", s);
}
sep = strchr(buf, '/');
if (sep != NULL)
*sep++ = '\0';
memset(&hints, 0, sizeof(hints));
hints.ai_family = afamily;
hints.ai_flags = AI_NUMERICHOST;
hints.ai_socktype = SOCK_DGRAM;
error = getaddrinfo(buf, "0", &hints, &res);
if (error) {
hints.ai_flags = 0;
error = getaddrinfo(buf, "0", &hints, &res);
if (error)
errx(1, "%s: %s", s, gai_strerror(error));
}
if (res->ai_next)
errx(1, "%s: resolved to multiple values", s);
memcpy(&su->sin6, res->ai_addr, sizeof(su->sin6));
freeaddrinfo(res);
#ifdef __KAME__
if ((IN6_IS_ADDR_LINKLOCAL(&su->sin6.sin6_addr) ||
IN6_IS_ADDR_MC_LINKLOCAL(&su->sin6.sin6_addr) ||
IN6_IS_ADDR_MC_INTFACELOCAL(&su->sin6.sin6_addr)) &&
su->sin6.sin6_scope_id) {
*(u_int16_t *)&su->sin6.sin6_addr.s6_addr[2] =
htons(su->sin6.sin6_scope_id);
su->sin6.sin6_scope_id = 0;
}
#endif
if (hints.ai_flags == AI_NUMERICHOST) {
if (which == RTA_DST) {
if (sep == NULL && su->sin6.sin6_scope_id == 0 &&
IN6_IS_ADDR_UNSPECIFIED(&su->sin6.sin6_addr))
sep = "0";
if (sep == NULL || prefixlen(AF_INET6, sep))
return (1);
}
return (0);
} else
return (1);
}
case AF_LINK:
su->sdl.sdl_index = if_nametoindex(s);
memset(&su->sdl.sdl_data, 0, sizeof(su->sdl.sdl_data));
return (1);
case AF_MPLS:
errx(1, "mpls labels require -in or -out switch");
case PF_ROUTE:
su->sa.sa_len = sizeof(struct sockaddr_storage) - 1;
sockaddr(s, &su->sa);
return (1);
case AF_INET:
if (hpp != NULL)
*hpp = NULL;
if (which == RTA_DST && !forcehost) {
bits = inet_net_pton(AF_INET, s, &su->sin.sin_addr,
sizeof(su->sin.sin_addr));
if (bits == 32)
return (1);
if (bits >= 0) {
inet_makenetandmask(ntohl(
su->sin.sin_addr.s_addr),
&su->sin, bits);
return (0);
}
} else if (which != RTA_DST || !forcenet)
if (inet_pton(AF_INET, s, &su->sin.sin_addr) == 1)
return (1);
hp = gethostbyname(s);
if (hp == NULL)
errx(1, "%s: bad address", s);
if (hpp != NULL)
*hpp = hp;
su->sin.sin_addr = *(struct in_addr *)hp->h_addr;
return (1);
default:
errx(1, "%d: bad address family", afamily);
}
}
void
getmplslabel(char *s, int in)
{
sup su = NULL;
const char *errstr;
u_int32_t label;
label = strtonum(s, 0, MPLS_LABEL_MAX, &errstr);
if (errstr)
errx(1, "bad label: %s is %s", s, errstr);
if (in) {
rtm_addrs |= RTA_DST;
su = &so_dst;
su->smpls.smpls_label = htonl(label << MPLS_LABEL_OFFSET);
} else {
rtm_addrs |= RTA_SRC;
su = &so_src;
su->smpls.smpls_label = htonl(label << MPLS_LABEL_OFFSET);
}
su->sa.sa_len = sizeof(struct sockaddr_mpls);
su->sa.sa_family = AF_MPLS;
}
int
prefixlen(int af, char *s)
{
const char *errstr;
int len, q, r;
int max;
switch (af) {
case AF_INET:
max = sizeof(struct in_addr) * 8;
break;
case AF_INET6:
max = sizeof(struct in6_addr) * 8;
break;
default:
errx(1, "prefixlen is not supported with af %d", af);
}
rtm_addrs |= RTA_NETMASK;
len = strtonum(s, 0, max, &errstr);
if (errstr)
errx(1, "prefixlen %s is %s", s, errstr);
q = len >> 3;
r = len & 7;
switch (af) {
case AF_INET:
memset(&so_mask, 0, sizeof(so_mask));
so_mask.sin.sin_family = AF_INET;
so_mask.sin.sin_len = sizeof(struct sockaddr_in);
if (len != 0)
so_mask.sin.sin_addr.s_addr = htonl(0xffffffff << (32 - len));
break;
case AF_INET6:
so_mask.sin6.sin6_family = AF_INET6;
so_mask.sin6.sin6_len = sizeof(struct sockaddr_in6);
memset((void *)&so_mask.sin6.sin6_addr, 0,
sizeof(so_mask.sin6.sin6_addr));
if (q > 0)
memset((void *)&so_mask.sin6.sin6_addr, 0xff, q);
if (r > 0)
*((u_char *)&so_mask.sin6.sin6_addr + q) =
(0xff00 >> r) & 0xff;
break;
}
return (len == max);
}
void
monitor(int argc, char *argv[])
{
int n;
char msg[2048];
time_t now;
char *ct;
verbose = 1;
for (;;) {
if ((n = read(s, msg, sizeof(msg))) == -1) {
if (errno == EINTR)
continue;
err(1, "read");
}
now = time(NULL);
ct = ctime(&now);
if (ct)
printf("got message of size %d on %s", n, ct);
else
printf("got message of size %d on %lld\n", n, now);
print_rtmsg((struct rt_msghdr *)msg, n);
}
}
int
nameserver(int argc, char *argv[])
{
struct rt_msghdr rtm;
struct sockaddr_rtdns rtdns;
struct iovec iov[3];
struct addrinfo hints, *res;
struct in_addr ns4[5];
struct in6_addr ns6[5];
size_t ns4_count = 0, ns6_count = 0;
long pad = 0;
unsigned int if_index;
int error = 0, iovcnt = 0, padlen, i;
char *if_name, buf[INET6_ADDRSTRLEN];
argc--;
argv++;
if (argc == 0)
usage(NULL);
if_name = *argv;
argc--;
argv++;
if ((if_index = if_nametoindex(if_name)) == 0)
errx(1, "unknown interface: %s", if_name);
memset(&hints, 0, sizeof(hints));
hints.ai_family = AF_UNSPEC;
hints.ai_socktype = SOCK_STREAM;
hints.ai_flags = AI_NUMERICHOST | AI_NUMERICSERV;
#ifndef nitems
#define nitems(_a) (sizeof((_a)) / sizeof((_a)[0]))
#endif
for (; argc > 0 && ns4_count + ns6_count < 5; argc--, argv++) {
error = getaddrinfo(*argv, NULL, &hints, &res);
if (error) {
errx(1, "%s", gai_strerror(error));
}
if (res == NULL) {
errx(1, "%s: unknown", *argv);
}
switch (res->ai_addr->sa_family) {
case AF_INET:
memcpy(&ns4[ns4_count++],
&((struct sockaddr_in *)res->ai_addr)->sin_addr,
sizeof(struct in_addr));
break;
case AF_INET6:
memcpy(&ns6[ns6_count++],
&((struct sockaddr_in6 *)res->ai_addr)->sin6_addr,
sizeof(struct in6_addr));
break;
default:
errx(1, "unknown address family");
}
freeaddrinfo(res);
}
if (argc > 0)
warnx("ignoring additional nameservers");
if (verbose) {
for (i = 0; i < ns4_count; i++)
warnx("v4: %s", inet_ntop(AF_INET, &ns4[i], buf,
sizeof(buf)));
for (i = 0; i < ns6_count; i++)
warnx("v6: %s", inet_ntop(AF_INET6, &ns6[i], buf,
sizeof(buf)));
}
memset(&rtm, 0, sizeof(rtm));
rtm.rtm_version = RTM_VERSION;
rtm.rtm_type = RTM_PROPOSAL;
rtm.rtm_msglen = sizeof(rtm);
rtm.rtm_tableid = tableid;
rtm.rtm_index = if_index;
rtm.rtm_seq = 1;
rtm.rtm_priority = RTP_PROPOSAL_STATIC;
rtm.rtm_addrs = RTA_DNS;
rtm.rtm_flags = RTF_UP;
iov[iovcnt].iov_base = &rtm;
iov[iovcnt++].iov_len = sizeof(rtm);
iov[iovcnt].iov_base = &rtdns;
iov[iovcnt++].iov_len = sizeof(rtdns);
rtm.rtm_msglen += sizeof(rtdns);
padlen = ROUNDUP(sizeof(rtdns)) - sizeof(rtdns);
if (padlen > 0) {
iov[iovcnt].iov_base = &pad;
iov[iovcnt++].iov_len = padlen;
rtm.rtm_msglen += padlen;
}
memset(&rtdns, 0, sizeof(rtdns));
rtdns.sr_family = AF_INET;
rtdns.sr_len = 2 + ns4_count * sizeof(struct in_addr);
memcpy(rtdns.sr_dns, ns4, rtdns.sr_len - 2);
if (debugonly)
return (0);
if (writev(s, iov, iovcnt) == -1) {
warn("failed to send route message");
error = 1;
}
rtm.rtm_seq++;
memset(&rtdns, 0, sizeof(rtdns));
rtdns.sr_family = AF_INET6;
rtdns.sr_len = 2 + ns6_count * sizeof(struct in6_addr);
memcpy(rtdns.sr_dns, ns6, rtdns.sr_len - 2);
if (writev(s, iov, iovcnt) == -1) {
warn("failed to send route message");
error = 1;
}
return (error);
}
struct {
struct rt_msghdr m_rtm;
char m_space[512];
} m_rtmsg;
int
rtmsg(int cmd, int flags, int fmask, uint8_t prio)
{
static int seq;
char *cp = m_rtmsg.m_space;
int l;
#define NEXTADDR(w, u) \
if (rtm_addrs & (w)) { \
l = ROUNDUP(u.sa.sa_len); \
memcpy(cp, &(u), l); \
cp += l; \
if (verbose) \
sodump(&(u), #u); \
}
errno = 0;
memset(&m_rtmsg, 0, sizeof(m_rtmsg));
if (cmd == 'a')
cmd = RTM_ADD;
else if (cmd == 'c')
cmd = RTM_CHANGE;
else if (cmd == 'g') {
cmd = RTM_GET;
if (so_ifp.sa.sa_family == AF_UNSPEC) {
so_ifp.sa.sa_family = AF_LINK;
so_ifp.sa.sa_len = sizeof(struct sockaddr_dl);
rtm_addrs |= RTA_IFP;
}
} else if (cmd == 's') {
cmd = RTM_SOURCE;
} else
cmd = RTM_DELETE;
#define rtm m_rtmsg.m_rtm
rtm.rtm_type = cmd;
rtm.rtm_flags = flags;
rtm.rtm_fmask = fmask;
rtm.rtm_version = RTM_VERSION;
rtm.rtm_seq = ++seq;
rtm.rtm_addrs = rtm_addrs;
rtm.rtm_rmx = rt_metrics;
rtm.rtm_inits = rtm_inits;
rtm.rtm_tableid = tableid;
rtm.rtm_priority = prio;
rtm.rtm_mpls = mpls_flags;
rtm.rtm_hdrlen = sizeof(rtm);
NEXTADDR(RTA_DST, so_dst);
NEXTADDR(RTA_GATEWAY, so_gate);
NEXTADDR(RTA_NETMASK, so_mask);
NEXTADDR(RTA_IFP, so_ifp);
NEXTADDR(RTA_IFA, so_ifa);
NEXTADDR(RTA_SRC, so_src);
NEXTADDR(RTA_LABEL, so_label);
rtm.rtm_msglen = l = cp - (char *)&m_rtmsg;
if (verbose)
print_rtmsg(&rtm, l);
if (debugonly)
return (0);
if (write(s, &m_rtmsg, l) != l) {
return (-1);
}
if (cmd == RTM_GET) {
do {
l = read(s, &m_rtmsg, sizeof(m_rtmsg));
} while (l > 0 && (rtm.rtm_version != RTM_VERSION ||
rtm.rtm_seq != seq || rtm.rtm_pid != pid));
if (l == -1)
warn("read from routing socket");
else
print_getmsg(&rtm, l);
}
#undef rtm
return (0);
}
char *msgtypes[] = {
"",
"RTM_ADD: Add Route",
"RTM_DELETE: Delete Route",
"RTM_CHANGE: Change Metrics or flags",
"RTM_GET: Report Metrics",
"RTM_LOSING: Kernel Suspects Partitioning",
"RTM_REDIRECT: Told to use different route",
"RTM_MISS: Lookup failed on this address",
"",
"",
"",
"RTM_RESOLVE: Route created by cloning",
"RTM_NEWADDR: address being added to iface",
"RTM_DELADDR: address being removed from iface",
"RTM_IFINFO: iface status change",
"RTM_IFANNOUNCE: iface arrival/departure",
"RTM_DESYNC: route socket overflow",
"RTM_INVALIDATE: invalidate cache of L2 route",
"RTM_BFD: bidirectional forwarding detection",
"RTM_PROPOSAL: config proposal",
"RTM_CHGADDRATTR: address attributes being changed",
"RTM_80211INFO: 802.11 iface status change"
};
char metricnames[] =
"\011priority\010rttvar\7rtt\6ssthresh\5sendpipe\4recvpipe\3expire\2hopcount\1mtu";
char routeflags[] =
"\1UP\2GATEWAY\3HOST\4REJECT\5DYNAMIC\6MODIFIED\7DONE\010XMASK_PRESENT"
"\011CLONING\012MULTICAST\013LLINFO\014STATIC\015BLACKHOLE\016PROTO3\017PROTO2"
"\020PROTO1\021CLONED\022CACHED\023MPATH\025MPLS\026LOCAL\027BROADCAST"
"\030CONNECTED\031BFD";
char ifnetflags[] =
"\1UP\2BROADCAST\3DEBUG\4LOOPBACK\5PTP\6STATICARP\7RUNNING\010NOARP\011PPROMISC"
"\012ALLMULTI\013OACTIVE\014SIMPLEX\015LINK0\016LINK1\017LINK2\020MULTICAST"
"\23AUTOCONF6TEMP\24MPLS\25WOL\26AUTOCONF6\27INET6_NOSOII\30AUTOCONF4";
char addrnames[] =
"\1DST\2GATEWAY\3NETMASK\4GENMASK\5IFP\6IFA\7AUTHOR\010BRD\011SRC\012SRCMASK\013LABEL\014BFD\015DNS\016STATIC\017SEARCH";
char ieee80211flags[] =
"\1ASCAN\2SIBSS\011WEPON\012IBSSON\013PMGTON\014DESBSSID\016ROAMING"
"\020TXPOW_FIXED\021TXPOW_AUTO\022SHSLOT\023SHPREAMBLE\024QOS"
"\025USEPROT\026RSNON\027PSK\030COUNTERM\031MFPR\032HTON\033PBAR"
"\034BGSCAN\035AUTO_JOIN\036VHTON";
char ieee80211xflags[] =
"\1TX_MGMT_ONLY";
const char *
get_linkstate(int mt, int link_state)
{
const struct if_status_description *p;
static char buf[8];
for (p = if_status_descriptions; p->ifs_string != NULL; p++) {
if (LINK_STATE_DESC_MATCH(p, mt, link_state))
return (p->ifs_string);
}
snprintf(buf, sizeof(buf), "[#%d]", link_state);
return buf;
}
void
print_rtmsg(struct rt_msghdr *rtm, int msglen)
{
long long relative_expire;
struct if_msghdr *ifm;
struct ifa_msghdr *ifam;
struct if_announcemsghdr *ifan;
char ifname[IF_NAMESIZE];
if (verbose == 0)
return;
if (rtm->rtm_version != RTM_VERSION) {
warnx("routing message version %u not understood",
rtm->rtm_version);
return;
}
if (rtm->rtm_type > 0 &&
rtm->rtm_type < sizeof(msgtypes)/sizeof(msgtypes[0]))
printf("%s", msgtypes[rtm->rtm_type]);
else
printf("[rtm_type %u out of range]", rtm->rtm_type);
printf(": len %u", rtm->rtm_msglen);
switch (rtm->rtm_type) {
case RTM_DESYNC:
printf("\n");
break;
case RTM_IFINFO:
ifm = (struct if_msghdr *)rtm;
printf(", if# %u, ", ifm->ifm_index);
if (if_indextoname(ifm->ifm_index, ifname) != NULL)
printf("name %s, ", ifname);
printf("link: %s, mtu: %u, flags:",
get_linkstate(ifm->ifm_data.ifi_type,
ifm->ifm_data.ifi_link_state),
ifm->ifm_data.ifi_mtu);
bprintf(stdout, ifm->ifm_flags | (ifm->ifm_xflags << 16),
ifnetflags);
pmsg_addrs((char *)ifm + ifm->ifm_hdrlen, ifm->ifm_addrs);
break;
case RTM_80211INFO:
printf(", if# %u, ", rtm->rtm_index);
if (if_indextoname(rtm->rtm_index, ifname) != NULL)
printf("name %s, ", ifname);
print_80211info((struct if_ieee80211_msghdr *)rtm);
break;
case RTM_NEWADDR:
case RTM_DELADDR:
case RTM_CHGADDRATTR:
ifam = (struct ifa_msghdr *)rtm;
printf(", if# %u, ", ifam->ifam_index);
if (if_indextoname(ifam->ifam_index, ifname) != NULL)
printf("name %s, ", ifname);
printf("metric %d, flags:", ifam->ifam_metric);
bprintf(stdout, ifam->ifam_flags, routeflags);
pmsg_addrs((char *)ifam + ifam->ifam_hdrlen, ifam->ifam_addrs);
break;
case RTM_IFANNOUNCE:
ifan = (struct if_announcemsghdr *)rtm;
printf(", if# %u, name %s, what: ",
ifan->ifan_index, ifan->ifan_name);
switch (ifan->ifan_what) {
case IFAN_ARRIVAL:
printf("arrival");
break;
case IFAN_DEPARTURE:
printf("departure");
break;
default:
printf("#%u", ifan->ifan_what);
break;
}
printf("\n");
break;
#ifdef BFD
case RTM_BFD:
print_bfdmsg(rtm);
break;
#endif
case RTM_PROPOSAL:
printf(", source ");
switch (rtm->rtm_priority) {
case RTP_PROPOSAL_STATIC:
printf("static");
break;
case RTP_PROPOSAL_DHCLIENT:
printf("dhcp");
break;
case RTP_PROPOSAL_SLAAC:
printf("slaac");
break;
case RTP_PROPOSAL_UMB:
printf("umb");
break;
case RTP_PROPOSAL_PPP:
printf("ppp");
break;
case RTP_PROPOSAL_SOLICIT:
printf("solicit");
break;
default:
printf("unknown");
break;
}
printf(", table %u, if# %u, ",
rtm->rtm_tableid, rtm->rtm_index);
if (if_indextoname(rtm->rtm_index, ifname) != NULL)
printf("name %s, ", ifname);
printf("pid: %ld, seq %d, errno %d\nflags:",
(long)rtm->rtm_pid, rtm->rtm_seq, rtm->rtm_errno);
bprintf(stdout, rtm->rtm_flags, routeflags);
printf("\nfmask:");
bprintf(stdout, rtm->rtm_fmask, routeflags);
if (verbose) {
#define lock(f) ((rtm->rtm_rmx.rmx_locks & __CONCAT(RTV_,f)) ? 'L' : ' ')
relative_expire = rtm->rtm_rmx.rmx_expire ?
rtm->rtm_rmx.rmx_expire - time(NULL) : 0;
printf("\nuse: %8llu mtu: %8u%c expire: %8lld%c",
rtm->rtm_rmx.rmx_pksent,
rtm->rtm_rmx.rmx_mtu, lock(MTU),
relative_expire, lock(EXPIRE));
#undef lock
}
printf("\nlocks: ");
bprintf(stdout, rtm->rtm_rmx.rmx_locks, metricnames);
printf(" inits: ");
bprintf(stdout, rtm->rtm_inits, metricnames);
pmsg_addrs(((char *)rtm + rtm->rtm_hdrlen),
rtm->rtm_addrs & ~(RTA_STATIC | RTA_SEARCH | RTA_DNS));
if(!(rtm->rtm_addrs & (RTA_STATIC | RTA_SEARCH | RTA_DNS)))
break;
printf("proposals: ");
bprintf(stdout, rtm->rtm_addrs & (RTA_STATIC | RTA_SEARCH |
RTA_DNS), addrnames);
putchar('\n');
if (rtm->rtm_addrs & RTA_STATIC) {
char *next = (char *)rtm + rtm->rtm_hdrlen;
struct sockaddr *sa, *rti_info[RTAX_MAX];
struct sockaddr_rtstatic *rtstatic;
sa = (struct sockaddr *)next;
get_rtaddrs(rtm->rtm_addrs, sa, rti_info);
rtstatic = (struct sockaddr_rtstatic *)
rti_info[RTAX_STATIC];
if (rtstatic != NULL)
print_rtstatic(rtstatic);
}
if (rtm->rtm_addrs & RTA_SEARCH) {
char *next = (char *)rtm + rtm->rtm_hdrlen;
struct sockaddr *sa, *rti_info[RTAX_MAX];
struct sockaddr_rtsearch *rtsearch;
sa = (struct sockaddr *)next;
get_rtaddrs(rtm->rtm_addrs, sa, rti_info);
rtsearch = (struct sockaddr_rtsearch *)
rti_info[RTAX_SEARCH];
if (rtsearch != NULL)
print_rtsearch(rtsearch);
}
if (rtm->rtm_addrs & RTA_DNS) {
char *next = (char *)rtm + rtm->rtm_hdrlen;
struct sockaddr *sa, *rti_info[RTAX_MAX];
struct sockaddr_rtdns *rtdns;
sa = (struct sockaddr *)next;
get_rtaddrs(rtm->rtm_addrs, sa, rti_info);
rtdns = (struct sockaddr_rtdns *)rti_info[RTAX_DNS];
if (rtdns != NULL)
print_rtdns(rtdns);
}
putchar('\n');
break;
default:
printf(", priority %u, table %u, if# %u, ",
rtm->rtm_priority, rtm->rtm_tableid, rtm->rtm_index);
if (if_indextoname(rtm->rtm_index, ifname) != NULL)
printf("name %s, ", ifname);
printf("pid: %ld, seq %d, errno %d\nflags:",
(long)rtm->rtm_pid, rtm->rtm_seq, rtm->rtm_errno);
bprintf(stdout, rtm->rtm_flags, routeflags);
printf("\nfmask:");
bprintf(stdout, rtm->rtm_fmask, routeflags);
if (verbose) {
#define lock(f) ((rtm->rtm_rmx.rmx_locks & __CONCAT(RTV_,f)) ? 'L' : ' ')
relative_expire = rtm->rtm_rmx.rmx_expire ?
rtm->rtm_rmx.rmx_expire - time(NULL) : 0;
printf("\nuse: %8llu mtu: %8u%c expire: %8lld%c",
rtm->rtm_rmx.rmx_pksent,
rtm->rtm_rmx.rmx_mtu, lock(MTU),
relative_expire, lock(EXPIRE));
#undef lock
}
pmsg_common(rtm);
}
}
char *
priorityname(uint8_t prio)
{
switch (prio) {
case RTP_NONE:
return ("none");
case RTP_LOCAL:
return ("local");
case RTP_CONNECTED:
return ("connected");
case RTP_STATIC:
return ("static");
case RTP_OSPF:
return ("ospf");
case RTP_ISIS:
return ("is-is");
case RTP_RIP:
return ("rip");
case RTP_BGP:
return ("bgp");
case RTP_DEFAULT:
return ("default");
default:
return ("");
}
}
uint8_t
getpriority(char *priostr)
{
const char *errstr;
uint8_t prio;
switch (keyword(priostr)) {
case K_LOCAL:
prio = RTP_LOCAL;
break;
case K_CONNECTED:
prio = RTP_CONNECTED;
break;
case K_STATIC:
prio = RTP_STATIC;
break;
case K_OSPF:
prio = RTP_OSPF;
break;
case K_RIP:
prio = RTP_RIP;
break;
case K_BGP:
prio = RTP_BGP;
break;
default:
prio = strtonum(priostr, -RTP_MAX, RTP_MAX, &errstr);
if (errstr)
errx(1, "priority is %s: %s", errstr, priostr);
}
return (prio);
}
void
print_getmsg(struct rt_msghdr *rtm, int msglen)
{
long long relative_expire;
struct sockaddr *dst = NULL, *gate = NULL, *mask = NULL, *ifa = NULL;
struct sockaddr_dl *ifp = NULL;
struct sockaddr_rtlabel *sa_rl = NULL;
#ifdef BFD
struct sockaddr_bfd *sa_bfd = NULL;
#endif
struct sockaddr *mpls = NULL;
struct sockaddr *sa;
char *cp;
int i;
printf(" route to: %s\n", routename(&so_dst.sa));
if (rtm->rtm_version != RTM_VERSION) {
warnx("routing message version %u not understood",
rtm->rtm_version);
return;
}
if (rtm->rtm_msglen > msglen)
warnx("message length mismatch, in packet %u, returned %d",
rtm->rtm_msglen, msglen);
if (rtm->rtm_errno) {
warnx("RTM_GET: %s (errno %d)",
strerror(rtm->rtm_errno), rtm->rtm_errno);
return;
}
cp = ((char *)rtm + rtm->rtm_hdrlen);
if (rtm->rtm_addrs)
for (i = 1; i; i <<= 1)
if (i & rtm->rtm_addrs) {
sa = (struct sockaddr *)cp;
switch (i) {
case RTA_DST:
dst = sa;
break;
case RTA_GATEWAY:
gate = sa;
break;
case RTA_NETMASK:
mask = sa;
break;
case RTA_IFA:
ifa = sa;
break;
case RTA_IFP:
if (sa->sa_family == AF_LINK &&
((struct sockaddr_dl *)sa)->sdl_nlen)
ifp = (struct sockaddr_dl *)sa;
break;
case RTA_SRC:
mpls = sa;
break;
case RTA_LABEL:
sa_rl = (struct sockaddr_rtlabel *)sa;
break;
#ifdef BFD
case RTA_BFD:
sa_bfd = (struct sockaddr_bfd *)sa;
break;
#endif
}
ADVANCE(cp, sa);
}
if (dst && mask)
mask->sa_family = dst->sa_family;
if (dst)
printf("destination: %s\n", routename(dst));
if (mask) {
int savenflag = nflag;
nflag = 1;
printf(" mask: %s\n", routename(mask));
nflag = savenflag;
}
if (gate && rtm->rtm_flags & RTF_GATEWAY)
printf(" gateway: %s\n", routename(gate));
if (ifp)
printf(" interface: %.*s\n",
ifp->sdl_nlen, ifp->sdl_data);
if (ifa)
printf(" if address: %s\n", routename(ifa));
if (mpls) {
printf(" mpls label: %s %s\n", mpls_op(rtm->rtm_mpls),
routename(mpls));
}
printf(" priority: %u (%s)\n", rtm->rtm_priority,
priorityname(rtm->rtm_priority));
printf(" flags: ");
bprintf(stdout, rtm->rtm_flags, routeflags);
printf("\n");
if (sa_rl != NULL)
printf(" label: %s\n", sa_rl->sr_label);
#ifdef BFD
if (sa_bfd)
print_sabfd(sa_bfd, rtm->rtm_fmask);
#endif
#define lock(f) ((rtm->rtm_rmx.rmx_locks & __CONCAT(RTV_,f)) ? 'L' : ' ')
relative_expire = rtm->rtm_rmx.rmx_expire ?
rtm->rtm_rmx.rmx_expire - time(NULL) : 0;
printf(" use mtu expire\n");
printf("%8llu %8u%c %8lld%c\n",
rtm->rtm_rmx.rmx_pksent,
rtm->rtm_rmx.rmx_mtu, lock(MTU),
relative_expire, lock(EXPIRE));
#undef lock
#define RTA_IGN (RTA_DST|RTA_GATEWAY|RTA_NETMASK|RTA_IFP|RTA_IFA|RTA_BRD)
if (verbose)
pmsg_common(rtm);
else if (rtm->rtm_addrs &~ RTA_IGN) {
printf("sockaddrs: ");
bprintf(stdout, rtm->rtm_addrs, addrnames);
putchar('\n');
}
#undef RTA_IGN
}
#ifdef BFD
const char *
bfd_state(unsigned int state)
{
switch (state) {
case BFD_STATE_ADMINDOWN:
return("admindown");
break;
case BFD_STATE_DOWN:
return("down");
break;
case BFD_STATE_INIT:
return("init");
break;
case BFD_STATE_UP:
return("up");
break;
}
return "invalid";
}
const char *
bfd_diag(unsigned int diag)
{
switch (diag) {
case BFD_DIAG_NONE:
return("none");
break;
case BFD_DIAG_EXPIRED:
return("expired");
break;
case BFD_DIAG_ECHO_FAILED:
return("echo-failed");
break;
case BFD_DIAG_NEIGHBOR_SIGDOWN:
return("neighbor-down");
break;
case BFD_DIAG_FIB_RESET:
return("fib-reset");
break;
case BFD_DIAG_PATH_DOWN:
return("path-down");
break;
case BFD_DIAG_CONCAT_PATH_DOWN:
return("concat-path-down");
break;
case BFD_DIAG_ADMIN_DOWN:
return("admindown");
break;
case BFD_DIAG_CONCAT_REVERSE_DOWN:
return("concat-reverse-down");
break;
}
return "invalid";
}
const char *
bfd_calc_uptime(time_t time)
{
static char buf[256];
struct tm *tp;
const char *fmt;
if (time > 2*86400)
fmt = "%dd%kh%Mm%Ss";
else if (time > 2*3600)
fmt = "%kh%Mm%Ss";
else if (time > 2*60)
fmt = "%Mm%Ss";
else
fmt = "%Ss";
tp = localtime(&time);
if (tp)
(void)strftime(buf, sizeof(buf), fmt, tp);
else
buf[0] = '\0';
return (buf);
}
void
print_bfdmsg(struct rt_msghdr *rtm)
{
struct bfd_msghdr *bfdm = (struct bfd_msghdr *)rtm;
printf("\n");
print_sabfd(&bfdm->bm_sa, rtm->rtm_fmask);
pmsg_addrs(((char *)rtm + rtm->rtm_hdrlen), rtm->rtm_addrs);
}
void
print_sabfd(struct sockaddr_bfd *sa_bfd, int fmask)
{
struct timeval tv;
gettimeofday(&tv, NULL);
printf(" BFD:");
if (!verbose && ((fmask & RTF_BFD) != RTF_BFD)) {
printf(" %s\n", bfd_state(sa_bfd->bs_state));
return;
}
switch (sa_bfd->bs_mode) {
case BFD_MODE_ASYNC:
printf(" async");
break;
case BFD_MODE_DEMAND:
printf(" demand");
break;
default:
printf(" unknown %u", sa_bfd->bs_mode);
break;
}
printf(" state %s", bfd_state(sa_bfd->bs_state));
printf(" remote %s", bfd_state(sa_bfd->bs_remotestate));
printf(" laststate %s", bfd_state(sa_bfd->bs_laststate));
printf(" error %u", sa_bfd->bs_error);
printf("\n ");
printf(" diag %s", bfd_diag(sa_bfd->bs_localdiag));
printf(" remote %s", bfd_diag(sa_bfd->bs_remotediag));
printf("\n ");
printf(" discr %u", sa_bfd->bs_localdiscr);
printf(" remote %u", sa_bfd->bs_remotediscr);
printf("\n ");
printf(" uptime %s", bfd_calc_uptime(tv.tv_sec - sa_bfd->bs_uptime));
if (sa_bfd->bs_lastuptime)
printf(" last state time %s",
bfd_calc_uptime(sa_bfd->bs_lastuptime));
printf("\n ");
printf(" mintx %u", sa_bfd->bs_mintx);
printf(" minrx %u", sa_bfd->bs_minrx);
printf(" minecho %u", sa_bfd->bs_minecho);
printf(" multiplier %u", sa_bfd->bs_multiplier);
printf("\n");
}
#endif
void
pmsg_common(struct rt_msghdr *rtm)
{
printf("\nlocks: ");
bprintf(stdout, rtm->rtm_rmx.rmx_locks, metricnames);
printf(" inits: ");
bprintf(stdout, rtm->rtm_inits, metricnames);
pmsg_addrs(((char *)rtm + rtm->rtm_hdrlen), rtm->rtm_addrs);
}
void
pmsg_addrs(char *cp, int addrs)
{
struct sockaddr *sa;
int family = AF_UNSPEC;
int i;
char *p;
if (addrs != 0) {
printf("\nsockaddrs: ");
bprintf(stdout, addrs, addrnames);
putchar('\n');
p = cp;
for (i = 1; i; i <<= 1)
if (i & addrs) {
sa = (struct sockaddr *)p;
if (family == AF_UNSPEC)
switch (i) {
case RTA_DST:
case RTA_IFA:
family = sa->sa_family;
}
ADVANCE(p, sa);
}
p = cp;
for (i = 1; i; i <<= 1)
if (i & addrs) {
sa = (struct sockaddr *)p;
if (family != AF_UNSPEC)
switch (i) {
case RTA_NETMASK:
sa->sa_family = family;
}
printf(" %s", routename(sa));
ADVANCE(p, sa);
}
}
putchar('\n');
fflush(stdout);
}
void
bprintf(FILE *fp, int b, char *s)
{
int i;
int gotsome = 0;
if (b == 0)
return;
while ((i = *s++)) {
if ((b & (1 << (i-1)))) {
if (gotsome == 0)
i = '<';
else
i = ',';
putc(i, fp);
gotsome = 1;
for (; (i = *s) > 32; s++)
putc(i, fp);
} else
while (*s > 32)
s++;
}
if (gotsome)
putc('>', fp);
}
int
keycmp(const void *key, const void *kt)
{
return (strcmp(key, ((struct keytab *)kt)->kt_cp));
}
int
keyword(char *cp)
{
struct keytab *kt;
kt = bsearch(cp, keywords, sizeof(keywords)/sizeof(keywords[0]),
sizeof(keywords[0]), keycmp);
if (!kt)
return (0);
return (kt->kt_i);
}
void
sodump(sup su, char *which)
{
switch (su->sa.sa_family) {
case AF_LINK:
printf("%s: link %s; ", which, link_ntoa(&su->sdl));
break;
case AF_INET:
printf("%s: inet %s; ", which, inet_ntoa(su->sin.sin_addr));
break;
case AF_INET6:
{
char ntop_buf[NI_MAXHOST];
printf("%s: inet6 %s; ",
which, inet_ntop(AF_INET6, &su->sin6.sin6_addr,
ntop_buf, sizeof(ntop_buf)));
break;
}
}
fflush(stdout);
}
#define VIRGIN 0
#define GOTONE 1
#define GOTTWO 2
#define DIGIT (4*0)
#define END (4*1)
#define DELIM (4*2)
void
sockaddr(char *addr, struct sockaddr *sa)
{
char *cp = (char *)sa;
int size = sa->sa_len;
char *cplim = cp + size;
int byte = 0, state = VIRGIN, new = 0;
memset(cp, 0, size);
cp++;
do {
if ((*addr >= '0') && (*addr <= '9')) {
new = *addr - '0';
} else if ((*addr >= 'a') && (*addr <= 'f')) {
new = *addr - 'a' + 10;
} else if ((*addr >= 'A') && (*addr <= 'F')) {
new = *addr - 'A' + 10;
} else if (*addr == '\0')
state |= END;
else
state |= DELIM;
addr++;
switch (state ) {
case GOTTWO | DIGIT:
*cp++ = byte;
case VIRGIN | DIGIT:
state = GOTONE; byte = new; continue;
case GOTONE | DIGIT:
state = GOTTWO; byte = new + (byte << 4); continue;
default:
state = VIRGIN; *cp++ = byte; byte = 0; continue;
case GOTONE | END:
case GOTTWO | END:
*cp++ = byte;
case VIRGIN | END:
break;
}
break;
} while (cp < cplim);
sa->sa_len = cp - (char *)sa;
}
void
getlabel(char *name)
{
so_label.rtlabel.sr_len = sizeof(so_label.rtlabel);
so_label.rtlabel.sr_family = AF_UNSPEC;
if (strlcpy(so_label.rtlabel.sr_label, name,
sizeof(so_label.rtlabel.sr_label)) >=
sizeof(so_label.rtlabel.sr_label))
errx(1, "label too long");
rtm_addrs |= RTA_LABEL;
}
#ifndef SMALL
int
gettable(const char *s)
{
const char *errstr;
struct rt_tableinfo info;
int mib[6];
size_t len;
tableid = strtonum(s, 0, RT_TABLEID_MAX, &errstr);
if (errstr)
errx(1, "invalid table id: %s", errstr);
mib[0] = CTL_NET;
mib[1] = PF_ROUTE;
mib[2] = 0;
mib[3] = 0;
mib[4] = NET_RT_TABLE;
mib[5] = tableid;
len = sizeof(info);
if (sysctl(mib, 6, &info, &len, NULL, 0) == -1)
return (errno);
else
return (0);
}
int
rdomain(int argc, char **argv)
{
if (!argc)
usage(NULL);
if (setrtable(tableid) == -1)
err(1, "setrtable");
execvp(*argv, argv);
warn("%s", argv[0]);
return (errno == ENOENT ? 127 : 126);
}
#endif
void
print_rtdns(struct sockaddr_rtdns *rtdns)
{
struct in_addr server;
struct in6_addr in6;
size_t srclen, offset;
unsigned int servercnt;
int i;
char *src = rtdns->sr_dns;
char ntopbuf[INET6_ADDRSTRLEN];
offset = offsetof(struct sockaddr_rtdns, sr_dns);
if (rtdns->sr_len < offset) {
printf("<invalid sr_len (%u <= %zu)>\n", rtdns->sr_len,
offset);
return;
}
srclen = rtdns->sr_len - offset;
if (srclen > sizeof(rtdns->sr_dns)) {
printf("<invalid sr_len (%zu > %zu)>\n", srclen,
sizeof(rtdns->sr_dns));
return;
}
switch (rtdns->sr_family) {
case AF_INET:
printf(" INET [");
servercnt = srclen / sizeof(struct in_addr);
if (servercnt * sizeof(struct in_addr) != srclen) {
printf("<invalid server count>\n");
return;
}
for (i = 0; i < servercnt; i++) {
memcpy(&server.s_addr, src, sizeof(server.s_addr));
printf("%s%s", inet_ntoa(server), i == servercnt - 1 ?
"": ", ");
src += sizeof(struct in_addr);
}
break;
case AF_INET6:
printf(" INET6 [");
servercnt = srclen / sizeof(struct in6_addr);
if (servercnt * sizeof(struct in6_addr) != srclen) {
printf("<invalid server count>\n");
return;
}
for (i = 0; i < servercnt; i++) {
memcpy(&in6, src, sizeof(in6));
src += sizeof(in6);
printf("%s%s", inet_ntop(AF_INET6, &in6, ntopbuf,
INET6_ADDRSTRLEN), i == servercnt - 1 ? "": ", ");
}
break;
default:
printf(" UNKNOWN [");
break;
}
printf("]");
}
void
print_rtstatic(struct sockaddr_rtstatic *rtstatic)
{
struct sockaddr_in6 gateway6;
struct in6_addr prefix;
struct in_addr dest, gateway;
size_t srclen, offset;
int bits, bytes, error, first = 1;
uint8_t prefixlen;
unsigned char *src = rtstatic->sr_static;
char ntoabuf[INET_ADDRSTRLEN];
char hbuf[NI_MAXHOST];
char ntopbuf[INET6_ADDRSTRLEN];
offset = offsetof(struct sockaddr_rtstatic, sr_static);
if (rtstatic->sr_len <= offset) {
printf("<invalid sr_len (%u <= %zu)>\n", rtstatic->sr_len,
offset);
return;
}
srclen = rtstatic->sr_len - offset;
if (srclen > sizeof(rtstatic->sr_static)) {
printf("<invalid sr_len (%zu > %zu)>\n", srclen,
sizeof(rtstatic->sr_static));
return;
}
printf(" [");
switch (rtstatic->sr_family) {
case AF_INET:
while (srclen) {
bits = *src;
src++;
srclen--;
bytes = (bits + 7) / 8;
if (srclen < bytes || bytes > sizeof(dest.s_addr))
break;
memset(&dest, 0, sizeof(dest));
memcpy(&dest.s_addr, src, bytes);
src += bytes;
srclen -= bytes;
strlcpy(ntoabuf, inet_ntoa(dest), sizeof(ntoabuf));
if (srclen < sizeof(gateway.s_addr))
break;
memcpy(&gateway.s_addr, src, sizeof(gateway.s_addr));
src += sizeof(gateway.s_addr);
srclen -= sizeof(gateway.s_addr);
printf("%s%s/%u %s ", first ? "" : ", ", ntoabuf, bits,
inet_ntoa(gateway));
first = 0;
}
break;
case AF_INET6:
while (srclen >= sizeof(prefixlen) + sizeof(prefix) +
sizeof(gateway6)) {
memcpy(&prefixlen, src, sizeof(prefixlen));
srclen -= sizeof(prefixlen);
src += sizeof(prefixlen);
memcpy(&prefix, src, sizeof(prefix));
srclen -= sizeof(prefix);
src += sizeof(prefix);
memcpy(&gateway6, src, sizeof(gateway6));
srclen -= sizeof(gateway6);
src += sizeof(gateway6);
if ((error = getnameinfo((struct sockaddr *)&gateway6,
gateway6.sin6_len, hbuf, sizeof(hbuf), NULL, 0,
NI_NUMERICHOST | NI_NUMERICSERV))) {
warnx("cannot get gateway address: %s",
gai_strerror(error));
return;
}
printf("%s%s/%u %s ", first ? "" : ", ",
inet_ntop(AF_INET6, &prefix, ntopbuf,
INET6_ADDRSTRLEN), prefixlen, hbuf);
first = 0;
}
break;
default:
printf("<unknown address family %u>", rtstatic->sr_family);
break;
}
printf("]");
}
void
print_rtsearch(struct sockaddr_rtsearch *rtsearch)
{
char *src = rtsearch->sr_search;
size_t srclen, offset;
offset = offsetof(struct sockaddr_rtsearch, sr_search);
if (rtsearch->sr_len <= offset) {
printf("<invalid sr_len (%u <= %zu)>\n", rtsearch->sr_len,
offset);
return;
}
srclen = rtsearch->sr_len - offset;
if (srclen > sizeof(rtsearch->sr_search)) {
printf("<invalid sr_len (%zu > %zu)>\n", srclen,
sizeof(rtsearch->sr_search));
return;
}
printf(" [%.*s]", (int)srclen, src);
}
void
print_80211info(struct if_ieee80211_msghdr *ifim)
{
unsigned int ascii, nwidlen, i;
u_int8_t *nwid, *bssid;
ascii = 1;
nwid = ifim->ifim_ifie.ifie_nwid;
nwidlen = ifim->ifim_ifie.ifie_nwid_len;
for (i = 0; i < nwidlen; i++) {
if (i == 0)
printf("nwid ");
else
printf(":");
printf("%02x", nwid[i]);
if (!isprint((unsigned int)nwid[i]))
ascii = 0;
}
if (i > 0) {
if (ascii == 1)
printf(" (%.*s)", nwidlen, nwid);
printf(", ");
}
printf("channel %u, ", ifim->ifim_ifie.ifie_channel);
bssid = ifim->ifim_ifie.ifie_addr;
printf("bssid %02x:%02x:%02x:%02x:%02x:%02x\n",
bssid[0], bssid[1], bssid[2],
bssid[3], bssid[4], bssid[5]);
printf("flags:");
bprintf(stdout, ifim->ifim_ifie.ifie_flags, ieee80211flags);
printf("\nxflags:");
bprintf(stdout, ifim->ifim_ifie.ifie_xflags, ieee80211xflags);
printf("\n");
}
