Berkeley header

[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 01e2442..ab5c235 100644 (file)
--- a/usr/src/sbin/route/route.c
+++ b/usr/src/sbin/route/route.c
@@ -1,14 +1,27 @@
+/*
+ * Copyright (c) 1983 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+

 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)route.c    4.14 (Berkeley) 85/06/03";
-#endif
+char copyright[] =
+"@(#) Copyright (c) 1983 Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif not lint

 
 

-#include <sys/types.h>
+#ifndef lint
+static char sccsid[] = "@(#)route.c    5.9 (Berkeley) %G%";
+#endif not lint
+
+#include <sys/param.h>

 #include <sys/socket.h>
 #include <sys/ioctl.h>
 #include <sys/mbuf.h>
 
 #include <net/route.h>
 #include <netinet/in.h>
 #include <sys/socket.h>
 #include <sys/ioctl.h>
 #include <sys/mbuf.h>
 
 #include <net/route.h>
 #include <netinet/in.h>

+#include <netns/ns.h>

 
 #include <stdio.h>
 #include <errno.h>
 
 #include <stdio.h>
 #include <errno.h>


@@ -17,9 +30,10 @@ static char sccsid[] = "@(#)route.c  4.14 (Berkeley) 85/06/03";
 
 struct rtentry route;
 int    s;
 
 struct rtentry route;
 int    s;

-int    forcehost, forcenet;
+int    forcehost, forcenet, doflush, nflag;

 struct sockaddr_in sin = { AF_INET };
 struct in_addr inet_makeaddr();
 struct sockaddr_in sin = { AF_INET };
 struct in_addr inet_makeaddr();

+char   *malloc();

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


@@ -27,7 +41,7 @@ main(argc, argv)
 {
 
        if (argc < 2)
 {
 
        if (argc < 2)

-               printf("usage: route [ -f ] [ [ -h ] [ -n ] cmd args ]\n"),
+               printf("usage: route [ -n ] [ -f ] [ cmd [ net | host ] args ]\n"),

                exit(1);
        s = socket(AF_INET, SOCK_RAW, 0);
        if (s < 0) {
                exit(1);
        s = socket(AF_INET, SOCK_RAW, 0);
        if (s < 0) {


@@ -39,20 +53,15 @@ main(argc, argv)
                for (argv[0]++; *argv[0]; argv[0]++)
                        switch (*argv[0]) {
                        case 'f':
                for (argv[0]++; *argv[0]; argv[0]++)
                        switch (*argv[0]) {
                        case 'f':

-                               flushroutes();
-                               break;
-                       case 'h':
-                               forcehost++;
+                               doflush++;

                                break;
                        case 'n':
                                break;
                        case 'n':

-                               forcenet++;
+                               nflag++;

                                break;
                        }
        }
                                break;
                        }
        }

-       if (forcehost && forcenet) {
-               fprintf(stderr, "-n and -h are incompatible\n");
-               exit(1);
-       }
+       if (doflush)
+               flushroutes();

        if (argc > 0) {
                if (strcmp(*argv, "add") == 0)
                        newroute(argc, argv);
        if (argc > 0) {
                if (strcmp(*argv, "add") == 0)
                        newroute(argc, argv);


@@ -88,7 +97,7 @@ flushroutes()
        register struct mbuf *m;
        struct mbuf **routehash;
        int rthashsize, i, doinghost = 1, kmem;
        register struct mbuf *m;
        struct mbuf **routehash;
        int rthashsize, i, doinghost = 1, kmem;

-       char *routename();
+       char *routename(), *netname();

 
        nlist("/vmunix", nl);
        if (nl[N_RTHOST].n_value == 0) {
 
        nlist("/vmunix", nl);
        if (nl[N_RTHOST].n_value == 0) {


@@ -125,12 +134,10 @@ again:
                        read(kmem, &mb, sizeof (mb));
                        rt = mtod(&mb, struct rtentry *);
                        if (rt->rt_flags & RTF_GATEWAY) {
                        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));
+                               printf("%-20.20s ", doinghost ?
+                                   routename(&rt->rt_dst) :
+                                   netname(&rt->rt_dst));
+                               printf("%-20.20s ", routename(&rt->rt_gateway));

                                if (ioctl(s, SIOCDELRT, (caddr_t)rt) < 0)
                                        error("delete");
                                else
                                if (ioctl(s, SIOCDELRT, (caddr_t)rt) < 0)
                                        error("delete");
                                else


@@ -150,38 +157,148 @@ again:
 }
 
 char *
 }
 
 char *

-routename(in)
-       struct in_addr in;
+routename(sa)
+       struct sockaddr *sa;

 {
 {

-       char *cp = 0;
+       register char *cp;

        static char line[50];
        struct hostent *hp;
        static char line[50];
        struct hostent *hp;

-       struct netent *np;
-       int lna, net;
-
-       net = inet_netof(in);
-       lna = inet_lnaof(in);
-       if (in.s_addr == INADDR_ANY)
-               cp = "default";
-       if (cp == 0 && (lna == INADDR_ANY || forcenet)) {
-               np = getnetbyaddr(net, AF_INET);
-               if (np)
-                       cp = np->n_name;
+       static char domain[MAXHOSTNAMELEN + 1];
+       static int first = 1;
+       char *index();
+       char *ns_print();
+
+       if (first) {
+               first = 0;
+               if (gethostname(domain, MAXHOSTNAMELEN) == 0 &&
+                   (cp = index(domain, '.')))
+                       (void) strcpy(domain, cp + 1);
+               else
+                       domain[0] = 0;

        }
        }

-       if (cp == 0) {
-               hp = gethostbyaddr(&in, sizeof (struct in_addr), AF_INET);
-               if (hp)
-                       cp = hp->h_name;
+       switch (sa->sa_family) {
+
+       case AF_INET:
+           {   struct in_addr in;
+               in = ((struct sockaddr_in *)sa)->sin_addr;
+
+               cp = 0;
+               if (in.s_addr == INADDR_ANY)
+                       cp = "default";
+               if (cp == 0 && !nflag) {
+                       hp = gethostbyaddr(&in, sizeof (struct in_addr),
+                               AF_INET);
+                       if (hp) {
+                               if ((cp = index(hp->h_name, '.')) &&
+                                   !strcmp(cp + 1, domain))
+                                       *cp = 0;
+                               cp = hp->h_name;
+                       }
+               }
+               if (cp)
+                       strcpy(line, cp);
+               else {
+#define C(x)   ((x) & 0xff)
+                       in.s_addr = ntohl(in.s_addr);
+                       (void)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));
+               }
+               break;
+           }
+
+       case AF_NS:
+               return (ns_print((struct sockaddr_ns *)sa));
+
+       default:
+           {   u_short *s = (u_short *)sa->sa_data;
+
+               (void)sprintf(line, "af %d: %x %x %x %x %x %x %x",
+                   sa->sa_family, s[0], s[1], s[2], s[3], s[4], s[5], s[6]);
+               break;
+           }

        }
        }

-       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]);
+       return (line);
+}
+
+/*
+ * 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.
+ */
+char *
+netname(sa)
+       struct sockaddr *sa;
+{
+       char *cp = 0;
+       static char line[50];
+       struct netent *np = 0;
+       u_long net, mask;
+       register u_long i;
+       int subnetshift;
+       char *ns_print();
+
+       switch (sa->sa_family) {
+
+       case AF_INET:
+           {   struct in_addr in;
+               in = ((struct sockaddr_in *)sa)->sin_addr;
+
+               i = in.s_addr = ntohl(in.s_addr);
+               if (in.s_addr == 0)
+                       cp = "default";
+               else if (!nflag) {
+                       if (IN_CLASSA(i)) {
+                               mask = IN_CLASSA_NET;
+                               subnetshift = 8;
+                       } else if (IN_CLASSB(i)) {
+                               mask = IN_CLASSB_NET;
+                               subnetshift = 8;
+                       } else {
+                               mask = IN_CLASSC_NET;
+                               subnetshift = 4;
+                       }
+                       /*
+                        * If there are more bits than the standard mask
+                        * would suggest, subnets must be in use.
+                        * Guess at the subnet mask, assuming reasonable
+                        * width subnet fields.
+                        */
+                       while (in.s_addr &~ mask)
+                               mask = (long)mask >> subnetshift;
+                       net = in.s_addr & mask;
+                       while ((mask & 1) == 0)
+                               mask >>= 1, net >>= 1;
+                       np = getnetbyaddr(net, AF_INET);
+                       if (np)
+                               cp = np->n_name;
+               }
+               if (cp)
+                       strcpy(line, cp);
+               else if ((in.s_addr & 0xffffff) == 0)
+                       (void)sprintf(line, "%u", C(in.s_addr >> 24));
+               else if ((in.s_addr & 0xffff) == 0)
+                       (void)sprintf(line, "%u.%u", C(in.s_addr >> 24),
+                           C(in.s_addr >> 16));
+               else if ((in.s_addr & 0xff) == 0)
+                       (void)sprintf(line, "%u.%u.%u", C(in.s_addr >> 24),
+                           C(in.s_addr >> 16), C(in.s_addr >> 8));

                else
                else

-                       sprintf(line, "%u.%u.%u.%u", ucp[0], ucp[1],
-                               ucp[2], ucp[3]);
+                       (void)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));
+               break;
+           }
+
+       case AF_NS:
+               return (ns_print((struct sockaddr_ns *)sa));
+               break;
+
+       default:
+           {   u_short *s = (u_short *)sa->sa_data;
+
+               (void)sprintf(line, "af %d: %x %x %x %x %x %x %x",
+                   sa->sa_family, s[0], s[1], s[2], s[3], s[4], s[5], s[6]);
+               break;
+           }

        }
        return (line);
 }
        }
        return (line);
 }


