home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / misc / 9q920411 / ipcmd.c < prev    next >
C/C++ Source or Header  |  1991-07-13  |  7KB  |  338 lines
  1. /* IP-related user commands
  2.  * Copyright 1991 Phil Karn, KA9Q
  3.  */
  4. #include <stdio.h>
  5. #include "global.h"
  6. #include "mbuf.h"
  7. #include "internet.h"
  8. #include "timer.h"
  9. #include "netuser.h"
  10. #include "iface.h"
  11. #include "ip.h"
  12. #include "cmdparse.h"
  13. #include "commands.h"
  14. #include "rip.h"
  15.  
  16. int32 Ip_addr;
  17.  
  18. static int doadd __ARGS((int argc,char *argv[],void *p));
  19. static int dodrop __ARGS((int argc,char *argv[],void *p));
  20. static int doflush __ARGS((int argc,char *argv[],void *p));
  21. static int doipaddr __ARGS((int argc,char *argv[],void *p));
  22. static int doipstat __ARGS((int argc,char *argv[],void *p));
  23. static int dolook __ARGS((int argc,char *argv[],void *p));
  24. static int dortimer __ARGS((int argc,char *argv[],void *p));
  25. static int dottl __ARGS((int argc,char *argv[],void *p));
  26. static int dumproute __ARGS((struct route *rp));
  27.  
  28. static struct cmds Ipcmds[] = {
  29.     "address",    doipaddr,    0,    0, NULLCHAR,
  30.     "rtimer",    dortimer,    0,    0, NULLCHAR,
  31.     "status",    doipstat,    0,    0, NULLCHAR,
  32.     "ttl",        dottl,        0,    0, NULLCHAR,
  33.     NULLCHAR,
  34. };
  35. /* "route" subcommands */
  36. static struct cmds Rtcmds[] = {
  37.     "add",        doadd,        0,    3,
  38.     "route add <dest addr>[/<bits>] <if name> [gateway] [metric]",
  39.  
  40.     "addprivate",    doadd,        0,    3,
  41.     "route addprivate <dest addr>[/<bits>] <if name> [gateway] [metric]",
  42.  
  43.     "drop",        dodrop,        0,    2,
  44.     "route drop <dest addr>[/<bits>]",
  45.  
  46.     "flush",    doflush,    0,    0,
  47.     NULLCHAR,
  48.  
  49.     "lookup",    dolook,        0,    2,
  50.     "route lookup <dest addr>",
  51.  
  52.     NULLCHAR,
  53. };
  54.  
  55. int
  56. doip(argc,argv,p)
  57. int argc;
  58. char *argv[];
  59. void *p;
  60. {
  61.     return subcmd(Ipcmds,argc,argv,p);
  62. }
  63. static int
  64. doipaddr(argc,argv,p)
  65. int argc;
  66. char *argv[];
  67. void *p;
  68. {
  69.     int32 n;
  70.  
  71.     if(argc < 2) {
  72.         tprintf("%s\n",inet_ntoa(Ip_addr));
  73.     } else if((n = resolve(argv[1])) == 0){
  74.         tprintf(Badhost,argv[1]);
  75.         return 1;
  76.     } else
  77.         Ip_addr = n;
  78.     return 0;
  79. }
  80. static int
  81. dortimer(argc,argv,p)
  82. int argc;
  83. char *argv[];
  84. void *p;
  85. {
  86.     return setlong(&ipReasmTimeout,"IP reasm timeout (sec)",argc,argv);
  87. }
  88. static int
  89. dottl(argc,argv,p)
  90. int argc;
  91. char *argv[];
  92. void *p;
  93. {
  94.     return setlong(&ipDefaultTTL,"IP Time-to-live",argc,argv);
  95. }
  96.  
  97.  
  98. /* Display and/or manipulate routing table */
  99. int
  100. doroute(argc,argv,p)
  101. int argc;
  102. char *argv[];
  103. void *p;
  104. {
  105.     register int i,bits;
  106.     register struct route *rp;
  107.  
  108.     if(argc >= 2)
  109.         return subcmd(Rtcmds,argc,argv,p);
  110.  
  111.     /* Dump IP routing table
  112.      * Dest            Len Interface    Gateway          Use
  113.      * 192.001.002.003 32  sl0          192.002.003.004  0
  114.      */
  115.     tprintf(
  116. "Dest            Len Interface    Gateway          Metric  P Timer  Use\n");
  117.  
  118.     for(bits=31;bits>=0;bits--){
  119.         for(i=0;i<HASHMOD;i++){
  120.             for(rp = Routes[bits][i];rp != NULLROUTE;rp = rp->next){
  121.                 if(dumproute(rp) == EOF)
  122.                     return 0;
  123.             }
  124.         }
  125.     }
  126.     if(R_default.iface != NULLIF)
  127.         dumproute(&R_default);
  128.  
  129.     return 0;
  130. }
  131. /* Add an entry to the routing table
  132.  * E.g., "add 1.2.3.4 ax0 5.6.7.8 3"
  133.  */
  134. static int
  135. doadd(argc,argv,p)
  136. int argc;
  137. char *argv[];
  138. void *p;
  139. {
  140.     struct iface *ifp;
  141.     int32 dest,gateway;
  142.     unsigned bits;
  143.     char *bitp;
  144.     int32 metric;
  145.     char private;
  146.  
  147.     if(strncmp(argv[0],"addp",4) == 0)
  148.         private = 1;
  149.     else
  150.         private = 0;
  151.     if(strcmp(argv[1],"default") == 0){
  152.         dest = 0;
  153.         bits = 0;
  154.     } else {
  155.         /* If IP address is followed by an optional slash and
  156.          * a length field, (e.g., 128.96/16) get it;
  157.          * otherwise assume a full 32-bit address
  158.          */
  159.         if((bitp = strchr(argv[1],'/')) != NULLCHAR){
  160.             /* Terminate address token for resolve() call */
  161.             *bitp++ = '\0';
  162.             bits = atoi(bitp);
  163.         } else
  164.             bits = 32;
  165.  
  166.         if((dest = resolve(argv[1])) == 0){
  167.             tprintf(Badhost,argv[1]);
  168.             return 1;
  169.         }
  170.     }
  171.     if((ifp = if_lookup(argv[2])) == NULLIF){
  172.         tprintf("Interface \"%s\" unknown\n",argv[2]);
  173.         return 1;
  174.     }
  175.     if(argc > 3){
  176.         if((gateway = resolve(argv[3])) == 0){
  177.             tprintf(Badhost,argv[3]);
  178.             return 1;
  179.         }
  180.     } else {
  181.         gateway = 0;
  182.     }
  183.     if (argc > 4)
  184.         metric = atol(argv[4]);
  185.     else
  186.         metric = 1;
  187.  
  188.     if(rt_add(dest,bits,gateway,ifp,metric,0,private) == NULLROUTE)
  189.         tprintf("Can't add route\n");
  190.     return 0;
  191. }
  192. /* Drop an entry from the routing table
  193.  * E.g., "drop 128.96/16
  194.  */
  195. static int
  196. dodrop(argc,argv,p)
  197. int argc;
  198. char *argv[];
  199. void *p;
  200. {
  201.     char *bitp;
  202.     unsigned bits;
  203.     int32 n;
  204.  
  205.     if(strcmp(argv[1],"default") == 0){
  206.         n = 0;
  207.         bits = 0;
  208.     } else {
  209.         /* If IP address is followed by an optional slash and length field,
  210.          * (e.g., 128.96/16) get it; otherwise assume a full 32-bit address
  211.          */
  212.         if((bitp = strchr(argv[1],'/')) != NULLCHAR){
  213.             /* Terminate address token for resolve() call */
  214.             *bitp++ = '\0';
  215.             bits = atoi(bitp);
  216.         } else
  217.             bits = 32;
  218.  
  219.         if((n = resolve(argv[1])) == 0){
  220.             tprintf(Badhost,argv[1]);
  221.             return 1;
  222.         }
  223.     }
  224.     return rt_drop(n,bits);
  225. }
  226. /* Force a timeout on all temporary routes */
  227. static int
  228. doflush(argc,argv,p)
  229. int argc;
  230. char *argv[];
  231. void *p;
  232. {
  233.     register struct route *rp;
  234.     struct route *rptmp;
  235.     int i,j;
  236.     
  237.     if(R_default.timer.state == TIMER_RUN){
  238.         rt_drop(0,0);    /* Drop default route */
  239.     }
  240.     for(i=0;i<HASHMOD;i++){
  241.         for(j=0;j<32;j++){
  242.             for(rp = Routes[j][i];rp != NULLROUTE;rp = rptmp){
  243.                 rptmp = rp->next;
  244.                 if(rp->timer.state == TIMER_RUN){
  245.                     rt_drop(rp->target,rp->bits);
  246.                 }
  247.             }
  248.         }
  249.     }
  250.     return 0;
  251. }
  252. /* Dump a routing table entry */
  253. static int
  254. dumproute(rp)
  255. register struct route *rp;
  256. {
  257.     char *cp;
  258.  
  259.     if(rp->target != 0)
  260.         cp = inet_ntoa(rp->target);
  261.     else
  262.         cp = "default";
  263.     tprintf("%-16s",cp);
  264.     tprintf("%-4u",rp->bits);
  265.     tprintf("%-13s",rp->iface->name);
  266.     if(rp->gateway != 0)
  267.         cp = inet_ntoa(rp->gateway);
  268.     else
  269.         cp = "";
  270.     tprintf("%-17s",cp);
  271.     tprintf("%-8lu",rp->metric);
  272.     tprintf("%c ",(rp->flags & RTPRIVATE) ? 'P' : ' ');
  273.     tprintf("%-7lu",
  274.      read_timer(&rp->timer) / 1000L);
  275.     return tprintf("%lu\n",rp->uses);
  276. }
  277.  
  278. static int
  279. dolook(argc,argv,p)
  280. int argc;
  281. char *argv[];
  282. void *p;
  283. {
  284.     struct route *rp;
  285.     int32 addr;
  286.  
  287.     addr = resolve(argv[1]);
  288.     if(addr == 0){
  289.         tprintf("Host %s unknown\n",argv[1]);
  290.         return 1;
  291.     }
  292.     if((rp = rt_lookup(addr)) == NULLROUTE){
  293.         tprintf("Host %s (%s) unreachable\n",argv[1],inet_ntoa(addr));
  294.         return 1;
  295.     }
  296.     dumproute(rp);
  297.     return 0;
  298. }
  299.  
  300. static int
  301. doipstat(argc,argv,p)
  302. int argc;
  303. char *argv[];
  304. void *p;
  305. {
  306.     register struct reasm *rp;
  307.     register struct frag *fp;
  308.     int i;
  309.  
  310.     for(i=1;i<=NUMIPMIB;i++){
  311.         tprintf("(%2u)%-20s%10lu",i,
  312.          Ip_mib[i].name,Ip_mib[i].value.integer);
  313.         if(i % 2)
  314.             tprintf("     ");
  315.         else
  316.             tprintf("\n");
  317.     }
  318.     if((i % 2) == 0)
  319.         tprintf("\n");
  320.  
  321.     if(Reasmq != NULLREASM)
  322.         tprintf("Reassembly fragments:\n");
  323.     for(rp = Reasmq;rp != NULLREASM;rp = rp->next){
  324.         tprintf("src %s",inet_ntoa(rp->source));
  325.         tprintf(" dest %s",inet_ntoa(rp->dest));
  326.         if(tprintf(" id %u pctl %u time %lu len %u\n",
  327.          rp->id,uchar(rp->protocol),read_timer(&rp->timer),
  328.          rp->length) == EOF)
  329.             break;
  330.         for(fp = rp->fraglist;fp != NULLFRAG;fp = fp->next){
  331.             if(tprintf(" offset %u last %u\n",fp->offset,
  332.             fp->last) == EOF)
  333.                 break;
  334.         }
  335.     }
  336.     return 0;
  337. }
  338.