/*
 * Copyright (c) 1985, 1989
 *    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 the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 * 	This product includes software developed by the University of
 * 	California, Berkeley and its contributors.
 * 4. 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 BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/*
 * Portions Copyright (c) 1993 by Digital Equipment Corporation.
 * 
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies, and that
 * the name of Digital Equipment Corporation not be used in advertising or
 * publicity pertaining to distribution of the document or software without
 * specific, written prior permission.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
 * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
 * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */

#ifndef lint
static const char sccsid[] = "@(#)debug.c	5.26 (Berkeley) 3/21/91";
static const char rcsid[] = "$Id: debug.c,v 1.1.1.3 2001/01/31 03:59:54 zarzycki Exp $";
#endif /* not lint */

/*
 *******************************************************************************
 *
 *  debug.c --
 *
 *	Routines to print out packets received from a name server query.
 *
 *      Modified version of 4.3BSD BIND res_debug.c 5.30 6/27/90
 *
 *******************************************************************************
 */

#include "port_before.h"

#include <sys/param.h>
#include <sys/socket.h>

#include <netinet/in.h>
#include <arpa/nameser.h>
#include <arpa/inet.h>

#include <netdb.h>
#include <resolv.h>
#include <stdio.h>

#include "port_after.h"

#include "res.h"

/*
 *  Imported from res_debug.c
 */
#ifndef HAVE_DECL_RES_OPCODES
extern char *_res_opcodes[];
#endif

/*
 *  Used to highlight the start of a record when printing it.
 */
#define INDENT "    ->  "

/*
 * Print the contents of a query.
 * This is intended to be primarily a debugging routine.
 */

void
Print_query(const u_char *msg, const u_char *eom, int printHeader) {
	Fprint_query(msg, eom, printHeader, stdout);
}

void
Fprint_query(const u_char *msg, const u_char *eom, int printHeader, FILE *file)
{
	const u_char *cp;
	const HEADER *hp;
	int n;
	u_int class, type;

	/*
	 * Print header fields.
	 */
	hp = (HEADER *)msg;
	cp = msg + HFIXEDSZ;
	if (printHeader || (res.options & RES_DEBUG2)) {
		fprintf(file,"    HEADER:\n");
		fprintf(file,"\topcode = %s", _res_opcodes[hp->opcode]);
		fprintf(file,", id = %d", ntohs(hp->id));
		fprintf(file,", rcode = %s\n", p_rcode(hp->rcode));
		fprintf(file,"\theader flags: ");
		if (hp->qr) {
			fprintf(file," response");
		} else {
			fprintf(file," query");
		}
		if (hp->aa)
			fprintf(file,", auth. answer");
		if (hp->tc)
			fprintf(file,", truncation");
		if (hp->rd)
			fprintf(file,", want recursion");
		if (hp->ra)
			fprintf(file,", recursion avail.");
		if (hp->unused)
			fprintf(file,", UNUSED-QUERY_BIT");
		if (hp->ad)
			fprintf(file,", authentic data");
		if (hp->cd)
			fprintf(file,", checking disabled");
		fprintf(file,"\n\tquestions = %d", ntohs(hp->qdcount));
		fprintf(file,",  answers = %d", ntohs(hp->ancount));
		fprintf(file,",  authority records = %d", ntohs(hp->nscount));
		fprintf(file,",  additional = %d\n\n", ntohs(hp->arcount));
	}

	/*
	 * Print question records.
	 */
	n = ntohs(hp->qdcount);
	if (n > 0) {
		fprintf(file,"    QUESTIONS:\n");
		while (--n >= 0) {
			fprintf(file,"\t");
			cp = Print_cdname(cp, msg, eom, file);
			if (cp == NULL)
				return;
			type = ns_get16((u_char*)cp);
			cp += INT16SZ;
			class = ns_get16((u_char*)cp);
			cp += INT16SZ;
			fprintf(file,", type = %s", p_type(type));
			fprintf(file,", class = %s\n", p_class(class));
		}
	}
	/*
	 * Print authoritative answer records
	 */
	n = ntohs(hp->ancount);
	if (n > 0) {
		fprintf(file,"    ANSWERS:\n");
		if (type == ns_t_a && n > MAXADDRS) {
			printf("Limiting response to MAX Addrs = %d \n",
			       MAXADDRS);
			n = MAXADDRS;
		}
		while (--n >= 0) {
			fprintf(file, INDENT);
			cp = Print_rr(cp, msg, eom, file);
			if (cp == NULL)
				return;
		}
	}
	/*
	 * print name server records
	 */
	n = ntohs(hp->nscount);
	if (n > 0) {
		fprintf(file,"    AUTHORITY RECORDS:\n");
		while (--n >= 0) {
			fprintf(file, INDENT);
			cp = Print_rr(cp, msg, eom, file);
			if (cp == NULL)
				return;
		}
	}
	/*
	 * print additional records
	 */
	n = ntohs(hp->arcount);
	if (n > 0) {
		fprintf(file,"    ADDITIONAL RECORDS:\n");
		while (--n >= 0) {
			fprintf(file, INDENT);
			cp = Print_rr(cp, msg, eom, file);
			if (cp == NULL)
				return;
		}
	}
	fprintf(file,"\n------------\n");
}