@@ -191,10 +308,19 @@ newroute(argc, argv)
        char *argv[];
 {
        struct sockaddr_in *sin;
        char *argv[];
 {
        struct sockaddr_in *sin;

-       char *cmd;
-       int ishost, metric = 0;
+       char *cmd, *dest, *gateway;
+       int ishost, metric = 0, ret, attempts, oerrno;
+       struct hostent *hp;
+       extern int errno;

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

+       if ((strcmp(argv[1], "host")) == 0) {
+               forcehost++;
+               argc--, argv++;
+       } else if ((strcmp(argv[1], "net")) == 0) {
+               forcenet++;
+               argc--, argv++;
+       }

        if (*cmd == 'a') {
                if (argc != 4) {
                        printf("usage: %s destination gateway metric\n", cmd);
        if (*cmd == 'a') {
                if (argc != 4) {
                        printf("usage: %s destination gateway metric\n", cmd);


@@ -203,28 +329,52 @@ newroute(argc, argv)
                }
                metric = atoi(argv[3]);
        } else {
                }
                metric = atoi(argv[3]);
        } else {

-               if (argc != 3) {
+               if (argc < 3) {

                        printf("usage: %s destination gateway\n", cmd);
                        return;
                }
        }
                        printf("usage: %s destination gateway\n", cmd);
                        return;
                }
        }

-       ishost = getaddr(argv[1], &route.rt_dst);
+       sin = (struct sockaddr_in *)&route.rt_dst;
+       ishost = getaddr(argv[1], &route.rt_dst, &hp, &dest, forcenet);

        if (forcehost)
                ishost = 1;
        if (forcenet)
                ishost = 0;
        if (forcehost)
                ishost = 1;
        if (forcenet)
                ishost = 0;

-       (void) getaddr(argv[2], &route.rt_gateway);
-       sin = (struct sockaddr_in *)&route.rt_dst;
+       sin = (struct sockaddr_in *)&route.rt_gateway;
+       (void) getaddr(argv[2], &route.rt_gateway, &hp, &gateway, 0);

        route.rt_flags = RTF_UP;
        if (ishost)
                route.rt_flags |= RTF_HOST;
        if (metric > 0)
                route.rt_flags |= RTF_GATEWAY;
        route.rt_flags = RTF_UP;
        if (ishost)
                route.rt_flags |= RTF_HOST;
        if (metric > 0)
                route.rt_flags |= RTF_GATEWAY;

-       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);
+       for (attempts = 1; ; attempts++) {
+               errno = 0;
+               if ((ret = ioctl(s, *cmd == 'a' ? SIOCADDRT : SIOCDELRT,
+                    (caddr_t)&route)) == 0)
+                       break;
+               if (errno != ENETUNREACH && errno != ESRCH)
+                       break;
+               if (hp && hp->h_addr_list[1]) {
+                       hp->h_addr_list++;
+                       bcopy(hp->h_addr_list[0], (caddr_t)&sin->sin_addr,
+                           hp->h_length);
+               } else
+                       break;
+       }
+       oerrno = errno;
+       printf("%s %s %s: gateway %s", cmd, ishost? "host" : "net",
+               dest, gateway);
+       if (attempts > 1 && ret == 0)
+           printf(" (%s)",
+               inet_ntoa(((struct sockaddr_in *)&route.rt_gateway)->sin_addr));
+       if (ret == 0)
+               printf("\n");
+       else {
+               printf(": ");
+               fflush(stdout);
+               errno = oerrno;
+               error(0);
+       }

 }
 
 changeroute(argc, argv)
 }
 
 changeroute(argc, argv)


