date and time created 84/05/16 15:19:24 by ralph

[unix-history] / usr / src / sbin / route / route.c

diff --git a/usr/src/sbin/route/route.c b/usr/src/sbin/route/route.c
index 32e4453..c00c6f1 100644 (file)
--- a/usr/src/sbin/route/route.c
+++ b/usr/src/sbin/route/route.c
@@ -1,11 +1,13 @@
 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)route.c    4.5 82/11/15";
+static char sccsid[] = "@(#)route.c    4.9 (Berkeley) 84/05/11";

 #endif
 
 #include <sys/types.h>
 #include <sys/socket.h>
 #include <sys/ioctl.h>
 #endif
 
 #include <sys/types.h>
 #include <sys/socket.h>
 #include <sys/ioctl.h>

+#include <sys/mbuf.h>

 
 

+#define        KERNEL

 #include <net/route.h>
 #include <netinet/in.h>
 
 #include <net/route.h>
 #include <netinet/in.h>
 


@@ -18,6 +20,7 @@ struct        rtentry route;
 int    options;
 int    s;
 struct sockaddr_in sin = { AF_INET };
 int    options;
 int    s;
 struct sockaddr_in sin = { AF_INET };

+struct in_addr inet_makeaddr();

 
 main(argc, argv)
        int argc;
 
 main(argc, argv)
        int argc;


@@ -25,21 +28,144 @@ main(argc, argv)
 {
 
        if (argc < 2)
 {
 
        if (argc < 2)

-               printf("usage: route [ cmd ] [ args ]\n"), exit(1);
+               printf("usage: route [ -f ] [ cmd args ]\n"), exit(1);

        s = socket(AF_INET, SOCK_RAW, 0, 0);
        if (s < 0) {
                perror("route: socket");
                exit(1);
        }
        argc--, argv++;
        s = socket(AF_INET, SOCK_RAW, 0, 0);
        if (s < 0) {
                perror("route: socket");
                exit(1);
        }
        argc--, argv++;

-       if (strcmp(*argv, "add") == 0)
-               newroute(argc, argv);
-       else if (strcmp(*argv, "delete") == 0)
-               newroute(argc, argv);
-       else if (strcmp(*argv, "change") == 0)
-               changeroute(argc-1, argv+1);
-       else
-               printf("%s: huh?\n", *argv);
+       if (strcmp(*argv, "-f") == 0) {
+               argc--, argv++;
+               flushroutes();
+       }
+       if (argc > 0) {
+               if (strcmp(*argv, "add") == 0)
+                       newroute(argc, argv);
+               else if (strcmp(*argv, "delete") == 0)
+                       newroute(argc, argv);
+               else if (strcmp(*argv, "change") == 0)
+                       changeroute(argc-1, argv+1);
+               else
+                       printf("%s: huh?\n", *argv);
+       }
+}
+
+/*
+ * Purge all entries in the routing tables not
+ * associated with network interfaces.
+ */
+#include <nlist.h>
+
+struct nlist nl[] = {
+#define        N_RTHOST        0
+       { "_rthost" },
+#define        N_RTNET         1
+       { "_rtnet" },
+       "",
+};
+
+flushroutes()
+{
+       struct mbuf mb;
+       register struct rtentry *rt;
+       register struct mbuf *m;
+       struct mbuf *routehash[RTHASHSIZ];
+       int i, doinghost = 1, kmem;
+       char *routename();
+
+       nlist("/vmunix", nl);
+       if (nl[N_RTHOST].n_value == 0) {
+               printf("route: \"rthost\", symbol not in namelist\n");
+               exit(1);
+       }
+       if (nl[N_RTNET].n_value == 0) {
+               printf("route: \"rtnet\", symbol not in namelist\n");
+               exit(1);
+       }
+       kmem = open("/dev/kmem", 0);
+       if (kmem < 0) {
+               perror("route: /dev/kmem");
+               exit(1);
+       }
+       lseek(kmem, nl[N_RTHOST].n_value, 0);
+       read(kmem, routehash, sizeof (routehash));
+       printf("Flushing routing tables:\n");
+again:
+       for (i = 0; i < RTHASHSIZ; i++) {
+               if (routehash[i] == 0)
+                       continue;
+               m = routehash[i];
+               while (m) {
+                       lseek(kmem, m, 0);
+                       read(kmem, &mb, sizeof (mb));
+                       rt = mtod(&mb, struct rtentry *);
+                       if (rt->rt_flags & RTF_GATEWAY) {
+                               struct sockaddr_in *sin;
+
+                               sin = (struct sockaddr_in *)&rt->rt_dst;
+                               printf("%-15.15s ", routename(sin->sin_addr));
+                               sin = (struct sockaddr_in *)&rt->rt_gateway;
+                               printf("%-15.15s ", routename(sin->sin_addr));
+                               if (ioctl(s, SIOCDELRT, (caddr_t)rt) < 0)
+                                       error("delete");
+                               else
+                                       printf("done\n");
+                       }
+                       m = mb.m_next;
+               }
+       }
+       if (doinghost) {
+               lseek(kmem, nl[N_RTNET].n_value, 0);
+               read(kmem, routehash, sizeof (routehash));
+               doinghost = 0;
+               goto again;
+       }
+       close(kmem);
+}
+
+char *
+routename(in)
+       struct in_addr in;
+{
+       char *cp = 0;
+       static char line[50];
+       struct hostent *hp;
+       struct netent *np;
+       int lna, net, subnet;
+
+       net = inet_netof(in);
+       subnet = inet_subnetof(in);
+       lna = inet_lnaof(in);
+       if (lna == INADDR_ANY) {
+               np = getnetbyaddr(net, AF_INET);
+               if (np)
+                       cp = np->n_name;
+               else if (net == 0)
+                       cp = "default";
+       } else if ((subnet != net) && ((lna & 0xff) == 0) &&
+           (np = getnetbyaddr(subnet, AF_INET))) {
+               struct in_addr subnaddr, inet_makeaddr();
+
+               subnaddr = inet_makeaddr(subnet, INADDR_ANY);
+               if (bcmp(&in, &subnaddr, sizeof(in)) == 0)
+                       cp = np->n_name;
+       } else {
+               hp = gethostbyaddr(&in, sizeof (struct in_addr), AF_INET);
+               if (hp)
+                       cp = hp->h_name;
+       }
+       if (cp)
+               strcpy(line, cp);
+       else {
+               u_char *ucp = (u_char *)&in;
+               if (lna == INADDR_ANY)
+                       sprintf(line, "%u.%u.%u", ucp[0], ucp[1], ucp[2]);
+               else
+                       sprintf(line, "%u.%u.%u.%u", ucp[0], ucp[1],
+                               ucp[2], ucp[3]);
+       }
+       return (line);

 }
 
 newroute(argc, argv)
 }
 
 newroute(argc, argv)


