/*
 * Copyright (c) 1988-1990 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.
 */

#ifndef lint
static char rcsid[] =
    "@(#) $Header: /usr/staff/martinh/tcpview/RCS/print-ip.c,v 1.2 1993/04/22 20:30:46 martinh Exp $ (LBL)";
#endif

#include <sys/param.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/ip.h>
#include <netinet/ip_var.h>
#include <netinet/udp.h>
#include <netinet/udp_var.h>
#include <netinet/tcp.h>
#include <netinet/tcpip.h>

#ifdef TCPVIEW
#include "tcpview.h"
#endif

#include "interface.h"
#include "addrtoname.h"

void
igmp_print(cp, len, ip)
	register u_char *cp;
	register int len;
	register struct ip *ip;
{
	register u_char *ep = (u_char *)snapend;

        (void)printf("%s > %s: ",
		ipaddr_string(&ip->ip_src),
		ipaddr_string(&ip->ip_dst));

	if (cp + 7 > ep) {
		(void)printf("[|igmp]");
		return;
	}
	switch (cp[0] & 0xf) {
	case 1:
		(void)printf("igmp query");
		if (*(int *)&cp[4])
			(void)printf(" [gaddr %s]", ipaddr_string(&cp[4]));
		if (len != 8)
			(void)printf(" [len %d]", len);
		break;
	case 2:
		(void)printf("igmp report %s", ipaddr_string(&cp[4]));
		if (len != 8)
			(void)printf(" [len %d]", len);
		break;
	case 3:
		(void)printf("igmp dvmrp", ipaddr_string(&cp[4]));
		if (len < 8)
			(void)printf(" [len %d]", len);
		break;
	default:
		(void)printf("igmp-%d", cp[0] & 0xf);
		break;
	}
	if ((cp[0] >> 4) != 1)
		(void)printf(" [v%d]", cp[0] >> 4);
	if (cp[1])
		(void)printf(" [b1=0x%x]", cp[1]);
}

#ifndef TCPVIEW

/*
 * print the recorded route in an IP RR, LSRR or SSRR option.
 */
static void
ip_printroute(type, cp, length)
	char *type;
	register u_char *cp;
	int length;
{
	int ptr = cp[2] - 1;
	int len;

	printf(" %s{", type);
	if ((length + 1) & 3)
		printf(" [bad length %d]", length);
	if (ptr < 3 || ((ptr + 1) & 3) || ptr > length + 1)
		printf(" [bad ptr %d]", cp[2]);

	type = "";
	for (len = 3; len < length; len += 4) {
		if (ptr == len)
			type = "#";
#ifdef TCPDUMP_ALIGN
		{
		struct in_addr addr;
		bcopy((char *)&cp[len], (char *)&addr, sizeof(addr));
		printf("%s%s", type, ipaddr_string(&addr));
		}
#else
		printf("%s%s", type, ipaddr_string(&cp[len]));
#endif
		type = " ";
	}
	printf("%s}", ptr == len? "#" : "");
}

/*
 * print IP options.
 */
static void ip_optprint(cp, length)
     register u_char *cp;
     int length;
{
  int len;
  
  for (; length > 0; cp += len, length -= len) {
    int tt = *cp;
    
    len = (tt == IPOPT_NOP || tt == IPOPT_EOL) ? 1 : cp[1];
    if (&cp[1] >= snapend || cp + len > snapend) {
      printf("[|ip]");
      return;
    }
    switch (tt) {
      
    case IPOPT_EOL:
      printf(" EOL");
      if (length > 1)
	printf("-%d", length - 1);
      return;
      
    case IPOPT_NOP:
      printf(" NOP");
      break;
      
    case IPOPT_TS:
      printf(" TS{%d}", len);
      break;
      
    case IPOPT_SECURITY:
      printf(" SECURITY{%d}", len);
      break;
      
    case IPOPT_RR:
      printf(" RR{%d}=", len);
      ip_printroute("RR", cp, len);
      break;
      
    case IPOPT_SSRR:
      ip_printroute("SSRR", cp, len);
      break;
      
    case IPOPT_LSRR:
      ip_printroute("LSRR", cp, len);
      break;
      
    default:
      printf(" IPOPT-%d{%d}", cp[0], len);
      break;
    }
  }
}
#endif /* TCPVIEW */


/*
 * print an IP datagram.
 */
