* Copyright (c) 1983, 1988 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
static char sccsid
[] = "@(#)route.c 5.15 (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 u_short
*s
, *slim
;
if (rnode
.rn_flags
& RNF_ROOT
)
kget(rnode
.rn_key
, pt_u
);
printf("(%d) ",pt_u
.u_sa
.sa_family
);
if ((len
= pt_u
.u_sa
.sa_len
) == 0 || len
> MAXKEYLEN
)
for (slim
= s
+ ((len
- 1)/2); s
< slim
; s
++)
if (rn
= rnode
.rn_dupedkey
)
p_tree(rnode
.rn_l
, do_rtent
);
p_tree(rnode
.rn_r
, do_rtent
);
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 struct rtentry
*rt
;
register struct sockaddr_in
*sin
;
sin
= (struct sockaddr_in
*)kgetsa(rt_key(rt
));
switch(sin
->sin_family
) {
(sin
->sin_addr
.s_addr
== 0) ? "default" :
(rt
->rt_flags
& RTF_HOST
) ?
routename(sin
->sin_addr
) :
netname(sin
->sin_addr
, 0L));
sin
= (struct sockaddr_in
*)kgetsa(rt
->rt_gateway
);
printf("%-18.18s ", routename(sin
->sin_addr
));
ns_print((struct sockaddr_ns
*)sin
));
ns_print((struct sockaddr_ns
*)kgetsa(rt
->rt_gateway
)));
u_short
*s
= (u_short
*)pt_u
.u_sa
.sa_data
;
printf("(%d)%x %x %x %x %x %x %x ",
s
[0], s
[1], s
[2], s
[3], s
[4], s
[5], s
[6]);
(void) kgetsa(rt
->rt_gateway
);
printf("(%d)%x %x %x %x %x %x %x ",
s
[0], s
[1], s
[2], s
[3], s
[4], s
[5], s
[6]);
for (flags
= name
, p
= bits
; p
->b_mask
; p
++)
if (p
->b_mask
& rt
->rt_flags
)
printf("%-6.6s %6d %8d ", name
,
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
;
switch(rt
->rt_dst
.sa_family
) {
sin
= (struct sockaddr_in
*)&rt
->rt_dst
;
(sin
->sin_addr
.s_addr
== 0) ? "default" :
(rt
->rt_flags
& RTF_HOST
) ?
routename(sin
->sin_addr
) :
netname(sin
->sin_addr
, 0L));
sin
= (struct sockaddr_in
*)&rt
->rt_gateway
;
printf("%-18.18s ", routename(sin
->sin_addr
));
ns_print((struct sockaddr_ns
*)&rt
->rt_dst
));
ns_print((struct sockaddr_ns
*)&rt
->rt_gateway
));
u_short
*s
= (u_short
*)rt
->rt_dst
.sa_data
;
printf("(%d)%x %x %x %x %x %x %x ",
s
[0], s
[1], s
[2], s
[3], s
[4], s
[5], s
[6]);
s
= (u_short
*)rt
->rt_gateway
.sa_data
;
printf("(%d)%x %x %x %x %x %x %x ",
rt
->rt_gateway
.sa_family
,
s
[0], s
[1], s
[2], s
[3], s
[4], s
[5], s
[6]);
for (flags
= name
, p
= bits
; p
->b_mask
; p
++)
if (p
->b_mask
& rt
->rt_flags
)
printf("%-6.6s %6d %8d ", name
,
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':