dns.c 10.2 KB
Newer Older
1
2
3
4
5
/* Copyright 2003 Roger Dingledine. */
/* See LICENSE for licensing information */
/* $Id$ */

#include "or.h"
6
#include "tree.h"
7

8
9
#define MAX_ADDRESSLEN 256

10
11
#define MAX_DNSWORKERS 50
#define MIN_DNSWORKERS 3
12

13
14
int num_workers=0;
int num_workers_busy=0;
15

16
17
18
19
20
static int dns_assign_to_worker(connection_t *exitconn);
static int dns_found_answer(char *question, uint32_t answer);
static void dnsworker_main(int fd);
static int dns_spawn_worker(void);
static void spawn_enough_workers(void);
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

struct pending_connection_t {
  struct connection_t *conn;
  struct pending_connection_t *next;
};

struct cached_resolve {
  SPLAY_ENTRY(cached_resolve) node;
  char question[MAX_ADDRESSLEN]; /* the hostname to be resolved */
  uint32_t answer; /* in host order. I know I'm horrible for assuming ipv4 */
  char state; /* 0 is pending; 1 means answer is valid; 2 means resolve failed */
#define CACHE_STATE_PENDING 0
#define CACHE_STATE_VALID 1
#define CACHE_STATE_FAILED 2
  uint32_t expire; /* remove untouched items from cache after some time? */
  struct pending_connection_t *pending_connections;
  struct cached_resolve *next;
};

SPLAY_HEAD(cache_tree, cached_resolve) cache_root;

static int compare_cached_resolves(struct cached_resolve *a, struct cached_resolve *b) {
  /* make this smarter one day? */
  return strncasecmp(a->question, b->question, MAX_ADDRESSLEN);
}

SPLAY_PROTOTYPE(cache_tree, cached_resolve, node, compare_cached_resolves);
SPLAY_GENERATE(cache_tree, cached_resolve, node, compare_cached_resolves);

50
static void init_cache_tree(void) {
51
52
53
  SPLAY_INIT(&cache_root);
}

54
55
56
57
void dns_init(void) {
  init_cache_tree();
  spawn_enough_workers();
}
58

59
60
61
/* See if the question 'exitconn->address' has been answered. if so,
 * if resolve valid, put it into exitconn->addr and exec to
 * connection_exit_connect. If resolve failed, return -1.
62
63
64
65
66
67
68
69
70
 *
 * Else, if seen before and pending, add conn to the pending list,
 * and return 0.
 *
 * Else, if not seen before, add conn to pending list, hand to
 * dns farm, and return 0.
 */
int dns_resolve(connection_t *exitconn) {
  struct cached_resolve *resolve;
Roger Dingledine's avatar
   
Roger Dingledine committed
71
  struct cached_resolve search;
72
73
  struct pending_connection_t *pending_connection;

Roger Dingledine's avatar
   
Roger Dingledine committed
74
  strncpy(search.question, exitconn->address, MAX_ADDRESSLEN);
75

76
  /* check the tree to see if 'question' is already there. */
Roger Dingledine's avatar
   
Roger Dingledine committed
77
  resolve = SPLAY_FIND(cache_tree, &cache_root, &search);
78
  if(resolve) { /* already there */
79
80
81
    switch(resolve->state) {
      case CACHE_STATE_PENDING:
        /* add us to the pending list */
82
        pending_connection = tor_malloc(sizeof(struct pending_connection_t));
83
        pending_connection->conn = exitconn;
Roger Dingledine's avatar
   
Roger Dingledine committed
84
85
86
        pending_connection->next = resolve->pending_connections;
        resolve->pending_connections = pending_connection;
        return 0;
87
88
89
90
91
92
      case CACHE_STATE_VALID:
        exitconn->addr = resolve->answer;
        return connection_exit_connect(exitconn);
      case CACHE_STATE_FAILED:
        return -1;
    }
93
  } else { /* need to add it */
94
    resolve = tor_malloc(sizeof(struct cached_resolve));
Roger Dingledine's avatar
   
Roger Dingledine committed
95
96
97
    memset(resolve, 0, sizeof(struct cached_resolve));
    resolve->state = CACHE_STATE_PENDING;
    strncpy(resolve->question, exitconn->address, MAX_ADDRESSLEN);
98
99

    /* add us to the pending list */
100
    pending_connection = tor_malloc(sizeof(struct pending_connection_t));
101
    pending_connection->conn = exitconn;
Roger Dingledine's avatar
   
Roger Dingledine committed
102
103
    pending_connection->next = resolve->pending_connections;
    resolve->pending_connections = pending_connection;
104

Roger Dingledine's avatar
   
Roger Dingledine committed
105
    SPLAY_INSERT(cache_tree, &cache_root, resolve);
106
    return dns_assign_to_worker(exitconn);
107
108
109
110
111
112
  }

  assert(0);
  return 0; /* not reached; keep gcc happy */
}

