12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328 |
- /*
- * Copyright (c) 2014, Vsevolod Stakhov
- *
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- * * Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * * Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- *
- * THIS SOFTWARE IS PROVIDED BY AUTHOR ''AS IS'' AND ANY
- * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL AUTHOR BE LIABLE FOR ANY
- * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
- #include <sys/socket.h>
- #include <netinet/in.h>
- #include <arpa/inet.h>
- #include <unistd.h>
- #include <stdlib.h>
- #include <string.h>
- #include <errno.h>
- #include <stdarg.h>
- #include <sys/uio.h>
-
- #include "rdns.h"
- #include "dns_private.h"
- #include "ottery.h"
- #include "util.h"
- #include "packet.h"
- #include "parse.h"
- #include "logger.h"
- #include "compression.h"
-
- __KHASH_IMPL(rdns_requests_hash, kh_inline, int, struct rdns_request *, true,
- kh_int_hash_func, kh_int_hash_equal);
-
- static int
- rdns_send_request (struct rdns_request *req, int fd, bool new_req)
- {
- ssize_t r;
- struct rdns_server *serv = req->io->srv;
- struct rdns_resolver *resolver = req->resolver;
- struct dns_header *header;
- const int max_id_cycles = 32;
- khiter_t k;
-
- /* Find ID collision */
- if (new_req) {
- r = 0;
-
- for (;;) {
- k = kh_get(rdns_requests_hash, req->io->requests, req->id);
- if (k != kh_end(req->io->requests)) {
- /* Check for unique id */
- header = (struct dns_header *) req->packet;
- header->qid = rdns_permutor_generate_id();
- req->id = header->qid;
- if (++r > max_id_cycles) {
- return -1;
- }
- }
- else {
- break;
- }
- }
- }
-
- if (resolver->curve_plugin == NULL) {
- if (!IS_CHANNEL_CONNECTED(req->io)) {
- r = sendto (fd, req->packet, req->pos, 0,
- req->io->saddr,
- req->io->slen);
- }
- else {
- r = send (fd, req->packet, req->pos, 0);
- }
- }
- else {
- if (!IS_CHANNEL_CONNECTED(req->io)) {
- r = resolver->curve_plugin->cb.curve_plugin.send_cb (req,
- resolver->curve_plugin->data,
- req->io->saddr,
- req->io->slen);
- }
- else {
- r = resolver->curve_plugin->cb.curve_plugin.send_cb (req,
- resolver->curve_plugin->data,
- NULL,
- 0);
- }
- }
- if (r == -1) {
- if (errno == EAGAIN || errno == EINTR) {
- if (new_req) {
- /* Write when socket is ready */
- int pr;
-
- k = kh_put(rdns_requests_hash, req->io->requests, req->id, &pr);
- kh_value(req->io->requests, k) = req;
- req->async_event = resolver->async->add_write (resolver->async->data,
- fd, req);
- req->state = RDNS_REQUEST_WAIT_SEND;
- }
- /*
- * If request is already processed then the calling function
- * should take care about events processing
- */
- return 0;
- }
- else {
- rdns_debug ("send failed: %s for server %s", strerror (errno), serv->name);
- return -1;
- }
- }
- else if (!IS_CHANNEL_CONNECTED(req->io)) {
- /* Connect socket */
- r = connect (fd, req->io->saddr, req->io->slen);
-
- if (r == -1) {
- rdns_err ("cannot connect after sending request: %s for server %s",
- strerror (errno), serv->name);
- }
- else {
- req->io->flags |= RDNS_CHANNEL_CONNECTED;
- }
- }
-
- if (new_req) {
- /* Add request to hash table */
- int pr;
- k = kh_put(rdns_requests_hash, req->io->requests, req->id, &pr);
- kh_value(req->io->requests, k) = req;
- /* Fill timeout */
- req->async_event = resolver->async->add_timer (resolver->async->data,
- req->timeout, req);
- req->state = RDNS_REQUEST_WAIT_REPLY;
- }
-
- return 1;
- }
-
-
- static struct rdns_reply *
- rdns_make_reply (struct rdns_request *req, enum dns_rcode rcode)
- {
- struct rdns_reply *rep;
-
- rep = malloc (sizeof (struct rdns_reply));
- if (rep != NULL) {
- rep->request = req;
- rep->resolver = req->resolver;
- rep->entries = NULL;
- rep->code = rcode;
- req->reply = rep;
- rep->flags = 0;
- rep->requested_name = req->requested_names[0].name;
- }
-
- return rep;
- }
-
- static struct rdns_request *
- rdns_find_dns_request (uint8_t *in, struct rdns_io_channel *ioc)
- {
- struct dns_header *header = (struct dns_header *)in;
- int id;
- struct rdns_resolver *resolver = ioc->resolver;
-
- id = header->qid;
- khiter_t k = kh_get(rdns_requests_hash, ioc->requests, id);
-
- if (k == kh_end(ioc->requests)) {
- /* No such requests found */
- rdns_debug ("DNS request with id %d has not been found for IO channel", id);
- }
-
- return kh_value(ioc->requests, k);
- }
-
- static bool
- rdns_parse_reply (uint8_t *in, int r, struct rdns_request *req,
- struct rdns_reply **_rep)
- {
- struct dns_header *header = (struct dns_header *)in;
- struct rdns_reply *rep;
- struct rdns_reply_entry *elt;
- uint8_t *pos, *npos;
- struct rdns_resolver *resolver = req->resolver;
- uint16_t qdcount;
- int type;
- bool found = false;
-
- int i, t;
-
- /* First check header fields */
- if (header->qr == 0) {
- rdns_info ("got request while waiting for reply");
- return false;
- }
-
- qdcount = ntohs (header->qdcount);
-
- if (qdcount != req->qcount) {
- rdns_info ("request has %d queries, reply has %d queries", (int)req->qcount, (int)header->qdcount);
- return false;
- }
-
- /*
- * Now we have request and query data is now at the end of header, so compare
- * request QR section and reply QR section
- */
- req->pos = sizeof (struct dns_header);
- pos = in + sizeof (struct dns_header);
- t = r - sizeof (struct dns_header);
- for (i = 0; i < (int)qdcount; i ++) {
- if ((npos = rdns_request_reply_cmp (req, pos,t)) == NULL) {
- rdns_info ("DNS request with id %d is for different query, ignoring", (int)req->id);
- return false;
- }
- t -= npos - pos;
- pos = npos;
- }
- /*
- * Now pos is in answer section, so we should extract data and form reply
- */
- rep = rdns_make_reply (req, header->rcode);
-
- if (header->ad) {
- rep->flags |= RDNS_AUTH;
- }
-
- if (header->tc) {
- rep->flags |= RDNS_TRUNCATED;
- }
-
- if (rep == NULL) {
- rdns_warn ("Cannot allocate memory for reply");
- return false;
- }
-
- type = req->requested_names[0].type;
-
- if (rep->code == RDNS_RC_NOERROR) {
- r -= pos - in;
- /* Extract RR records */
- for (i = 0; i < ntohs (header->ancount); i ++) {
- elt = malloc (sizeof (struct rdns_reply_entry));
- t = rdns_parse_rr (resolver, in, elt, &pos, rep, &r);
- if (t == -1) {
- free (elt);
- rdns_debug ("incomplete reply");
- break;
- }
- else if (t == 1) {
- DL_APPEND (rep->entries, elt);
- if (elt->type == type) {
- found = true;
- }
- }
- else {
- rdns_debug ("no matching reply for %s",
- req->requested_names[0].name);
- free (elt);
- }
- }
- }
-
- if (!found && type != RDNS_REQUEST_ANY) {
- /* We have not found the requested RR type */
- if (rep->code == RDNS_RC_NOERROR) {
- rep->code = RDNS_RC_NOREC;
- }
- }
-
- *_rep = rep;
- return true;
- }
-
- static void
- rdns_process_tcp_read (int fd, struct rdns_io_channel *ioc)
- {
-
- }
-
- static void
- rdns_process_tcp_connect (int fd, struct rdns_io_channel *ioc)
- {
- ioc->flags |= RDNS_CHANNEL_CONNECTED|RDNS_CHANNEL_ACTIVE;
- ioc->tcp->async_read = ioc->resolver->async->add_read(ioc->resolver->async->data,
- ioc->sock, ioc);
- }
-
- static void
- rdns_process_udp_read (int fd, struct rdns_io_channel *ioc)
- {
- struct rdns_resolver *resolver;
- struct rdns_request *req = NULL;
- ssize_t r;
- struct rdns_reply *rep;
- uint8_t in[UDP_PACKET_SIZE];
-
- resolver = ioc->resolver;
-
- /* First read packet from socket */
- if (resolver->curve_plugin == NULL) {
- r = recv (fd, in, sizeof (in), 0);
- if (r > (int)(sizeof (struct dns_header) + sizeof (struct dns_query))) {
- req = rdns_find_dns_request (in, ioc);
- }
- }
- else {
- r = resolver->curve_plugin->cb.curve_plugin.recv_cb (ioc, in,
- sizeof (in), resolver->curve_plugin->data, &req,
- ioc->saddr, ioc->slen);
- if (req == NULL &&
- r > (int)(sizeof (struct dns_header) + sizeof (struct dns_query))) {
- req = rdns_find_dns_request (in, ioc);
- }
- }
-
- if (req != NULL) {
- if (rdns_parse_reply (in, r, req, &rep)) {
- UPSTREAM_OK (req->io->srv);
-
- if (req->resolver->ups && req->io->srv->ups_elt) {
- req->resolver->ups->ok (req->io->srv->ups_elt,
- req->resolver->ups->data);
- }
-
- rdns_request_unschedule (req);
- req->state = RDNS_REQUEST_REPLIED;
- req->func (rep, req->arg);
- REF_RELEASE (req);
- }
- }
- else {
- /* Still want to increase uses */
- ioc->uses ++;
- }
- }
-
- void
- rdns_process_read (int fd, void *arg)
- {
- struct rdns_io_channel *ioc = (struct rdns_io_channel *)arg;
- struct rdns_resolver *resolver;
-
- resolver = ioc->resolver;
-
- if (IS_CHANNEL_TCP(ioc)) {
- if (IS_CHANNEL_CONNECTED(ioc)) {
- rdns_process_tcp_read (fd, ioc);
- }
- else {
- rdns_err ("read readiness on non connected TCP channel!");
- }
- }
- else {
- rdns_process_udp_read (fd, ioc);
- }
- }
-
- void
- rdns_process_timer (void *arg)
- {
- struct rdns_request *req = (struct rdns_request *)arg;
- struct rdns_reply *rep;
- int r;
- bool renew = false;
- struct rdns_resolver *resolver;
- struct rdns_server *serv = NULL;
- unsigned cnt;
-
- req->retransmits --;
- resolver = req->resolver;
-
- if (req->resolver->ups && req->io->srv->ups_elt) {
- req->resolver->ups->fail (req->io->srv->ups_elt,
- req->resolver->ups->data, "timeout waiting reply");
- }
- else {
- UPSTREAM_FAIL (req->io->srv, time (NULL));
- }
-
- if (req->retransmits == 0) {
-
- rep = rdns_make_reply (req, RDNS_RC_TIMEOUT);
- rdns_request_unschedule (req);
- req->state = RDNS_REQUEST_REPLIED;
- req->func (rep, req->arg);
- REF_RELEASE (req);
-
- return;
- }
-
- if (!IS_CHANNEL_ACTIVE(req->io) || req->retransmits == 1) {
-
- if (resolver->ups) {
- cnt = resolver->ups->count (resolver->ups->data);
- }
- else {
- cnt = 0;
- UPSTREAM_FOREACH (resolver->servers, serv) {
- cnt ++;
- }
- }
-
- if (!IS_CHANNEL_ACTIVE(req->io) || cnt > 1) {
- /* Do not reschedule IO requests on inactive sockets */
- rdns_debug ("reschedule request with id: %d", (int)req->id);
- rdns_request_unschedule (req);
- REF_RELEASE (req->io);
-
- if (resolver->ups) {
- struct rdns_upstream_elt *elt;
-
- elt = resolver->ups->select_retransmit (
- req->requested_names[0].name,
- req->requested_names[0].len,
- req->io->srv->ups_elt,
- resolver->ups->data);
-
- if (elt) {
- serv = elt->server;
- serv->ups_elt = elt;
- }
- else {
- UPSTREAM_SELECT_ROUND_ROBIN (resolver->servers, serv);
- }
- }
- else {
- UPSTREAM_SELECT_ROUND_ROBIN (resolver->servers, serv);
- }
-
- if (serv == NULL) {
- rdns_warn ("cannot find suitable server for request");
- rep = rdns_make_reply (req, RDNS_RC_SERVFAIL);
- req->state = RDNS_REQUEST_REPLIED;
- req->func (rep, req->arg);
- REF_RELEASE (req);
-
- return;
- }
-
- /* Select random IO channel */
- req->io = serv->io_channels[ottery_rand_uint32 () % serv->io_cnt];
- req->io->uses ++;
- REF_RETAIN (req->io);
- renew = true;
- }
- }
-
- /*
- * Note: when `renew` is true, then send_request deals with the
- * timers and events itself
- */
- r = rdns_send_request (req, req->io->sock, renew);
- if (r == 0) {
- /* Retransmit one more time */
- if (!renew) {
- req->async->del_timer (req->async->data,
- req->async_event);
- req->async_event = req->async->add_write (req->async->data,
- req->io->sock, req);
- }
-
- req->state = RDNS_REQUEST_WAIT_SEND;
- }
- else if (r == -1) {
- if (req->resolver->ups && req->io->srv->ups_elt) {
- req->resolver->ups->fail (req->io->srv->ups_elt,
- req->resolver->ups->data, "cannot send retransmit after timeout");
- }
- else {
- UPSTREAM_FAIL (req->io->srv, time (NULL));
- }
-
- if (!renew) {
- req->async->del_timer (req->async->data,
- req->async_event);
- req->async_event = NULL;
- rdns_request_remove_from_hash(req);
- }
-
- /* We have not scheduled timeout actually due to send error */
- rep = rdns_make_reply (req, RDNS_RC_NETERR);
- req->state = RDNS_REQUEST_REPLIED;
- req->func (rep, req->arg);
- REF_RELEASE (req);
- }
- else {
- req->async->repeat_timer (req->async->data, req->async_event);
- req->state = RDNS_REQUEST_WAIT_REPLY;
- }
- }
-
- static void
- rdns_process_periodic (void *arg)
- {
- struct rdns_resolver *resolver = (struct rdns_resolver*)arg;
- struct rdns_server *serv;
-
- UPSTREAM_RESCAN (resolver->servers, time (NULL));
-
- UPSTREAM_FOREACH (resolver->servers, serv) {
- for (int i = 0; i < serv->tcp_io_cnt; i ++) {
- if (IS_CHANNEL_CONNECTED(serv->tcp_io_channels[i])) {
- /* Disconnect channels with no requests in flight */
- if (kh_size(serv->tcp_io_channels[i]->requests) == 0) {
- rdns_debug ("reset inactive TCP connection to %s", serv->name);
- rdns_ioc_tcp_reset (serv->tcp_io_channels[i]);
- }
- }
- }
- }
- }
-
- static void
- rdns_process_ioc_refresh (void *arg)
- {
- struct rdns_resolver *resolver = (struct rdns_resolver*)arg;
- struct rdns_server *serv;
- struct rdns_io_channel *ioc, *nioc;
- unsigned int i;
-
- if (resolver->max_ioc_uses > 0) {
- UPSTREAM_FOREACH (resolver->servers, serv) {
- for (i = 0; i < serv->io_cnt; i ++) {
- ioc = serv->io_channels[i];
- if (ioc->uses > resolver->max_ioc_uses) {
- /* Schedule IOC removing */
- nioc = rdns_ioc_new (serv, resolver, false);
-
- if (nioc == NULL) {
- rdns_err ("calloc fails to allocate rdns_io_channel");
- continue;
- }
-
- serv->io_channels[i] = nioc;
- rdns_debug ("scheduled io channel for server %s to be refreshed after "
- "%lu usages", serv->name, (unsigned long)ioc->uses);
- ioc->flags &= ~RDNS_CHANNEL_ACTIVE;
- REF_RELEASE (ioc);
- }
- }
- }
- }
- }
-
- static void
- rdns_process_udp_retransmit (int fd, struct rdns_request *req)
- {
- struct rdns_resolver *resolver;
- struct rdns_reply *rep;
- int r;
-
- resolver = req->resolver;
-
- resolver->async->del_write (resolver->async->data,
- req->async_event);
- req->async_event = NULL;
-
- if (req->state == RDNS_REQUEST_FAKE) {
- /* Reply is ready */
- req->func (req->reply, req->arg);
- REF_RELEASE (req);
-
- return;
- }
-
- r = rdns_send_request (req, fd, false);
-
- if (r == 0) {
- /* Retransmit one more time */
- req->async_event = req->async->add_write (req->async->data,
- fd, req);
- req->state = RDNS_REQUEST_WAIT_SEND;
- }
- else if (r == -1) {
- if (req->resolver->ups && req->io->srv->ups_elt) {
- req->resolver->ups->fail (req->io->srv->ups_elt,
- req->resolver->ups->data, "retransmit send failed");
- }
- else {
- UPSTREAM_FAIL (req->io->srv, time (NULL));
- }
-
- rep = rdns_make_reply (req, RDNS_RC_NETERR);
- req->state = RDNS_REQUEST_REPLIED;
- req->func (rep, req->arg);
- REF_RELEASE (req);
- }
- else {
- req->async_event = req->async->add_timer (req->async->data,
- req->timeout, req);
- req->state = RDNS_REQUEST_WAIT_REPLY;
- }
- }
-
- static ssize_t
- rdns_write_output_chain (struct rdns_io_channel *ioc, struct rdns_tcp_output_chain *oc)
- {
- ssize_t r;
- struct iovec iov[2];
- int niov, already_written;
-
- switch (oc->cur_write) {
- case 0:
- /* Size + DNS request in full */
- iov[0].iov_base = &oc->next_write_size;
- iov[0].iov_len = sizeof (oc->next_write_size);
- iov[1].iov_base = oc->req->packet;
- iov[1].iov_len = oc->req->packet_len;
- niov = 2;
- break;
- case 1:
- /* Partial Size + DNS request in full */
- iov[0].iov_base = ((unsigned char *)&oc->next_write_size) + 1;
- iov[0].iov_len = 1;
- iov[1].iov_base = oc->req->packet;
- iov[1].iov_len = oc->req->packet_len;
- niov = 2;
- break;
- default:
- /* Merely DNS packet */
- already_written = oc->cur_write - 2;
- if (oc->req->packet_len <= already_written) {
- errno = EINVAL;
- return -1;
- }
- iov[0].iov_base = oc->req->packet + already_written;
- iov[0].iov_len = oc->req->packet_len - already_written;
- niov = 1;
- break;
- }
-
- r = writev(ioc->sock, iov, niov);
-
- if (r > 0) {
- oc->cur_write += r;
- }
-
- return r;
- }
-
- static void
- rdns_process_tcp_write (int fd, struct rdns_io_channel *ioc)
- {
- struct rdns_resolver *resolver = ioc->resolver;
-
-
- /* Try to write as much as we can */
- struct rdns_tcp_output_chain *oc, *tmp;
- DL_FOREACH_SAFE(ioc->tcp->output_chain, oc, tmp) {
- ssize_t r = rdns_write_output_chain (ioc, oc);
-
- if (r == -1) {
- if (errno == EAGAIN || errno == EINTR) {
- /* Write even is persistent */
- return;
- }
- else {
- rdns_err ("error when trying to write request to %s: %s",
- ioc->srv->name, strerror (errno));
- rdns_ioc_tcp_reset (ioc);
- return;
- }
- }
- else if (oc->next_write_size < oc->cur_write) {
- /* Packet has been fully written, remove it */
- DL_DELETE(ioc->tcp->output_chain, oc);
- /* Data in output buffer belongs to request */
- free (oc);
- ioc->tcp->cur_output_chains --;
- }
- else {
- /* Buffer is not yet processed, stop unless we can continue */
- break;
- }
- }
-
- if (ioc->tcp->cur_output_chains == 0) {
- /* Unregister write event */
- ioc->resolver->async->del_write (ioc->resolver->async->data,
- ioc->tcp->async_write);
- ioc->tcp->async_write = NULL;
- }
- }
-
- void
- rdns_process_write (int fd, void *arg)
- {
- /*
- * We first need to dispatch *arg to understand what has caused the write
- * readiness event.
- * The one possibility is that it was a UDP retransmit request, so our
- * arg will be struct rdns_request *
- * Another possibility is that write event was triggered by some TCP related
- * stuff. In this case the only possibility is that our arg is struct rdns_io_channel *
- * To distinguish these two cases (due to flaws in the rdns architecture in the first
- * place) we compare the first 8 bytes with RDNS_IO_CHANNEL_TAG
- */
- uint64_t tag;
-
- memcpy (&tag, arg, sizeof(tag));
-
- if (tag == RDNS_IO_CHANNEL_TAG) {
- struct rdns_io_channel *ioc = (struct rdns_io_channel *) arg;
-
- if (IS_CHANNEL_CONNECTED(ioc)) {
- rdns_process_tcp_write(fd, ioc);
- }
- else {
- rdns_process_tcp_connect(fd, ioc);
- rdns_process_tcp_write(fd, ioc);
- }
- }
- else {
- struct rdns_request *req = (struct rdns_request *) arg;
- rdns_process_udp_retransmit(fd, req);
- }
- }
-
- struct rdns_server *
- rdns_select_request_upstream (struct rdns_resolver *resolver,
- struct rdns_request *req,
- bool is_retransmit,
- struct rdns_server *prev_serv)
- {
- struct rdns_server *serv = NULL;
-
- if (resolver->ups) {
- struct rdns_upstream_elt *elt;
-
- if (is_retransmit && prev_serv) {
- elt = resolver->ups->select_retransmit (req->requested_names[0].name,
- req->requested_names[0].len,
- prev_serv->ups_elt,
- resolver->ups->data);
- }
- else {
- elt = resolver->ups->select (req->requested_names[0].name,
- req->requested_names[0].len, resolver->ups->data);
- }
-
- if (elt) {
- serv = elt->server;
- serv->ups_elt = elt;
- }
- else {
- UPSTREAM_SELECT_ROUND_ROBIN (resolver->servers, serv);
- }
- }
- else {
- UPSTREAM_SELECT_ROUND_ROBIN (resolver->servers, serv);
- }
-
- return serv;
- }
-
- #define align_ptr(p, a) \
- (guint8 *) (((uintptr_t) (p) + ((uintptr_t) a - 1)) & ~((uintptr_t) a - 1))
-
- struct rdns_request*
- rdns_make_request_full (
- struct rdns_resolver *resolver,
- dns_callback_type cb,
- void *cbdata,
- double timeout,
- unsigned int repeats,
- unsigned int queries,
- ...
- )
- {
- va_list args;
- struct rdns_request *req;
- struct rdns_server *serv;
- int r, type;
- unsigned int i, tlen = 0, clen = 0, cur;
- size_t olen;
- const char *cur_name, *last_name = NULL;
- struct rdns_compression_entry *comp = NULL;
- struct rdns_fake_reply *fake_rep = NULL;
- char fake_buf[MAX_FAKE_NAME + sizeof (struct rdns_fake_reply_idx) + 16];
- struct rdns_fake_reply_idx *idx;
-
- if (resolver == NULL || !resolver->initialized) {
- if (resolver == NULL) {
- return NULL;
- }
-
- rdns_err ("resolver is uninitialized");
-
- return NULL;
- }
-
- req = malloc (sizeof (struct rdns_request));
- if (req == NULL) {
- rdns_err ("failed to allocate memory for request: %s",
- strerror (errno));
- return NULL;
- }
-
- req->resolver = resolver;
- req->func = cb;
- req->arg = cbdata;
- req->reply = NULL;
- req->qcount = queries;
- req->io = NULL;
- req->state = RDNS_REQUEST_NEW;
- req->packet = NULL;
- req->requested_names = calloc (queries, sizeof (struct rdns_request_name));
- req->async_event = NULL;
-
- if (req->requested_names == NULL) {
- free (req);
- rdns_err ("failed to allocate memory for request data: %s",
- strerror (errno));
-
- return NULL;
- }
-
- req->type = 0;
- #ifdef TWEETNACL
- req->curve_plugin_data = NULL;
- #endif
- REF_INIT_RETAIN (req, rdns_request_free);
-
- /* Calculate packet's total length based on records count */
- va_start (args, queries);
- for (i = 0; i < queries * 2; i += 2) {
- cur = i / 2;
- cur_name = va_arg (args, const char *);
- type = va_arg (args, int);
-
- if (cur_name != NULL) {
- clen = strlen (cur_name);
-
- if (clen == 0) {
- rdns_warn ("got empty name to resolve");
- rdns_request_free (req);
- return NULL;
- }
-
- if (cur_name[0] == '.') {
- /* Skip dots at the begin */
- unsigned int ndots = strspn (cur_name, ".");
-
- cur_name += ndots;
- clen -= ndots;
-
- if (clen == 0) {
- rdns_warn ("got empty name to resolve");
- rdns_request_free (req);
- return NULL;
- }
- }
-
- if (cur_name[clen - 1] == '.') {
- /* Skip trailing dots */
- while (clen >= 1 && cur_name[clen - 1] == '.') {
- clen --;
- }
-
- if (clen == 0) {
- rdns_warn ("got empty name to resolve");
- rdns_request_free (req);
- return NULL;
- }
- }
-
- if (last_name == NULL && queries == 1 && clen < MAX_FAKE_NAME) {
- /* We allocate structure in the static space */
- idx = (struct rdns_fake_reply_idx *)align_ptr (fake_buf, 16);
- idx->type = type;
- idx->len = clen;
- memcpy (idx->request, cur_name, clen);
- HASH_FIND (hh, resolver->fake_elts, idx, sizeof (*idx) + clen,
- fake_rep);
-
- if (fake_rep) {
- /* We actually treat it as a short-circuit */
- req->reply = rdns_make_reply (req, fake_rep->rcode);
- req->reply->entries = fake_rep->result;
- req->state = RDNS_REQUEST_FAKE;
- }
- }
-
- last_name = cur_name;
- tlen += clen;
- }
- else if (last_name == NULL) {
- rdns_err ("got NULL as the first name to resolve");
- rdns_request_free (req);
- return NULL;
- }
-
- if (req->state != RDNS_REQUEST_FAKE) {
- if (!rdns_format_dns_name (resolver, last_name, clen,
- &req->requested_names[cur].name, &olen)) {
- rdns_err ("cannot format %s", last_name);
- rdns_request_free (req);
- return NULL;
- }
-
- req->requested_names[cur].len = olen;
- }
- else {
- req->requested_names[cur].len = clen;
- }
-
- req->requested_names[cur].type = type;
- }
-
- va_end (args);
-
- if (req->state != RDNS_REQUEST_FAKE) {
- rdns_allocate_packet (req, tlen);
- rdns_make_dns_header (req, queries);
-
- for (i = 0; i < queries; i++) {
- cur_name = req->requested_names[i].name;
- clen = req->requested_names[i].len;
- type = req->requested_names[i].type;
- if (queries > 1) {
- if (!rdns_add_rr (req, cur_name, clen, type, &comp)) {
- rdns_err ("cannot add rr");
- REF_RELEASE (req);
- rnds_compression_free (comp);
- return NULL;
- }
- } else {
- if (!rdns_add_rr (req, cur_name, clen, type, NULL)) {
- rdns_err ("cannot add rr");
- REF_RELEASE (req);
- rnds_compression_free (comp);
- return NULL;
- }
- }
- }
-
- rnds_compression_free (comp);
-
- /* Add EDNS RR */
- rdns_add_edns0 (req);
-
- req->retransmits = repeats ? repeats : 1;
- req->timeout = timeout;
- req->state = RDNS_REQUEST_NEW;
- }
-
- req->async = resolver->async;
-
- serv = rdns_select_request_upstream (resolver, req, false, NULL);
-
- if (serv == NULL) {
- rdns_warn ("cannot find suitable server for request");
- REF_RELEASE (req);
- return NULL;
- }
-
- /* Select random IO channel */
- req->io = serv->io_channels[ottery_rand_uint32 () % serv->io_cnt];
-
- if (req->state == RDNS_REQUEST_FAKE) {
- req->async_event = resolver->async->add_write (resolver->async->data,
- req->io->sock, req);
- }
- else {
- /* Now send request to server */
- do {
- r = rdns_send_request (req, req->io->sock, true);
-
- if (r == -1) {
- req->retransmits --; /* It must be > 0 */
-
- if (req->retransmits > 0) {
- if (resolver->ups && serv->ups_elt) {
- resolver->ups->fail (serv->ups_elt, resolver->ups->data,
- "send IO error");
- }
- else {
- UPSTREAM_FAIL (serv, time (NULL));
- }
-
- serv = rdns_select_request_upstream (resolver, req,
- true, serv);
-
- if (serv == NULL) {
- rdns_warn ("cannot find suitable server for request");
- REF_RELEASE (req);
- return NULL;
- }
-
- req->io = serv->io_channels[ottery_rand_uint32 () % serv->io_cnt];
- }
- else {
- rdns_info ("cannot send DNS request: %s", strerror (errno));
- REF_RELEASE (req);
-
- if (resolver->ups && serv->ups_elt) {
- resolver->ups->fail (serv->ups_elt, resolver->ups->data,
- "send IO error");
- }
- else {
- UPSTREAM_FAIL (serv, time (NULL));
- }
-
- return NULL;
- }
- }
- else {
- /* All good */
- req->io->uses++;
- break;
- }
- } while (req->retransmits > 0);
- }
-
- REF_RETAIN (req->io);
- REF_RETAIN (req->resolver);
-
- return req;
- }
-
- bool
- rdns_resolver_init (struct rdns_resolver *resolver)
- {
- unsigned int i;
- struct rdns_server *serv;
- struct rdns_io_channel *ioc;
-
- if (!resolver->async_binded) {
- rdns_err ("no async backend specified");
- return false;
- }
-
- if (resolver->servers == NULL) {
- rdns_err ("no DNS servers defined");
- return false;
- }
-
- /* Now init io channels to all servers */
- UPSTREAM_FOREACH (resolver->servers, serv) {
- serv->io_channels = calloc (serv->io_cnt, sizeof (struct rdns_io_channel *));
-
- if (serv->io_channels == NULL) {
- rdns_err ("cannot allocate memory for the resolver IO channels");
- return false;
- }
-
- for (i = 0; i < serv->io_cnt; i ++) {
- ioc = rdns_ioc_new(serv, resolver, false);
-
- if (ioc == NULL) {
- rdns_err ("cannot allocate memory or init the IO channel");
- return false;
- }
-
- serv->io_channels[i] = ioc;
- }
-
- int ntcp_channels = 0;
-
- /*
- * We are more forgiving for TCP IO channels: we can have zero of them
- * if DNS is misconfigured and still be able to resolve stuff
- */
- serv->tcp_io_channels = calloc (serv->tcp_io_cnt, sizeof (struct rdns_io_channel *));
- if (serv->tcp_io_channels == NULL) {
- rdns_err ("cannot allocate memory for the resolver TCP IO channels");
- return false;
- }
- for (i = 0; i < serv->tcp_io_cnt; i ++) {
- ioc = rdns_ioc_new (serv, resolver, true);
-
- if (ioc == NULL) {
- rdns_err ("cannot allocate memory or init the TCP IO channel");
- continue;
- }
-
- serv->tcp_io_channels[ntcp_channels++] = ioc;
- }
-
- serv->tcp_io_cnt = ntcp_channels;
- }
-
- if (resolver->async->add_periodic) {
- resolver->periodic = resolver->async->add_periodic (resolver->async->data,
- UPSTREAM_REVIVE_TIME, rdns_process_periodic, resolver);
- }
-
- resolver->initialized = true;
-
- return true;
- }
-
- void
- rdns_resolver_register_plugin (struct rdns_resolver *resolver,
- struct rdns_plugin *plugin)
- {
- if (resolver != NULL && plugin != NULL) {
- /* XXX: support only network plugin now, and only a single one */
- if (plugin->type == RDNS_PLUGIN_CURVE) {
- resolver->curve_plugin = plugin;
- }
- }
- }
-
- void *
- rdns_resolver_add_server (struct rdns_resolver *resolver,
- const char *name, unsigned int port,
- int priority, unsigned int io_cnt)
- {
- struct rdns_server *serv;
- union {
- struct in_addr v4;
- struct in6_addr v6;
- } addr;
-
- if (inet_pton (AF_INET, name, &addr) == 0 &&
- inet_pton (AF_INET6, name, &addr) == 0) {
- /* Invalid IP */
- return NULL;
- }
-
- if (io_cnt == 0) {
- return NULL;
- }
- if (port == 0 || port > UINT16_MAX) {
- return NULL;
- }
-
- serv = calloc (1, sizeof (struct rdns_server));
- if (serv == NULL) {
- return NULL;
- }
- serv->name = strdup (name);
- if (serv->name == NULL) {
- free (serv);
- return NULL;
- }
-
- serv->io_cnt = io_cnt;
- /* TODO: make it configurable maybe? */
- serv->tcp_io_cnt = default_tcp_io_cnt;
- serv->port = port;
-
- UPSTREAM_ADD (resolver->servers, serv, priority);
-
- return serv;
- }
-
- void
- rdns_resolver_set_logger (struct rdns_resolver *resolver,
- rdns_log_function logger, void *log_data)
- {
- resolver->logger = logger;
- resolver->log_data = log_data;
- }
-
- void
- rdns_resolver_set_log_level (struct rdns_resolver *resolver,
- enum rdns_log_level level)
- {
- resolver->log_level = level;
- }
-
- void
- rdns_resolver_set_upstream_lib (struct rdns_resolver *resolver,
- struct rdns_upstream_context *ups_ctx,
- void *ups_data)
- {
- resolver->ups = ups_ctx;
- resolver->ups->data = ups_data;
- }
-
-
- void
- rdns_resolver_set_max_io_uses (struct rdns_resolver *resolver,
- uint64_t max_ioc_uses, double check_time)
- {
- if (resolver->refresh_ioc_periodic != NULL) {
- resolver->async->del_periodic (resolver->async->data,
- resolver->refresh_ioc_periodic);
- resolver->refresh_ioc_periodic = NULL;
- }
-
- resolver->max_ioc_uses = max_ioc_uses;
- if (check_time > 0.0 && resolver->async->add_periodic) {
- resolver->refresh_ioc_periodic =
- resolver->async->add_periodic (resolver->async->data,
- check_time, rdns_process_ioc_refresh, resolver);
- }
- }
-
- static void
- rdns_resolver_free (struct rdns_resolver *resolver)
- {
- struct rdns_server *serv, *stmp;
- struct rdns_io_channel *ioc;
- unsigned int i;
-
- if (resolver->initialized) {
- if (resolver->periodic != NULL) {
- resolver->async->del_periodic (resolver->async->data, resolver->periodic);
- }
- if (resolver->refresh_ioc_periodic != NULL) {
- resolver->async->del_periodic (resolver->async->data,
- resolver->refresh_ioc_periodic);
- }
- if (resolver->curve_plugin != NULL && resolver->curve_plugin->dtor != NULL) {
- resolver->curve_plugin->dtor (resolver, resolver->curve_plugin->data);
- }
- /* Stop IO watch on all IO channels */
- UPSTREAM_FOREACH_SAFE (resolver->servers, serv, stmp) {
- for (i = 0; i < serv->io_cnt; i ++) {
- ioc = serv->io_channels[i];
- REF_RELEASE (ioc);
- }
- for (i = 0; i < serv->tcp_io_cnt; i ++) {
- ioc = serv->tcp_io_channels[i];
- REF_RELEASE (ioc);
- }
- UPSTREAM_DEL (resolver->servers, serv);
- free (serv->io_channels);
- free (serv->tcp_io_channels);
- free (serv->name);
- free (serv);
- }
- }
- free (resolver->async);
- free (resolver);
- }
-
-
- struct rdns_resolver *
- rdns_resolver_new (int flags)
- {
- struct rdns_resolver *new_resolver;
-
- new_resolver = calloc (1, sizeof (struct rdns_resolver));
-
- REF_INIT_RETAIN (new_resolver, rdns_resolver_free);
-
- new_resolver->logger = rdns_logger_internal;
- new_resolver->log_data = new_resolver;
- new_resolver->flags = flags;
-
- return new_resolver;
- }
-
- void
- rdns_resolver_async_bind (struct rdns_resolver *resolver,
- struct rdns_async_context *ctx)
- {
- if (resolver != NULL && ctx != NULL) {
- resolver->async = ctx;
- resolver->async_binded = true;
- }
- }
-
- void
- rdns_resolver_set_dnssec (struct rdns_resolver *resolver, bool enabled)
- {
- if (resolver) {
- resolver->enable_dnssec = enabled;
- }
- }
-
-
- void rdns_resolver_set_fake_reply (struct rdns_resolver *resolver,
- const char *name,
- enum rdns_request_type type,
- enum dns_rcode rcode,
- struct rdns_reply_entry *reply)
- {
- struct rdns_fake_reply *fake_rep;
- struct rdns_fake_reply_idx *srch;
- unsigned len = strlen (name);
-
- assert (len < MAX_FAKE_NAME);
- srch = malloc (sizeof (*srch) + len);
- srch->len = len;
- srch->type = type;
- memcpy (srch->request, name, len);
-
- HASH_FIND (hh, resolver->fake_elts, srch, len + sizeof (*srch), fake_rep);
-
- if (fake_rep) {
- /* Append reply to the existing list */
- fake_rep->rcode = rcode;
-
- if (reply) {
- DL_CONCAT (fake_rep->result, reply);
- }
- }
- else {
- fake_rep = calloc (1, sizeof (*fake_rep) + len);
-
- if (fake_rep == NULL) {
- abort ();
- }
-
- fake_rep->rcode = rcode;
-
- memcpy (&fake_rep->key, srch, sizeof (*srch) + len);
-
- if (reply) {
- DL_CONCAT (fake_rep->result, reply);
- }
-
- HASH_ADD (hh, resolver->fake_elts, key, sizeof (*srch) + len, fake_rep);
- }
-
- free (srch);
- }
|