@@ -48,23 +174,32 @@ newroute(argc, argv)
 {
        struct sockaddr_in *sin;
        char *cmd;
 {
        struct sockaddr_in *sin;
        char *cmd;

+       int ishost;

 
 

-       if (argc < 3 || argc > 4) {
-               printf("usage: %s destination gateway [ metric ]\n", argv[0]);
-               return;
-       }

        cmd = argv[0];
        cmd = argv[0];

-       getaddr(argv[1], &route.rt_dst);
-       getaddr(argv[2], &route.rt_gateway);
+       if (*cmd == 'a') {
+               if (argc != 4) {
+                       printf("usage: %s destination gateway metric\n", cmd);
+                       printf("(metric of 0 if gateway is this host)\n");
+                       return;
+               }
+       } else {
+               if (argc != 3) {
+                       printf("usage: %s destination gateway\n", cmd);
+                       return;
+               }
+       }
+       ishost = getaddr(argv[1], &route.rt_dst);
+       (void) getaddr(argv[2], &route.rt_gateway);

        sin = (struct sockaddr_in *)&route.rt_dst;
        route.rt_flags = RTF_UP;
        sin = (struct sockaddr_in *)&route.rt_dst;
        route.rt_flags = RTF_UP;

-       if (inet_lnaof(sin->sin_addr) != 0)
+       if (ishost)

                route.rt_flags |= RTF_HOST;
                route.rt_flags |= RTF_HOST;

-       if (argc > 3 && atoi(argv[3]) > 0)
+       if (atoi(argv[3]) > 0)

                route.rt_flags |= RTF_GATEWAY;
                route.rt_flags |= RTF_GATEWAY;

-       printf("%s %x: gateway %x, flags %x\n", cmd, sin->sin_addr,
-               ((struct sockaddr_in *)&route.rt_gateway)->sin_addr,
-               route.rt_flags);
+       printf("%s %s: gateway ", cmd, routename(sin->sin_addr));
+       sin = (struct sockaddr_in *)&route.rt_gateway;
+       printf("%s, flags %x\n", routename(sin->sin_addr), route.rt_flags);

        if (ioctl(s, *cmd == 'a' ? SIOCADDRT : SIOCDELRT, (caddr_t)&route))
                error(cmd);
 }
        if (ioctl(s, *cmd == 'a' ? SIOCADDRT : SIOCDELRT, (caddr_t)&route))
                error(cmd);
 }