const u_char *
Print_cdname_sub(const u_char *cp, const u_char *msg, const u_char *eom,
		 FILE *file, int format)
{
	char name[MAXDNAME];
	int n;

	n = dn_expand(msg, eom, cp, name, sizeof name);
	if (n < 0)
		return (NULL);
	if (name[0] == '\0')
		strcpy(name, "(root)");
	if (format)
		fprintf(file, "%-30s", name);
	else
		fputs(name, file);
	return (cp + n);
}

const u_char *
Print_cdname(const u_char *cp, const u_char *msg, const u_char *eom,
	     FILE *file)
{
	return (Print_cdname_sub(cp, msg, eom, file, 0));
}

const u_char *
Print_cdname2(const u_char *cp, const u_char *msg, const u_char *eom,
	      FILE *file)
{
	return (Print_cdname_sub(cp, msg, eom, file, 1));
}

#define BOUNDS_CHECK(ptr, count) \
	do { \
		if ((ptr) + (count) > eom) { \
			fprintf(file, "(form error.)\n"); \
			return (NULL); \
		} \
	} while (0)

/*
 * Print resource record fields in human readable form (not master file form).
 */
const u_char *
Print_rr(const u_char *ocp, const u_char *msg, const u_char *eom, FILE *file) {
	u_int type, class;
	int dlen, n, c, debug;
	u_long rrttl, ttl;
	struct in_addr inaddr;
	const u_char *cp, *cp1, *cp2;

	if ((cp = Print_cdname(ocp, msg, eom, file)) == NULL) {
		fprintf(file, "(name truncated?)\n");
		return (NULL);			/* compression error */
	}

	BOUNDS_CHECK(cp, 3 * INT16SZ + INT32SZ);
	NS_GET16(type, cp);
	NS_GET16(class, cp);
	NS_GET32(rrttl, cp);
	NS_GET16(dlen, cp);
	BOUNDS_CHECK(cp, dlen);

	debug = res.options & (RES_DEBUG|RES_DEBUG2);
	if (debug) {
		if (res.options & RES_DEBUG2)
			fprintf(file,"\n\ttype = %s, class = %s, dlen = %d",
				p_type(type), p_class(class), dlen);
		if (type == T_SOA)
			fprintf(file,"\n\tttl = %lu (%s)",
				rrttl, p_time(rrttl));
		putc('\n', file);
	} 

	cp1 = cp;

	/*
	 * Print type specific data, if appropriate
	 */
	switch (type) {
	case T_A:
		BOUNDS_CHECK(cp, INADDRSZ);
		memcpy(&inaddr, cp, INADDRSZ);
		fprintf(file,"\tinternet address = %s\n", inet_ntoa(inaddr));
		cp += dlen;
		break;

	case T_CNAME:
		fprintf(file,"\tcanonical name = ");
		goto doname;

	case T_MG:
		fprintf(file,"\tmail group member = ");
		goto doname;

	case T_MB:
		fprintf(file,"\tmail box = ");
		goto doname;

	case T_MR:
		fprintf(file,"\tmailbox rename = ");
		goto doname;

	case T_MX:
		BOUNDS_CHECK(cp, INT16SZ);
		fprintf(file,"\tpreference = %u",ns_get16((u_char*)cp));
		cp += INT16SZ;
		fprintf(file,", mail exchanger = ");
		goto doname;

	case T_NAPTR:
		BOUNDS_CHECK(cp, 2 * INT16SZ);
		fprintf(file, "\torder = %u",ns_get16((u_char*)cp));
		cp += INT16SZ;
		fprintf(file,", preference = %u\n", ns_get16((u_char*)cp));
		cp += INT16SZ;
		/* Flags */
		BOUNDS_CHECK(cp, 1);
		n = *cp++;
		BOUNDS_CHECK(cp, n);
		fprintf(file,"\tflags = \"%.*s\"\n", (int)n, cp);
		cp += n;
		/* Service */
		BOUNDS_CHECK(cp, 1);
		n = *cp++;
		BOUNDS_CHECK(cp, n);
		fprintf(file,"\tservices = \"%.*s\"\n", (int)n, cp);
		cp += n;
		/* Regexp */
		BOUNDS_CHECK(cp, 1);
		n = *cp++;
		BOUNDS_CHECK(cp, n);
		fprintf(file,"\trule = \"%.*s\"\n", (int)n, cp);
		cp += n;
		/* Replacement */
		fprintf(file,"\treplacement = ");
                cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(replacement truncated?)\n");
			return (NULL);			/* compression error */
		}
                (void) putc('\n', file);
		break;

	case T_SRV: 
		BOUNDS_CHECK(cp, 3 * INT16SZ);
		fprintf(file, "\tpriority = %u",ns_get16((u_char*)cp));
		cp += INT16SZ;
		fprintf(file,", weight = %u", ns_get16((u_char*)cp));
		cp += INT16SZ;
		fprintf(file,", port= %u\n", ns_get16((u_char*)cp));
		cp += INT16SZ;

		fprintf(file,"\thost = ");
		goto doname;

        case T_PX:
		BOUNDS_CHECK(cp, INT16SZ);
                fprintf(file,"\tpreference = %u",ns_get16((u_char*)cp));
                cp += INT16SZ;
                fprintf(file,", RFC 822 = ");
                cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
                fprintf(file,"\nX.400 = ");
                cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
                (void) putc('\n', file);
                break;

	case T_RT:
		BOUNDS_CHECK(cp, INT16SZ);
		fprintf(file,"\tpreference = %u",ns_get16((u_char*)cp));
		cp += INT16SZ;
		fprintf(file,", router = ");
		goto doname;

	case T_AFSDB:
		BOUNDS_CHECK(cp, INT16SZ);
		fprintf(file,"\tsubtype = %d",ns_get16((u_char*)cp));
		cp += INT16SZ;
		fprintf(file,", DCE/AFS server = ");
		goto doname;

	case T_NS:
		fprintf(file,"\tnameserver = ");
		goto doname;

	case T_PTR:
		fprintf(file,"\tname = ");
 doname:
		cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
		(void) putc('\n', file);
		break;

	case T_HINFO:
		cp2 = cp + dlen;
		BOUNDS_CHECK(cp, 1);
		if ((n = *cp++) != 0) {
			BOUNDS_CHECK(cp, n);
			fprintf(file,"\tCPU = %.*s", n, cp);
			cp += n;
		}
		if ((cp < cp2) && ((n = *cp++) != 0)) {
			BOUNDS_CHECK(cp, n);
			fprintf(file,"\tOS = %.*s\n", n, cp);
			cp += n;
		} else fprintf(file, "\n*** Warning *** OS-type missing\n");
		break;

	case T_ISDN:
		cp2 = cp + dlen;
		BOUNDS_CHECK(cp, 1);
		n = *cp++;
		if (n != 0) {
			BOUNDS_CHECK(cp, n);
			fprintf(file,"\tISDN = \"%.*s", n, cp);
			cp += n;
		}
		if ((cp < cp2) && (n = *cp++)) {
			BOUNDS_CHECK(cp, n);
			fprintf(file,"-%.*s\"\n", n, cp);
			cp += n;
		} else fprintf(file,"\"\n");
		break;

	case T_SOA:
		if (!debug)
			putc('\n', file);
		fprintf(file,"\torigin = ");
		cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
		fprintf(file,"\n\tmail addr = ");
		cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
		BOUNDS_CHECK(cp, 5 * INT32SZ);
		fprintf(file,"\n\tserial = %lu", ns_get32((u_char*)cp));
		cp += INT32SZ;
		ttl = ns_get32((u_char*)cp);
		fprintf(file,"\n\trefresh = %lu (%s)", ttl, p_time(ttl));
		cp += INT32SZ;
		ttl = ns_get32((u_char*)cp);
		fprintf(file,"\n\tretry   = %lu (%s)", ttl, p_time(ttl));
		cp += INT32SZ;
		ttl = ns_get32((u_char*)cp);
		fprintf(file,"\n\texpire  = %lu (%s)", ttl, p_time(ttl));
		cp += INT32SZ;
		ttl = ns_get32((u_char*)cp);
		fprintf(file,
		    "\n\tminimum ttl = %lu (%s)\n", ttl, p_time(ttl));
		cp += INT32SZ;
		break;

	case T_MINFO:
		if (!debug)
			putc('\n', file);
		fprintf(file,"\trequests = ");
		cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
		fprintf(file,"\n\terrors = ");
		cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
		(void) putc('\n', file);
		break;

	case T_RP:
		if (!debug)
			putc('\n', file);
		fprintf(file,"\tmailbox = ");
		cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
		fprintf(file,"\n\ttext = ");
		cp = Print_cdname(cp, msg, eom, file);
		if (cp == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);			/* compression error */
		}
		(void) putc('\n', file);
		break;

	case T_TXT:
		(void) fputs("\ttext = ", file);
		cp2 = cp1 + dlen;
		while (cp < cp2) {
			(void) putc('"', file);
			n = (unsigned char) *cp++;
			if (n != 0) {
				for (c = n; c > 0 && cp < cp2; c--) {
					if ((*cp == '\n') || (*cp == '"') || (*cp == '\\'))
						(void) putc('\\', file);
					(void) putc(*cp++, file);
				}
			}
			(void) putc('"', file);
			if (cp < cp2)
				(void) putc(' ', file);
		}
		(void) putc('\n', file);
  		break;

	case T_X25:
		(void) fputs("\tX25 = \"", file);
		cp2 = cp1 + dlen;
		while (cp < cp2) {
			n = (unsigned char) *cp++;
			if (n != 0) {
				for (c = n; c > 0 && cp < cp2; c--)
					if (*cp == '\n') {
					    (void) putc('\\', file);
					    (void) putc(*cp++, file);
					} else
					    (void) putc(*cp++, file);
			}
		}
		(void) fputs("\"\n", file);
  		break;

	case T_NSAP:
		fprintf(file, "\tnsap = %s\n", inet_nsap_ntoa(dlen, cp, NULL));
		cp += dlen;
  		break;

	case T_AAAA: {
		char t[sizeof "ffff:ffff:ffff:ffff:ffff:ffff:255.255.255.255"];

		BOUNDS_CHECK(cp, IN6ADDRSZ);
		fprintf(file, "\tIPv6 address = %s\n",
			inet_ntop(AF_INET6, cp, t, sizeof t));
		cp += IN6ADDRSZ;
		break;
	    }

	case T_WKS: {
		struct protoent *protoPtr;

		BOUNDS_CHECK(cp, INADDRSZ + 1);
		if (!debug)
		    (void) putc('\n', file);
		memcpy(&inaddr, cp, INADDRSZ);
		cp += INADDRSZ;
		if ((protoPtr = getprotobynumber(*cp)) != NULL) {
		    fprintf(file,"\tinet address = %s, protocol = %s\n\t",
			inet_ntoa(inaddr), protoPtr->p_name);
		} else {
		    fprintf(file,"\tinet address = %s, protocol = %d\n\t",
			inet_ntoa(inaddr), *cp);
		}
		cp++;
		n = 0;
		while (cp < cp1 + dlen) {
			c = *cp++;
			do {
				struct servent *s;

 				if (c & 0200) {
					s = getservbyport((int)htons(n),
					    protoPtr ? protoPtr->p_name : NULL);
					if (s != NULL) {
					    fprintf(file,"  %s", s->s_name);
					} else {
					    fprintf(file," #%d", n);
					}
				}
 				c <<= 1;
			} while (++n & 07);
		}
		putc('\n',file);
		break;
	    }

	case T_NULL:
		fprintf(file, "\tNULL (dlen %d)\n", dlen);
		cp += dlen;
		break;

	case T_NXT:
	case T_SIG:
	case T_KEY:
	default: {
		char buf[2048];	/* XXX need to malloc/realloc. */
		char rrname[NS_MAXDNAME];

		cp2 = p_fqnname(ocp, msg, NS_MAXCDNAME, rrname, sizeof rrname);
		if (cp2 == NULL) {
			fprintf(file, "(name truncated?)\n");
			return (NULL);                  /* compression error */
		}

		if (ns_sprintrrf(msg, eom - msg, rrname, (ns_class)class,
				 (ns_type)type, rrttl, cp1, dlen, NULL, NULL,
				 buf, sizeof buf) < 0) {
			perror("ns_sprintrrf");
		} else {
			fprintf(file,
				"\trecord type %s, interpreted as:\n%s\n",
				p_type(type), buf);
		}
		cp += dlen;
	    }
	}
	if (res.options & RES_DEBUG && type != T_SOA) {
		fprintf(file,"\tttl = %lu (%s)\n", rrttl, p_time(rrttl));
	}
	if (cp != cp1 + dlen) {
		fprintf(file,
			"\n*** Error: record size incorrect (%d != %d)\n\n",
			cp - cp1, dlen);
		cp = NULL;
	}
	return (cp);
}
