workbench/network/stacks/AROSTCP/bsdsocket/api/res_debug.c

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