113
static int dns_assign_to_worker(connection_t *exitconn) {
114
115
  connection_t *dnsconn;
  unsigned char len;
116
117
118
  struct hostent *rent;

  spawn_enough_workers(); /* respawn here, to be sure there are enough */
119

120
  dnsconn = connection_get_by_type_state(CONN_TYPE_DNSWORKER, DNSWORKER_STATE_IDLE);
121
122

  if(!dnsconn) {
123
    log(LOG_INFO,"dns_assign_to_worker(): no idle dns workers. Doing it myself.");
124

125
    /* short version which does it all right here */
126
127
    rent = gethostbyname(exitconn->address);
    if (!rent) {
128
      return dns_found_answer(exitconn->address, 0);
129
    }
130
    return dns_found_answer(exitconn->address, *(uint32_t *)rent->h_addr);
131
132
  }

133
134
135
  dnsconn->address = strdup(exitconn->address);
  dnsconn->state = DNSWORKER_STATE_BUSY;
  num_workers_busy++;
136

137
138
139
140
141
142
  len = strlen(dnsconn->address);
  /* FFFF we should have it retry if the first worker bombs out */
  if(connection_write_to_buf(&len, 1, dnsconn) < 0 ||
     connection_write_to_buf(dnsconn->address, len, dnsconn) < 0) {
    log(LOG_NOTICE,"dns_assign_to_worker(): Write failed. Closing worker and failing resolve.");
    dnsconn->marked_for_close = 1;
143
144
145
    return -1;
  }

146
//  log(LOG_DEBUG,"dns_assign_to_worker(): submitted '%s'", exitconn->address);
147
148
149
  return 0;
}

150
static int dns_found_answer(char *question, uint32_t answer) {
151
152
153
154
155
156
157
158
159
160
161
162
  struct pending_connection_t *pend;
  struct cached_resolve search;
  struct cached_resolve *resolve;

  strncpy(search.question, question, MAX_ADDRESSLEN);

  resolve = SPLAY_FIND(cache_tree, &cache_root, &search);
  if(!resolve) {
    log(LOG_ERR,"dns_found_answer(): Answer to unasked question '%s'? Dropping.", question);
    return 0;
  }

163
  assert(resolve->state == CACHE_STATE_PENDING);
164
165
166
167
168
169
170
171
  /* XXX this is a bug which hasn't been found yet. Probably something
   * about slaves answering questions when they're not supposed to, and
   * reusing the old question.
   */
  if(resolve->state != CACHE_STATE_PENDING) {
    log(LOG_ERR,"dns_found_answer(): BUG: resolve '%s' in state %d (not pending). Dropping.",question, resolve->state);
    return 0;
  }
172

173
  resolve->answer = ntohl(answer);
174
  if(resolve->answer)
175
176
177
178
179
180
    resolve->state = CACHE_STATE_VALID;
  else
    resolve->state = CACHE_STATE_FAILED;

  while(resolve->pending_connections) {
    pend = resolve->pending_connections;
181
    pend->conn->addr = resolve->answer;
182
183
184
185
186
187
188
189
190
    if(resolve->state == CACHE_STATE_FAILED || connection_exit_connect(pend->conn) < 0) {
      pend->conn->marked_for_close = 1;
    }
    resolve->pending_connections = pend->next;
    free(pend);
  }
  return 0;
}

191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
/******************************************************************/

int connection_dns_finished_flushing(connection_t *conn) {
  assert(conn && conn->type == CONN_TYPE_DNSWORKER);
  connection_stop_writing(conn);
  return 0;
}

