dighost.c revision 9f35af43612c6ae4951e123911ac5a06d7880dca
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence/*
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * Copyright (C) 2000 Internet Software Consortium.
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence *
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * Permission to use, copy, modify, and distribute this software for any
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * purpose with or without fee is hereby granted, provided that the above
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * copyright notice and this permission notice appear in all copies.
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence *
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * SOFTWARE.
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence */
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
1a69a1a78cfaa86f3b68bbc965232b7876d4da2aDavid Lawrence/* $Id: dighost.c,v 1.47 2000/06/08 21:18:24 mws Exp $ */
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence/*
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * Notice to programmers: Do not use this code as an example of how to
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * use the ISC library to perform DNS lookups. Dig and Host both operate
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * on the request level, since they allow fine-tuning of output and are
6b7257f756eb0530cdf54df9a7fab8d51a5001c3David Lawrence * intended as debugging tools. As a result, they perform many of the
6b7257f756eb0530cdf54df9a7fab8d51a5001c3David Lawrence * functions which could be better handled using the dns_resolver
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * functions in most applications.
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence */
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <config.h>
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence
1a69a1a78cfaa86f3b68bbc965232b7876d4da2aDavid Lawrence#include <stdlib.h>
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence#include <unistd.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceextern int h_errno;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence#include <isc/app.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <isc/netdb.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <isc/string.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <isc/task.h>
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence#include <isc/timer.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <isc/util.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <isc/base64.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <isc/lex.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/message.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/name.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/rdata.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/rdataclass.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/rdataset.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/rdatatype.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/rdatalist.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/result.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/rdatastruct.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dns/tsig.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#include <dig/dig.h>
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David LawrenceISC_LIST(dig_lookup_t) lookup_list;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David LawrenceISC_LIST(dig_server_t) server_list;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David LawrenceISC_LIST(dig_searchlist_t) search_list;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_boolean_t have_ipv6 = ISC_FALSE, specified_source = ISC_FALSE,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence free_now = ISC_FALSE, show_details = ISC_FALSE, usesearch=ISC_TRUE,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence qr = ISC_FALSE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#ifdef TWIDDLE
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_boolean_t twiddle = ISC_FALSE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#endif
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencein_port_t port = 53;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceunsigned int timeout = 5;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_mem_t *mctx = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_taskmgr_t *taskmgr = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_task_t *global_task = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_timermgr_t *timermgr = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_socketmgr_t *socketmgr = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_sockaddr_t bind_address;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_sockaddr_t bind_any;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencechar *rootspace[BUFSIZE];
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_buffer_t rootbuf;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceint sendcount = 0;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceint sockcount = 0;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceint ndots = -1;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceint tries = 3;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceint lookup_counter = 0;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencechar fixeddomain[MXNAME]="";
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceint exitcode = 9;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencechar keynametext[MXNAME];
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencechar keysecret[MXNAME]="";
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencedns_name_t keyname;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencedns_tsig_keyring_t *keyring = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_buffer_t *namebuf = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencedns_tsigkey_t *key = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_boolean_t validated = ISC_TRUE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceextern isc_boolean_t isc_mem_debugging;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_boolean_t debugging = ISC_FALSE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencestatic void
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencecancel_lookup(dig_lookup_t *lookup);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencestatic int
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencecount_dots(char *string) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence char *s;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence int i=0;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence s = string;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence while (*s != 0) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (*s == '.')
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence i++;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence s++;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence return (i);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence}
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencestatic void
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencehex_dump(isc_buffer_t *b) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence unsigned int len;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence isc_region_t r;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence isc_buffer_remainingregion(b, &r);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence printf("Printing a buffer with length %d\n", r.length);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence for (len = 0 ; len < r.length ; len++) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence printf("%02x ", r.base[len]);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (len != 0 && len % 16 == 0)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence printf("\n");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (len % 16 != 0)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence printf("\n");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence}
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencevoid
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencefatal(const char *format, ...) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence va_list args;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence va_start(args, format);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence vfprintf(stderr, format, args);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence va_end(args);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fprintf(stderr, "\n");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (exitcode == 0)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence exitcode = 8;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#ifdef NEVER
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence dighost_shutdown();
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence free_lists(exitcode);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (mctx != NULL) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (isc_mem_debugging)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence isc_mem_stats(mctx, stderr);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence isc_mem_destroy(&mctx);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#endif
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence exit(exitcode);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence}
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencevoid
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencedebug(const char *format, ...) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence va_list args;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (debugging) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence va_start(args, format);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence vfprintf(stderr, format, args);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence va_end(args);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fprintf(stderr, "\n");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence}
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencevoid
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencecheck_result(isc_result_t result, const char *msg) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (result != ISC_R_SUCCESS) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence exitcode = 1;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fatal("%s: %s", msg, isc_result_totext(result));
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence}
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_boolean_t
6e033f89d4f1fcf266e07d91fcabf474af4939a1David Lawrenceisclass(char *text) {
6e033f89d4f1fcf266e07d91fcabf474af4939a1David Lawrence /* Tests if a field is a class, without needing isc libs
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * initialized. This list will have to be manually kept in
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * sync with what the libs support.
6e033f89d4f1fcf266e07d91fcabf474af4939a1David Lawrence */
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence const char *classlist[] = {"in", "hs", "chaos"};
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence const int numclasses = 3;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence int i;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence for (i = 0; i < numclasses; i++)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (strcasecmp(text, classlist[i]) == 0)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence return ISC_TRUE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence return ISC_FALSE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence}
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceisc_boolean_t
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrenceistype(char *text) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence /* Tests if a field is a type, without needing isc libs
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * initialized. This list will have to be manually kept in
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence * sync with what the libs support.
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence */
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence const char *typelist[] = {"a", "ns", "md", "mf", "cname",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "soa", "mb", "mg", "mr", "null",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "wks", "ptr", "hinfo", "minfo",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "mx", "txt", "rp", "afsdb",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "x25", "isdn", "rt", "nsap",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "nsap_ptr", "sig", "key", "px",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "gpos", "aaaa", "loc", "nxt",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "srv", "naptr", "kx", "cert",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "a6", "dname", "opt", "unspec",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "tkey", "tsig", "axfr", "any"};
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence const int numtypes = 42;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence int i;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence for (i = 0; i < numtypes; i++) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (strcasecmp(text, typelist[i]) == 0)
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence return ISC_TRUE;
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence }
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence return ISC_FALSE;
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence}
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence#ifdef TWIDDLE
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrencevoid
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrencetwiddlebuf(isc_buffer_t buf) {
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence isc_region_t r;
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence int len, pos, bit;
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence unsigned char bitfield;
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence int i, tw;
94b166ffa58ef0ff263563c0550d0b30eb9f7772David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence hex_dump(&buf);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence tw=TWIDDLE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence printf ("Twiddling %d bits: ", tw);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence for (i=0;i<tw;i++) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence isc_buffer_usedregion (&buf, &r);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence len = r.length;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence pos=(int)random();
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence pos = pos%len;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence bit = (int)random()%8;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence bitfield = 1 << bit;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence printf ("%d@%03x ", bit, pos);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence r.base[pos] ^= bitfield;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence }
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence puts ("");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence hex_dump(&buf);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence}
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence#endif
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrencedig_lookup_t
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence*requeue_lookup(dig_lookup_t *lookold, isc_boolean_t servers) {
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence dig_lookup_t *looknew;
4716e94840921878b26e493576f84afe4fe08752Mark Andrews dig_server_t *s, *srv;
4716e94840921878b26e493576f84afe4fe08752Mark Andrews
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence debug("requeue_lookup()");
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (free_now)
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence return(ISC_R_SUCCESS);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence lookup_counter++;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (lookup_counter > LOOKUP_LIMIT)
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence fatal ("Too many lookups.");
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew = isc_mem_allocate
df3974bf576d3238f2e1feb152d9a63ab526d4d0David Lawrence (mctx, sizeof(struct dig_lookup));
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (looknew == NULL)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fatal ("Memory allocation failure in %s:%d",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence __FILE__, __LINE__);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->pending = ISC_FALSE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strncpy (looknew->textname, lookold-> textname, MXNAME);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strncpy (looknew->rttext, lookold-> rttext, 32);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strncpy (looknew->rctext, lookold-> rctext, 32);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->namespace[0]=0;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->sendspace[0]=0;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->sendmsg=NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->name=NULL;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->oname=NULL;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->timer = NULL;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->xfr_q = NULL;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->doing_xfr = lookold->doing_xfr;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->ixfr_serial = lookold->ixfr_serial;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->defname = lookold->defname;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->trace = lookold->trace;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->trace_root = lookold->trace_root;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->identify = lookold->identify;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->udpsize = lookold->udpsize;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->recurse = lookold->recurse;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->aaonly = lookold->aaonly;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->ns_search_only = lookold->ns_search_only;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->origin = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->querysig = NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->retries = tries;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->nsfound = 0;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->tcp_mode = lookold->tcp_mode;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->comments = lookold->comments;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->stats = lookold->stats;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence looknew->section_question = lookold->section_question;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->section_answer = lookold->section_answer;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->section_authority = lookold->section_authority;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->section_additional = lookold->section_additional;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->new_search = ISC_FALSE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ISC_LIST_INIT(looknew->my_server_list);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ISC_LIST_INIT(looknew->q);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->use_my_server_list = ISC_FALSE;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (servers) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence looknew->use_my_server_list = lookold->use_my_server_list;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (looknew->use_my_server_list) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence s = ISC_LIST_HEAD(lookold->my_server_list);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence while (s != NULL) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence srv = isc_mem_allocate (mctx, sizeof(struct
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence dig_server));
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (srv == NULL)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fatal("Memory allocation failure "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "in %s:%d", __FILE__, __LINE__);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strncpy(srv->servername, s->servername,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence MXNAME);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ISC_LIST_ENQUEUE(looknew->my_server_list, srv,
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence link);
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence s = ISC_LIST_NEXT(s, link);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence }
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence }
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence debug ("Before insertion, init@%lx "
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence "-> %lx, new@%lx "
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence "-> %lx", (long int)lookold,
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence (long int)lookold->link.next,
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence (long int)looknew, (long int)looknew->
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence link.next);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence ISC_LIST_INSERTAFTER(lookup_list, lookold, looknew, link);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence debug ("After insertion, init -> "
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence "%lx, new = %lx, "
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence "new -> %lx", (long int)lookold,
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence (long int)looknew, (long int)looknew->
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence link.next);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence return (looknew);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence}
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrencevoid
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrencesetup_system(void) {
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence char rcinput[MXNAME];
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence FILE *fp;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence char *ptr;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence dig_server_t *srv;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence dig_searchlist_t *search;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence dig_lookup_t *l;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence isc_boolean_t get_servers;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence isc_result_t result;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence isc_buffer_t secretsrc;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence isc_buffer_t secretbuf;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence int secretsize;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence unsigned char *secretstore;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence isc_lex_t *lex = NULL;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence isc_stdtime_t now;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (fixeddomain[0]!=0) {
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence search = isc_mem_allocate( mctx, sizeof(struct dig_server));
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (search == NULL)
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence fatal("Memory allocation failure in %s:%d",
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence __FILE__, __LINE__);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence strncpy(search->origin, fixeddomain, MXNAME - 1);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence ISC_LIST_PREPEND(search_list, search, link);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence }
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence debug ("setup_system()");
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence free_now = ISC_FALSE;
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence get_servers = ISC_TF(server_list.head == NULL);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence fp = fopen (RESOLVCONF, "r");
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (fp != NULL) {
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence while (fgets(rcinput, MXNAME, fp) != 0) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ptr = strtok (rcinput, " \t\r\n");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (ptr != NULL) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (get_servers &&
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strcasecmp(ptr, "nameserver") == 0) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence debug ("Got a nameserver line");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ptr = strtok (NULL, " \t\r\n");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (ptr != NULL) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence srv = isc_mem_allocate(mctx,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence sizeof(struct dig_server));
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (srv == NULL)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fatal("Memory "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "allocation "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "failure in "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "%s:%d",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence __FILE__,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence __LINE__);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strncpy((char *)srv->
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence servername,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ptr,
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence MXNAME - 1);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence ISC_LIST_APPEND
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence (server_list,
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence srv, link);
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence }
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence } else if (strcasecmp(ptr, "options") == 0) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ptr = strtok(NULL, " \t\r\n");
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if (ptr != NULL) {
3db78e0855a8dfc162180880cd70d9c1a03d9301David Lawrence if ((strncasecmp(ptr, "ndots:",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence 6) == 0) &&
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence (ndots == -1)) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ndots = atoi(
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence &ptr[6]);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence debug ("ndots is "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "%d.",
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ndots);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence } else if ((strcasecmp(ptr, "search") == 0)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence && usesearch){
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence while ((ptr = strtok(NULL, " \t\r\n"))
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence != NULL) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence search = isc_mem_allocate(
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence mctx, sizeof(struct
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence dig_server));
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (search == NULL)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fatal("Memory "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "allocation "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "failure in %s:"
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "%d", __FILE__,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence __LINE__);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strncpy(search->
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence origin,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ptr,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence MXNAME - 1);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ISC_LIST_APPEND
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence (search_list,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence search,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence link);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence } else if ((strcasecmp(ptr, "domain") == 0) &&
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence (fixeddomain[0] == 0 )){
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence while ((ptr = strtok(NULL, " \t\r\n"))
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence != NULL) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence search = isc_mem_allocate(
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence mctx, sizeof(struct
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence dig_server));
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (search == NULL)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fatal("Memory "
a6535a2681706ef7bb9425556d82cfa55208044dAndreas Gustafsson "allocation "
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "failure in %s:"
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence "%d", __FILE__,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence __LINE__);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strncpy(search->
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence origin,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ptr,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence MXNAME - 1);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ISC_LIST_PREPEND
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence (search_list,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence search,
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence link);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fclose (fp);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence isc_sockaddr_any(&bind_any);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (ndots == -1)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ndots = 1;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (server_list.head == NULL) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence srv = isc_mem_allocate(mctx, sizeof(dig_server_t));
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (srv == NULL)
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence fatal("Memory allocation failure");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence strcpy(srv->servername, "127.0.0.1");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence ISC_LIST_APPEND(server_list, srv, link);
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence }
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence
f96b41064bcd427d8125a096fd646c1f068d8ed7David Lawrence for (l = ISC_LIST_HEAD(lookup_list) ;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence l != NULL;
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence l = ISC_LIST_NEXT(l, link) ) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence l -> origin = ISC_LIST_HEAD(search_list);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence }
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence if (keysecret[0] != 0) {
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence debug("keyring");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence result = dns_tsigkeyring_create(mctx, &keyring);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence check_result(result, "dns_tsigkeyring_create");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence debug("buffer");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence result = isc_buffer_allocate(mctx, &namebuf, MXNAME);
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence check_result(result, "isc_buffer_allocate");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence debug("name");
20bd7b4bbf2437ef2f9109edca168ab0ce8445b3David Lawrence 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);
ENSURE (secretstore != NULL);
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");
}
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_type(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_type()");
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);
}
static void
check_next_lookup(dig_lookup_t *lookup) {
dig_lookup_t *next;
dig_query_t *query;
isc_boolean_t still_working=ISC_FALSE;
if (free_now)
return;
debug("check_next_lookup(%lx)", (long int)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;
debug ("Have %d retries left for %s",
lookup->retries-1, lookup->textname);
debug ("Lookup %s pending", lookup->pending?"is":"is not");
next = ISC_LIST_NEXT(lookup, link);
if (lookup->tcp_mode) {
if (next == NULL) {
debug("Shutting Down.", stderr);
dighost_shutdown();
return;
}
if (next->sendmsg == NULL) {
debug ("Setting up for TCP");
setup_lookup(next);
do_lookup(next);
}
} else {
if (!lookup->pending) {
if (next == NULL) {
debug("Shutting Down.", stderr);
dighost_shutdown();
return;
}
if (next->sendmsg == NULL) {
debug ("Setting up for UDP");
setup_lookup(next);
do_lookup(next);
}
} else {
if (lookup->retries > 1) {
debug ("Retrying");
lookup->retries --;
if (lookup->timer != NULL)
isc_timer_detach(&lookup->timer);
send_udp(lookup);
} else {
debug ("Cancelling");
cancel_lookup(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;
debug ("followup_lookup()");
if (free_now)
return;
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)
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;
else
lookup->trace =
query->
lookup->trace;
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)
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);
debug ("next_origin()");
if (free_now)
return;
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 whith 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);
debug("setup_lookup(%lx)",(long int)lookup);
if (free_now)
return;
debug("Setting up for looking up %s @%lx->%lx",
lookup->textname, (long int)lookup,
(long int)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, BUFSIZE);
isc_buffer_init(&lookup->onamebuf, lookup->onamespace, BUFSIZE);
if ((count_dots(lookup->textname) >= ndots) || lookup->defname)
lookup->origin = NULL; /* Force root lookup */
debug ("lookup->origin = %lx", (long int)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("Aborting: %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 {
isc_buffer_init(&b, ". ", 1);
isc_buffer_add(&b, 1);
result = dns_name_fromtext(lookup->name, &b,
lookup->oname, ISC_FALSE,
&lookup->namebuf);
}
if (result != ISC_R_SUCCESS) {
dns_message_puttempname(lookup->sendmsg,
&lookup->name);
dns_message_puttempname(lookup->sendmsg,
&lookup->oname);
fatal("Aborting: %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 {
isc_buffer_init(&b, ". ", 1);
isc_buffer_add(&b, 1);
result = dns_name_fromtext(lookup->name, &b,
dns_rootname,
ISC_FALSE,
&lookup->namebuf);
}
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("Aborting: %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);
if (dns_name_isabsolute(lookup->name))
debug ("This is an absolute name.");
else
debug ("This is a relative name (which is wrong).");
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) {
debug ("Recursive query");
lookup->sendmsg->flags |= DNS_MESSAGEFLAG_RD;
}
if (lookup->aaonly) {
debug ("AA query");
lookup->sendmsg->flags |= DNS_MESSAGEFLAG_AA;
}
dns_message_addname(lookup->sendmsg, lookup->name,
DNS_SECTION_QUESTION);
if (lookup->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_type(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;
}
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 %lx linked to lookup %lx",
(long int)query, (long int)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;
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()");
}
static 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 ("Socket = %d",sockcount);
}
}
lookup->pending = ISC_FALSE;
lookup->retries = 0;
check_next_lookup(lookup);
}
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;
debug ("send_udp()");
isc_interval_set(&lookup->interval, 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 %lx, query %lx",
(long int)query->lookup, (long int)query);
ISC_LIST_ENQUEUE(query->recvlist, &query->recvbuf, link);
query->working = ISC_TRUE;
debug ("recving with lookup=%lx, query=%lx, sock=%lx",
(long int)query->lookup, (long int)query,
(long int)query->sock);
result = isc_socket_recvv(query->sock, &query->recvlist, 1,
global_task, recv_done, query);
check_result(result, "isc_socket_recvv");
sendcount++;
debug("Sent count number %d", sendcount);
#ifdef TWIDDLE
if (twiddle) {
twiddlebuf(lookup->sendbuf);
}
#endif
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");
}
}
/* 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, *next=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) {
if (!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)
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 {
if (lookup->tcp_mode) {
printf(";; Connection to "
"server %.*s "
"for %s timed out. "
"Giving up.\n",
(int)r.length, r.base,
q->lookup->textname);
} else {
printf(";; Connection to "
"server %.*s "
"for %s timed out. "
"Trying TCP.\n",
(int)r.length, r.base,
q->lookup->textname);
next = requeue_lookup
(lookup,ISC_TRUE);
next->tcp_mode = ISC_TRUE;
}
}
}
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);
UNUSED(task);
debug("tcp_length_done()");
if (free_now) {
isc_event_free(&event);
return;
}
sevent = (isc_socketevent_t *)event;
query = event->ev_arg;
if (sevent->result == ISC_R_CANCELED) {
query->working = ISC_FALSE;
check_next_lookup(query->lookup);
isc_event_free(&event);
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;
sockcount--;
debug ("Socket = %d",sockcount);
isc_socket_detach(&query->sock);
check_next_lookup(query->lookup);
isc_event_free(&event);
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=%lx, query=%lx",
(long int)query->lookup, (long int)query);
result = isc_socket_recvv(query->sock, &query->recvlist, length, task,
recv_done, query);
check_result(result, "isc_socket_recvv");
debug("Resubmitted recv request with length %d", length);
isc_event_free(&event);
}
static void
launch_next_query(dig_query_t *query, isc_boolean_t include_question) {
isc_result_t result;
debug("launch_next_query()");
if (free_now)
return;
if (!query->lookup->pending) {
debug("Ignoring launch_next_query because !pending.");
sockcount--;
debug ("Socket = %d",sockcount);
isc_socket_detach(&query->sock);
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) {
#ifdef TWIDDLE
if (twiddle) {
twiddlebuf(query->lookup->sendbuf);
}
#endif
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");
sendcount++;
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_recvv");
}
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);
debug ("connect_done()");
if (free_now) {
isc_event_free(&event);
return;
}
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;
check_next_lookup(query->lookup);
isc_event_free(&event);
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
static void
check_for_more_data(dig_query_t *query, dns_message_t *msg,
isc_socketevent_t *sevent)
{
dns_name_t *name = NULL;
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;
cancel_lookup(query->lookup);
return;
}
#ifdef NEVER
check_result(result, "dns_message_firstname");
#endif
do {
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;
cancel_lookup(query->lookup);
return;
}
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 a 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;
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;
cancel_lookup(query->lookup);
dns_rdata_freestruct(&soa);
return;
}
/*
* 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;
}
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;
UNUSED (task);
debug ("recv_done()");
if (free_now) {
isc_event_free(&event);
return;
}
query = event->ev_arg;
debug("(lookup=%lx, query=%lx)",
(long int)query->lookup, (long int)query);
if (free_now) {
debug("Bailing out, since freeing now.");
isc_event_free(&event);
return;
}
sendcount--;
debug("In recv_done, counter down to %d", sendcount);
REQUIRE(event->ev_type == ISC_SOCKEVENT_RECVDONE);
sevent = (isc_socketevent_t *)event;
if (!query->lookup->pending && !query->lookup->ns_search_only) {
debug("No longer pending. Got %s",
isc_result_totext(sevent->result));
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
cancel_lookup(query->lookup);
isc_event_free(&event);
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 %lx", query->lookup->querysig);
if (query->lookup->querysig == NULL) {
debug ("Getting initial querysig");
result = dns_message_getquerytsig(
query->lookup->sendmsg,
mctx, &query->lookup->querysig);
check_result(result,
"dns_message_getquerytsig");
}
result = dns_message_setquerytsig(msg,
query->lookup->querysig);
check_result(result, "dns_message_setquerytsig");
result = dns_message_settsigkey(msg, key);
check_result(result, "dns_message_settsigkey");
msg->tsigctx = query->lookup->tsigctx;
if (query->lookup->msgcounter != 0)
msg->tcp_continuation = 1;
query->lookup->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 (!query->lookup->tcp_mode) {
printf (";; Retrying in TCP mode.\n");
n = requeue_lookup(query->lookup, ISC_TRUE);
n->tcp_mode = ISC_TRUE;
}
cancel_lookup(query->lookup);
dns_message_destroy(&msg);
isc_event_free(&event);
return;
}
if (key != NULL) {
debug ("querysig 2 is %lx", query->lookup->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;
}
query->lookup->tsigctx = msg->tsigctx;
if (query->lookup->querysig != NULL) {
debug ("Freeing querysig buffer %lx",
query->lookup->querysig);
isc_buffer_free(&query->lookup->querysig);
}
result = dns_message_getquerytsig(msg, mctx,
&query->lookup->querysig);
check_result(result,"dns_message_getquerytsig");
debug ("querysig 3 is %lx", query->lookup->querysig);
}
debug ("After parse");
if (query->lookup->xfr_q == NULL)
query->lookup->xfr_q = query;
if (query->lookup->xfr_q == query) {
if (query->lookup->trace) {
if (show_details ||
((dns_message_firstname(msg,
DNS_SECTION_ANSWER)
== ISC_R_SUCCESS) &&
!query->lookup->trace_root)) {
printmessage(query, msg, ISC_TRUE);
}
if ((msg->rcode != 0) &&
(query->lookup->origin != NULL)) {
next_origin(msg, query);
} else {
result = dns_message_firstname
(msg,DNS_SECTION_ANSWER);
if ((result != ISC_R_SUCCESS) ||
query->lookup->trace_root)
followup_lookup(msg, query,
DNS_SECTION_AUTHORITY);
}
} else if ((msg->rcode != 0) &&
(query->lookup->origin != NULL)) {
next_origin(msg, query);
if (show_details) {
printmessage(query, msg, ISC_TRUE);
}
} else {
if (query->first_soa_rcvd &&
query->lookup->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) &&
query->lookup->ns_search_only &&
!query->lookup->trace_root ) {
printmessage (query, msg, ISC_TRUE);
}
if (query->lookup->pending)
debug("Still pending.");
if (query->lookup->doing_xfr) {
if (query != query->lookup->xfr_q) {
dns_message_destroy (&msg);
isc_event_free (&event);
query->working = ISC_FALSE;
query->waiting_connect = ISC_FALSE;
return;
}
check_for_more_data(query, msg, sevent);
}
else {
if ((msg->rcode == 0) ||
(query->lookup->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);
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 ) {
cancel_lookup(query->lookup);
}
check_next_lookup(query->lookup);
}
dns_message_destroy(&msg);
isc_event_free(&event);
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;
check_next_lookup(query->lookup);
isc_event_free(&event);
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;
struct hostent *he;
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 {
he = gethostbyname(host);
if (he == NULL)
fatal("Couldn't look up your server host %s. errno=%d",
host, h_errno);
INSIST(he->h_addrtype == AF_INET);
isc_sockaddr_fromin(sockaddr,
(struct in_addr *)(he->h_addr_list[0]),
port);
}
}
static void
do_lookup_tcp(dig_lookup_t *lookup) {
dig_query_t *query;
isc_result_t result;
debug("do_lookup_tcp()");
lookup->pending = ISC_TRUE;
isc_interval_set(&lookup->interval, 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);
sockcount++;
debug ("Socket = %d",sockcount);
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");
if (specified_source)
result = isc_socket_bind(query->sock, &bind_address);
else
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()");
if (lookup->tcp_mode)
debug("I'm starting UDP with tcp_mode set!!!");
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);
sockcount++;
debug ("Socket = %d",sockcount);
result = isc_socket_create(socketmgr,
isc_sockaddr_pf(&query->sockaddr),
isc_sockettype_udp, &query->sock) ;
check_result(result, "isc_socket_create");
if (specified_source)
result = isc_socket_bind(query->sock, &bind_address);
else
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;
debug ("start_lookup()");
if (free_now)
return;
lookup = ISC_LIST_HEAD(lookup_list);
if (lookup != NULL) {
setup_lookup(lookup);
do_lookup(lookup);
}
}
void
free_lists(int _exitcode) {
void *ptr;
dig_lookup_t *l;
dig_query_t *q;
dig_server_t *s;
dig_searchlist_t *o;
debug("free_lists()");
if (free_now)
return;
free_now = ISC_TRUE;
l = ISC_LIST_HEAD(lookup_list);
while (l != NULL) {
q = ISC_LIST_HEAD(l->q);
while (q != NULL) {
debug ("Freeing query %lx, belonging to %lx",
q, l);
if (q->sock != NULL) {
isc_socket_cancel(q->sock, NULL,
ISC_SOCKCANCEL_ALL);
isc_socket_detach(&q->sock);
sockcount--;
debug ("Socket = %d",sockcount);
}
if (ISC_LINK_LINKED(&q->recvbuf, link))
ISC_LIST_DEQUEUE(q->recvlist, &q->recvbuf,
link);
if (ISC_LINK_LINKED(&q->lengthbuf, link))
ISC_LIST_DEQUEUE(q->lengthlist, &q->lengthbuf,
link);
isc_buffer_invalidate(&q->recvbuf);
isc_buffer_invalidate(&q->lengthbuf);
ptr = q;
q = ISC_LIST_NEXT(q, link);
isc_mem_free(mctx, ptr);
}
if (l->use_my_server_list) {
s = ISC_LIST_HEAD(l->my_server_list);
while (s != NULL) {
debug ("Freeing server %lx belonging to %lx",
s, l);
ptr = s;
s = ISC_LIST_NEXT(s, link);
isc_mem_free(mctx, ptr);
}
}
if (l->sendmsg != NULL)
dns_message_destroy (&l->sendmsg);
if (l->timer != NULL)
isc_timer_detach (&l->timer);
if (l->querysig != NULL) {
debug ("Freeing buffer %lx", l->querysig);
isc_buffer_free(&l->querysig);
}
ptr = l;
l = ISC_LIST_NEXT(l, link);
isc_mem_free(mctx, ptr);
}
s = ISC_LIST_HEAD(server_list);
while (s != NULL) {
debug ("Freeing global server %lx", s);
ptr = s;
s = ISC_LIST_NEXT(s, link);
isc_mem_free(mctx, ptr);
}
o = ISC_LIST_HEAD(search_list);
while (o != NULL) {
debug ("Freeing search %lx", o);
ptr = o;
o = ISC_LIST_NEXT(o, link);
isc_mem_free(mctx, ptr);
}
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 (taskmgr != NULL) {
debug ("Freeing taskmgr");
isc_taskmgr_destroy(&taskmgr);
}
if (key != NULL) {
debug ("Freeing key %lx", key);
dns_tsigkey_setdeleted(key);
dns_tsigkey_detach(&key);
}
if (namebuf != NULL)
isc_buffer_free(&namebuf);
if (keyring != NULL) {
debug ("Freeing keyring %lx", keyring);
dns_tsigkeyring_destroy(&keyring);
}
if (isc_mem_debugging)
isc_mem_stats(mctx, stderr);
isc_app_finish();
if (mctx != NULL)
isc_mem_destroy(&mctx);
debug("Getting ready to exit, code=%d",_exitcode);
if (_exitcode != 0)
exit(_exitcode);
}