text: /*	$OpenBSD: print-rip.c,v 1.16 2015/11/16 00:16:39 mmcc Exp $	*/
  
  /*
   * Copyright (c) 1989, 1990, 1991, 1993, 1994, 1996
   *	The Regents of the University of California.  All rights reserved.
   *
   * Redistribution and use in source and binary forms, with or without
   * modification, are permitted provided that: (1) source code distributions
   * retain the above copyright notice and this paragraph in its entirety, (2)
   * distributions including binary code include the above copyright notice and
   * this paragraph in its entirety in the documentation or other materials
   * provided with the distribution, and (3) all advertising materials mentioning
   * features or use of this software display the following acknowledgement:
   * ``This product includes software developed by the University of California,
   * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
   * the University nor the names of its contributors may be used to endorse
   * or promote products derived from this software without specific prior
   * written permission.
   * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
   * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
   * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   */
  
  #include <sys/time.h>
  #include <sys/socket.h>
  
  #include <netinet/in.h>
  #include <netinet/ip.h>
  #include <netinet/ip_var.h>
  #include <netinet/udp.h>
  #include <netinet/udp_var.h>
  
  #include <stdio.h>
  #include <string.h>
  #include <ctype.h>
  
  #include "interface.h"
  #include "addrtoname.h"
  #include "extract.h"			/* must come after interface.h */
  
  struct rip {
  	u_char rip_cmd;			/* request/response */
  	u_char rip_vers;		/* protocol version # */
  	u_short rip_zero2;		/* unused */
  };
  #define	RIPCMD_REQUEST		1	/* want info */
  #define	RIPCMD_RESPONSE		2	/* responding to request */
  #define	RIPCMD_TRACEON		3	/* turn tracing on */
  #define	RIPCMD_TRACEOFF		4	/* turn it off */
  #define	RIPCMD_POLL		5	/* want info from everybody */
  #define	RIPCMD_POLLENTRY	6	/* poll for entry */
  
  #define RIP_AUTHLEN 16
  
  struct rip_netinfo {
  	u_short rip_family;
  	u_short rip_tag;
  	u_int32_t rip_dest;
  	u_int32_t rip_dest_mask;
  	u_int32_t rip_router;
  	u_int32_t rip_metric;		/* cost of route */
  };
  
  static void
  rip_printblk(const u_char *cp, const u_char *ep)
  {
  	for (; cp < ep; cp += 2)
  		printf(" %04x", EXTRACT_16BITS(cp));
  	return;
  }
  
  static void
  rip_entry_print_v1(int vers, const struct rip_netinfo *ni)
  {
  	u_short family;
  
  	/* RFC 1058 */
  	family = EXTRACT_16BITS(&ni->rip_family);
  	if (family != AF_INET) {
  		printf(" [family %d:", family);
  		rip_printblk((u_char *)&ni->rip_tag,
  			     (u_char *)&ni->rip_metric +
  			     sizeof(ni->rip_metric));
  		printf("]");
  		return;
  	}
  	if (ni->rip_tag || ni->rip_dest_mask || ni->rip_router) {
  		/* MBZ fields not zero */
  		printf(" [");
  		rip_printblk((u_char *)&ni->rip_family,
  			     (u_char *)&ni->rip_metric +
  			     sizeof(ni->rip_metric));
  		printf("]");
  		return;
  	}
  	printf(" {%s}(%d)", ipaddr_string(&ni->rip_dest),
  	       EXTRACT_32BITS(&ni->rip_metric));
  }
  
  static void
  rip_entry_print_v2(int vers, const struct rip_netinfo *ni)
  {
  	u_char *p;
  	u_short family;
  	char buf[RIP_AUTHLEN];
  
  	/* RFC 1723 */
  	family = EXTRACT_16BITS(&ni->rip_family);
  	if (family == 0xFFFF) {
  		if (EXTRACT_16BITS(&ni->rip_tag) == 2) {
  			memcpy(buf, &ni->rip_dest, sizeof(buf));
  			buf[sizeof(buf)-1] = '\0';
  			for (p = buf; *p; p++) {
  				if (!isprint(*p))
  					break;
  			}
  			if (!*p) {
  				printf(" [password %s]", buf);
  			} else {
  				printf(" [password: ");
  				rip_printblk((u_char *)&ni->rip_dest,
  					     (u_char *)&ni->rip_metric +
  					     sizeof(ni->rip_metric));
  				printf("]");
  			}
  		} else {
  			printf(" [auth %d:",
  			       EXTRACT_16BITS(&ni->rip_tag));
  			rip_printblk((u_char *)&ni->rip_dest,
  				     (u_char *)&ni->rip_metric +
  				     sizeof(ni->rip_metric));
  			printf("]");
  		}
  	} else if (family != AF_INET) {
  		printf(" [family %d:", family);
  		rip_printblk((u_char *)&ni->rip_tag,
  			     (u_char *)&ni->rip_metric +
  			     sizeof(ni->rip_metric));
  		printf("]");
  		return;
  	} else { /* AF_INET */
  		printf(" {%s", ipaddr_string(&ni->rip_dest));
  		if (ni->rip_dest_mask)
  			printf("/%s", ipaddr_string(&ni->rip_dest_mask));
  		if (ni->rip_router)
  			printf("->%s", ipaddr_string(&ni->rip_router));
  		if (ni->rip_tag)
  			printf(" tag %04x", EXTRACT_16BITS(&ni->rip_tag));
  		printf("}(%d)", EXTRACT_32BITS(&ni->rip_metric));
  	}
  }
  
  void
  rip_print(const u_char *dat, u_int length)
  {
  	const struct rip *rp;
  	const struct rip_netinfo *ni;
  	int i, j, trunc;
  
  	i = min(length, snapend - dat) - sizeof(*rp);
  	if (i < 0) {
  		printf(" [|rip]");
  		return;
  	}
  
  	rp = (struct rip *)dat;
  	switch (rp->rip_vers) {
  	case 0:
  		/* RFC 1058 */
  		printf(" RIPv0: ");
  		rip_printblk((u_char *)(rp + 1), snapend);
  		break;
  	default:
  		switch (rp->rip_cmd) {
  		case RIPCMD_REQUEST:
  			printf(" RIPv%d-req %d", rp->rip_vers, length);
  			break;
  		case RIPCMD_RESPONSE:
  			j = length / sizeof(*ni);
  			if (j * sizeof(*ni) != length - 4)
  				printf(" RIPv%d-resp [items %d] [%d]:",
  				       rp->rip_vers, j, length);
  			else
  				printf(" RIPv%d-resp [items %d]:",
  				       rp->rip_vers, j);
  			trunc = (i / sizeof(*ni)) != j;
  			ni = (struct rip_netinfo *)(rp + 1);
  			for (; (i -= sizeof(*ni)) >= 0; ++ni) {
  				if (rp->rip_vers == 1)
  					rip_entry_print_v1(rp->rip_vers, ni);
  				else
  					rip_entry_print_v2(rp->rip_vers, ni);
  			}
  			if (trunc)
  				printf("[|rip]");
  			break;
  		case RIPCMD_TRACEON:
  			printf(" RIPv%d-traceon %d: \"", rp->rip_vers, length);
  			(void)fn_print((const u_char *)(rp + 1), snapend);
  			fputs("\"", stdout);
  			break;
  		case RIPCMD_TRACEOFF:
  			printf(" RIPv%d-traceoff %d", rp->rip_vers, length);
  			break;
  		case RIPCMD_POLL:
  			printf(" RIPv%d-poll %d", rp->rip_vers, length);
  			break;
  		case RIPCMD_POLLENTRY:
  			printf(" RIPv%d-pollentry %d", rp->rip_vers, length);
  			break;
  		default:
  			printf(" RIPv%d-#%d %d", rp->rip_vers, rp->rip_cmd,
  			       length);
  			break;
  		}
          }
  }
  