@@ -91,22 +226,74 @@ error(cmd)
                perror(cmd);
 }
 
                perror(cmd);
 }
 

+/*
+ * Interpret an argument as a network address of some kind,
+ * returning 1 if a host address, 0 if a network address.
+ */

 getaddr(s, sin)
        char *s;
        struct sockaddr_in *sin;
 {
        struct hostent *hp;
 getaddr(s, sin)
        char *s;
        struct sockaddr_in *sin;
 {
        struct hostent *hp;

+       struct netent *np;
+       u_long val;

 
 

-       hp = gethostbyname(s);
-       if (hp == 0) {
-               sin->sin_addr.s_addr = inet_addr(s);
-               if (sin->sin_addr.s_addr == -1) {
-                       fprintf(stderr, "%s: bad value\n", s);
-                       exit(1);
-               }
+       if (strcmp(s, "default") == 0) {

                sin->sin_family = AF_INET;
                sin->sin_family = AF_INET;

-               return;
+               sin->sin_addr = inet_makeaddr(0, INADDR_ANY);
+               return(0);
+       }
+       hp = gethostbyname(s);
+       if (hp) {
+               sin->sin_family = hp->h_addrtype;
+               bcopy(hp->h_addr, &sin->sin_addr, hp->h_length);
+               return(1);
+       }
+       np = getnetbyname(s);
+       if (np) {
+               sin->sin_family = np->n_addrtype;
+               sin->sin_addr = inet_makeaddr(np->n_net, INADDR_ANY);
+               return(0);
+       }
+       sin->sin_family = AF_INET;
+       val = inet_addr(s);
+       if (val != -1) {
+               sin->sin_addr.s_addr = val;
+               return(inet_lnaof(sin->sin_addr) != INADDR_ANY);

        }
        }

-       sin->sin_family = hp->h_addrtype;
-       bcopy(hp->h_addr, &sin->sin_addr, hp->h_length);
+       val = inet_network(s);
+       if (val != -1) {
+               sin->sin_addr = inet_makeaddr(val, INADDR_ANY);
+               return(0);
+       }
+       fprintf(stderr, "%s: bad value\n", s);
+       exit(1);
+}
+
+/*
+ * Return the possible subnetwork number from an internet address.
+ * If the address is of the form of a subnet address (most significant
+ * bit of the host part is set), believe the subnet exists.
+ * Otherwise, return the network number.
+ * SHOULD FIND OUT WHETHER THIS IS A LOCAL NETWORK BEFORE LOOKING
+ * INSIDE OF THE HOST PART.  We can only believe this if we have other
+ * information (e.g., we can find a name for this number).
+ */
+inet_subnetof(in)
+       struct in_addr in;
+{
+       register u_long i = ntohl(in.s_addr);
+
+       if (IN_CLASSA(i)) {
+               if (IN_SUBNETA(i))
+                       return ((i & IN_CLASSA_SUBNET) >> IN_CLASSA_SUBNSHIFT);
+               else
+                       return ((i & IN_CLASSA_NET) >> IN_CLASSA_NSHIFT);
+       } else if (IN_CLASSB(i)) {
+               if (IN_SUBNETB(i))
+                       return ((i & IN_CLASSB_SUBNET) >> IN_CLASSB_SUBNSHIFT);
+               else
+                       return ((i & IN_CLASSB_NET) >> IN_CLASSB_NSHIFT);
+       } else
+               return ((i & IN_CLASSC_NET) >> IN_CLASSC_NSHIFT);

 }
 }