* Copyright (c) 1983, 1988 Regents of the University of California.
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)route.c 5.17 (Berkeley) %G%";
extern char *routename(), *netname(), *ns_print(), *plural();
(klseek(kmem, (off_t)(p), 0), read(kmem, (char *)&(d), sizeof (d)))
* Definitions for showing gateway flags.
routepr(hostaddr
, netaddr
, hashsizeaddr
, treeaddr
)
off_t hostaddr
, netaddr
, hashsizeaddr
, treeaddr
;
register struct ortentry
*rt
;
printf("Routing tables\n");
printf("%-16.16s %-18.18s %-6.6s %6.6s%8.8s %s\n",
"Destination", "Gateway",
"Flags", "Refs", "Use", "Interface");
return treestuff(treeaddr
);
printf("rthost: symbol not in namelist\n");
printf("rtnet: symbol not in namelist\n");
printf("rthashsize: symbol not in namelist\n");
kget(hashsizeaddr
, hashsize
);
routehash
= (struct mbuf
**)malloc( hashsize
*sizeof (struct mbuf
*) );
klseek(kmem
, hostaddr
, 0);
read(kmem
, (char *)routehash
, hashsize
*sizeof (struct mbuf
*));
for (i
= 0; i
< hashsize
; i
++) {
p_rtentry((struct rtentry
*)(mb
.m_dat
));
klseek(kmem
, netaddr
, 0);
read(kmem
, (char *)routehash
, hashsize
*sizeof (struct mbuf
*));
static struct rtentry rtentry
;
struct radix_node_head
*rnh
, head
;
for (kget(rtree
, rnh
); rnh
; rnh
= head
.rnh_next
) {
p_tree(head
.rnh_treetop
, 0);
printf("\nRoute Tree for Protocol Family %d:\n",
p_tree(head
.rnh_treetop
, 1);
register struct sockaddr
*dst
;
if (pt_u
.u_sa
.sa_len
> sizeof (pt_u
.u_sa
)) {
klseek(kmem
, (off_t
)dst
, 0);
read(kmem
, pt_u
.u_data
, pt_u
.u_sa
.sa_len
);
register u_short
*s
, *slim
;
if (rnode
.rn_flags
& RNF_ROOT
)
p_sockaddr(kgetsa((struct sockaddr
*)rnode
.rn_key
),
if (rn
= rnode
.rn_dupedkey
)
p_tree(rnode
.rn_l
, do_rtent
);
p_tree(rnode
.rn_r
, do_rtent
);
register struct rt_msghdr
*rtm
;
if ((needed
= getkerninfo(KINFO_RT_DUMP
, 0, 0, 0)) < 0)
{ perror("route-getkerninfo-estimate"); exit(1);}
if ((buf
= malloc(needed
)) == 0)
{ printf("out of space\n");; exit(1);}
if (getkerninfo(KINFO_RT_DUMP
, buf
, &needed
, 0) < 0)
{ perror("actual retrieval of routing table"); exit(1);}
for (next
= buf
; next
< lim
; next
+= rtm
->rtm_msglen
) {
rtm
= (struct rt_msghdr
*)next
;
register struct rt_msghdr
*rtm
;
register struct sockaddr
*sa
= (struct sockaddr
*)(rtm
+ 1);
static int masks_done
, old_af
, banner_printed
;
int af
= 0, interesting
= RTF_UP
| RTF_GATEWAY
| RTF_HOST
;
/* for the moment, netmasks are skipped over */
if (rtm
->rtm_addrs
!= RTA_DST
) {
printf("\nRoute Tree for Protocol Family %d:\n", af
);
if (rtm
->rtm_addrs
== RTA_DST
)
p_sockaddr(sa
, 0, "%-36.36s ");
p_sockaddr(sa
, rtm
->rtm_flags
, "%-16.16s ");
sa
->sa_len
= sizeof(long);
sa
= (struct sockaddr
*)(sa
->sa_len
+ (char *)sa
);
p_sockaddr(sa
, 0, "%-18.18s ");
p_flags(rtm
->rtm_flags
& interesting
, "%-6.6s ");
p_sockaddr(sa
, flags
, format
)
char workbuf
[128], *cp
, *cplim
;
register struct sockaddr_in
*sin
= (struct sockaddr_in
*)sa
;
cp
= (sin
->sin_addr
.s_addr
== 0) ? "default" :
routename(sin
->sin_addr
) : netname(sin
->sin_addr
, 0L));
cp
= ns_print((struct sockaddr_ns
*)sa
);
register u_short
*s
= ((u_short
*)sa
->sa_data
),
*slim
= ((sa
->sa_len
+ 1)/2) + s
;
cplim
= cp
+ sizeof(workbuf
) - 6;
cp
+= sprintf(cp
, "(%d)", sa
->sa_family
);
while (s
< slim
&& cp
< cplim
)
cp
+= sprintf(cp
, "%x ", *s
++);
register struct bits
*p
= bits
;
for (flags
= name
; p
->b_mask
; p
++)
register struct rtentry
*rt
;
register struct sockaddr
*sa
;
p_sockaddr(kgetsa(rt_key(rt
)), rt
->rt_flags
, "%-16.16s ");
p_sockaddr(kgetsa(rt
->rt_gateway
), 0, "%-18.18s ");;
p_flags(rt
->rt_flags
, "%-6.6s ");
printf("%6d %8d ", rt
->rt_refcnt
, rt
->rt_use
);
klseek(kmem
, (off_t
)ifnet
.if_name
, 0);
printf(" %.15s%d\n", name
, ifnet
.if_unit
);
register struct ortentry
*rt
;
register struct sockaddr_in
*sin
;
p_sockaddr(&rt
->rt_dst
, rt
->rt_flags
, "%-16.16s ");
p_sockaddr(&rt
->rt_gateway
, 0, "%-18.18s ");
p_flags(rt
->rt_flags
, "%-6.6s ");
printf("%6d %8d ", rt
->rt_refcnt
, rt
->rt_use
);
klseek(kmem
, (off_t
)ifnet
.if_name
, 0);
printf(" %.15s%d\n", name
, ifnet
.if_unit
);
static char line
[MAXHOSTNAMELEN
+ 1];
static char domain
[MAXHOSTNAMELEN
+ 1];
if (gethostname(domain
, MAXHOSTNAMELEN
) == 0 &&
(cp
= index(domain
, '.')))
(void) strcpy(domain
, cp
+ 1);
hp
= gethostbyaddr((char *)&in
, sizeof (struct in_addr
),
if ((cp
= index(hp
->h_name
, '.')) &&
strncpy(line
, cp
, sizeof(line
) - 1);
#define C(x) ((x) & 0xff)
in
.s_addr
= ntohl(in
.s_addr
);
sprintf(line
, "%u.%u.%u.%u", C(in
.s_addr
>> 24),
C(in
.s_addr
>> 16), C(in
.s_addr
>> 8), C(in
.s_addr
));
* Return the name of the network whose address is given.
* The address is assumed to be that of a net or subnet, not a host.
static char line
[MAXHOSTNAMELEN
+ 1];
} else if (IN_CLASSB(i
)) {
* If there are more bits than the standard mask
* would suggest, subnets must be in use.
* Guess at the subnet mask, assuming reasonable
mask
= (long)mask
>> subnetshift
;
np
= getnetbyaddr(net
, AF_INET
);
strncpy(line
, cp
, sizeof(line
) - 1);
else if ((i
& 0xffffff) == 0)
sprintf(line
, "%u", C(i
>> 24));
else if ((i
& 0xffff) == 0)
sprintf(line
, "%u.%u", C(i
>> 24) , C(i
>> 16));
else if ((i
& 0xff) == 0)
sprintf(line
, "%u.%u.%u", C(i
>> 24), C(i
>> 16), C(i
>> 8));
sprintf(line
, "%u.%u.%u.%u", C(i
>> 24),
C(i
>> 16), C(i
>> 8), C(i
));
* Print routing statistics
printf("rtstat: symbol not in namelist\n");
read(kmem
, (char *)&rtstat
, sizeof (rtstat
));
printf("\t%u bad routing redirect%s\n",
rtstat
.rts_badredirect
, plural(rtstat
.rts_badredirect
));
printf("\t%u dynamically created route%s\n",
rtstat
.rts_dynamic
, plural(rtstat
.rts_dynamic
));
printf("\t%u new gateway%s due to redirects\n",
rtstat
.rts_newgateway
, plural(rtstat
.rts_newgateway
));
printf("\t%u destination%s found unreachable\n",
rtstat
.rts_unreach
, plural(rtstat
.rts_unreach
));
printf("\t%u use%s of a wildcard route\n",
rtstat
.rts_wildcard
, plural(rtstat
.rts_wildcard
));
short ns_nullh
[] = {0,0,0};
short ns_bh
[] = {-1,-1,-1};
union { union ns_net net_e
; u_long long_e
; } net
;
static char mybuf
[50], cport
[10], chost
[25];
register char *p
; register u_char
*q
;
port
= ntohs(work
.x_port
);
if (ns_nullhost(work
) && net
.long_e
== 0) {
sprintf(mybuf
, "*.%xH", port
);
if (bcmp(ns_bh
, work
.x_host
.c_host
, 6) == 0) {
} else if (bcmp(ns_nullh
, work
.x_host
.c_host
, 6) == 0) {
sprintf(chost
, "%02x%02x%02x%02x%02x%02xH",
q
[0], q
[1], q
[2], q
[3], q
[4], q
[5]);
for (p
= chost
; *p
== '0' && p
< chost
+ 12; p
++);
sprintf(cport
, ".%xH", htons(port
));
sprintf(mybuf
,"%xH.%s%s", ntohl(net
.long_e
), host
, cport
);
static union ns_net ns_zeronet
;
work
.sns_addr
.x_port
= 0;
work
.sns_addr
.x_net
= ns_zeronet
;
if (strncmp("0H.", p
, 3) == 0) p
+= 3;
for (; *p
; p
++) switch (*p
) {
case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':