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