dighost.c revision 77365675e9db53de6ef728c98fc696ce86e88e63
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews/*
67a1122d50d24747976844db61a2c994a9b8b1e4Tinderbox User * Copyright (C) 2000 Internet Software Consortium.
40f53fa8d9c6a4fc38c0014495e7a42b08f52481David Lawrence *
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews * Permission to use, copy, modify, and distribute this software for any
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews * purpose with or without fee is hereby granted, provided that the above
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews * copyright notice and this permission notice appear in all copies.
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews *
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
4b6dc226f78862286daa69fba761eac9fd5da16aAutomatic Updater * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
940e4ef72b64a8a82a1038fdf08b324eec6e43a9Michael Graff * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
940e4ef72b64a8a82a1038fdf08b324eec6e43a9Michael Graff * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
3761c433912beabe43abeed2c3513b6201c59f64Mark Andrews * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
854d0238dbc2908490197984b3b9d558008a53dfMark Andrews * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
854d0238dbc2908490197984b3b9d558008a53dfMark Andrews * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews * SOFTWARE.
6324997211a5e2d82528dcde98e8981190a35faeMichael Graff */
6324997211a5e2d82528dcde98e8981190a35faeMichael Graff
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graff/* $Id: dighost.c,v 1.80 2000/07/13 01:49:44 mws Exp $ */
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews/*
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews * Notice to programmers: Do not use this code as an example of how to
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews * use the ISC library to perform DNS lookups. Dig and Host both operate
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews * on the request level, since they allow fine-tuning of output and are
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman * intended as debugging tools. As a result, they perform many of the
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews * functions which could be better handled using the dns_resolver
ae114ded82e773a4d9058f833f964a17514712a8Brian Wellington * functions in most applications.
ae114ded82e773a4d9058f833f964a17514712a8Brian Wellington */
bddfe77128b0f16af263ff149db40f0d885f43d0Mark Andrews
ae114ded82e773a4d9058f833f964a17514712a8Brian Wellington#include <config.h>
add4043305ca411202ed9cf1929a4179016515ceBrian Wellington#include <stdlib.h>
add4043305ca411202ed9cf1929a4179016515ceBrian Wellington#include <unistd.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <netdb.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <string.h>
6e49e91bd08778d7eae45a2229dcf41ed97cc636David Lawrence#include <limits.h>
e0a30050c8516a3d54a4f8dcdd88435704a8a3edMark Andrews#if (!(defined(HAVE_ADDRINFO) && defined(HAVE_GETADDRINFO)))
e0a30050c8516a3d54a4f8dcdd88435704a8a3edMark Andrewsextern int h_errno;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#endif
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/message.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/name.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/rdata.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/rdataclass.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/rdatalist.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/rdataset.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/rdatastruct.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/rdatatype.h>
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews#include <dns/result.h>
9ac7076ebad044afb15e9e2687e3696868778538Mark Andrews#include <dns/tsig.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <dst/dst.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graff#include <isc/app.h>
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence#include <isc/base64.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/entropy.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/lang.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/lex.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/netdb.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/result.h>
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman#include <isc/string.h>
b589e90689c6e87bf9608424ca8d99571c18bc61Mark Andrews#include <isc/task.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/timer.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/types.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <isc/util.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews#include <dig/dig.h>
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark AndrewsISC_LIST(dig_lookup_t) lookup_list;
5fc7ba3e1ac5d72239e9971e0f469dd5796738f9Andreas GustafssonISC_LIST(dig_server_t) server_list;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark AndrewsISC_LIST(dig_searchlist_t) search_list;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsisc_boolean_t
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews have_ipv6 = ISC_FALSE,
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graff specified_source = ISC_FALSE,
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence free_now = ISC_FALSE,
4b6dc226f78862286daa69fba761eac9fd5da16aAutomatic Updater show_details = ISC_FALSE,
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews usesearch = ISC_FALSE,
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman qr = ISC_FALSE,
1ef8965366d91e02a4672c35a187d30aa4a4c72cMark Andrews is_dst_up = ISC_FALSE;
ae114ded82e773a4d9058f833f964a17514712a8Brian Wellington
ae114ded82e773a4d9058f833f964a17514712a8Brian Wellingtonin_port_t port = 53;
ae114ded82e773a4d9058f833f964a17514712a8Brian Wellingtonunsigned int timeout = 0;
94a08e09db3dc844b6ee4841c368a2d7074a9c3fAndreas Gustafssonisc_mem_t *mctx = NULL;
40f53fa8d9c6a4fc38c0014495e7a42b08f52481David Lawrenceisc_taskmgr_t *taskmgr = NULL;
4b6dc226f78862286daa69fba761eac9fd5da16aAutomatic Updaterisc_task_t *global_task = NULL;
4b6dc226f78862286daa69fba761eac9fd5da16aAutomatic Updaterisc_timermgr_t *timermgr = NULL;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsisc_socketmgr_t *socketmgr = NULL;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsisc_sockaddr_t bind_address;
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graffisc_sockaddr_t bind_any;
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrencechar *rootspace[BUFSIZE];
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsisc_buffer_t rootbuf;
cdc50af0bff41accc02c613b9c6d8cd41b171ffeBrian Wellingtonint sendcount = 0;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsint recvcount = 0;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsint sockcount = 0;
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaramanint ndots = -1;
b589e90689c6e87bf9608424ca8d99571c18bc61Mark Andrewsint tries = 3;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsint lookup_counter = 0;
94a08e09db3dc844b6ee4841c368a2d7074a9c3fAndreas Gustafssonchar fixeddomain[MXNAME] = "";
52637f592f705ca93fadc218e403fd55e8ce4aeaMark Andrewsint exitcode = 9;
cdc50af0bff41accc02c613b9c6d8cd41b171ffeBrian Wellingtonchar keynametext[MXNAME];
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewschar keysecret[MXNAME] = "";
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsdns_name_t keyname;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsdns_tsig_keyring_t *keyring = NULL;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsisc_buffer_t *namebuf = NULL;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsdns_tsigkey_t *key = NULL;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsisc_boolean_t validated = ISC_TRUE;
4529cdaedaf1a0a5f8ff89aeca510b7a4475446cBob Halleyisc_entropy_t *entp = NULL;
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrenceisc_mempool_t *commctx = NULL;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsextern isc_boolean_t isc_mem_debugging;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsisc_boolean_t debugging = ISC_FALSE;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewschar *progname = NULL;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsstatic void
3d5cad69ec20157912e95cf3b79316dfb0a314f3Mark Andrewscancel_lookup(dig_lookup_t *lookup);
d981ca645597116d227a48bf37cc5edc061c854dBob Halley
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaramanstatic int
b589e90689c6e87bf9608424ca8d99571c18bc61Mark Andrewscount_dots(char *string) {
b589e90689c6e87bf9608424ca8d99571c18bc61Mark Andrews char *s;
f7b99290c31abeb20c55fc55391510450ce60423Mark Andrews int i = 0;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews s = string;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews while (*s != '\0') {
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews if (*s == '.')
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews i++;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews s++;
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews }
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews return (i);
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrews}
7c0539bea56022274da04263eb41fbb5b8835c38Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsstatic void
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewshex_dump(isc_buffer_t *b) {
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graff unsigned int len;
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence isc_region_t r;
373ce67419680a398ba3dc51a14a486caaf0afb0Mark Andrews
373ce67419680a398ba3dc51a14a486caaf0afb0Mark Andrews isc_buffer_remainingregion(b, &r);
82ca33427bdd4f3bc4ed3431e86bd810fe751674Andreas Gustafsson
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman printf("Printing a buffer with length %d\n", r.length);
373ce67419680a398ba3dc51a14a486caaf0afb0Mark Andrews for (len = 0; len < r.length; len++) {
373ce67419680a398ba3dc51a14a486caaf0afb0Mark Andrews printf("%02x ", r.base[len]);
373ce67419680a398ba3dc51a14a486caaf0afb0Mark Andrews if (len != 0 && len % 16 == 0)
f7b99290c31abeb20c55fc55391510450ce60423Mark Andrews printf("\n");
ae114ded82e773a4d9058f833f964a17514712a8Brian Wellington }
63cef8bde8b92aeb30ccdcf21d4e44c9be9cc6e3Andreas Gustafsson if (len % 16 != 0)
63cef8bde8b92aeb30ccdcf21d4e44c9be9cc6e3Andreas Gustafsson printf("\n");
373ce67419680a398ba3dc51a14a486caaf0afb0Mark Andrews}
373ce67419680a398ba3dc51a14a486caaf0afb0Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsvoid
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsfatal(const char *format, ...) {
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graff va_list args;
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews fprintf (stderr, "%s: ", progname);
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews va_start(args, format);
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews vfprintf(stderr, format, args);
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews va_end(args);
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman fprintf(stderr, "\n");
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews if (exitcode == 0)
b589e90689c6e87bf9608424ca8d99571c18bc61Mark Andrews exitcode = 8;
82ca33427bdd4f3bc4ed3431e86bd810fe751674Andreas Gustafsson#ifdef NEVER
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews dighost_shutdown();
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews free_lists(exitcode);
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews if (mctx != NULL) {
f7b99290c31abeb20c55fc55391510450ce60423Mark Andrews if (isc_mem_debugging)
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews isc_mem_stats(mctx, stderr);
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews isc_mem_destroy(&mctx);
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews }
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews#endif
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews exit(exitcode);
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews}
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews
5d51e67c3b4f35c1be742574aacc1d88fe6ed444Mark Andrewsvoid
94a3bcd132e515b4baa0884ba9dd0f361d2e17bcMark Andrewsdebug(const char *format, ...) {
4529cdaedaf1a0a5f8ff89aeca510b7a4475446cBob Halley va_list args;
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews if (debugging) {
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews va_start(args, format);
94a3bcd132e515b4baa0884ba9dd0f361d2e17bcMark Andrews vfprintf(stderr, format, args);
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman va_end(args);
40f53fa8d9c6a4fc38c0014495e7a42b08f52481David Lawrence fprintf(stderr, "\n");
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews }
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews}
9281e7aa775026dc47c01745fdcc438645146877Mark Andrews
9281e7aa775026dc47c01745fdcc438645146877Mark Andrewsvoid
9281e7aa775026dc47c01745fdcc438645146877Mark Andrewscheck_result(isc_result_t result, const char *msg) {
94a3bcd132e515b4baa0884ba9dd0f361d2e17bcMark Andrews if (result != ISC_R_SUCCESS) {
d981ca645597116d227a48bf37cc5edc061c854dBob Halley exitcode = 1;
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graff fatal("%s: %s", msg, isc_result_totext(result));
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence }
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman}
82ca33427bdd4f3bc4ed3431e86bd810fe751674Andreas Gustafsson
82ca33427bdd4f3bc4ed3431e86bd810fe751674Andreas Gustafssonisc_boolean_t
940e4ef72b64a8a82a1038fdf08b324eec6e43a9Michael Graffisclass(char *text) {
940e4ef72b64a8a82a1038fdf08b324eec6e43a9Michael Graff /*
d981ca645597116d227a48bf37cc5edc061c854dBob Halley * Tests if a field is a class, without needing isc libs
419590499823ce15b5d2ad4fe71eaf04bd5a86c0Michael Graff * initialized. This list will have to be manually kept in
d981ca645597116d227a48bf37cc5edc061c854dBob Halley * sync with what the libs support.
d981ca645597116d227a48bf37cc5edc061c854dBob Halley */
3ddd814a97de1d152ba0913c592d6e6dc83d38a6Michael Graff const char *classlist[] = { "in", "hs", "chaos" };
6d12fdf96621801e80f3f4c2a8a569fe48766a20David Lawrence const int numclasses = 3;
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley int i;
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley for (i = 0; i < numclasses; i++)
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman if (strcasecmp(text, classlist[i]) == 0)
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley return (ISC_TRUE);
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley return (ISC_FALSE);
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley}
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halleyisc_boolean_t
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halleyistype(char *text) {
e27a69f8bd9538e08f775265167ba6cc5f47c587Bob Halley /*
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews * Tests if a field is a type, without needing isc libs
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews * initialized. This list will have to be manually kept in
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews * sync with what the libs support.
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman */
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews const char *typelist[] = {"a", "ns", "md", "mf", "cname",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "soa", "mb", "mg", "mr", "null",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "wks", "ptr", "hinfo", "minfo",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "mx", "txt", "rp", "afsdb",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "x25", "isdn", "rt", "nsap",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "nsap_ptr", "sig", "key", "px",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "gpos", "aaaa", "loc", "nxt",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "srv", "naptr", "kx", "cert",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "a6", "dname", "opt", "unspec",
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews "tkey", "tsig", "axfr", "any"};
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews const int numtypes = 42;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews int i;
ce37f22724353fb80d6b60da530b95b8c29da35cMark Andrews
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews for (i = 0; i < numtypes; i++) {
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews if (strcasecmp(text, typelist[i]) == 0)
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews return (ISC_TRUE);
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews }
ce37f22724353fb80d6b60da530b95b8c29da35cMark Andrews return (ISC_FALSE);
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews}
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrewsdig_lookup_t *
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrewsrequeue_lookup(dig_lookup_t *lookold, isc_boolean_t servers) {
ce37f22724353fb80d6b60da530b95b8c29da35cMark Andrews dig_lookup_t *looknew;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews dig_server_t *s, *srv;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews debug("requeue_lookup()");
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews INSIST(!free_now);
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews
b0ba1a6059b6d6c4b3aa77d8bc84cc443b981e01Mukund Sivaraman lookup_counter++;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews if (lookup_counter > LOOKUP_LIMIT)
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews fatal("Too many lookups");
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew = isc_mem_allocate(mctx, sizeof(struct dig_lookup));
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews if (looknew == NULL)
5855fd79e375c74fc9df57ce0b4c4ef1b9fcdc3eMark Andrews fatal("Memory allocation failure in %s:%d",
5855fd79e375c74fc9df57ce0b4c4ef1b9fcdc3eMark Andrews __FILE__, __LINE__);
5855fd79e375c74fc9df57ce0b4c4ef1b9fcdc3eMark Andrews looknew->pending = ISC_FALSE;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews strncpy(looknew->textname, lookold-> textname, MXNAME);
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews strncpy(looknew->rttext, lookold-> rttext, 32);
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews strncpy(looknew->rctext, lookold-> rctext, 32);
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->namespace[0] = 0;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->sendspace = NULL;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->sendmsg = NULL;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->name = NULL;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->oname = NULL;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->timer = NULL;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->xfr_q = NULL;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->doing_xfr = lookold->doing_xfr;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->ixfr_serial = lookold->ixfr_serial;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->defname = lookold->defname;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->trace = lookold->trace;
2047977ce2dfcfe3a0fa2d638c3242841310fad3Mark Andrews looknew->trace_root = lookold->trace_root;
3d17a3ba61a303d5c4d9867068d0fbe9f24d2988Mark Andrews looknew->identify = lookold->identify;
3d17a3ba61a303d5c4d9867068d0fbe9f24d2988Mark Andrews looknew->udpsize = lookold->udpsize;
3d17a3ba61a303d5c4d9867068d0fbe9f24d2988Mark Andrews looknew->recurse = lookold->recurse;
3d17a3ba61a303d5c4d9867068d0fbe9f24d2988Mark Andrews looknew->aaonly = lookold->aaonly;
854d0238dbc2908490197984b3b9d558008a53dfMark Andrews looknew->adflag = lookold->adflag;
looknew->cdflag = lookold->cdflag;
looknew->ns_search_only = lookold->ns_search_only;
looknew->origin = NULL;
looknew->querysig = NULL;
looknew->retries = tries;
looknew->nsfound = 0;
looknew->tcp_mode = lookold->tcp_mode;
looknew->comments = lookold->comments;
looknew->stats = lookold->stats;
looknew->section_question = lookold->section_question;
looknew->section_answer = lookold->section_answer;
looknew->section_authority = lookold->section_authority;
looknew->section_additional = lookold->section_additional;
looknew->new_search = ISC_FALSE;
ISC_LIST_INIT(looknew->my_server_list);
ISC_LIST_INIT(looknew->q);
looknew->use_my_server_list = ISC_FALSE;
if (servers) {
looknew->use_my_server_list = lookold->use_my_server_list;
if (looknew->use_my_server_list) {
s = ISC_LIST_HEAD(lookold->my_server_list);
while (s != NULL) {
srv = isc_mem_allocate(mctx,
sizeof(struct dig_server));
if (srv == NULL)
fatal("Memory allocation failure "
"in %s:%d", __FILE__, __LINE__);
strncpy(srv->servername, s->servername,
MXNAME);
ISC_LIST_ENQUEUE(looknew->my_server_list, srv,
link);
s = ISC_LIST_NEXT(s, link);
}
}
}
debug("before insertion, init@%p "
"-> %p, new@%p -> %p",
lookold, lookold->link.next, looknew, looknew->link.next);
ISC_LIST_INSERTAFTER(lookup_list, lookold, looknew, link);
debug("after insertion, init -> "
"%p, new = %p, new -> %p",
lookold, looknew, looknew->link.next);
return (looknew);
}
void
setup_system(void) {
char rcinput[MXNAME];
FILE *fp;
char *ptr;
dig_server_t *srv;
dig_searchlist_t *search;
dig_lookup_t *l;
isc_boolean_t get_servers;
isc_result_t result;
isc_buffer_t secretsrc;
isc_buffer_t secretbuf;
int secretsize;
unsigned char *secretstore;
isc_lex_t *lex = NULL;
isc_stdtime_t now;
debug("setup_system()");
if (fixeddomain[0] != 0) {
debug("using fixed domain %s", fixeddomain);
search = isc_mem_allocate(mctx, sizeof(struct dig_server));
if (search == NULL)
fatal("Memory allocation failure in %s:%d",
__FILE__, __LINE__);
strncpy(search->origin, fixeddomain, MXNAME - 1);
ISC_LIST_PREPEND(search_list, search, link);
}
free_now = ISC_FALSE;
get_servers = ISC_TF(server_list.head == NULL);
fp = fopen(RESOLVCONF, "r");
if (fp != NULL) {
while (fgets(rcinput, MXNAME, fp) != 0) {
ptr = strtok(rcinput, " \t\r\n");
if (ptr != NULL) {
if (get_servers &&
strcasecmp(ptr, "nameserver") == 0) {
debug("got a nameserver line");
ptr = strtok(NULL, " \t\r\n");
if (ptr != NULL) {
srv = isc_mem_allocate(mctx,
sizeof(struct dig_server));
if (srv == NULL)
fatal("Memory "
"allocation "
"failure in "
"%s:%d",
__FILE__,
__LINE__);
strncpy((char *)srv->
servername,
ptr,
MXNAME - 1);
ISC_LIST_APPEND
(server_list,
srv, link);
}
} else if (strcasecmp(ptr, "options") == 0) {
ptr = strtok(NULL, " \t\r\n");
if (ptr != NULL) {
if((strncasecmp(ptr, "ndots:",
6) == 0) &&
(ndots == -1)) {
ndots = atoi(
&ptr[6]);
debug("ndots is "
"%d.",
ndots);
}
}
} else if ((strcasecmp(ptr, "search") == 0)
&& usesearch){
while ((ptr = strtok(NULL, " \t\r\n"))
!= NULL) {
search = isc_mem_allocate(
mctx, sizeof(struct
dig_server));
if (search == NULL)
fatal("Memory "
"allocation "
"failure in %s:"
"%d", __FILE__,
__LINE__);
strncpy(search->
origin,
ptr,
MXNAME - 1);
ISC_LIST_APPEND
(search_list,
search,
link);
}
} else if ((strcasecmp(ptr, "domain") == 0) &&
(fixeddomain[0] == 0 )){
while ((ptr = strtok(NULL, " \t\r\n"))
!= NULL) {
search = isc_mem_allocate(
mctx, sizeof(struct
dig_server));
if (search == NULL)
fatal("Memory "
"allocation "
"failure in %s:"
"%d", __FILE__,
__LINE__);
strncpy(search->
origin,
ptr,
MXNAME - 1);
ISC_LIST_PREPEND
(search_list,
search,
link);
}
}
}
}
fclose(fp);
}
if (ndots == -1)
ndots = 1;
if (server_list.head == NULL) {
srv = isc_mem_allocate(mctx, sizeof(dig_server_t));
if (srv == NULL)
fatal("Memory allocation failure");
strcpy(srv->servername, "127.0.0.1");
ISC_LIST_APPEND(server_list, srv, link);
}
for (l = ISC_LIST_HEAD(lookup_list) ;
l != NULL;
l = ISC_LIST_NEXT(l, link) ) {
l -> origin = ISC_LIST_HEAD(search_list);
}
if (keysecret[0] != 0) {
debug("keyring");
result = dns_tsigkeyring_create(mctx, &keyring);
check_result(result, "dns_tsigkeyring_create");
debug("buffer");
result = isc_buffer_allocate(mctx, &namebuf, MXNAME);
check_result(result, "isc_buffer_allocate");
debug("name");
dns_name_init(&keyname, NULL);
check_result(result, "dns_name_init");
isc_buffer_putstr(namebuf, keynametext);
secretsize = strlen(keysecret) * 3 / 4;
debug("secretstore");
secretstore = isc_mem_get(mctx, secretsize);
if (secretstore == NULL)
fatal("Memory allocation failure in %s:%d",
__FILE__, __LINE__);
isc_buffer_init(&secretsrc, keysecret, strlen(keysecret));
isc_buffer_add(&secretsrc, strlen(keysecret));
isc_buffer_init(&secretbuf, secretstore, secretsize);
debug("lex");
result = isc_lex_create(mctx, strlen(keysecret), &lex);
check_result(result, "isc_lex_create");
result = isc_lex_openbuffer(lex, &secretsrc);
check_result(result, "isc_lex_openbuffer");
result = isc_base64_tobuffer(lex, &secretbuf, -1);
if (result != ISC_R_SUCCESS) {
printf(";; Couldn't create key %s: %s\n",
keynametext, isc_result_totext(result));
isc_lex_close(lex);
isc_lex_destroy(&lex);
goto SYSSETUP_FAIL;
}
secretsize = isc_buffer_usedlength(&secretbuf);
debug("close");
isc_lex_close(lex);
isc_lex_destroy(&lex);
isc_stdtime_get(&now);
debug("namefromtext");
result = dns_name_fromtext(&keyname, namebuf,
dns_rootname, ISC_FALSE,
namebuf);
if (result != ISC_R_SUCCESS) {
printf (";; Couldn't create key %s: %s\n",
keynametext, dns_result_totext(result));
goto SYSSETUP_FAIL;
}
debug("tsigkey");
result = dns_tsigkey_create(&keyname, dns_tsig_hmacmd5_name,
secretstore, secretsize,
ISC_TRUE, NULL, now, now, mctx,
keyring, &key);
if (result != ISC_R_SUCCESS) {
printf(";; Couldn't create key %s: %s\n",
keynametext, dns_result_totext(result));
}
isc_mem_put(mctx, secretstore, secretsize);
dns_name_invalidate(&keyname);
isc_buffer_free(&namebuf);
return;
SYSSETUP_FAIL:
isc_mem_put(mctx, secretstore, secretsize);
dns_name_invalidate(&keyname);
isc_buffer_free(&namebuf);
dns_tsigkeyring_destroy(&keyring);
return;
}
}
void
setup_libs(void) {
isc_result_t result;
debug("setup_libs()");
/*
* Warning: This is not particularly good randomness. We'll
* just use random() now for getting id values, but doing so
* does NOT insure that id's cann't be guessed.
*/
srandom(getpid() + (int)&setup_libs);
result = isc_app_start();
check_result(result, "isc_app_start");
result = isc_net_probeipv4();
check_result(result, "isc_net_probeipv4");
result = isc_net_probeipv6();
if (result == ISC_R_SUCCESS)
have_ipv6 = ISC_TRUE;
result = isc_mem_create(0, 0, &mctx);
check_result(result, "isc_mem_create");
result = isc_taskmgr_create(mctx, 1, 0, &taskmgr);
check_result(result, "isc_taskmgr_create");
result = isc_task_create(taskmgr, 0, &global_task);
check_result(result, "isc_task_create");
result = isc_timermgr_create(mctx, &timermgr);
check_result(result, "isc_timermgr_create");
result = isc_socketmgr_create(mctx, &socketmgr);
check_result(result, "isc_socketmgr_create");
result = isc_entropy_create(mctx, &entp);
check_result(result, "isc_entropy_create");
result = dst_lib_init(mctx, entp, 0);
check_result(result, "dst_lib_init");
is_dst_up = ISC_TRUE;
result = isc_mempool_create(mctx, COMMSIZE, &commctx);
check_result(result, "isc_mempool_create");
isc_mempool_setname(commctx, "COMMPOOL");
/*
* 6 and 2 set as reasonable parameters for 3 or 4 nameserver
* systems.
*/
isc_mempool_setfreemax(commctx, 6);
isc_mempool_setfillcount(commctx, 2);
}
static void
add_opt(dns_message_t *msg, isc_uint16_t udpsize) {
dns_rdataset_t *rdataset = NULL;
dns_rdatalist_t *rdatalist = NULL;
dns_rdata_t *rdata = NULL;
isc_result_t result;
debug("add_opt()");
result = dns_message_gettemprdataset(msg, &rdataset);
check_result(result, "dns_message_gettemprdataset");
dns_rdataset_init(rdataset);
result = dns_message_gettemprdatalist(msg, &rdatalist);
check_result(result, "dns_message_gettemprdatalist");
result = dns_message_gettemprdata(msg, &rdata);
check_result(result, "dns_message_gettemprdata");
debug("setting udp size of %d", udpsize);
rdatalist->type = dns_rdatatype_opt;
rdatalist->covers = 0;
rdatalist->rdclass = udpsize;
rdatalist->ttl = 0;
rdata->data = NULL;
rdata->length = 0;
ISC_LIST_INIT(rdatalist->rdata);
ISC_LIST_APPEND(rdatalist->rdata, rdata, link);
dns_rdatalist_tordataset(rdatalist, rdataset);
result = dns_message_setopt(msg, rdataset);
check_result(result, "dns_message_setopt");
}
static void
add_question(dns_message_t *message, dns_name_t *name,
dns_rdataclass_t rdclass, dns_rdatatype_t rdtype)
{
dns_rdataset_t *rdataset;
isc_result_t result;
debug("add_question()");
rdataset = NULL;
result = dns_message_gettemprdataset(message, &rdataset);
check_result(result, "dns_message_gettemprdataset()");
dns_rdataset_init(rdataset);
dns_rdataset_makequestion(rdataset, rdclass, rdtype);
ISC_LIST_APPEND(name->list, rdataset, link);
}
/*
* We're done iff all the counts are zero and the lookup list is empty
*/
static void
check_if_done(void) {
debug("check_if_done()");
if ((sockcount == 0) && (recvcount == 0) && (sendcount == 0)
&& ISC_LIST_EMPTY(lookup_list)) {
debug("shutting down");
dighost_shutdown();
}
}
/*
* Clear out a query when we're done with it. WARNING: This routine
* WILL invalidate the query pointer.
*/
static void
clear_query(dig_query_t *query) {
dig_lookup_t *lookup;
REQUIRE(query != NULL);
lookup = query->lookup;
ISC_LIST_UNLINK(lookup->q, query, link);
if (ISC_LINK_LINKED(&query->recvbuf, link))
ISC_LIST_DEQUEUE(query->recvlist, &query->recvbuf,
link);
if (ISC_LINK_LINKED(&query->lengthbuf, link))
ISC_LIST_DEQUEUE(query->lengthlist, &query->lengthbuf,
link);
INSIST(query->recvspace != NULL);
isc_mempool_put(commctx, query->recvspace);
isc_buffer_invalidate(&query->recvbuf);
isc_buffer_invalidate(&query->lengthbuf);
isc_mem_free(mctx, query);
}
static isc_boolean_t
try_clear_lookup(dig_lookup_t *lookup) {
dig_server_t *s;
void *ptr;
REQUIRE(lookup != NULL);
if (ISC_LIST_HEAD(lookup->q) != NULL)
return (ISC_FALSE);
/*
* At this point, we know there are no queries on the lookup,
* so can make it go away also.
*/
if (lookup->use_my_server_list) {
s = ISC_LIST_HEAD(lookup->my_server_list);
while (s != NULL) {
debug("freeing server %p belonging to %p",
s, lookup);
ptr = s;
s = ISC_LIST_NEXT(s, link);
ISC_LIST_DEQUEUE(lookup->my_server_list,
(dig_server_t *)ptr, link);
isc_mem_free(mctx, ptr);
}
}
if (lookup->sendmsg != NULL)
dns_message_destroy(&lookup->sendmsg);
if (lookup->querysig != NULL) {
debug("freeing buffer %p", lookup->querysig);
isc_buffer_free(&lookup->querysig);
}
if (lookup->timer != NULL)
isc_timer_detach(&lookup->timer);
INSIST(lookup->sendspace != NULL);
isc_mempool_put(commctx, lookup->sendspace);
ptr = lookup;
lookup = ISC_LIST_NEXT(lookup, link);
ISC_LIST_DEQUEUE(lookup_list, (dig_lookup_t *)ptr, link);
isc_mem_free(mctx, ptr);
return (ISC_TRUE);
}
/*
* If we can, start the next lookup in the queue running.
* This assumes that the lookup on the head of the queue hasn't been
* started yet.
*/
static void
begin_next_lookup(void) {
dig_lookup_t *next;
next = ISC_LIST_HEAD(lookup_list);
if (next != NULL) {
setup_lookup(next);
do_lookup(next);
} else {
check_if_done();
}
}
/*
* WARNING: The following routine may invalidate the lookup pointer.
* Never depend on being able to reference lookup or query pointers on the
* current lookup after calling this.
*/
static void
check_next_lookup(dig_lookup_t *lookup) {
dig_query_t *query;
isc_boolean_t still_working=ISC_FALSE;
INSIST(!free_now);
debug("is_lookup_done(%p)", lookup);
for (query = ISC_LIST_HEAD(lookup->q);
query != NULL;
query = ISC_LIST_NEXT(query, link)) {
if (query->working) {
debug("still have a worker", stderr);
still_working=ISC_TRUE;
}
}
if (still_working)
return;
if (try_clear_lookup(lookup))
begin_next_lookup();
}
static void
followup_lookup(dns_message_t *msg, dig_query_t *query,
dns_section_t section) {
dig_lookup_t *lookup = NULL;
dig_server_t *srv = NULL;
dns_rdataset_t *rdataset = NULL;
dns_rdata_t rdata;
dns_name_t *name = NULL;
isc_result_t result, loopresult;
isc_buffer_t *b = NULL;
isc_region_t r;
isc_boolean_t success = ISC_FALSE;
int len;
INSIST(!free_now);
debug("followup_lookup()");
result = dns_message_firstname(msg,section);
if (result != ISC_R_SUCCESS) {
debug("firstname returned %s",
isc_result_totext(result));
if ((section == DNS_SECTION_ANSWER) &&
(query->lookup->trace || query->lookup->ns_search_only))
followup_lookup (msg, query, DNS_SECTION_AUTHORITY);
return;
}
debug("following up %s", query->lookup->textname);
for (;;) {
name = NULL;
dns_message_currentname(msg, section, &name);
for (rdataset = ISC_LIST_HEAD(name->list);
rdataset != NULL;
rdataset = ISC_LIST_NEXT(rdataset, link)) {
loopresult = dns_rdataset_first(rdataset);
while (loopresult == ISC_R_SUCCESS) {
dns_rdataset_current(rdataset, &rdata);
debug("got rdata with type %d",
rdata.type);
if ((rdata.type == dns_rdatatype_ns) &&
(!query->lookup->trace_root ||
(query->lookup->nsfound < ROOTNS)))
{
query->lookup->nsfound++;
result = isc_buffer_allocate(mctx, &b,
BUFSIZE);
check_result(result,
"isc_buffer_allocate");
result = dns_rdata_totext(&rdata,
NULL,
b);
check_result(result,
"dns_rdata_totext");
isc_buffer_usedregion(b, &r);
len = r.length-1;
if (len >= MXNAME)
len = MXNAME-1;
/* Initialize lookup if we've not yet */
debug("found NS %d %.*s",
(int)r.length, (int)r.length,
(char *)r.base);
if (!success) {
success = ISC_TRUE;
lookup_counter++;
lookup = requeue_lookup
(query->lookup,
ISC_FALSE);
lookup->doing_xfr = ISC_FALSE;
lookup->defname = ISC_FALSE;
lookup->use_my_server_list =
ISC_TRUE;
if (section ==
DNS_SECTION_ANSWER) {
lookup->trace =
ISC_FALSE;
lookup->ns_search_only =
ISC_FALSE;
}
else {
lookup->trace =
query->
lookup->trace;
lookup->ns_search_only =
query->
lookup->ns_search_only;
}
lookup->trace_root = ISC_FALSE;
ISC_LIST_INIT(lookup->
my_server_list);
}
srv = isc_mem_allocate(mctx,
sizeof(struct dig_server));
if (srv == NULL)
fatal("Memory allocation "
"failure in %s:%d",
__FILE__, __LINE__);
strncpy(srv->servername,
(char *)r.base, len);
srv->servername[len] = 0;
debug("adding server %s",
srv->servername);
ISC_LIST_APPEND
(lookup->my_server_list,
srv, link);
isc_buffer_free(&b);
}
loopresult = dns_rdataset_next(rdataset);
}
}
result = dns_message_nextname (msg, section);
if (result != ISC_R_SUCCESS)
break;
}
if ((lookup == NULL) && (section == DNS_SECTION_ANSWER) &&
(query->lookup->trace || query->lookup->ns_search_only))
followup_lookup(msg, query, DNS_SECTION_AUTHORITY);
}
static void
next_origin(dns_message_t *msg, dig_query_t *query) {
dig_lookup_t *lookup;
UNUSED(msg);
INSIST(!free_now);
debug("next_origin()");
debug("following up %s", query->lookup->textname);
if (query->lookup->origin == NULL) {
/*
* Then we just did rootorg; there's nothing left.
*/
debug("made it to the root with nowhere to go");
return;
}
lookup = requeue_lookup(query->lookup, ISC_TRUE);
lookup->defname = ISC_FALSE;
lookup->origin = ISC_LIST_NEXT(query->lookup->origin, link);
}
static void
insert_soa(dig_lookup_t *lookup) {
isc_result_t result;
dns_rdata_soa_t soa;
dns_rdata_t *rdata = NULL;
dns_rdatalist_t *rdatalist = NULL;
dns_rdataset_t *rdataset = NULL;
dns_name_t *soaname = NULL;
debug("insert_soa()");
soa.mctx = mctx;
soa.serial = lookup->ixfr_serial;
soa.refresh = 1;
soa.retry = 1;
soa.expire = 1;
soa.minimum = 1;
soa.common.rdclass = dns_rdataclass_in;
soa.common.rdtype = dns_rdatatype_soa;
dns_name_init(&soa.origin, NULL);
dns_name_init(&soa.mname, NULL);
dns_name_clone(lookup->name, &soa.origin);
dns_name_clone(lookup->name, &soa.mname);
isc_buffer_init(&lookup->rdatabuf, lookup->rdatastore,
MXNAME);
result = dns_message_gettemprdata(lookup->sendmsg, &rdata);
check_result(result, "dns_message_gettemprdata");
result = dns_rdata_fromstruct(rdata, dns_rdataclass_in,
dns_rdatatype_soa, &soa,
&lookup->rdatabuf);
check_result(result, "isc_rdata_fromstruct");
result = dns_message_gettemprdatalist(lookup->sendmsg, &rdatalist);
check_result(result, "dns_message_gettemprdatalist");
result = dns_message_gettemprdataset(lookup->sendmsg, &rdataset);
check_result(result, "dns_message_gettemprdataset");
dns_rdatalist_init(rdatalist);
rdatalist->type = dns_rdatatype_soa;
rdatalist->rdclass = dns_rdataclass_in;
rdatalist->covers = dns_rdatatype_soa;
rdatalist->ttl = 1;
ISC_LIST_INIT(rdatalist->rdata);
ISC_LIST_APPEND(rdatalist->rdata, rdata, link);
dns_rdataset_init(rdataset);
dns_rdatalist_tordataset(rdatalist, rdataset);
result = dns_message_gettempname(lookup->sendmsg, &soaname);
check_result(result, "dns_message_gettempname");
dns_name_init(soaname, NULL);
dns_name_clone(lookup->name, soaname);
ISC_LIST_INIT(soaname->list);
ISC_LIST_APPEND(soaname->list, rdataset, link);
dns_message_addname(lookup->sendmsg, soaname, DNS_SECTION_AUTHORITY);
}
void
setup_lookup(dig_lookup_t *lookup) {
isc_result_t result, res2;
int len;
dns_rdatatype_t rdtype;
dns_rdataclass_t rdclass;
dig_server_t *serv;
dig_query_t *query;
isc_region_t r;
isc_constregion_t tr;
isc_buffer_t b;
char store[MXNAME];
REQUIRE(lookup != NULL);
INSIST(!free_now);
debug("setup_lookup(%p)",lookup);
debug("setting up for looking up %s @%p->%p",
lookup->textname, lookup,
lookup->link.next);
result = dns_message_create(mctx, DNS_MESSAGE_INTENTRENDER,
&lookup->sendmsg);
check_result(result, "dns_message_create");
if (lookup->new_search) {
debug("resetting lookup counter.");
lookup_counter = 0;
}
result = dns_message_gettempname(lookup->sendmsg, &lookup->name);
check_result(result, "dns_message_gettempname");
dns_name_init(lookup->name, NULL);
isc_buffer_init(&lookup->namebuf, lookup->namespace,
sizeof(lookup->namespace));
isc_buffer_init(&lookup->onamebuf, lookup->onamespace,
sizeof(lookup->onamespace));
if ((count_dots(lookup->textname) >= ndots) || lookup->defname)
lookup->origin = NULL; /* Force root lookup */
debug("lookup->origin = %p", lookup->origin);
if (lookup->origin != NULL) {
debug("trying origin %s", lookup->origin->origin);
result = dns_message_gettempname(lookup->sendmsg,
&lookup->oname);
check_result(result, "dns_message_gettempname");
dns_name_init(lookup->oname, NULL);
len = strlen(lookup->origin->origin);
isc_buffer_init(&b, lookup->origin->origin, len);
isc_buffer_add(&b, len);
result = dns_name_fromtext(lookup->oname, &b, dns_rootname,
ISC_FALSE, &lookup->onamebuf);
if (result != ISC_R_SUCCESS) {
dns_message_puttempname(lookup->sendmsg,
&lookup->name);
dns_message_puttempname(lookup->sendmsg,
&lookup->oname);
fatal("%s is not a legal name syntax (%s)",
lookup->origin->origin,
dns_result_totext(result));
}
if (!lookup->trace_root) {
len = strlen(lookup->textname);
isc_buffer_init(&b, lookup->textname, len);
isc_buffer_add(&b, len);
result = dns_name_fromtext(lookup->name, &b,
lookup->oname, ISC_FALSE,
&lookup->namebuf);
} else {
dns_name_clone(dns_rootname, lookup->name);
}
if (result != ISC_R_SUCCESS) {
dns_message_puttempname(lookup->sendmsg,
&lookup->name);
dns_message_puttempname(lookup->sendmsg,
&lookup->oname);
fatal("%s is not a legal name syntax (%s)",
lookup->textname, dns_result_totext(result));
}
dns_message_puttempname(lookup->sendmsg, &lookup->oname);
} else {
debug("using root origin");
if (!lookup->trace_root) {
len = strlen(lookup->textname);
isc_buffer_init(&b, lookup->textname, len);
isc_buffer_add(&b, len);
result = dns_name_fromtext(lookup->name, &b,
dns_rootname,
ISC_FALSE,
&lookup->namebuf);
} else {
dns_name_clone(dns_rootname, lookup->name);
}
if (result != ISC_R_SUCCESS) {
dns_message_puttempname(lookup->sendmsg,
&lookup->name);
isc_buffer_init(&b, store, MXNAME);
res2 = dns_name_totext(dns_rootname, ISC_FALSE, &b);
check_result(res2, "dns_name_totext");
isc_buffer_usedregion(&b, &r);
fatal("%s/%.*s is not a legal name syntax "
"(%s)", lookup->textname, (int)r.length,
(char *)r.base, dns_result_totext(result));
}
}
isc_buffer_init(&b, store, MXNAME);
dns_name_totext(lookup->name, ISC_FALSE, &b);
isc_buffer_usedregion(&b, &r);
trying((int)r.length, (char *)r.base, lookup);
ENSURE(dns_name_isabsolute(lookup->name));
if (lookup->rctext[0] == 0)
strcpy(lookup->rctext, "IN");
if (lookup->rttext[0] == 0)
strcpy(lookup->rttext, "A");
lookup->sendmsg->id = (unsigned short)(random() & 0xFFFF);
lookup->sendmsg->opcode = dns_opcode_query;
lookup->msgcounter = 0;
/*
* If this is a trace request, completely disallow recursion, since
* it's meaningless for traces.
*/
if (lookup->recurse && !lookup->trace && !lookup->ns_search_only) {
debug("recursive query");
lookup->sendmsg->flags |= DNS_MESSAGEFLAG_RD;
}
if (lookup->aaonly) {
debug("AA query");
lookup->sendmsg->flags |= DNS_MESSAGEFLAG_AA;
}
if (lookup->adflag) {
debug("AD query");
lookup->sendmsg->flags |= DNS_MESSAGEFLAG_AD;
}
if (lookup->cdflag) {
debug("CD query");
lookup->sendmsg->flags |= DNS_MESSAGEFLAG_CD;
}
dns_message_addname(lookup->sendmsg, lookup->name,
DNS_SECTION_QUESTION);
if (lookup->trace_root) {
debug("doing trace_root");
tr.base = "SOA";
tr.length = 3;
} else {
tr.base = lookup->rttext;
tr.length = strlen(lookup->rttext);
}
debug("data type is %s", lookup->rttext);
result = dns_rdatatype_fromtext(&rdtype, (isc_textregion_t *)&tr);
check_result(result, "dns_rdatatype_fromtext");
if ((rdtype == dns_rdatatype_axfr) ||
(rdtype == dns_rdatatype_ixfr)) {
lookup->doing_xfr = ISC_TRUE;
/*
* Force TCP mode if we're doing an xfr.
*/
lookup->tcp_mode = ISC_TRUE;
}
if (lookup->trace_root) {
tr.base = "IN";
tr.length = 2;
} else {
tr.base = lookup->rctext;
tr.length = strlen(lookup->rctext);
}
result = dns_rdataclass_fromtext(&rdclass, (isc_textregion_t *)&tr);
check_result(result, "dns_rdataclass_fromtext");
add_question(lookup->sendmsg, lookup->name, rdclass, rdtype);
if (rdtype == dns_rdatatype_ixfr)
insert_soa(lookup);
if (key != NULL) {
debug("initializing keys");
result = dns_message_settsigkey(lookup->sendmsg, key);
check_result(result, "dns_message_settsigkey");
lookup->tsigctx = NULL;
lookup->querysig = NULL;
}
lookup->sendspace = isc_mempool_get(commctx);
if (lookup->sendspace == NULL)
fatal("memory allocation failure");
debug("starting to render the message");
isc_buffer_init(&lookup->sendbuf, lookup->sendspace, COMMSIZE);
result = dns_message_renderbegin(lookup->sendmsg, &lookup->sendbuf);
check_result(result, "dns_message_renderbegin");
if (lookup->udpsize > 0) {
add_opt(lookup->sendmsg, lookup->udpsize);
}
result = dns_message_rendersection(lookup->sendmsg,
DNS_SECTION_QUESTION, 0);
check_result(result, "dns_message_rendersection");
result = dns_message_rendersection(lookup->sendmsg,
DNS_SECTION_AUTHORITY, 0);
check_result(result, "dns_message_rendersection");
result = dns_message_renderend(lookup->sendmsg);
check_result(result, "dns_message_renderend");
debug("done rendering");
lookup->pending = ISC_FALSE;
if (lookup->use_my_server_list)
serv = ISC_LIST_HEAD(lookup->my_server_list);
else
serv = ISC_LIST_HEAD(server_list);
for (; serv != NULL;
serv = ISC_LIST_NEXT(serv, link)) {
query = isc_mem_allocate(mctx, sizeof(dig_query_t));
if (query == NULL)
fatal("Memory allocation failure in %s:%d",
__FILE__, __LINE__);
debug("create query %p linked to lookup %p",
query, lookup);
query->lookup = lookup;
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
query->first_pass = ISC_TRUE;
query->first_soa_rcvd = ISC_FALSE;
query->second_rr_rcvd = ISC_FALSE;
query->second_rr_serial = 0;
query->servname = serv->servername;
ISC_LIST_INIT(query->sendlist);
ISC_LIST_INIT(query->recvlist);
ISC_LIST_INIT(query->lengthlist);
query->sock = NULL;
query->recvspace = isc_mempool_get(commctx);
if (query->recvspace == NULL)
fatal("memory allocation failure");
isc_buffer_init(&query->recvbuf, query->recvspace, COMMSIZE);
isc_buffer_init(&query->lengthbuf, query->lengthspace, 2);
isc_buffer_init(&query->slbuf, query->slspace, 2);
ISC_LIST_ENQUEUE(lookup->q, query, link);
}
if (!ISC_LIST_EMPTY(lookup->q) && qr) {
printmessage(ISC_LIST_HEAD(lookup->q), lookup->sendmsg,
ISC_TRUE);
}
}
static void
send_done(isc_task_t *task, isc_event_t *event) {
UNUSED(task);
isc_event_free(&event);
debug("send_done()");
sendcount--;
debug("sendcount=%d",sendcount);
INSIST(sendcount >= 0);
}
void
cancel_lookup(dig_lookup_t *lookup) {
dig_query_t *query = NULL;
debug("cancel_lookup()");
for (query = ISC_LIST_HEAD(lookup->q);
query != NULL;
query = ISC_LIST_NEXT(query, link)) {
if (query->working) {
debug("cancelling a worker");
}
if (query->sock != NULL) {
isc_socket_cancel(query->sock, global_task,
ISC_SOCKCANCEL_ALL);
isc_socket_detach(&query->sock);
sockcount--;
debug("sockcount=%d", sockcount);
INSIST(sockcount >= 0);
check_if_done();
}
}
lookup->pending = ISC_FALSE;
lookup->retries = 0;
}
static void
recv_done(isc_task_t *task, isc_event_t *event);
static void
connect_timeout(isc_task_t *task, isc_event_t *event);
void
send_udp(dig_lookup_t *lookup) {
dig_query_t *query;
isc_result_t result;
unsigned int local_timeout;
debug("send_udp()");
if (timeout != INT_MAX) {
if (timeout == 0) {
if (lookup->tcp_mode)
local_timeout = TCP_TIMEOUT;
else
local_timeout = UDP_TIMEOUT;
} else
local_timeout = timeout;
debug("have local timeout of %d", local_timeout);
isc_interval_set(&lookup->interval, local_timeout, 0);
result = isc_timer_create(timermgr, isc_timertype_once, NULL,
&lookup->interval, global_task,
connect_timeout, lookup,
&lookup->timer);
check_result(result, "isc_timer_create");
}
for (query = ISC_LIST_HEAD(lookup->q);
query != NULL;
query = ISC_LIST_NEXT(query, link)) {
debug("working on lookup %p, query %p",
query->lookup, query);
ISC_LIST_ENQUEUE(query->recvlist, &query->recvbuf, link);
query->working = ISC_TRUE;
debug("recving with lookup=%p, query=%p, sock=%p",
query->lookup, query,
query->sock);
result = isc_socket_recvv(query->sock, &query->recvlist, 1,
global_task, recv_done, query);
check_result(result, "isc_socket_recvv");
recvcount++;
debug("recvcount=%d", recvcount);
ISC_LIST_ENQUEUE(query->sendlist, &lookup->sendbuf, link);
debug("sending a request");
result = isc_time_now(&query->time_sent);
check_result(result, "isc_time_now");
ENSURE(query->sock != NULL);
result = isc_socket_sendtov(query->sock, &query->sendlist,
global_task, send_done, query,
&query->sockaddr, NULL);
check_result(result, "isc_socket_sendtov");
sendcount++;
}
}
/*
* connect_timeout is used for both UDP recieves and TCP connects.
*/
static void
connect_timeout(isc_task_t *task, isc_event_t *event) {
dig_lookup_t *lookup=NULL;
dig_query_t *q=NULL;
isc_result_t result;
isc_buffer_t *b=NULL;
isc_region_t r;
REQUIRE(event->ev_type == ISC_TIMEREVENT_IDLE);
debug("connect_timeout()");
lookup = event->ev_arg;
isc_event_free(&event);
debug("buffer allocate connect_timeout");
result = isc_buffer_allocate(mctx, &b, 256);
check_result(result, "isc_buffer_allocate");
for (q = ISC_LIST_HEAD(lookup->q);
q != NULL;
q = ISC_LIST_NEXT(q, link)) {
if (q->working) {
INSIST(!free_now);
isc_buffer_clear(b);
result = isc_sockaddr_totext(&q->sockaddr, b);
check_result(result, "isc_sockaddr_totext");
isc_buffer_usedregion(b, &r);
if ((q->lookup->retries > 1) &&
(!q->lookup->tcp_mode))
printf(";; Connection to server %.*s "
"for %s timed out. "
"Retrying %d.\n",
(int)r.length, r.base,
q->lookup->textname,
q->lookup->retries-1);
else {
printf(";; Connection to "
"server %.*s "
"for %s timed out. "
"Giving up.\n",
(int)r.length, r.base,
q->lookup->textname);
}
isc_socket_cancel(q->sock, task,
ISC_SOCKCANCEL_ALL);
}
}
ENSURE(lookup->timer != NULL);
isc_timer_detach(&lookup->timer);
isc_buffer_free(&b);
debug("done with connect_timeout()");
}
static void
tcp_length_done(isc_task_t *task, isc_event_t *event) {
isc_socketevent_t *sevent;
isc_buffer_t *b=NULL;
isc_region_t r;
isc_result_t result;
dig_query_t *query=NULL;
isc_uint16_t length;
REQUIRE(event->ev_type == ISC_SOCKEVENT_RECVDONE);
INSIST(!free_now);
UNUSED(task);
debug("tcp_length_done()");
sevent = (isc_socketevent_t *)event;
query = event->ev_arg;
if (sevent->result == ISC_R_CANCELED) {
query->working = ISC_FALSE;
isc_event_free(&event);
check_next_lookup(query->lookup);
return;
}
if (sevent->result != ISC_R_SUCCESS) {
debug("buffer allocate connect_timeout");
result = isc_buffer_allocate(mctx, &b, 256);
check_result(result, "isc_buffer_allocate");
result = isc_sockaddr_totext(&query->sockaddr, b);
check_result(result, "isc_sockaddr_totext");
isc_buffer_usedregion(b, &r);
printf("%.*s: %s\n", (int)r.length, r.base,
isc_result_totext(sevent->result));
isc_buffer_free(&b);
query->working = ISC_FALSE;
isc_socket_detach(&query->sock);
sockcount--;
debug("sockcount=%d",sockcount);
INSIST(sockcount >= 0);
isc_event_free(&event);
check_next_lookup(query->lookup);
return;
}
b = ISC_LIST_HEAD(sevent->bufferlist);
ISC_LIST_DEQUEUE(sevent->bufferlist, &query->lengthbuf, link);
length = isc_buffer_getuint16(b);
if (length > COMMSIZE) {
isc_event_free(&event);
fatal("Length of %X was longer than I can handle!",
length);
}
/*
* Even though the buffer was already init'ed, we need
* to redo it now, to force the length we want.
*/
isc_buffer_invalidate(&query->recvbuf);
isc_buffer_init(&query->recvbuf, query->recvspace, length);
ENSURE(ISC_LIST_EMPTY(query->recvlist));
ISC_LIST_ENQUEUE(query->recvlist, &query->recvbuf, link);
debug("recving with lookup=%p, query=%p",
query->lookup, query);
result = isc_socket_recvv(query->sock, &query->recvlist, length, task,
recv_done, query);
check_result(result, "isc_socket_recvv");
recvcount++;
debug("resubmitted recv request with length %d, recvcount=%d",
length, recvcount);
isc_event_free(&event);
}
static void
launch_next_query(dig_query_t *query, isc_boolean_t include_question) {
isc_result_t result;
INSIST(!free_now);
debug("launch_next_query()");
if (!query->lookup->pending) {
debug("ignoring launch_next_query because !pending");
isc_socket_detach(&query->sock);
sockcount--;
debug("sockcount=%d", sockcount);
INSIST(sockcount >= 0);
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
check_next_lookup(query->lookup);
return;
}
isc_buffer_clear(&query->slbuf);
isc_buffer_clear(&query->lengthbuf);
isc_buffer_putuint16(&query->slbuf, query->lookup->sendbuf.used);
ISC_LIST_ENQUEUE(query->sendlist, &query->slbuf, link);
if (include_question) {
ISC_LIST_ENQUEUE(query->sendlist, &query->lookup->sendbuf,
link);
}
ISC_LIST_ENQUEUE(query->lengthlist, &query->lengthbuf, link);
result = isc_socket_recvv(query->sock, &query->lengthlist, 0,
global_task, tcp_length_done, query);
check_result(result, "isc_socket_recvv");
recvcount++;
debug("recvcount=%d",recvcount);
if (!query->first_soa_rcvd) {
debug("sending a request");
result = isc_time_now(&query->time_sent);
check_result(result, "isc_time_now");
result = isc_socket_sendv(query->sock, &query->sendlist,
global_task, send_done, query);
check_result(result, "isc_socket_sendv");
sendcount++;
debug("sendcount=%d", sendcount);
}
query->waiting_connect = ISC_FALSE;
check_next_lookup(query->lookup);
return;
}
static void
connect_done(isc_task_t *task, isc_event_t *event) {
isc_result_t result;
isc_socketevent_t *sevent = NULL;
dig_query_t *query = NULL;
isc_buffer_t *b = NULL;
isc_region_t r;
UNUSED(task);
REQUIRE(event->ev_type == ISC_SOCKEVENT_CONNECT);
INSIST(!free_now);
debug("connect_done()");
sevent = (isc_socketevent_t *)event;
query = sevent->ev_arg;
REQUIRE(query->waiting_connect);
query->waiting_connect = ISC_FALSE;
if (sevent->result != ISC_R_SUCCESS) {
debug("buffer allocate connect_timeout");
result = isc_buffer_allocate(mctx, &b, 256);
check_result(result, "isc_buffer_allocate");
result = isc_sockaddr_totext(&query->sockaddr, b);
check_result(result, "isc_sockaddr_totext");
isc_buffer_usedregion(b, &r);
printf(";; Connection to server %.*s for %s failed: %s.\n",
(int)r.length, r.base, query->lookup->textname,
isc_result_totext(sevent->result));
if (exitcode < 9)
exitcode = 9;
isc_buffer_free(&b);
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
isc_event_free(&event);
check_next_lookup(query->lookup);
return;
}
launch_next_query(query, ISC_TRUE);
isc_event_free(&event);
}
#if 0
static isc_boolean_t
msg_contains_soa(dns_message_t *msg, dig_query_t *query) {
isc_result_t result;
dns_name_t *name=NULL;
debug("msg_contains_soa()");
result = dns_message_findname(msg, DNS_SECTION_ANSWER,
query->lookup->name, dns_rdatatype_soa,
0, &name, NULL);
if (result == ISC_R_SUCCESS) {
debug("found SOA", stderr);
return (ISC_TRUE);
} else {
debug("didn't find SOA, result=%d:%s",
result, dns_result_totext(result));
return (ISC_FALSE);
}
}
#endif
/*
* Returns true if we should call cancel_lookup(). This is a hack.
*/
static isc_boolean_t
check_for_more_data(dig_query_t *query, dns_message_t *msg,
isc_socketevent_t *sevent)
{
dns_rdataset_t *rdataset = NULL;
dns_rdata_t rdata;
dns_rdata_soa_t soa;
isc_result_t result;
isc_buffer_t b;
isc_region_t r;
char *abspace[MXNAME];
debug("check_for_more_data()");
/*
* By the time we're in this routine, we know we're doing
* either an AXFR or IXFR. If there's no second_rr_type,
* then we don't yet know which kind of answer we got back
* from the server. Here, we're going to walk through the
* rr's in the message, acting as necessary whenever we hit
* an SOA rr.
*/
result = dns_message_firstname(msg, DNS_SECTION_ANSWER);
if (result != ISC_R_SUCCESS) {
puts("; Transfer failed.");
query->working = ISC_FALSE;
return (ISC_TRUE);
}
#ifdef NEVER
check_result(result, "dns_message_firstname");
#endif
do {
dns_name_t *name = NULL;
dns_message_currentname(msg, DNS_SECTION_ANSWER,
&name);
for (rdataset = ISC_LIST_HEAD(name->list);
rdataset != NULL;
rdataset = ISC_LIST_NEXT(rdataset, link)) {
result = dns_rdataset_first(rdataset);
if (result != ISC_R_SUCCESS)
continue;
do {
dns_rdataset_current(rdataset, &rdata);
/*
* If this is the first rr, make sure
* it's an SOA
*/
if ((!query->first_soa_rcvd) &&
(rdata.type != dns_rdatatype_soa)) {
puts("; Transfer failed. "
"Didn't start with "
"SOA answer.");
query->working = ISC_FALSE;
return (ISC_TRUE);
}
if ((!query->second_rr_rcvd) &&
(rdata.type != dns_rdatatype_soa)) {
query->second_rr_rcvd = ISC_TRUE;
query->second_rr_serial = 0;
debug("got the second rr as nonsoa");
continue;
}
/*
* If the record is anything except an SOA
* now, just continue on...
*/
if (rdata.type != dns_rdatatype_soa)
goto next_rdata;
/* Now we have an SOA. Work with it. */
debug("got an SOA");
result = dns_rdata_tostruct(&rdata,
&soa,
mctx);
check_result(result,
"dns_rdata_tostruct");
if (!query->first_soa_rcvd) {
query->first_soa_rcvd =
ISC_TRUE;
query->first_rr_serial =
soa.serial;
debug("this is the first %d",
query->lookup->ixfr_serial);
if (query->lookup->ixfr_serial >=
soa.serial) {
dns_rdata_freestruct(&soa);
goto xfr_done;
}
dns_rdata_freestruct(&soa);
goto next_rdata;
}
if (!query->second_rr_rcvd) {
debug("this is the second %d",
query->lookup->ixfr_serial);
query->second_rr_rcvd = ISC_TRUE;
query->second_rr_serial =
soa.serial;
dns_rdata_freestruct(&soa);
goto next_rdata;
}
if (query->second_rr_serial == 0) {
/*
* If the second RR was a non-SOA
* record, and we're getting any
* other SOA, then this is an
* AXFR, and we're done.
*/
debug("done, since axfr");
xfr_done:
isc_buffer_init(&b, abspace, MXNAME);
result = isc_sockaddr_totext(&sevent->
address,
&b);
check_result(result,
"isc_sockaddr_totext");
isc_buffer_usedregion(&b, &r);
received(b.used, r.length,
(char *)r.base, query);
query->working = ISC_FALSE;
dns_rdata_freestruct(&soa);
return (ISC_TRUE);
}
/*
* If we get to this point, we're doing an
* IXFR and have to start really looking
* at serial numbers.
*/
if (query->first_rr_serial == soa.serial) {
debug("got a match for ixfr");
if (!query->first_repeat_rcvd) {
query->first_repeat_rcvd =
ISC_TRUE;
dns_rdata_freestruct(&soa);
goto next_rdata;
}
debug("done with ixfr");
dns_rdata_freestruct(&soa);
goto xfr_done;
}
debug("meaningless soa %d",
soa.serial);
dns_rdata_freestruct(&soa);
next_rdata:
result = dns_rdataset_next(rdataset);
} while (result == ISC_R_SUCCESS);
}
result = dns_message_nextname(msg, DNS_SECTION_ANSWER);
} while (result == ISC_R_SUCCESS);
launch_next_query(query, ISC_FALSE);
return (ISC_FALSE);
}
static void
recv_done(isc_task_t *task, isc_event_t *event) {
isc_socketevent_t *sevent = NULL;
dig_query_t *query = NULL;
isc_buffer_t *b = NULL;
dns_message_t *msg = NULL;
isc_result_t result;
isc_buffer_t ab;
char abspace[MXNAME];
isc_region_t r;
dig_lookup_t *n, *l;
isc_boolean_t docancel = ISC_FALSE;
unsigned int local_timeout;
UNUSED(task);
INSIST(!free_now);
debug("recv_done()");
recvcount--;
debug("recvcount=%d", recvcount);
INSIST(recvcount >= 0);
query = event->ev_arg;
debug("lookup=%p, query=%p", query->lookup, query);
l = query->lookup;
REQUIRE(event->ev_type == ISC_SOCKEVENT_RECVDONE);
sevent = (isc_socketevent_t *)event;
if ((l->tcp_mode) && (l->timer != NULL))
isc_timer_touch(l->timer);
if (!l->pending && !l->ns_search_only) {
debug("no longer pending. Got %s",
isc_result_totext(sevent->result));
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
isc_event_free(&event);
clear_query(query);
check_next_lookup(l);
return;
}
if (sevent->result == ISC_R_SUCCESS) {
b = ISC_LIST_HEAD(sevent->bufferlist);
ISC_LIST_DEQUEUE(sevent->bufferlist, &query->recvbuf, link);
result = dns_message_create(mctx, DNS_MESSAGE_INTENTPARSE,
&msg);
check_result(result, "dns_message_create");
if (key != NULL) {
debug("querysig 1 is %p", l->querysig);
if (l->querysig == NULL) {
debug("getting initial querysig");
result = dns_message_getquerytsig(
l->sendmsg,
mctx, &l->querysig);
check_result(result,
"dns_message_getquerytsig");
}
result = dns_message_setquerytsig(msg,
l->querysig);
check_result(result, "dns_message_setquerytsig");
result = dns_message_settsigkey(msg, key);
check_result(result, "dns_message_settsigkey");
msg->tsigctx = l->tsigctx;
if (l->msgcounter != 0)
msg->tcp_continuation = 1;
l->msgcounter++;
}
debug("before parse starts");
result = dns_message_parse(msg, b, ISC_TRUE);
if (result != ISC_R_SUCCESS) {
printf(";; Got bad UDP packet:\n");
hex_dump(b);
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
if (!l->tcp_mode) {
printf(";; Retrying in TCP mode.\n");
n = requeue_lookup(l, ISC_TRUE);
n->tcp_mode = ISC_TRUE;
}
dns_message_destroy(&msg);
isc_event_free(&event);
clear_query(query);
cancel_lookup(l);
check_next_lookup(l);
return;
}
if (key != NULL) {
debug("querysig 2 is %p", l->querysig);
debug("before verify");
result = dns_tsig_verify(&query->recvbuf, msg,
NULL, keyring);
debug("after verify");
if (result != ISC_R_SUCCESS) {
printf(";; Couldn't verify signature: %s\n",
dns_result_totext(result));
validated = ISC_FALSE;
}
l->tsigctx = msg->tsigctx;
if (l->querysig != NULL) {
debug("freeing querysig buffer %p",
l->querysig);
isc_buffer_free(&l->querysig);
}
result = dns_message_getquerytsig(msg, mctx,
&l->querysig);
check_result(result,"dns_message_getquerytsig");
debug("querysig 3 is %p", l->querysig);
}
debug("after parse");
if (l->xfr_q == NULL) {
l->xfr_q = query;
/*
* Once we are in the XFR message, increase
* the timeout to much longer, so brief network
* outages won't cause the XFR to abort
*/
if ((timeout != INT_MAX) &&
(l->timer != NULL)) {
if (timeout == 0) {
if (l->tcp_mode)
local_timeout = TCP_TIMEOUT;
else
local_timeout = UDP_TIMEOUT;
} else {
if (timeout < (INT_MAX / 4))
local_timeout = timeout * 4;
else
local_timeout = INT_MAX;
}
debug("have local timeout of %d",
local_timeout);
isc_interval_set(&l->interval,
local_timeout, 0);
result = isc_timer_reset(l->timer,
isc_timertype_once,
NULL,
&l->interval,
ISC_FALSE);
check_result(result, "isc_timer_reset");
}
}
if (l->xfr_q == query) {
if ((l->trace)||
(l->ns_search_only)) {
debug("in TRACE code");
if (show_details ||
(((dns_message_firstname(msg,
DNS_SECTION_ANSWER)
== ISC_R_SUCCESS)) &&
!l->trace_root)) {
printmessage(query, msg, ISC_TRUE);
}
if ((msg->rcode != 0) &&
(l->origin != NULL)) {
next_origin(msg, query);
} else {
result = dns_message_firstname
(msg,DNS_SECTION_ANSWER);
if ((result != ISC_R_SUCCESS) ||
l->trace_root)
followup_lookup(msg, query,
DNS_SECTION_AUTHORITY);
}
} else if ((msg->rcode != 0) &&
(l->origin != NULL)) {
next_origin(msg, query);
if (show_details) {
printmessage(query, msg, ISC_TRUE);
}
} else {
if (query->first_soa_rcvd &&
l->doing_xfr)
printmessage(query, msg, ISC_FALSE);
else
printmessage(query, msg, ISC_TRUE);
}
} else if ((dns_message_firstname(msg, DNS_SECTION_ANSWER)
== ISC_R_SUCCESS) &&
l->ns_search_only &&
!l->trace_root ) {
printmessage(query, msg, ISC_TRUE);
}
if (l->pending)
debug("still pending.");
if (l->doing_xfr) {
if (query != l->xfr_q) {
dns_message_destroy(&msg);
isc_event_free (&event);
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
return;
}
docancel = check_for_more_data(query, msg, sevent);
if (docancel) {
dns_message_destroy(&msg);
clear_query(query);
cancel_lookup(l);
}
if (msg != NULL)
dns_message_destroy(&msg);
isc_event_free(&event);
}
else {
if ((msg->rcode == 0) ||
(l->origin == NULL)) {
isc_buffer_init(&ab, abspace, MXNAME);
result = isc_sockaddr_totext(&sevent->address,
&ab);
check_result(result, "isc_sockaddr_totext");
isc_buffer_usedregion(&ab, &r);
if ((dns_message_firstname(msg,
DNS_SECTION_ANSWER)
== ISC_R_SUCCESS) ||
query->lookup->trace ) {
received(b->used, r.length,
(char *)r.base,
query);
}
}
query->working = ISC_FALSE;
query->lookup->pending = ISC_FALSE;
if (!query->lookup->ns_search_only ||
query->lookup->trace_root) {
dns_message_destroy(&msg);
cancel_lookup(l);
}
if (msg != NULL)
dns_message_destroy(&msg);
isc_event_free(&event);
clear_query(query);
check_next_lookup(l);
}
return;
}
/*
* In truth, we should never get into the CANCELED routine, since
* the cancel_lookup() routine clears the pending flag.
*/
if (sevent->result == ISC_R_CANCELED) {
debug("in cancel handler");
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
isc_event_free(&event);
clear_query(query);
check_next_lookup(l);
return;
}
fatal("recv_done got result %s",
isc_result_totext(sevent->result));
}
void
get_address(char *host, in_port_t port, isc_sockaddr_t *sockaddr) {
struct in_addr in4;
struct in6_addr in6;
#if defined(HAVE_ADDRINFO) && defined(HAVE_GETADDRINFO)
struct addrinfo *res = NULL;
int result;
#else
struct hostent *he;
#endif
debug("get_address()");
if (have_ipv6 && inet_pton(AF_INET6, host, &in6) == 1)
isc_sockaddr_fromin6(sockaddr, &in6, port);
else if (inet_pton(AF_INET, host, &in4) == 1)
isc_sockaddr_fromin(sockaddr, &in4, port);
else {
#if defined(HAVE_ADDRINFO) && defined(HAVE_GETADDRINFO)
result = getaddrinfo(host, NULL, NULL, &res);
if (result != 0) {
fatal("Couldn't find server '%s': %s",
host, gai_strerror(result));
}
memcpy(&sockaddr->type.sa,res->ai_addr, res->ai_addrlen);
sockaddr->length = res->ai_addrlen;
isc_sockaddr_setport(sockaddr, port);
freeaddrinfo(res);
#else
he = gethostbyname(host);
if (he == NULL)
fatal("Couldn't find server '%s' (h_errno=%d)",
host, h_errno);
INSIST(he->h_addrtype == AF_INET);
isc_sockaddr_fromin(sockaddr,
(struct in_addr *)(he->h_addr_list[0]),
port);
#endif
}
}
static void
do_lookup_tcp(dig_lookup_t *lookup) {
dig_query_t *query;
isc_result_t result;
unsigned int local_timeout;
debug("do_lookup_tcp()");
lookup->pending = ISC_TRUE;
if (timeout != INT_MAX) {
if (timeout == 0) {
if (lookup->tcp_mode)
local_timeout = TCP_TIMEOUT;
else
local_timeout = UDP_TIMEOUT;
} else
local_timeout = timeout;
debug("have local timeout of %d", local_timeout);
isc_interval_set(&lookup->interval, local_timeout, 0);
result = isc_timer_create(timermgr, isc_timertype_once, NULL,
&lookup->interval, global_task,
connect_timeout, lookup,
&lookup->timer);
check_result(result, "isc_timer_create");
}
for (query = ISC_LIST_HEAD(lookup->q);
query != NULL;
query = ISC_LIST_NEXT(query, link)) {
query->working = ISC_TRUE;
query->waiting_connect = ISC_TRUE;
get_address(query->servname, port, &query->sockaddr);
ENSURE(query->sock == NULL);
result = isc_socket_create(socketmgr,
isc_sockaddr_pf(&query->sockaddr),
isc_sockettype_tcp, &query->sock) ;
check_result(result, "isc_socket_create");
sockcount++;
debug("sockcount=%d",sockcount);
if (specified_source)
result = isc_socket_bind(query->sock, &bind_address);
else {
if (isc_sockaddr_pf(&query->sockaddr) == AF_INET)
isc_sockaddr_any(&bind_any);
else
isc_sockaddr_any6(&bind_any);
result = isc_socket_bind(query->sock, &bind_any);
}
check_result(result, "isc_socket_bind");
result = isc_socket_connect(query->sock, &query->sockaddr,
global_task, connect_done, query);
check_result(result, "isc_socket_connect");
}
}
static void
do_lookup_udp(dig_lookup_t *lookup) {
dig_query_t *query;
isc_result_t result;
debug("do_lookup_udp()");
ENSURE(!lookup->tcp_mode);
lookup->pending = ISC_TRUE;
for (query = ISC_LIST_HEAD(lookup->q);
query != NULL;
query = ISC_LIST_NEXT(query, link)) {
query->working = ISC_TRUE;
query->waiting_connect = ISC_FALSE;
get_address(query->servname, port, &query->sockaddr);
result = isc_socket_create(socketmgr,
isc_sockaddr_pf(&query->sockaddr),
isc_sockettype_udp, &query->sock);
check_result(result, "isc_socket_create");
sockcount++;
debug("sockcount=%d", sockcount);
if (specified_source)
result = isc_socket_bind(query->sock, &bind_address);
else {
if (isc_sockaddr_pf(&query->sockaddr) == AF_INET)
isc_sockaddr_any(&bind_any);
else
isc_sockaddr_any6(&bind_any);
result = isc_socket_bind(query->sock, &bind_any);
}
check_result(result, "isc_socket_bind");
}
send_udp(lookup);
}
void
do_lookup(dig_lookup_t *lookup) {
REQUIRE(lookup != NULL);
debug("do_lookup()");
if (lookup->tcp_mode)
do_lookup_tcp(lookup);
else
do_lookup_udp(lookup);
}
void
start_lookup(void) {
dig_lookup_t *lookup;
INSIST(!free_now);
debug("start_lookup()");
lookup = ISC_LIST_HEAD(lookup_list);
if (lookup != NULL) {
setup_lookup(lookup);
do_lookup(lookup);
}
}
void
onrun_callback(isc_task_t *task, isc_event_t *event) {
UNUSED(task);
isc_event_free(&event);
start_lookup();
}
#if 0
/*
* This will be used in the SIGINT handler, and perhaps other places.
*/
static void
cancel_all(void) {
dig_lookup_t *l;
dig_query_t *q;
debug ("cancel_all()");
l = ISC_LIST_HEAD(lookup_list);
while (l != NULL) {
if (l->timer != NULL)
isc_timer_detach(&l->timer);
q = ISC_LIST_HEAD(l->q);
while (q != NULL) {
debug("cancelling query %p, belonging to %p",
q, l);
if (q->sock != NULL) {
isc_socket_cancel(q->sock, NULL,
ISC_SOCKCANCEL_ALL);
isc_socket_detach(&q->sock);
sockcount--;
debug("sockcount=%d",sockcount);
INSIST(sockcount >= 0);
check_if_done();
}
q = ISC_LIST_NEXT(q, link);
}
l = ISC_LIST_NEXT(l, link);
}
check_if_done();
}
#endif
void
free_lists(void) {
void *ptr;
dig_server_t *s;
dig_searchlist_t *o;
debug("free_lists()");
REQUIRE(sockcount == 0);
REQUIRE(recvcount == 0);
REQUIRE(sendcount == 0);
INSIST(ISC_LIST_HEAD(lookup_list) == NULL);
INSIST(!free_now);
free_now = ISC_TRUE;
s = ISC_LIST_HEAD(server_list);
while (s != NULL) {
debug("freeing global server %p", s);
ptr = s;
s = ISC_LIST_NEXT(s, link);
debug("ptr is now %p", ptr);
isc_mem_free(mctx, ptr);
}
o = ISC_LIST_HEAD(search_list);
while (o != NULL) {
debug("freeing search %p", o);
ptr = o;
o = ISC_LIST_NEXT(o, link);
isc_mem_free(mctx, ptr);
}
if (commctx != NULL) {
debug("freeing commctx");
isc_mempool_destroy(&commctx);
}
if (socketmgr != NULL) {
debug("freeing socketmgr");
isc_socketmgr_destroy(&socketmgr);
}
if (timermgr != NULL) {
debug("freeing timermgr");
isc_timermgr_destroy(&timermgr);
}
if (global_task != NULL) {
debug("freeing task");
isc_task_detach(&global_task);
}
if (key != NULL) {
debug("freeing key %p", key);
dns_tsigkey_setdeleted(key);
dns_tsigkey_detach(&key);
}
if (namebuf != NULL)
isc_buffer_free(&namebuf);
if (keyring != NULL) {
debug("freeing keyring %p", keyring);
dns_tsigkeyring_destroy(&keyring);
}
if (is_dst_up) {
debug("destroy DST lib");
dst_lib_destroy();
is_dst_up = ISC_FALSE;
}
if (entp != NULL) {
debug("detach from entropy");
isc_entropy_detach(&entp);
}
}