void ip_print(ip, length)
     register struct ip *ip;
     register int length;
{
  register int hlen;
  register int len;
  register unsigned char *cp;
  u_short ip_len, ip_off, ip_id;
  
#ifdef TCPDUMP_ALIGN
  static u_char *abuf=NULL;
  /*
   * The IP header is not word aligned, so copy into abuf.
   * This will never happen with BPF.  It does happen raw packet
   * dumps from -r.
   */
  if ((int)ip & (sizeof(long)-1)) {
    if (abuf == NULL)
#ifdef TCPVIEW
      abuf = (u_char *)malloc(MAX_SNAPLEN);
#else
      abuf = (u_char *)malloc(snaplen);
#endif
    bcopy((char *)ip, (char *)abuf, min(length, snaplen));
    snapend += abuf - (u_char *)ip;
    packetp = abuf;
    ip = (struct ip *)abuf;
  }
#endif
  if ((u_char *)(ip + 1) > snapend) {
    printf("[|ip]");
    return;
  }
  if (length < sizeof (struct ip)) {
    (void)printf("truncated-ip %d", length);
    return;
  }
  hlen = ip->ip_hl * 4;
  
  ip_len = ntohs(ip->ip_len);
  ip_off = ntohs(ip->ip_off);
  ip_id = ntohs(ip->ip_id);
  
  len = ip_len - hlen;
  if (length < ip_len)
    (void)printf("truncated-ip - %d bytes missing!",
		 ip_len - length);
  
  /*
   * If this is fragment zero, hand it to the next higher
   * level protocol.
   */
  if ((ip_off & 0x1fff) == 0) {
    cp = (unsigned char *)ip + hlen;
    switch (ip->ip_p) {
      
    case IPPROTO_TCP:
      tcp_print((struct tcphdr *)cp, len, ip);
      break;
    case IPPROTO_UDP:
      udp_print((struct udphdr *)cp, len, ip);
      break;
    case IPPROTO_ICMP:
      icmp_print((struct icmp *)cp, ip);
      break;
    case IPPROTO_ND:
      (void)printf("%s > %s:", ipaddr_string(&ip->ip_src),
		   ipaddr_string(&ip->ip_dst));
      (void)printf(" nd %d", len);
      break;
      
    case IPPROTO_EGP:
      egp_print((struct egp_packet *)cp, len, ip);
      break;
#ifndef IPPROTO_OSPF
#define IPPROTO_OSPF 89
#endif
    case IPPROTO_OSPF:
      ospf_print((struct ospfhdr *)cp, len, ip);
      break;
#ifndef IPPROTO_IGMP
#define IPPROTO_IGMP 2
#endif
    case IPPROTO_IGMP:
      igmp_print(cp, len, ip);
      break;
      
    default:
      (void)printf("%s > %s:", ipaddr_string(&ip->ip_src),
		   ipaddr_string(&ip->ip_dst));
      (void)printf(" ip-proto-%d %d", ip->ip_p, len);
      break;
    }
  }
  /*
   * for fragmented datagrams, print id:size@offset.  On all
   * but the last stick a "+".  For unfragmented datagrams, note
   * the don't fragment flag.
   */
  if (ip_off & 0x3fff) {
    /*
     * if this isn't the first frag, we're missing the
     * next level protocol header.  print the ip addr.
     */
    if (ip_off & 0x1fff)
      (void)printf("%s > %s:", ipaddr_string(&ip->ip_src),
		   ipaddr_string(&ip->ip_dst));
    (void)printf(" (frag %d:%d@%d%s)", ip_id, len,
		 (ip_off & 0x1fff) * 8,
		 (ip_off & IP_MF)? "+" : "");
  } else if (ip_off & IP_DF)
    (void)printf(" (DF)");
  
  if (ip->ip_tos)
    (void)printf(" [tos 0x%x]", (int)ip->ip_tos);
  if (ip->ip_ttl <= 1)
    (void)printf(" [ttl %d]", (int)ip->ip_ttl);
  
  if (vflag) {
    char *sep = "";
    
    printf(" (");
    if (ip->ip_ttl > 1) {
      (void)printf("%sttl %d", sep, (int)ip->ip_ttl);
      sep = ", ";
    }
    if ((ip_off & 0x3fff) == 0) {
      (void)printf("%sid %d", sep, ip_id);
      sep = ", ";
    }
    
    /* options go in the detailed display in tcpview */
#ifndef TCPVIEW
    if ((hlen -= sizeof(struct ip)) > 0) {
      (void)printf("%soptlen=%d", sep, hlen);
      ip_optprint((u_char *)(ip + 1), hlen);
    }
#endif
    printf(")");
  }
}