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