@@ -239,56 +389,147 @@ error(cmd)
 {
        extern int errno;
 
 {
        extern int errno;
 

-       if (errno == ESRCH)
+       switch(errno) {
+       case ESRCH:

                fprintf(stderr, "not in table\n");
                fprintf(stderr, "not in table\n");

-       else if (errno == EBUSY)
+               break;
+       case EBUSY:

                fprintf(stderr, "entry in use\n");
                fprintf(stderr, "entry in use\n");

-       else if (errno == ENOBUFS)
+               break;
+       case ENOBUFS:

                fprintf(stderr, "routing table overflow\n");
                fprintf(stderr, "routing table overflow\n");

-       else
+               break;
+       default:

                perror(cmd);
                perror(cmd);

+       }
+}
+
+char *
+savestr(s)
+       char *s;
+{
+       char *sav;
+
+       sav = malloc(strlen(s) + 1);
+       if (sav == NULL) {
+               fprintf("route: out of memory\n");
+               exit(1);
+       }
+       strcpy(sav, s);
+       return (sav);

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

-getaddr(s, sin)
+getaddr(s, sin, hpp, name, isnet)

        char *s;
        struct sockaddr_in *sin;
        char *s;
        struct sockaddr_in *sin;

+       struct hostent **hpp;
+       char **name;
+       int isnet;

 {
        struct hostent *hp;
        struct netent *np;
        u_long val;
 
 {
        struct hostent *hp;
        struct netent *np;
        u_long val;
 

+       *hpp = 0;

        if (strcmp(s, "default") == 0) {
                sin->sin_family = AF_INET;
                sin->sin_addr = inet_makeaddr(0, INADDR_ANY);
        if (strcmp(s, "default") == 0) {
                sin->sin_family = AF_INET;
                sin->sin_addr = inet_makeaddr(0, INADDR_ANY);

+               *name = "default";
+               return(0);
+       }
+       sin->sin_family = AF_INET;
+       if (isnet == 0) {
+               val = inet_addr(s);
+               if (val != -1) {
+                       sin->sin_addr.s_addr = val;
+                       *name = s;
+                       return(inet_lnaof(sin->sin_addr) != INADDR_ANY);
+               }
+       }
+       val = inet_network(s);
+       if (val != -1) {
+               sin->sin_addr = inet_makeaddr(val, INADDR_ANY);
+               *name = s;

                return(0);
        }
        np = getnetbyname(s);
        if (np) {
                sin->sin_family = np->n_addrtype;
                sin->sin_addr = inet_makeaddr(np->n_net, INADDR_ANY);
                return(0);
        }
        np = getnetbyname(s);
        if (np) {
                sin->sin_family = np->n_addrtype;
                sin->sin_addr = inet_makeaddr(np->n_net, INADDR_ANY);

+               *name = savestr(np->n_name);

                return(0);
        }
        hp = gethostbyname(s);
        if (hp) {
                return(0);
        }
        hp = gethostbyname(s);
        if (hp) {

+               *hpp = hp;

                sin->sin_family = hp->h_addrtype;
                bcopy(hp->h_addr, &sin->sin_addr, hp->h_length);
                sin->sin_family = hp->h_addrtype;
                bcopy(hp->h_addr, &sin->sin_addr, hp->h_length);

+               *name = savestr(hp->h_name);

                return(1);
        }
                return(1);
        }

-       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);
-       }
-       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);
 }
        fprintf(stderr, "%s: bad value\n", s);
        exit(1);
 }

