?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Detect FPU by checking CPUID features.
[dragonfly.git] / contrib / bind-9.5.2 / lib / dns / rootns.c
blob0121325f15944cb6cb8f15446aea0354fe2e3e5b
1 /*
2 * Copyright (C) 2004, 2005, 2007, 2008 Internet Systems Consortium, Inc. ("ISC")
3 * Copyright (C) 1999-2002 Internet Software Consortium.
4 *
5 * Permission to use, copy, modify, and/or distribute this software for any
6 * purpose with or without fee is hereby granted, provided that the above
7 * copyright notice and this permission notice appear in all copies.
8 *
9 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10 * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11 * AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13 * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14 * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15 * PERFORMANCE OF THIS SOFTWARE.
16 */
17
18 /* $Id: rootns.c,v 1.32.24.2 2008/02/05 23:46:39 tbox Exp $ */
19
20 /*! \file */
21
22 #include <config.h>
23
24 #include <isc/buffer.h>
25 #include <isc/string.h> /* Required for HP/UX (and others?) */
26 #include <isc/util.h>
27
28 #include <dns/callbacks.h>
29 #include <dns/db.h>
30 #include <dns/dbiterator.h>
31 #include <dns/fixedname.h>
32 #include <dns/log.h>
33 #include <dns/master.h>
34 #include <dns/rdata.h>
35 #include <dns/rdata.h>
36 #include <dns/rdataset.h>
37 #include <dns/rdatasetiter.h>
38 #include <dns/rdatastruct.h>
39 #include <dns/rdatatype.h>
40 #include <dns/result.h>
41 #include <dns/rootns.h>
42 #include <dns/view.h>
43
44 static char root_ns[] =
45 ";\n"
46 "; Internet Root Nameservers\n"
47 ";\n"
48 "$TTL 518400\n"
49 ". 518400 IN NS A.ROOT-SERVERS.NET.\n"
50 ". 518400 IN NS B.ROOT-SERVERS.NET.\n"
51 ". 518400 IN NS C.ROOT-SERVERS.NET.\n"
52 ". 518400 IN NS D.ROOT-SERVERS.NET.\n"
53 ". 518400 IN NS E.ROOT-SERVERS.NET.\n"
54 ". 518400 IN NS F.ROOT-SERVERS.NET.\n"
55 ". 518400 IN NS G.ROOT-SERVERS.NET.\n"
56 ". 518400 IN NS H.ROOT-SERVERS.NET.\n"
57 ". 518400 IN NS I.ROOT-SERVERS.NET.\n"
58 ". 518400 IN NS J.ROOT-SERVERS.NET.\n"
59 ". 518400 IN NS K.ROOT-SERVERS.NET.\n"
60 ". 518400 IN NS L.ROOT-SERVERS.NET.\n"
61 ". 518400 IN NS M.ROOT-SERVERS.NET.\n"
62 "A.ROOT-SERVERS.NET. 3600000 IN A 198.41.0.4\n"
63 "A.ROOT-SERVERS.NET. 3600000 IN AAAA 2001:503:BA3E::2:30\n"
64 "B.ROOT-SERVERS.NET. 3600000 IN A 192.228.79.201\n"
65 "C.ROOT-SERVERS.NET. 3600000 IN A 192.33.4.12\n"
66 "D.ROOT-SERVERS.NET. 3600000 IN A 128.8.10.90\n"
67 "E.ROOT-SERVERS.NET. 3600000 IN A 192.203.230.10\n"
68 "F.ROOT-SERVERS.NET. 3600000 IN A 192.5.5.241\n"
69 "F.ROOT-SERVERS.NET. 3600000 IN AAAA 2001:500:2F::F\n"
70 "G.ROOT-SERVERS.NET. 3600000 IN A 192.112.36.4\n"
71 "H.ROOT-SERVERS.NET. 3600000 IN A 128.63.2.53\n"
72 "H.ROOT-SERVERS.NET. 3600000 IN AAAA 2001:500:1::803F:235\n"
73 "I.ROOT-SERVERS.NET. 3600000 IN A 192.36.148.17\n"
74 "J.ROOT-SERVERS.NET. 3600000 IN A 192.58.128.30\n"
75 "J.ROOT-SERVERS.NET. 3600000 IN AAAA 2001:503:C27::2:30\n"
76 "K.ROOT-SERVERS.NET. 3600000 IN A 193.0.14.129\n"
77 "K.ROOT-SERVERS.NET. 3600000 IN AAAA 2001:7FD::1\n"
78 "L.ROOT-SERVERS.NET. 3600000 IN A 199.7.83.42\n"
79 "M.ROOT-SERVERS.NET. 3600000 IN A 202.12.27.33\n"
80 "M.ROOT-SERVERS.NET. 3600000 IN AAAA 2001:DC3::35\n";
81
82 static isc_result_t
83 in_rootns(dns_rdataset_t *rootns, dns_name_t *name) {
84 isc_result_t result;
85 dns_rdata_t rdata = DNS_RDATA_INIT;
86 dns_rdata_ns_t ns;
87
88 if (!dns_rdataset_isassociated(rootns))
89 return (ISC_R_NOTFOUND);
90
91 result = dns_rdataset_first(rootns);
92 while (result == ISC_R_SUCCESS) {
93 dns_rdataset_current(rootns, &rdata);
94 result = dns_rdata_tostruct(&rdata, &ns, NULL);
95 if (result != ISC_R_SUCCESS)
96 return (result);
97 if (dns_name_compare(name, &ns.name) == 0)
98 return (ISC_R_SUCCESS);
99 result = dns_rdataset_next(rootns);
100 }
101 if (result == ISC_R_NOMORE)
102 result = ISC_R_NOTFOUND;
103 return (result);
104 }
105
106 static isc_result_t
107 check_node(dns_rdataset_t *rootns, dns_name_t *name,
108 dns_rdatasetiter_t *rdsiter) {
109 isc_result_t result;
110 dns_rdataset_t rdataset;
111
112 dns_rdataset_init(&rdataset);
113 result = dns_rdatasetiter_first(rdsiter);
114 while (result == ISC_R_SUCCESS) {
115 dns_rdatasetiter_current(rdsiter, &rdataset);
116 switch (rdataset.type) {
117 case dns_rdatatype_a:
118 case dns_rdatatype_aaaa:
119 result = in_rootns(rootns, name);
120 if (result != ISC_R_SUCCESS)
121 goto cleanup;
122 break;
123 case dns_rdatatype_ns:
124 if (dns_name_compare(name, dns_rootname) == 0)
125 break;
126 /*FALLTHROUGH*/
127 default:
128 result = ISC_R_FAILURE;
129 goto cleanup;
130 }
131 dns_rdataset_disassociate(&rdataset);
132 result = dns_rdatasetiter_next(rdsiter);
133 }
134 if (result == ISC_R_NOMORE)
135 result = ISC_R_SUCCESS;
136 cleanup:
137 if (dns_rdataset_isassociated(&rdataset))
138 dns_rdataset_disassociate(&rdataset);
139 return (result);
140 }
141
142 static isc_result_t
143 check_hints(dns_db_t *db) {
144 isc_result_t result;
145 dns_rdataset_t rootns;
146 dns_dbiterator_t *dbiter = NULL;
147 dns_dbnode_t *node = NULL;
148 isc_stdtime_t now;
149 dns_fixedname_t fixname;
150 dns_name_t *name;
151 dns_rdatasetiter_t *rdsiter = NULL;
152
153 isc_stdtime_get(&now);
154
155 dns_fixedname_init(&fixname);
156 name = dns_fixedname_name(&fixname);
157
158 dns_rdataset_init(&rootns);
159 (void)dns_db_find(db, dns_rootname, NULL, dns_rdatatype_ns, 0,
160 now, NULL, name, &rootns, NULL);
161 result = dns_db_createiterator(db, ISC_FALSE, &dbiter);
162 if (result != ISC_R_SUCCESS)
163 goto cleanup;
164 result = dns_dbiterator_first(dbiter);
165 while (result == ISC_R_SUCCESS) {
166 result = dns_dbiterator_current(dbiter, &node, name);
167 if (result != ISC_R_SUCCESS)
168 goto cleanup;
169 result = dns_db_allrdatasets(db, node, NULL, now, &rdsiter);
170 if (result != ISC_R_SUCCESS)
171 goto cleanup;
172 result = check_node(&rootns, name, rdsiter);
173 if (result != ISC_R_SUCCESS)
174 goto cleanup;
175 dns_rdatasetiter_destroy(&rdsiter);
176 dns_db_detachnode(db, &node);
177 result = dns_dbiterator_next(dbiter);
178 }
179 if (result == ISC_R_NOMORE)
180 result = ISC_R_SUCCESS;
181
182 cleanup:
183 if (dns_rdataset_isassociated(&rootns))
184 dns_rdataset_disassociate(&rootns);
185 if (rdsiter != NULL)
186 dns_rdatasetiter_destroy(&rdsiter);
187 if (node != NULL)
188 dns_db_detachnode(db, &node);
189 if (dbiter != NULL)
190 dns_dbiterator_destroy(&dbiter);
191 return (result);
192 }
193
194 isc_result_t
195 dns_rootns_create(isc_mem_t *mctx, dns_rdataclass_t rdclass,
196 const char *filename, dns_db_t **target)
197 {
198 isc_result_t result, eresult;
199 isc_buffer_t source;
200 size_t len;
201 dns_rdatacallbacks_t callbacks;
202 dns_db_t *db = NULL;
203
204 REQUIRE(target != NULL && *target == NULL);
205
206 result = dns_db_create(mctx, "rbt", dns_rootname, dns_dbtype_zone,
207 rdclass, 0, NULL, &db);
208 if (result != ISC_R_SUCCESS)
209 return (result);
210
211 dns_rdatacallbacks_init(&callbacks);
212
213 len = strlen(root_ns);
214 isc_buffer_init(&source, root_ns, len);
215 isc_buffer_add(&source, len);
216
217 result = dns_db_beginload(db, &callbacks.add,
218 &callbacks.add_private);
219 if (result != ISC_R_SUCCESS)
220 return (result);
221 if (filename != NULL) {
222 /*
223 * Load the hints from the specified filename.
224 */
225 result = dns_master_loadfile(filename, &db->origin,
226 &db->origin, db->rdclass,
227 DNS_MASTER_HINT,
228 &callbacks, db->mctx);
229 } else if (rdclass == dns_rdataclass_in) {
230 /*
231 * Default to using the Internet root servers.
232 */
233 result = dns_master_loadbuffer(&source, &db->origin,
234 &db->origin, db->rdclass,
235 DNS_MASTER_HINT,
236 &callbacks, db->mctx);
237 } else
238 result = ISC_R_NOTFOUND;
239 eresult = dns_db_endload(db, &callbacks.add_private);
240 if (result == ISC_R_SUCCESS || result == DNS_R_SEENINCLUDE)
241 result = eresult;
242 if (result != ISC_R_SUCCESS && result != DNS_R_SEENINCLUDE)
243 goto db_detach;
244 if (check_hints(db) != ISC_R_SUCCESS)
245 isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
246 DNS_LOGMODULE_HINTS, ISC_LOG_WARNING,
247 "extra data in root hints '%s'",
248 (filename != NULL) ? filename : "<BUILT-IN>");
249 *target = db;
250 return (ISC_R_SUCCESS);
251
252 db_detach:
253 dns_db_detach(&db);
254
255 return (result);
256 }
257
258 static void
259 report(dns_view_t *view, dns_name_t *name, isc_boolean_t missing,
260 dns_rdata_t *rdata)
261 {
262 const char *viewname = "", *sep = "";
263 char namebuf[DNS_NAME_FORMATSIZE];
264 char typebuf[DNS_RDATATYPE_FORMATSIZE];
265 char databuf[sizeof("xxxx:xxxx:xxxx:xxxx:xxxx:xxxx:123.123.123.123")];
266 isc_buffer_t buffer;
267 isc_result_t result;
268
269 if (strcmp(view->name, "_bind") != 0 &&
270 strcmp(view->name, "_default") != 0) {
271 viewname = view->name;
272 sep = ": view ";
273 }
274
275 dns_name_format(name, namebuf, sizeof(namebuf));
276 dns_rdatatype_format(rdata->type, typebuf, sizeof(typebuf));
277 isc_buffer_init(&buffer, databuf, sizeof(databuf) - 1);
278 result = dns_rdata_totext(rdata, NULL, &buffer);
279 RUNTIME_CHECK(result == ISC_R_SUCCESS);
280 databuf[isc_buffer_usedlength(&buffer)] = '\0';
281
282 if (missing)
283 isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
284 DNS_LOGMODULE_HINTS, ISC_LOG_WARNING,
285 "checkhints%s%s: %s/%s (%s) missing from hints",
286 sep, viewname, namebuf, typebuf, databuf);
287 else
288 isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
289 DNS_LOGMODULE_HINTS, ISC_LOG_WARNING,
290 "checkhints%s%s: %s/%s (%s) extra record "
291 "in hints", sep, viewname, namebuf, typebuf,
292 databuf);
293 }
294
295 static isc_boolean_t
296 inrrset(dns_rdataset_t *rrset, dns_rdata_t *rdata) {
297 isc_result_t result;
298 dns_rdata_t current = DNS_RDATA_INIT;
299
300 result = dns_rdataset_first(rrset);
301 while (result == ISC_R_SUCCESS) {
302 dns_rdataset_current(rrset, &current);
303 if (dns_rdata_compare(rdata, &current) == 0)
304 return (ISC_TRUE);
305 dns_rdata_reset(&current);
306 result = dns_rdataset_next(rrset);
307 }
308 return (ISC_FALSE);
309 }
310
311 /*
312 * Check that the address RRsets match.
313 *
314 * Note we don't complain about missing glue records.
315 */
316
317 static void
318 check_address_records(dns_view_t *view, dns_db_t *hints, dns_db_t *db,
319 dns_name_t *name, isc_stdtime_t now)
320 {
321 isc_result_t hresult, rresult, result;
322 dns_rdataset_t hintrrset, rootrrset;
323 dns_rdata_t rdata = DNS_RDATA_INIT;
324 dns_name_t *foundname;
325 dns_fixedname_t fixed;
326
327 dns_rdataset_init(&hintrrset);
328 dns_rdataset_init(&rootrrset);
329 dns_fixedname_init(&fixed);
330 foundname = dns_fixedname_name(&fixed);
331
332 hresult = dns_db_find(hints, name, NULL, dns_rdatatype_a, 0,
333 now, NULL, foundname, &hintrrset, NULL);
334 rresult = dns_db_find(db, name, NULL, dns_rdatatype_a,
335 DNS_DBFIND_GLUEOK, now, NULL, foundname,
336 &rootrrset, NULL);
337 if (hresult == ISC_R_SUCCESS &&
338 (rresult == ISC_R_SUCCESS || rresult == DNS_R_GLUE)) {
339 result = dns_rdataset_first(&rootrrset);
340 while (result == ISC_R_SUCCESS) {
341 dns_rdataset_current(&rootrrset, &rdata);
342 if (!inrrset(&hintrrset, &rdata))
343 report(view, name, ISC_TRUE, &rdata);
344 result = dns_rdataset_next(&rootrrset);
345 }
346 result = dns_rdataset_first(&hintrrset);
347 while (result == ISC_R_SUCCESS) {
348 dns_rdataset_current(&hintrrset, &rdata);
349 if (!inrrset(&rootrrset, &rdata))
350 report(view, name, ISC_FALSE, &rdata);
351 result = dns_rdataset_next(&hintrrset);
352 }
353 }
354 if (hresult == ISC_R_NOTFOUND &&
355 (rresult == ISC_R_SUCCESS || rresult == DNS_R_GLUE)) {
356 result = dns_rdataset_first(&rootrrset);
357 while (result == ISC_R_SUCCESS) {
358 dns_rdataset_current(&rootrrset, &rdata);
359 report(view, name, ISC_TRUE, &rdata);
360 result = dns_rdataset_next(&rootrrset);
361 }
362 }
363 if (dns_rdataset_isassociated(&rootrrset))
364 dns_rdataset_disassociate(&rootrrset);
365 if (dns_rdataset_isassociated(&hintrrset))
366 dns_rdataset_disassociate(&hintrrset);
367
368 /*
369 * Check AAAA records.
370 */
371 hresult = dns_db_find(hints, name, NULL, dns_rdatatype_aaaa, 0,
372 now, NULL, foundname, &hintrrset, NULL);
373 rresult = dns_db_find(db, name, NULL, dns_rdatatype_aaaa,
374 DNS_DBFIND_GLUEOK, now, NULL, foundname,
375 &rootrrset, NULL);
376 if (hresult == ISC_R_SUCCESS &&
377 (rresult == ISC_R_SUCCESS || rresult == DNS_R_GLUE)) {
378 result = dns_rdataset_first(&rootrrset);
379 while (result == ISC_R_SUCCESS) {
380 dns_rdataset_current(&rootrrset, &rdata);
381 if (!inrrset(&hintrrset, &rdata))
382 report(view, name, ISC_TRUE, &rdata);
383 dns_rdata_reset(&rdata);
384 result = dns_rdataset_next(&rootrrset);
385 }
386 result = dns_rdataset_first(&hintrrset);
387 while (result == ISC_R_SUCCESS) {
388 dns_rdataset_current(&hintrrset, &rdata);
389 if (!inrrset(&rootrrset, &rdata))
390 report(view, name, ISC_FALSE, &rdata);
391 dns_rdata_reset(&rdata);
392 result = dns_rdataset_next(&hintrrset);
393 }
394 }
395 if (hresult == ISC_R_NOTFOUND &&
396 (rresult == ISC_R_SUCCESS || rresult == DNS_R_GLUE)) {
397 result = dns_rdataset_first(&rootrrset);
398 while (result == ISC_R_SUCCESS) {
399 dns_rdataset_current(&rootrrset, &rdata);
400 report(view, name, ISC_TRUE, &rdata);
401 dns_rdata_reset(&rdata);
402 result = dns_rdataset_next(&rootrrset);
403 }
404 }
405 if (dns_rdataset_isassociated(&rootrrset))
406 dns_rdataset_disassociate(&rootrrset);
407 if (dns_rdataset_isassociated(&hintrrset))
408 dns_rdataset_disassociate(&hintrrset);
409 }
410
411 void
412 dns_root_checkhints(dns_view_t *view, dns_db_t *hints, dns_db_t *db) {
413 isc_result_t result;
414 dns_rdata_t rdata = DNS_RDATA_INIT;
415 dns_rdata_ns_t ns;
416 dns_rdataset_t hintns, rootns;
417 const char *viewname = "", *sep = "";
418 isc_stdtime_t now;
419 dns_name_t *name;
420 dns_fixedname_t fixed;
421
422 REQUIRE(hints != NULL);
423 REQUIRE(db != NULL);
424 REQUIRE(view != NULL);
425
426 isc_stdtime_get(&now);
427
428 if (strcmp(view->name, "_bind") != 0 &&
429 strcmp(view->name, "_default") != 0) {
430 viewname = view->name;
431 sep = ": view ";
432 }
433
434 dns_rdataset_init(&hintns);
435 dns_rdataset_init(&rootns);
436 dns_fixedname_init(&fixed);
437 name = dns_fixedname_name(&fixed);
438
439 result = dns_db_find(hints, dns_rootname, NULL, dns_rdatatype_ns, 0,
440 now, NULL, name, &hintns, NULL);
441 if (result != ISC_R_SUCCESS) {
442 isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
443 DNS_LOGMODULE_HINTS, ISC_LOG_WARNING,
444 "checkhints%s%s: unable to get root NS rrset "
445 "from hints: %s", sep, viewname,
446 dns_result_totext(result));
447 goto cleanup;
448 }
449
450 result = dns_db_find(db, dns_rootname, NULL, dns_rdatatype_ns, 0,
451 now, NULL, name, &rootns, NULL);
452 if (result != ISC_R_SUCCESS) {
453 isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
454 DNS_LOGMODULE_HINTS, ISC_LOG_WARNING,
455 "checkhints%s%s: unable to get root NS rrset "
456 "from cache: %s", sep, viewname,
457 dns_result_totext(result));
458 goto cleanup;
459 }
460
461 /*
462 * Look for missing root NS names.
463 */
464 result = dns_rdataset_first(&rootns);
465 while (result == ISC_R_SUCCESS) {
466 dns_rdataset_current(&rootns, &rdata);
467 result = dns_rdata_tostruct(&rdata, &ns, NULL);
468 RUNTIME_CHECK(result == ISC_R_SUCCESS);
469 result = in_rootns(&hintns, &ns.name);
470 if (result != ISC_R_SUCCESS) {
471 char namebuf[DNS_NAME_FORMATSIZE];
472 /* missing from hints */
473 dns_name_format(&ns.name, namebuf, sizeof(namebuf));
474 isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
475 DNS_LOGMODULE_HINTS, ISC_LOG_WARNING,
476 "checkhints%s%s: unable to find root "
477 "NS '%s' in hints", sep, viewname,
478 namebuf);
479 } else
480 check_address_records(view, hints, db, &ns.name, now);
481 dns_rdata_reset(&rdata);
482 result = dns_rdataset_next(&rootns);
483 }
484 if (result != ISC_R_NOMORE) {
485 goto cleanup;
486 }
487
488 /*
489 * Look for extra root NS names.
490 */
491 result = dns_rdataset_first(&hintns);
492 while (result == ISC_R_SUCCESS) {
493 dns_rdataset_current(&hintns, &rdata);
494 result = dns_rdata_tostruct(&rdata, &ns, NULL);
495 RUNTIME_CHECK(result == ISC_R_SUCCESS);
496 result = in_rootns(&rootns, &ns.name);
497 if (result != ISC_R_SUCCESS) {
498 char namebuf[DNS_NAME_FORMATSIZE];
499 /* extra entry in hints */
500 dns_name_format(&ns.name, namebuf, sizeof(namebuf));
501 isc_log_write(dns_lctx, DNS_LOGCATEGORY_GENERAL,
502 DNS_LOGMODULE_HINTS, ISC_LOG_WARNING,
503 "checkhints%s%s: extra NS '%s' in hints",
504 sep, viewname, namebuf);
505 }
506 dns_rdata_reset(&rdata);
507 result = dns_rdataset_next(&hintns);
508 }
509 if (result != ISC_R_NOMORE) {
510 goto cleanup;
511 }
512
513 cleanup:
514 if (dns_rdataset_isassociated(&rootns))
515 dns_rdataset_disassociate(&rootns);
516 if (dns_rdataset_isassociated(&hintns))
517 dns_rdataset_disassociate(&hintns);
518 }
DragonFly BSD