int connection_dns_process_inbuf(connection_t *conn) {
  uint32_t answer;

  assert(conn && conn->type == CONN_TYPE_DNSWORKER);

  if(conn->inbuf_reached_eof) {
    log(LOG_ERR,"connection_dnsworker_process_inbuf(): Read eof. Worker dying.");
    /* XXX if the dns request is pending, go through and either repeat or mark it failed */
    return -1;
  }

  assert(conn->state == DNSWORKER_STATE_BUSY);
  if(conn->inbuf_datalen < 4) /* entire answer available? */
    return 0; /* not yet */
  assert(conn->inbuf_datalen == 4);

  if(connection_fetch_from_buf((char*)&answer,sizeof(answer),conn) < 0) {
    log(LOG_ERR,"connection_dnsworker_process_inbuf(): Broken inbuf. Worker dying.");
    /* XXX exitconn's never going to get his answer :( */
    return -1;
  }

  dns_found_answer(conn->address, answer);

  free(conn->address);
  conn->address = NULL;
  conn->state = DNSWORKER_STATE_IDLE;
  num_workers_busy--;

  return 0;
}

static void dnsworker_main(int fd) {
  char question[MAX_ADDRESSLEN];
  unsigned char question_len;
  struct hostent *rent;

  for(;;) {

    if(read(fd, &question_len, 1) != 1) {
      log(LOG_INFO,"dnsworker_main(): read length failed. Exiting.");
      exit(0);
    }
    assert(question_len > 0);

    if(read(fd, question, question_len) != question_len) {
      log(LOG_INFO,"dnsworker_main(): read hostname failed. Exiting.");
      exit(0);
    }
    question[question_len] = 0; /* null terminate it */

    rent = gethostbyname(question);
    if (!rent) {
      log(LOG_INFO,"dnsworker_main(): Could not resolve dest addr %s. Returning nulls.",question);
      /* XXX it's conceivable write could return 1 through 3. but that's never gonna happen, right? */
      if(write(fd, "\0\0\0\0", 4) != 4) {
        log(LOG_INFO,"dnsworker_main(): writing nulls failed. Exiting.");
        exit(0);
      }
    } else {
      assert(rent->h_length == 4); /* break to remind us if we move away from ipv4 */
      if(write(fd, rent->h_addr, 4) != 4) {
        log(LOG_INFO,"dnsworker_main(): writing answer failed. Exiting.");
        exit(0);
      }
      log(LOG_INFO,"dnsworker_main(): Answered question '%s'.",question);
    }
  }
}

static int dns_spawn_worker(void) {
  pid_t pid;
  int fd[2];
  connection_t *conn;

  if(socketpair(AF_UNIX, SOCK_STREAM, 0, fd) < 0) {
    perror("socketpair");
    exit(1);
  }

  pid = fork();
  if(pid < 0) {
    perror("fork");
    exit(1);
  }
  if(pid == 0) { /* i'm the child */
    close(fd[0]);
    dnsworker_main(fd[1]);
    assert(0); /* never gets here */
  }

  /* i'm the parent */
  log(LOG_DEBUG,"dns_spawn_worker(): just spawned a worker.");
  close(fd[1]);

  conn = connection_new(CONN_TYPE_DNSWORKER);
  if(!conn) {
    close(fd[0]);
    return -1;
  }

  fcntl(fd[0], F_SETFL, O_NONBLOCK); /* set it to non-blocking */

  /* set up conn so it's got all the data we need to remember */
  conn->receiver_bucket = -1; /* non-cell connections don't do receiver buckets */
  conn->bandwidth = -1;
  conn->s = fd[0];

  if(connection_add(conn) < 0) { /* no space, forget it */
    log(LOG_INFO,"dns_spawn_worker(): connection_add failed. Giving up.");
    connection_free(conn); /* this closes fd[0] */
    return -1;
  }

  conn->state = DNSWORKER_STATE_IDLE;
  connection_start_reading(conn);

  return 0; /* success */
}

static void spawn_enough_workers(void) {
  int num_workers_needed; /* aim to have 1 more than needed,
                           * but no less than min and no more than max */

  if(num_workers_busy >= MIN_DNSWORKERS)
    num_workers_needed = num_workers_busy+1;
  else
    num_workers_needed = MIN_DNSWORKERS;

  if(num_workers_needed >= MAX_DNSWORKERS)
    num_workers_needed = MAX_DNSWORKERS;

  while(num_workers < num_workers_needed) {
    if(dns_spawn_worker() < 0) {
      log(LOG_ERR,"spawn_enough_workers(): spawn failed!");
      return;
    }
    num_workers++;
  }

  /* FFFF this is where we will cull extra workers */
}

342
343
344
345
346
347
348
/*
  Local Variables:
  mode:c
  indent-tabs-mode:nil
  c-basic-offset:2
  End:
*/