commands/pr_routes/pr_routes.c

   1 /*
   2 vmd/cmd/simple/pr_routes.c
   3 */
   4
   5 #define _POSIX_C_SOURCE 2
   6
   7 #include <sys/types.h>
   8 #include <sys/ioctl.h>
   9 #include <errno.h>
  10 #include <fcntl.h>
  11 #include <stdarg.h>
  12 #include <stdio.h>
  13 #include <stdlib.h>
  14 #include <string.h>
  15 #include <unistd.h>
  16
  17 #include <net/netlib.h>
  18 #include <net/hton.h>
  19 #include <net/gen/in.h>
  20 #include <net/gen/ip_io.h>
  21 #include <net/gen/route.h>
  22 #include <net/gen/netdb.h>
  23 #include <net/gen/inet.h>
  24
  25 #define N_IF    64      /* More than enough? */
  26
  27 char *prog_name;
  28 int all_devices;
  29 char *ifname;
  30 ipaddr_t iftab[N_IF];
  31
  32 static void print_header(void);
  33 static void print_route(nwio_route_t *route);
  34 static void fill_iftab(void);
  35 static char *get_ifname(ipaddr_t addr);
  36 static void fatal(char *fmt, ...);
  37 static void usage(void);
  38
  39 int main(int argc, char *argv[])
  40 {
  41         int nr_routes, i;
  42         nwio_route_t route;
  43         nwio_ipconf_t ip_conf;
  44         unsigned long ioctl_cmd;
  45         int ip_fd;
  46         int result;
  47         int c;
  48         char *ip_device, *cp;
  49         int a_flag, i_flag, o_flag;
  50         char *I_arg;
  51
  52         prog_name= argv[0];
  53
  54         a_flag= 0;
  55         i_flag= 0;
  56         o_flag= 0;
  57         I_arg= NULL;
  58         while ((c =getopt(argc, argv, "?aI:io")) != -1)
  59         {
  60                 switch(c)
  61                 {
  62                 case '?':
  63                         usage();
  64                 case 'a':
  65                         if (a_flag)
  66                                 usage();
  67                         a_flag= 1;
  68                         break;
  69                 case 'I':
  70                         if (I_arg)
  71                                 usage();
  72                         I_arg= optarg;
  73                         break;
  74                 case 'i':
  75                         if (i_flag || o_flag)
  76                                 usage();
  77                         i_flag= 1;
  78                         break;
  79                 case 'o':
  80                         if (i_flag || o_flag)
  81                                 usage();
  82                         o_flag= 1;
  83                         break;
  84                 default:
  85                         fprintf(stderr, "%s: getopt failed: '%c'\n",
  86                                 prog_name, c);
  87                         exit(1);
  88                 }
  89         }
  90         if (optind != argc)
  91                 usage();
  92
  93         ip_device= I_arg;
  94         all_devices= a_flag;
  95
  96         if (i_flag)
  97                 ioctl_cmd= NWIOGIPIROUTE;
  98         else
  99                 ioctl_cmd= NWIOGIPOROUTE;
 100
 101         if (ip_device == NULL)
 102                 ip_device= getenv("IP_DEVICE");
 103         ifname= ip_device;
 104         if (ip_device == NULL)
 105                 ip_device= IP_DEVICE;
 106
 107         ip_fd= open(ip_device, O_RDONLY);
 108         if (ip_fd == -1)
 109         {
 110                 fprintf(stderr, "%s: unable to open %s: %s\n", prog_name,
 111                         ip_device, strerror(errno));
 112                 exit(1);
 113         }
 114
 115         if (!all_devices && ifname)
 116         {
 117                 cp= strrchr(ip_device, '/');
 118                 if (cp)
 119                         ifname= cp+1;
 120         }
 121         else
 122         {
 123                 ifname= NULL;
 124                 fill_iftab();
 125         }
 126
 127         result= ioctl(ip_fd, NWIOGIPCONF, &ip_conf);
 128         if (result == -1)
 129         {
 130                 fprintf(stderr, "%s: unable to NWIOIPGCONF: %s\n",
 131                         prog_name, strerror(errno));
 132                 exit(1);
 133         }
 134
 135         route.nwr_ent_no= 0;
 136         result= ioctl(ip_fd, ioctl_cmd, &route);
 137         if (result == -1)
 138         {
 139                 fprintf(stderr, "%s: unable to NWIOGIPxROUTE: %s\n",
 140                         prog_name, strerror(errno));
 141                 exit(1);
 142         }
 143         print_header();
 144         nr_routes= route.nwr_ent_count;
 145         for (i= 0; i<nr_routes; i++)
 146         {
 147                 route.nwr_ent_no= i;
 148                 result= ioctl(ip_fd, ioctl_cmd, &route);
 149                 if (result == -1)
 150                 {
 151                         fprintf(stderr, "%s: unable to NWIOGIPxROUTE: %s\n",
 152                                 prog_name, strerror(errno));
 153                         exit(1);
 154                 }
 155                 if (all_devices || route.nwr_ifaddr == ip_conf.nwic_ipaddr)
 156                         print_route(&route);
 157         }
 158         exit(0);
 159 }
 160
 161 int ent_width= 5;
 162 int if_width= 4;
 163 int dest_width= 18;
 164 int gateway_width= 15;
 165 int dist_width= 4;
 166 int pref_width= 5;
 167 int mtu_width= 4;
 168
 169 static void print_header(void)
 170 {
 171         printf("%*s ", ent_width, "ent #");
 172         printf("%*s ", if_width, "if");
 173         printf("%*s ", dest_width, "dest");
 174         printf("%*s ", gateway_width, "gateway");
 175         printf("%*s ", dist_width, "dist");
 176         printf("%*s ", pref_width, "pref");
 177         printf("%*s ", mtu_width, "mtu");
 178         printf("%s", "flags");
 179         printf("\n");
 180 }
 181
 182 static char *cidr2a(ipaddr_t addr, ipaddr_t mask)
 183 {
 184         ipaddr_t testmask= 0xFFFFFFFF;
 185         int n;
 186         static char result[sizeof("255.255.255.255/255.255.255.255")];
 187
 188         for (n= 32; n >= 0; n--)
 189         {
 190                 if (mask == htonl(testmask))
 191                         break;
 192                 testmask= (testmask << 1) & 0xFFFFFFFF;
 193         }
 194
 195         sprintf(result, "%s/%-2d", inet_ntoa(addr), n);
 196         if (n == -1)
 197                 strcpy(strchr(result, '/')+1, inet_ntoa(mask));
 198         return result;
 199 }
 200
 201 static void print_route(nwio_route_t *route)
 202 {
 203         if (!(route->nwr_flags & NWRF_INUSE))
 204                 return;
 205
 206         printf("%*lu ", ent_width, (unsigned long) route->nwr_ent_no);
 207         printf("%*s ", if_width,
 208                 ifname ?  ifname : get_ifname(route->nwr_ifaddr));
 209         printf("%*s ", dest_width, cidr2a(route->nwr_dest, route->nwr_netmask));
 210         printf("%*s ", gateway_width, inet_ntoa(route->nwr_gateway));
 211         printf("%*lu ", dist_width, (unsigned long) route->nwr_dist);
 212         printf("%*ld ", pref_width, (long) route->nwr_pref);
 213         printf("%*lu", mtu_width, (long) route->nwr_mtu);
 214         if (route->nwr_flags & NWRF_STATIC)
 215                 printf(" static");
 216         if (route->nwr_flags & NWRF_UNREACHABLE)
 217                 printf(" dead");
 218         printf("\n");
 219 }
 220
 221 static void fill_iftab(void)
 222 {
 223         int i, j, r, fd;
 224         nwio_ipconf_t ip_conf;
 225         char dev_name[12];      /* /dev/ipXXXX */
 226
 227         for (i= 0; i<N_IF; i++)
 228         {
 229                 iftab[i]= 0;
 230
 231                 sprintf(dev_name, "/dev/ip%d", i);
 232                 fd= open(dev_name, O_RDWR);
 233                 if (fd == -1)
 234                 {
 235                         if (errno == EACCES || errno == ENOENT || errno == ENXIO)
 236                                 continue;
 237                         fatal("unable to open '%s': %s",
 238                                 dev_name, strerror(errno));
 239                 }
 240                 fcntl(fd, F_SETFL, fcntl(fd, F_GETFL) | O_NONBLOCK);
 241                 r= ioctl(fd, NWIOGIPCONF, &ip_conf);
 242                 if (r == -1 && errno == EAGAIN)
 243                 {
 244                         /* interface is down */
 245                         close(fd);
 246                         continue;
 247                 }
 248                 if (r == -1)
 249                 {
 250                         fatal("NWIOGIPCONF failed on %s: %s",
 251                                 dev_name, strerror(errno));
 252                 }
 253
 254                 iftab[i]= ip_conf.nwic_ipaddr;
 255                 close(fd);
 256
 257                 for (j= 0; j<i; j++)
 258                 {
 259                         if (iftab[j] == iftab[i])
 260                         {
 261                                 fatal("duplicate address in ip%d and ip%d: %s",
 262                                         i, j, inet_ntoa(iftab[i]));
 263                         }
 264                 }
 265
 266         }
 267 }
 268
 269 static char *get_ifname(ipaddr_t addr)
 270 {
 271         static char name[7];    /* ipXXXX */
 272
 273         int i;
 274
 275         for (i= 0; i<N_IF; i++)
 276         {
 277                 if (iftab[i] != addr)
 278                         continue;
 279                 sprintf(name, "ip%d", i);
 280                 return name;
 281         }
 282
 283         return inet_ntoa(addr);
 284 }
 285
 286 static void fatal(char *fmt, ...)
 287 {
 288         va_list ap;
 289
 290         va_start(ap, fmt);
 291         fprintf(stderr, "%s: ", prog_name);
 292         vfprintf(stderr, fmt, ap);
 293         fprintf(stderr, "\n");
 294         va_end(ap);
 295         exit(1);
 296 }
 297
 298 static void usage(void)
 299 {
 300         fprintf(stderr, "Usage: %s [-i|-o] [ -a ] [ -I <ip-device> ]\n",
 301                 prog_name);
 302         exit(1);
 303 }
 304
 305 /*
 306  * $PchId: pr_routes.c,v 1.8 2002/04/11 10:58:58 philip Exp $
 307  */