2 * ++Copyright++ 1985, 1990, 1993
4 * Copyright (c) 1985, 1990, 1993
5 * The Regents of the University of California. All rights reserved.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 * must display the following acknowledgement:
17 * This product includes software developed by the University of
18 * California, Berkeley and its contributors.
19 * 4. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 * Portions Copyright (c) 1993 by Digital Equipment Corporation.
37 * Permission to use, copy, modify, and distribute this software for any
38 * purpose with or without fee is hereby granted, provided that the above
39 * copyright notice and this permission notice appear in all copies, and that
40 * the name of Digital Equipment Corporation not be used in advertising or
41 * publicity pertaining to distribution of the document or software without
42 * specific, written prior permission.
44 * THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
45 * WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
46 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT
47 * CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
48 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
49 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
50 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
56 #if defined(LIBC_SCCS) && !defined(lint)
57 static char sccsid
[] = "@(#)res_debug.c 8.1 (Berkeley) 6/4/93";
58 static char rcsid
[] = "$Id$";
59 #endif /* LIBC_SCCS and not lint */
61 #include <sys/param.h>
62 #include <netinet/in.h>
63 #include <arpa/inet.h>
64 #include <arpa/nameser.h>
68 #if defined(BSD) && (BSD >= 199103)
71 # include "../conf/portability.h"
74 #if defined(USE_OPTIONS_H)
75 # include "../conf/options.h"
78 const char *_res_opcodes
[] = {
82 "CQUERYU", /* experimental */
83 "NOTIFY", /* experimental */
97 const char *_res_resultcodes
[] = {
116 static char retbuf
[16];
123 case 5: return "rje";
124 case 7: return "echo";
125 case 9: return "discard";
126 case 11: return "systat";
127 case 13: return "daytime";
128 case 15: return "netstat";
129 case 17: return "qotd";
130 case 19: return "chargen";
131 case 20: return "ftp-data";
132 case 21: return "ftp";
133 case 23: return "telnet";
134 case 25: return "smtp";
135 case 37: return "time";
136 case 39: return "rlp";
137 case 42: return "name";
138 case 43: return "whois";
139 case 53: return "domain";
140 case 57: return "apts";
141 case 59: return "apfs";
142 case 67: return "bootps";
143 case 68: return "bootpc";
144 case 69: return "tftp";
145 case 77: return "rje";
146 case 79: return "finger";
147 case 87: return "link";
148 case 95: return "supdup";
149 case 100: return "newacct";
150 case 101: return "hostnames";
151 case 102: return "iso-tsap";
152 case 103: return "x400";
153 case 104: return "x400-snd";
154 case 105: return "csnet-ns";
155 case 109: return "pop-2";
156 case 111: return "sunrpc";
157 case 113: return "auth";
158 case 115: return "sftp";
159 case 117: return "uucp-path";
160 case 119: return "nntp";
161 case 121: return "erpc";
162 case 123: return "ntp";
163 case 133: return "statsrv";
164 case 136: return "profile";
165 case 144: return "NeWS";
166 case 161: return "snmp";
167 case 162: return "snmp-trap";
168 case 170: return "print-srv";
169 default: (void) sprintf(retbuf
, "%d", wks
); return (retbuf
);
178 case 1: return "icmp";
179 case 2: return "igmp";
180 case 3: return "ggp";
182 case 6: return "tcp";
183 case 7: return "ucl";
184 case 8: return "egp";
185 case 9: return "igp";
186 case 11: return "nvp-II";
187 case 12: return "pup";
188 case 16: return "chaos";
189 case 17: return "udp";
190 default: (void) sprintf(retbuf
, "%d", protonum
); return (retbuf
);
194 static const u_char
*
195 do_rrset(msg
, cp
, cnt
, pflag
, file
, hs
)
197 const u_char
*cp
, *msg
;
205 * Print answer records.
207 sflag
= (_res
.pfcode
& pflag
);
208 if (n
= ntohs(cnt
)) {
209 if ((!_res
.pfcode
) ||
210 ((sflag
) && (_res
.pfcode
& RES_PRF_HEAD1
)))
213 if ((!_res
.pfcode
) || sflag
) {
214 cp
= p_rr(cp
, msg
, file
);
217 cp
+= __dn_skipname(cp
, cp
+ MAXCDNAME
);
221 dlen
= _getshort((u_char
*)cp
);
225 if ((cp
- msg
) > PACKETSZ
)
228 if ((!_res
.pfcode
) ||
229 ((sflag
) && (_res
.pfcode
& RES_PRF_HEAD1
)))
239 __fp_query(msg
, stdout
);
243 /* ultrix 4.0's packaging has some icky packaging. alias for it here.
244 * there is more junk of this kind over in res_comp.c.
255 * Print the current options.
256 * This is intended to be primarily a debugging routine.
259 __fp_resstat(statp
, file
)
260 struct __res_state
*statp
;
263 register u_long mask
;
265 fprintf(file
, ";; res options:");
268 for (mask
= 1; mask
!= 0; mask
<<= 1)
269 if (statp
->options
& mask
)
270 fprintf(file
, " %s", p_option(mask
));
275 * Print the contents of a query.
276 * This is intended to be primarily a debugging routine.
279 __fp_nquery(msg
, len
, file
)
284 register const u_char
*cp
, *endMark
;
285 register const HEADER
*hp
;
288 #define TruncTest(x) if (x >= endMark) goto trunc
289 #define ErrorTest(x) if (x == NULL) goto error
292 * Print header fields.
297 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_HEADX
) || hp
->rcode
) {
298 fprintf(file
, ";; ->>HEADER<<- opcode: %s, status: %s, id: %d",
299 _res_opcodes
[hp
->opcode
],
300 _res_resultcodes
[hp
->rcode
],
305 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_HEAD2
)) {
306 fprintf(file
, "; flags:");
308 fprintf(file
, " qr");
310 fprintf(file
, " aa");
312 fprintf(file
, " tc");
314 fprintf(file
, " rd");
316 fprintf(file
, " ra");
318 fprintf(file
, " pr");
320 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_HEAD1
)) {
321 fprintf(file
, "; Ques: %d", ntohs(hp
->qdcount
));
322 fprintf(file
, ", Ans: %d", ntohs(hp
->ancount
));
323 fprintf(file
, ", Auth: %d", ntohs(hp
->nscount
));
324 fprintf(file
, ", Addit: %d", ntohs(hp
->arcount
));
326 if ((!_res
.pfcode
) || (_res
.pfcode
&
327 (RES_PRF_HEADX
| RES_PRF_HEAD2
| RES_PRF_HEAD1
))) {
331 * Print question records.
333 if (n
= ntohs(hp
->qdcount
)) {
334 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_QUES
))
335 fprintf(file
, ";; QUESTIONS:\n");
337 fprintf(file
, ";;\t");
339 cp
= p_cdname(cp
, msg
, file
);
342 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_QUES
))
343 fprintf(file
, ", type = %s",
344 __p_type(_getshort((u_char
*)cp
)));
347 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_QUES
))
348 fprintf(file
, ", class = %s\n",
349 __p_class(_getshort((u_char
*)cp
)));
355 * Print authoritative answer records
358 cp
= do_rrset(msg
, cp
, hp
->ancount
, RES_PRF_ANS
, file
,
363 * print name server records
366 cp
= do_rrset(msg
, cp
, hp
->nscount
, RES_PRF_AUTH
, file
,
367 ";; AUTHORITY RECORDS:\n");
372 * print additional records
374 cp
= do_rrset(msg
, cp
, hp
->arcount
, RES_PRF_ADD
, file
,
375 ";; ADDITIONAL RECORDS:\n");
379 fprintf(file
, "\n;; ...truncated\n");
382 fprintf(file
, "\n;; ...malformed\n");
386 __fp_query(msg
, file
)
390 fp_nquery(msg
, PACKETSZ
, file
);
394 __p_cdnname(cp
, msg
, len
, file
)
395 const u_char
*cp
, *msg
;
402 if ((n
= dn_expand(msg
, msg
+ len
, cp
, name
, sizeof name
)) < 0)
412 __p_cdname(cp
, msg
, file
)
413 const u_char
*cp
, *msg
;
416 return (p_cdnname(cp
, msg
, PACKETSZ
, file
));
419 /* XXX: the rest of these functions need to become length-limited, too. (vix)
423 __p_fqname(cp
, msg
, file
)
424 const u_char
*cp
, *msg
;
430 if ((n
= dn_expand(msg
, cp
+ MAXCDNAME
, cp
, name
, sizeof name
)) < 0)
432 if (name
[0] == '\0') {
436 if (name
[strlen(name
) - 1] != '.')
443 * Print resource record fields in human readable form.
446 __p_rr(cp
, msg
, file
)
447 const u_char
*cp
, *msg
;
450 int type
, class, dlen
, n
, c
;
451 struct in_addr inaddr
;
452 const u_char
*cp1
, *cp2
;
456 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
457 return (NULL
); /* compression error */
458 type
= _getshort((u_char
*)cp
);
460 class = _getshort((u_char
*)cp
);
462 tmpttl
= _getlong((u_char
*)cp
);
464 dlen
= _getshort((u_char
*)cp
);
467 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_TTLID
))
468 fprintf(file
, "\t%lu", tmpttl
);
469 if ((!_res
.pfcode
) || (_res
.pfcode
& RES_PRF_CLASS
))
470 fprintf(file
, "\t%s", __p_class(class));
471 fprintf(file
, "\t%s", __p_type(type
));
473 * Print type specific data, if appropriate
480 bcopy(cp
, (char *)&inaddr
, INADDRSZ
);
482 fprintf(file
, "\t%s", inet_ntoa(inaddr
));
484 } else if (dlen
== 7) {
489 address
= inet_ntoa(inaddr
);
491 protocol
= *(u_char
*)cp
;
492 cp
+= sizeof(u_char
);
493 port
= _getshort((u_char
*)cp
);
495 fprintf(file
, "\t%s\t; proto %d, port %d",
496 address
, protocol
, port
);
510 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
518 fprintf(file
, "\t%.*s", n
, cp
);
521 if ((cp
< cp2
) && (n
= *cp
++)) {
522 fprintf(file
, "\t%.*s", n
, cp
);
524 } else if (type
== T_HINFO
)
525 fprintf(file
, "\n;; *** Warning *** OS-type missing");
530 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
533 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
536 t
= _getlong((u_char
*)cp
); cp
+= INT32SZ
;
537 fprintf(file
, "\t\t\t%lu\t; serial\n", t
);
538 t
= _getlong((u_char
*)cp
); cp
+= INT32SZ
;
539 fprintf(file
, "\t\t\t%lu\t; refresh (%s)\n", t
, __p_time(t
));
540 t
= _getlong((u_char
*)cp
); cp
+= INT32SZ
;
541 fprintf(file
, "\t\t\t%lu\t; retry (%s)\n", t
, __p_time(t
));
542 t
= _getlong((u_char
*)cp
); cp
+= INT32SZ
;
543 fprintf(file
, "\t\t\t%lu\t; expire (%s)\n", t
, __p_time(t
));
544 t
= _getlong((u_char
*)cp
); cp
+= INT32SZ
;
545 fprintf(file
, "\t\t\t%lu )\t; minimum (%s)", t
, __p_time(t
));
551 fprintf(file
, "\t%d ", _getshort((u_char
*)cp
));
553 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
558 fprintf(file
, "\t%d ", _getshort((u_char
*)cp
));
560 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
563 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
569 (void) fputs("\t\"", file
);
572 if (n
= (unsigned char) *cp
++) {
573 for (c
= n
; c
> 0 && cp
< cp2
; c
--)
574 if ((*cp
== '\n') || (*cp
== '"')) {
575 (void) putc('\\', file
);
576 (void) putc(*cp
++, file
);
578 (void) putc(*cp
++, file
);
585 (void) fprintf(file
, "\t%s", inet_nsap_ntoa(dlen
, cp
, NULL
));
592 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
595 if ((cp
= p_fqname(cp
, msg
, file
)) == NULL
)
601 fputs((char *)cp
, file
);
608 fprintf(file
, "\t%u", _getlong((u_char
*)cp
));
614 if (dlen
< INT32SZ
+ 1)
616 bcopy(cp
, (char *)&inaddr
, INADDRSZ
);
618 fprintf(file
, "\t%s %s ( ",
621 cp
+= sizeof(u_char
);
624 while (cp
< cp1
+ dlen
) {
629 fputs("\n\t\t\t", file
);
632 fputs(dewks(n
), file
);
642 #ifdef ALLOW_T_UNSPEC
649 if (dlen
< NumBytes
) NumBytes
= dlen
;
650 fprintf(file
, "\tFirst %d bytes of hex data:",
652 for (i
= 0, DataPtr
= cp
; i
< NumBytes
; i
++, DataPtr
++)
653 fprintf(file
, " %x", *DataPtr
);
657 #endif /* ALLOW_T_UNSPEC */
660 fprintf(file
, "\t?%d?", type
);
664 fprintf(file
, "\t; dlen=%d, ttl %s\n", dlen
, __p_time(tmpttl
));
668 if (cp
- cp1
!= dlen
) {
669 fprintf(file
, ";; packet size error (found %d, dlen was %d)\n",
676 static char nbuf
[40];
679 * Return a string for the type
686 case T_A
: return "A";
687 case T_NS
: return "NS";
688 case T_CNAME
: return "CNAME";
689 case T_SOA
: return "SOA";
690 case T_MB
: return "MB";
691 case T_MG
: return "MG";
692 case T_MR
: return "MR";
693 case T_NULL
: return "NULL";
694 case T_WKS
: return "WKS";
695 case T_PTR
: return "PTR";
696 case T_HINFO
: return "HINFO";
697 case T_MINFO
: return "MINFO";
698 case T_MX
: return "MX";
699 case T_TXT
: return "TXT";
700 case T_RP
: return "RP";
701 case T_AFSDB
: return "AFSDB";
702 case T_X25
: return "X25";
703 case T_ISDN
: return "ISDN";
704 case T_RT
: return "RT";
705 case T_NSAP
: return "NSAP";
706 case T_NSAP_PTR
: return "NSAP_PTR";
707 case T_SIG
: return "SIG";
708 case T_KEY
: return "KEY";
709 case T_PX
: return "PX";
710 case T_GPOS
: return "GPOS";
711 case T_AAAA
: return "AAAA";
712 case T_LOC
: return "LOC";
713 case T_AXFR
: return "AXFR";
714 case T_MAILB
: return "MAILB";
715 case T_MAILA
: return "MAILA";
716 case T_ANY
: return "ANY";
717 case T_UINFO
: return "UINFO";
718 case T_UID
: return "UID";
719 case T_GID
: return "GID";
720 #ifdef ALLOW_T_UNSPEC
721 case T_UNSPEC
: return "UNSPEC";
722 #endif /* ALLOW_T_UNSPEC */
723 default: (void)sprintf(nbuf
, "%d", type
); return (nbuf
);
728 * Return a mnemonic for class
735 case C_IN
: return "IN";
736 case C_HS
: return "HS";
737 case C_ANY
: return "ANY";
738 default: (void)sprintf(nbuf
, "%d", class); return (nbuf
);
743 * Return a mnemonic for an option
750 case RES_INIT
: return "init";
751 case RES_DEBUG
: return "debug";
752 case RES_AAONLY
: return "aaonly";
753 case RES_USEVC
: return "usevc";
754 case RES_PRIMARY
: return "primry";
755 case RES_IGNTC
: return "igntc";
756 case RES_RECURSE
: return "recurs";
757 case RES_DEFNAMES
: return "defnam";
758 case RES_STAYOPEN
: return "styopn";
759 case RES_DNSRCH
: return "dnsrch";
760 case RES_INSECURE1
: return "insecure1";
761 case RES_INSECURE2
: return "insecure2";
762 default: sprintf(nbuf
, "?0x%x?", option
); return (nbuf
);
767 * Return a mnemonic for a time to live
773 int secs
, mins
, hours
, days
;
777 strcpy(nbuf
, "0 secs");
790 #define PLURALIZE(x) x, (x == 1) ? "" : "s"
793 (void)sprintf(p
, "%d day%s", PLURALIZE(days
));
799 (void)sprintf(p
, "%d hour%s", PLURALIZE(hours
));
805 (void)sprintf(p
, "%d min%s", PLURALIZE(mins
));
808 if (secs
|| ! (days
|| hours
|| mins
)) {
809 if (days
|| hours
|| mins
)
811 (void)sprintf(p
, "%d sec%s", PLURALIZE(secs
));