![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to res_debug.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / lib / libc / net|
Return to res_debug.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / lib / libc / net |
1.1 root 1: /*-
2: * Copyright (c) 1985, 1990 Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted provided
6: * that: (1) source distributions retain this entire copyright notice and
7: * comment, and (2) distributions including binaries display the following
8: * acknowledgement: ``This product includes software developed by the
9: * University of California, Berkeley and its contributors'' in the
10: * documentation or other materials provided with the distribution and in
11: * all advertising materials mentioning features or use of this software.
12: * Neither the name of the University nor the names of its contributors may
13: * be used to endorse or promote products derived from this software without
14: * specific prior written permission.
15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
16: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
17: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18: *
19: * @(#)res_debug.c 5.30 (Berkeley) 6/27/90
20: */
21:
22: #if defined(LIBC_SCCS) && !defined(lint)
23: static char sccsid[] = "@(#)res_debug.c 5.30 (Berkeley) 6/27/90";
24: #endif /* LIBC_SCCS and not lint */
25:
26: #include <sys/types.h>
27: #include <netinet/in.h>
28: #include <stdio.h>
29: #include <arpa/nameser.h>
30:
31: extern char *p_cdname(), *p_rr(), *p_type(), *p_class(), *p_time();
32: extern char *inet_ntoa();
33:
34: char *_res_opcodes[] = {
35: "QUERY",
36: "IQUERY",
37: "CQUERYM",
38: "CQUERYU",
39: "4",
40: "5",
41: "6",
42: "7",
43: "8",
44: "UPDATEA",
45: "UPDATED",
46: "UPDATEDA",
47: "UPDATEM",
48: "UPDATEMA",
49: "ZONEINIT",
50: "ZONEREF",
51: };
52:
53: char *_res_resultcodes[] = {
54: "NOERROR",
55: "FORMERR",
56: "SERVFAIL",
57: "NXDOMAIN",
58: "NOTIMP",
59: "REFUSED",
60: "6",
61: "7",
62: "8",
63: "9",
64: "10",
65: "11",
66: "12",
67: "13",
68: "14",
69: "NOCHANGE",
70: };
71:
72: p_query(msg)
73: char *msg;
74: {
75: fp_query(msg,stdout);
76: }
77:
78: /*
79: * Print the contents of a query.
80: * This is intended to be primarily a debugging routine.
81: */
82: fp_query(msg,file)
83: char *msg;
84: FILE *file;
85: {
86: register char *cp;
87: register HEADER *hp;
88: register int n;
89:
90: /*
91: * Print header fields.
92: */
93: hp = (HEADER *)msg;
94: cp = msg + sizeof(HEADER);
95: fprintf(file,"HEADER:\n");
96: fprintf(file,"\topcode = %s", _res_opcodes[hp->opcode]);
97: fprintf(file,", id = %d", ntohs(hp->id));
98: fprintf(file,", rcode = %s\n", _res_resultcodes[hp->rcode]);
99: fprintf(file,"\theader flags: ");
100: if (hp->qr)
101: fprintf(file," qr");
102: if (hp->aa)
103: fprintf(file," aa");
104: if (hp->tc)
105: fprintf(file," tc");
106: if (hp->rd)
107: fprintf(file," rd");
108: if (hp->ra)
109: fprintf(file," ra");
110: if (hp->pr)
111: fprintf(file," pr");
112: fprintf(file,"\n\tqdcount = %d", ntohs(hp->qdcount));
113: fprintf(file,", ancount = %d", ntohs(hp->ancount));
114: fprintf(file,", nscount = %d", ntohs(hp->nscount));
115: fprintf(file,", arcount = %d\n\n", ntohs(hp->arcount));
116: /*
117: * Print question records.
118: */
119: if (n = ntohs(hp->qdcount)) {
120: fprintf(file,"QUESTIONS:\n");
121: while (--n >= 0) {
122: fprintf(file,"\t");
123: cp = p_cdname(cp, msg, file);
124: if (cp == NULL)
125: return;
126: fprintf(file,", type = %s", p_type(_getshort(cp)));
127: cp += sizeof(u_short);
128: fprintf(file,", class = %s\n\n", p_class(_getshort(cp)));
129: cp += sizeof(u_short);
130: }
131: }
132: /*
133: * Print authoritative answer records
134: */
135: if (n = ntohs(hp->ancount)) {
136: fprintf(file,"ANSWERS:\n");
137: while (--n >= 0) {
138: fprintf(file,"\t");
139: cp = p_rr(cp, msg, file);
140: if (cp == NULL)
141: return;
142: }
143: }
144: /*
145: * print name server records
146: */
147: if (n = ntohs(hp->nscount)) {
148: fprintf(file,"NAME SERVERS:\n");
149: while (--n >= 0) {
150: fprintf(file,"\t");
151: cp = p_rr(cp, msg, file);
152: if (cp == NULL)
153: return;
154: }
155: }
156: /*
157: * print additional records
158: */
159: if (n = ntohs(hp->arcount)) {
160: fprintf(file,"ADDITIONAL RECORDS:\n");
161: while (--n >= 0) {
162: fprintf(file,"\t");
163: cp = p_rr(cp, msg, file);
164: if (cp == NULL)
165: return;
166: }
167: }
168: }
169:
170: char *
171: p_cdname(cp, msg, file)
172: char *cp, *msg;
173: FILE *file;
174: {
175: char name[MAXDNAME];
176: int n;
177:
178: if ((n = dn_expand(msg, msg + 512, cp, name, sizeof(name))) < 0)
179: return (NULL);
180: if (name[0] == '\0') {
181: name[0] = '.';
182: name[1] = '\0';
183: }
184: fputs(name, file);
185: return (cp + n);
186: }
187:
188: /*
189: * Print resource record fields in human readable form.
190: */
191: char *
192: p_rr(cp, msg, file)
193: char *cp, *msg;
194: FILE *file;
195: {
196: int type, class, dlen, n, c;
197: struct in_addr inaddr;
198: char *cp1, *cp2;
199:
200: if ((cp = p_cdname(cp, msg, file)) == NULL)
201: return (NULL); /* compression error */
202: fprintf(file,"\n\ttype = %s", p_type(type = _getshort(cp)));
203: cp += sizeof(u_short);
204: fprintf(file,", class = %s", p_class(class = _getshort(cp)));
205: cp += sizeof(u_short);
206: fprintf(file,", ttl = %s", p_time(_getlong(cp)));
207: cp += sizeof(u_long);
208: fprintf(file,", dlen = %d\n", dlen = _getshort(cp));
209: cp += sizeof(u_short);
210: cp1 = cp;
211: /*
212: * Print type specific data, if appropriate
213: */
214: switch (type) {
215: case T_A:
216: switch (class) {
217: case C_IN:
218: case C_HS:
219: bcopy(cp, (char *)&inaddr, sizeof(inaddr));
220: if (dlen == 4) {
221: fprintf(file,"\tinternet address = %s\n",
222: inet_ntoa(inaddr));
223: cp += dlen;
224: } else if (dlen == 7) {
225: fprintf(file,"\tinternet address = %s",
226: inet_ntoa(inaddr));
227: fprintf(file,", protocol = %d", cp[4]);
228: fprintf(file,", port = %d\n",
229: (cp[5] << 8) + cp[6]);
230: cp += dlen;
231: }
232: break;
233: default:
234: cp += dlen;
235: }
236: break;
237: case T_CNAME:
238: case T_MB:
239: case T_MG:
240: case T_MR:
241: case T_NS:
242: case T_PTR:
243: fprintf(file,"\tdomain name = ");
244: cp = p_cdname(cp, msg, file);
245: fprintf(file,"\n");
246: break;
247:
248: case T_HINFO:
249: if (n = *cp++) {
250: fprintf(file,"\tCPU=%.*s\n", n, cp);
251: cp += n;
252: }
253: if (n = *cp++) {
254: fprintf(file,"\tOS=%.*s\n", n, cp);
255: cp += n;
256: }
257: break;
258:
259: case T_SOA:
260: fprintf(file,"\torigin = ");
261: cp = p_cdname(cp, msg, file);
262: fprintf(file,"\n\tmail addr = ");
263: cp = p_cdname(cp, msg, file);
264: fprintf(file,"\n\tserial = %ld", _getlong(cp));
265: cp += sizeof(u_long);
266: fprintf(file,"\n\trefresh = %s", p_time(_getlong(cp)));
267: cp += sizeof(u_long);
268: fprintf(file,"\n\tretry = %s", p_time(_getlong(cp)));
269: cp += sizeof(u_long);
270: fprintf(file,"\n\texpire = %s", p_time(_getlong(cp)));
271: cp += sizeof(u_long);
272: fprintf(file,"\n\tmin = %s\n", p_time(_getlong(cp)));
273: cp += sizeof(u_long);
274: break;
275:
276: case T_MX:
277: fprintf(file,"\tpreference = %ld,",_getshort(cp));
278: cp += sizeof(u_short);
279: fprintf(file," name = ");
280: cp = p_cdname(cp, msg, file);
281: break;
282:
283: case T_TXT:
284: (void) fputs("\t\"", file);
285: cp2 = cp1 + dlen;
286: while (cp < cp2) {
287: if (n = (unsigned char) *cp++) {
288: for (c = n; c > 0 && cp < cp2; c--)
289: if (*cp == '\n') {
290: (void) putc('\\', file);
291: (void) putc(*cp++, file);
292: } else
293: (void) putc(*cp++, file);
294: }
295: }
296: (void) fputs("\"\n", file);
297: break;
298:
299: case T_MINFO:
300: fprintf(file,"\trequests = ");
301: cp = p_cdname(cp, msg, file);
302: fprintf(file,"\n\terrors = ");
303: cp = p_cdname(cp, msg, file);
304: break;
305:
306: case T_UINFO:
307: fprintf(file,"\t%s\n", cp);
308: cp += dlen;
309: break;
310:
311: case T_UID:
312: case T_GID:
313: if (dlen == 4) {
314: fprintf(file,"\t%ld\n", _getlong(cp));
315: cp += sizeof(int);
316: }
317: break;
318:
319: case T_WKS:
320: if (dlen < sizeof(u_long) + 1)
321: break;
322: bcopy(cp, (char *)&inaddr, sizeof(inaddr));
323: cp += sizeof(u_long);
324: fprintf(file,"\tinternet address = %s, protocol = %d\n\t",
325: inet_ntoa(inaddr), *cp++);
326: n = 0;
327: while (cp < cp1 + dlen) {
328: c = *cp++;
329: do {
330: if (c & 0200)
331: fprintf(file," %d", n);
332: c <<= 1;
333: } while (++n & 07);
334: }
335: putc('\n',file);
336: break;
337:
338: #ifdef ALLOW_T_UNSPEC
339: case T_UNSPEC:
340: {
341: int NumBytes = 8;
342: char *DataPtr;
343: int i;
344:
345: if (dlen < NumBytes) NumBytes = dlen;
346: fprintf(file, "\tFirst %d bytes of hex data:",
347: NumBytes);
348: for (i = 0, DataPtr = cp; i < NumBytes; i++, DataPtr++)
349: fprintf(file, " %x", *DataPtr);
350: fputs("\n", file);
351: cp += dlen;
352: }
353: break;
354: #endif /* ALLOW_T_UNSPEC */
355:
356: default:
357: fprintf(file,"\t???\n");
358: cp += dlen;
359: }
360: if (cp != cp1 + dlen) {
361: fprintf(file,"packet size error (%#x != %#x)\n", cp, cp1+dlen);
362: cp = NULL;
363: }
364: fprintf(file,"\n");
365: return (cp);
366: }
367:
368: static char nbuf[40];
369:
370: /*
371: * Return a string for the type
372: */
373: char *
374: p_type(type)
375: int type;
376: {
377: switch (type) {
378: case T_A:
379: return("A");
380: case T_NS: /* authoritative server */
381: return("NS");
382: case T_CNAME: /* canonical name */
383: return("CNAME");
384: case T_SOA: /* start of authority zone */
385: return("SOA");
386: case T_MB: /* mailbox domain name */
387: return("MB");
388: case T_MG: /* mail group member */
389: return("MG");
390: case T_MR: /* mail rename name */
391: return("MR");
392: case T_NULL: /* null resource record */
393: return("NULL");
394: case T_WKS: /* well known service */
395: return("WKS");
396: case T_PTR: /* domain name pointer */
397: return("PTR");
398: case T_HINFO: /* host information */
399: return("HINFO");
400: case T_MINFO: /* mailbox information */
401: return("MINFO");
402: case T_MX: /* mail routing info */
403: return("MX");
404: case T_TXT: /* text */
405: return("TXT");
406: case T_AXFR: /* zone transfer */
407: return("AXFR");
408: case T_MAILB: /* mail box */
409: return("MAILB");
410: case T_MAILA: /* mail address */
411: return("MAILA");
412: case T_ANY: /* matches any type */
413: return("ANY");
414: case T_UINFO:
415: return("UINFO");
416: case T_UID:
417: return("UID");
418: case T_GID:
419: return("GID");
420: #ifdef ALLOW_T_UNSPEC
421: case T_UNSPEC:
422: return("UNSPEC");
423: #endif /* ALLOW_T_UNSPEC */
424: default:
425: (void)sprintf(nbuf, "%d", type);
426: return(nbuf);
427: }
428: }
429:
430: /*
431: * Return a mnemonic for class
432: */
433: char *
434: p_class(class)
435: int class;
436: {
437:
438: switch (class) {
439: case C_IN: /* internet class */
440: return("IN");
441: case C_HS: /* hesiod class */
442: return("HS");
443: case C_ANY: /* matches any class */
444: return("ANY");
445: default:
446: (void)sprintf(nbuf, "%d", class);
447: return(nbuf);
448: }
449: }
450:
451: /*
452: * Return a mnemonic for a time to live
453: */
454: char *
455: p_time(value)
456: u_long value;
457: {
458: int secs, mins, hours;
459: register char *p;
460:
461: if (value == 0) {
462: strcpy(nbuf, "0 secs");
463: return(nbuf);
464: }
465:
466: secs = value % 60;
467: value /= 60;
468: mins = value % 60;
469: value /= 60;
470: hours = value % 24;
471: value /= 24;
472:
473: #define PLURALIZE(x) x, (x == 1) ? "" : "s"
474: p = nbuf;
475: if (value) {
476: (void)sprintf(p, "%d day%s", PLURALIZE(value));
477: while (*++p);
478: }
479: if (hours) {
480: if (value)
481: *p++ = ' ';
482: (void)sprintf(p, "%d hour%s", PLURALIZE(hours));
483: while (*++p);
484: }
485: if (mins) {
486: if (value || hours)
487: *p++ = ' ';
488: (void)sprintf(p, "%d min%s", PLURALIZE(mins));
489: while (*++p);
490: }
491: if (secs || ! (value || hours || mins)) {
492: if (value || hours || mins)
493: *p++ = ' ';
494: (void)sprintf(p, "%d sec%s", PLURALIZE(secs));
495: }
496: return(nbuf);
497: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.