nsz Git - musl/blob - src/network/__dns.c

   1 #include <stdint.h>
   2 #include <netdb.h>
   3 #include <stdio.h>
   4 #include <fcntl.h>
   5 #include <limits.h>
   6 #include <string.h>
   7 #include <sys/socket.h>
   8 #include <poll.h>
   9 #include <netinet/in.h>
  10 #include <time.h>
  11 #include <ctype.h>
  12 #include <unistd.h>
  13 #include <pthread.h>
  14 #include "__dns.h"
  15 #include "stdio_impl.h"
  16
  17 #define TIMEOUT 5
  18 #define RETRY 1000
  19 #define PACKET_MAX 512
  20 #define PTR_MAX (64 + sizeof ".in-addr.arpa")
  21
  22 static void cleanup(void *p)
  23 {
  24         close((intptr_t)p);
  25 }
  26
  27 int __dns_doqueries(unsigned char *dest, const char *name, int *rr, int rrcnt)
  28 {
  29         time_t t0 = time(0);
  30         int fd;
  31         FILE *f, _f;
  32         unsigned char _buf[256];
  33         char line[64], *s, *z;
  34         union {
  35                 struct sockaddr_in sin;
  36                 struct sockaddr_in6 sin6;
  37         } sa = {0}, ns[3] = {{0}};
  38         socklen_t sl;
  39         int nns = 0;
  40         int family = AF_UNSPEC;
  41         unsigned char q[280] = "", *r = dest;
  42         int ql;
  43         int rlen;
  44         int got = 0, failed = 0;
  45         int errcode = EAI_AGAIN;
  46         int i, j;
  47         struct timespec ts;
  48         struct pollfd pfd;
  49         int id;
  50         int cs;
  51
  52         pthread_setcancelstate(PTHREAD_CANCEL_DISABLE, &cs);
  53
  54         /* Construct query template - RR and ID will be filled later */
  55         if (strlen(name)-1 >= 254U) return EAI_NONAME;
  56         q[2] = q[5] = 1;
  57         strcpy((char *)q+13, name);
  58         for (i=13; q[i]; i=j+1) {
  59                 for (j=i; q[j] && q[j] != '.'; j++);
  60                 if (j-i-1u > 62u) return EAI_NONAME;
  61                 q[i-1] = j-i;
  62         }
  63         q[i+3] = 1;
  64         ql = i+4;
  65
  66         /* Make a reasonably unpredictable id */
  67         clock_gettime(CLOCK_REALTIME, &ts);
  68         id = ts.tv_nsec + ts.tv_nsec/65536UL & 0xffff;
  69
  70         /* Get nameservers from resolv.conf, fallback to localhost */
  71         f = __fopen_rb_ca("/etc/resolv.conf", &_f, _buf, sizeof _buf);
  72         if (f) for (nns=0; nns<3 && fgets(line, sizeof line, f); ) {
  73                 if (strncmp(line, "nameserver", 10) || !isspace(line[10]))
  74                         continue;
  75                 for (s=line+11; isspace(*s); s++);
  76                 for (z=s; *z && !isspace(*z); z++);
  77                 *z=0;
  78                 if (__ipparse(ns+nns, family, s) < 0) continue;
  79                 ns[nns].sin.sin_port = htons(53);
  80                 family = ns[nns++].sin.sin_family;
  81                 sl = family==AF_INET6 ? sizeof sa.sin6 : sizeof sa.sin;
  82         }
  83         if (f) __fclose_ca(f);
  84         if (!nns) {
  85                 ns[0].sin.sin_family = family = AF_INET;
  86                 ns[0].sin.sin_port = htons(53);
  87                 ns[0].sin.sin_addr.s_addr = htonl(0x7f000001);
  88                 nns=1;
  89                 sl = sizeof sa.sin;
  90         }
  91
  92         /* Get local address and open/bind a socket */
  93         sa.sin.sin_family = family;
  94         fd = socket(family, SOCK_DGRAM|SOCK_CLOEXEC|SOCK_NONBLOCK, 0);
  95
  96         pthread_cleanup_push(cleanup, (void *)(intptr_t)fd);
  97         pthread_setcancelstate(cs, 0);
  98
  99         if (bind(fd, (void *)&sa, sl) < 0) {
 100                 errcode = EAI_SYSTEM;
 101                 goto out;
 102         }
 103
 104         pfd.fd = fd;
 105         pfd.events = POLLIN;
 106
 107         /* Loop until we timeout; break early on success */
 108         for (; time(0)-t0 < TIMEOUT; ) {
 109
 110                 /* Query all configured namservers in parallel */
 111                 for (i=0; i<rrcnt; i++) if (rr[i]) for (j=0; j<nns; j++) {
 112                         q[0] = id+i >> 8;
 113                         q[1] = id+i;
 114                         q[ql-3] = rr[i];
 115                         sendto(fd, q, ql, MSG_NOSIGNAL, (void *)&ns[j], sl);
 116                 }
 117
 118                 /* Wait for a response, or until time to retry */
 119                 if (poll(&pfd, 1, RETRY) <= 0) continue;
 120
 121                 /* Process any and all replies */
 122                 while (got+failed < rrcnt && (rlen = recvfrom(fd, r, 512, 0,
 123                         (void *)&sa, (socklen_t[1]){sl})) >= 2)
 124                 {
 125                         /* Ignore replies from addresses we didn't send to */
 126                         for (i=0; i<nns; i++) if (!memcmp(ns+i, &sa, sl)) break;
 127                         if (i==nns) continue;
 128
 129                         /* Compute index of the query from id */
 130                         i = r[0]*256+r[1] - id & 0xffff;
 131                         if ((unsigned)i >= rrcnt || !rr[i]) continue;
 132
 133                         /* Interpret the result code */
 134                         switch (r[3] & 15) {
 135                         case 0:
 136                                 got++;
 137                                 break;
 138                         case 3:
 139                                 if (1) errcode = EAI_NONAME; else
 140                         default:
 141                                 errcode = EAI_FAIL;
 142                                 failed++;
 143                         }
 144
 145                         /* Mark this record as answered */
 146                         rr[i] = 0;
 147                         r += 512;
 148                 }
 149
 150                 /* Check to see if we have answers to all queries */
 151                 if (got+failed == rrcnt) break;
 152         }
 153 out:
 154         pthread_cleanup_pop(1);
 155
 156         /* Return the number of results, or an error code if none */
 157         if (got) return got;
 158         return errcode;
 159 }
 160
 161 static void mkptr4(char *s, const unsigned char *ip)
 162 {
 163         sprintf(s, "%d.%d.%d.%d.in-addr.arpa",
 164                 ip[3], ip[2], ip[1], ip[0]);
 165 }
 166
 167 static void mkptr6(char *s, const unsigned char *ip)
 168 {
 169         static const char xdigits[] = "0123456789abcdef";
 170         int i;
 171         for (i=15; i>=0; i--) {
 172                 *s++ = xdigits[ip[i]&15]; *s++ = '.';
 173                 *s++ = xdigits[ip[i]>>4]; *s++ = '.';
 174         }
 175         strcpy(s, "ip6.arpa");
 176 }
 177
 178 int __dns_query(unsigned char *r, const void *a, int family, int ptr)
 179 {
 180         char buf[PTR_MAX];
 181         int rr[2], rrcnt = 1;
 182
 183         if (ptr) {
 184                 if (family == AF_INET6) mkptr6(buf, a);
 185                 else mkptr4(buf, a);
 186                 rr[0] = RR_PTR;
 187                 a = buf;
 188         } else if (family == AF_INET6) {
 189                 rr[0] = RR_AAAA;
 190         } else {
 191                 rr[0] = RR_A;
 192                 if (family != AF_INET) rr[rrcnt++] = RR_AAAA;
 193         }
 194
 195         return __dns_doqueries(r, a, rr, rrcnt);
 196 }
 197
 198
 199 #define BITOP(a,b,op) \
 200  ((a)[(size_t)(b)/(8*sizeof *(a))] op (size_t)1<<((size_t)(b)%(8*sizeof *(a))))
 201
 202 static int decname(char *s, const unsigned char *b, const unsigned char *p)
 203 {
 204         /* Remember jump destinations to detect loops and abort */
 205         size_t seen[PACKET_MAX/8/sizeof(size_t)] = { 0 };
 206         char *sz = s + HOST_NAME_MAX;
 207         const unsigned char *pz = b+512;
 208         for (;;) {
 209                 if (p>=pz) return -1;
 210                 else if (*p&0xc0) {
 211                         int j = (p[0]&1) | p[1];
 212                         if (BITOP(seen, j, &)) return -1;
 213                         BITOP(seen, j, |=);
 214                         p = b + j;
 215                 } else if (*p) {
 216                         if (p+*p+1>=pz || s+*p>=sz) return -1;
 217                         memcpy(s, p+1, *p);
 218                         s += *p+1;
 219                         p += *p+1;
 220                         s[-1] = *p ? '.' : 0;
 221                 } else return 0;
 222         }
 223 }
 224
 225 int __dns_get_rr(void *dest, size_t stride, size_t maxlen, size_t limit, const unsigned char *r, int rr, int dec)
 226 {
 227         int qdcount, ancount;
 228         const unsigned char *p;
 229         char tmp[256];
 230         int found = 0;
 231         int len;
 232
 233         if ((r[3]&15)) return 0;
 234         p = r+12;
 235         qdcount = r[4]*256 + r[5];
 236         ancount = r[6]*256 + r[7];
 237         if (qdcount+ancount > 64) return -1;
 238         while (qdcount--) {
 239                 while (p-r < 512 && *p-1U < 127) p++;
 240                 if (*p>193 || (*p==193 && p[1]>254) || p>r+506)
 241                         return -1;
 242                 p += 5 + !!*p;
 243         }
 244         while (ancount--) {
 245                 while (p-r < 512 && *p-1U < 127) p++;
 246                 if (*p>193 || (*p==193 && p[1]>254) || p>r+506)
 247                         return -1;
 248                 p += 1 + !!*p;
 249                 len = p[8]*256 + p[9];
 250                 if (p+len > r+512) return -1;
 251                 if (p[1]==rr && len <= maxlen) {
 252                         if (dec && decname(tmp, r, p+10)<0) return -1;
 253                         if (dest && limit) {
 254                                 if (dec) strcpy(dest, tmp);
 255                                 else memcpy(dest, p+10, len);
 256                                 dest = (char *)dest + stride;
 257                                 limit--;
 258                         }
 259                         found++;
 260                 }
 261                 p += 10 + len;
 262         }
 263         return found;
 264 }
 265
 266 int __dns_count_addrs(const unsigned char *r, int cnt)
 267 {
 268         int found=0, res, i;
 269         static const int p[2][2] = { { 4, RR_A }, { 16, RR_AAAA } };
 270
 271         while (cnt--) {
 272                 for (i=0; i<2; i++) {
 273                         res = __dns_get_rr(0, 0, p[i][0], -1, r, p[i][1], 0);
 274                         if (res < 0) return res;
 275                         found += res;
 276                 }
 277                 r += 512;
 278         }
 279         return found;
 280 }