+
+short ns_nullh[] = {0,0,0};
+short ns_bh[] = {-1,-1,-1};
+
+char *
+ns_print(sns)
+struct sockaddr_ns *sns;
+{
+       struct ns_addr work;
+       union { union ns_net net_e; u_long long_e; } net;
+       u_short port;
+       static char mybuf[50], cport[10], chost[25];
+       char *host = "";
+       register char *p; register u_char *q; u_char *q_lim;
+
+       work = sns->sns_addr;
+       port = ntohs(work.x_port);
+       work.x_port = 0;
+       net.net_e  = work.x_net;
+       if (ns_nullhost(work) && net.long_e == 0) {
+               if (port ) {
+                       (void)sprintf(mybuf, "*.%xH", port);
+                       upHex(mybuf);
+               } else
+                       (void)sprintf(mybuf, "*.*");
+               return (mybuf);
+       }
+
+       if (bcmp(ns_bh, work.x_host.c_host, 6) == 0) { 
+               host = "any";
+       } else if (bcmp(ns_nullh, work.x_host.c_host, 6) == 0) {
+               host = "*";
+       } else {
+               q = work.x_host.c_host;
+               (void)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++);
+               host = p;
+       }
+       if (port)
+               (void)sprintf(cport, ".%xH", htons(port));
+       else
+               *cport = 0;
+
+       (void)sprintf(mybuf,"%xH.%s%s", ntohl(net.long_e), host, cport);
+       upHex(mybuf);
+       return(mybuf);
+}
+
+upHex(p0)
+char *p0;
+{
+       register char *p = p0;
+       for (; *p; p++) switch (*p) {
+
+       case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
+               *p += ('A' - 'a');
+       }
+}