xfrd.c
Go to the documentation of this file.
/*
* Copyright (c) 2011 NLNet Labs. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
*/
#include "config.h"
#include "daemon/engine.h"
#include "daemon/xfrhandler.h"
#include "duration.h"
#include "file.h"
#include "log.h"
#include "status.h"
#include "util.h"
#include "signer/domain.h"
#include "signer/zone.h"
#include "wire/tcpset.h"
#include "wire/xfrd.h"
#include "signer/backup.h"
#include <unistd.h>
#include <fcntl.h>
#define XFRD_TSIG_MAX_UNSIGNED 100
static const char* xfrd_str = "xfrd";
static void xfrd_handle_zone(netio_type* netio,
netio_handler_type* handler, netio_events_type event_types);
static void xfrd_make_request(xfrd_type* xfrd);
static socklen_t xfrd_acl_sockaddr(acl_type* acl, unsigned int port,
struct sockaddr_storage *sck);
static void xfrd_write_soa(xfrd_type* xfrd, buffer_type* buffer);
static int xfrd_parse_soa(xfrd_type* xfrd, buffer_type* buffer,
unsigned rdata_only, unsigned update, uint32_t t,
uint32_t* serial);
static ods_status xfrd_parse_rrs(xfrd_type* xfrd, buffer_type* buffer,
uint16_t count, int* done);
static xfrd_pkt_status xfrd_parse_packet(xfrd_type* xfrd,
buffer_type* buffer);
static xfrd_pkt_status xfrd_handle_packet(xfrd_type* xfrd,
buffer_type* buffer);
static void xfrd_tcp_obtain(xfrd_type* xfrd, tcp_set_type* set);
static void xfrd_tcp_read(xfrd_type* xfrd, tcp_set_type* set);
static void xfrd_tcp_release(xfrd_type* xfrd, tcp_set_type* set, int open_waiting);
static void xfrd_tcp_write(xfrd_type* xfrd, tcp_set_type* set);
static void xfrd_tcp_xfr(xfrd_type* xfrd, tcp_set_type* set);
static int xfrd_tcp_open(xfrd_type* xfrd, tcp_set_type* set);
static void xfrd_udp_obtain(xfrd_type* xfrd);
static void xfrd_udp_read(xfrd_type* xfrd);
static void xfrd_udp_release(xfrd_type* xfrd);
static int xfrd_udp_read_packet(xfrd_type* xfrd);
static int xfrd_udp_send(xfrd_type* xfrd, buffer_type* buffer);
static int xfrd_udp_send_request_ixfr(xfrd_type* xfrd);
static time_t xfrd_time(xfrd_type* xfrd);
static void xfrd_set_timer(xfrd_type* xfrd, time_t t);
static void xfrd_set_timer_time(xfrd_type* xfrd, time_t t);
static void xfrd_unset_timer(xfrd_type* xfrd);
static uint8_t
xfrd_recover_dname(uint8_t* dname, const char* name)
{
const uint8_t *s = (const uint8_t *) name;
uint8_t *h;
uint8_t *p;
uint8_t *d = dname;
size_t label_length;
if (strcmp(name, ".") == 0) {
/* Root domain. */
dname[0] = 0;
return 1;
}
for (h = d, p = h + 1; *s; ++s, ++p) {
if (p - dname >= MAXDOMAINLEN) {
return 0;
}
switch (*s) {
case '.':
if (p == h + 1) {
/* Empty label. */
return 0;
} else {
label_length = p - h - 1;
if (label_length > MAXLABELLEN) {
return 0;
}
*h = label_length;
h = p;
}
break;
case '\\':
/* Handle escaped characters (RFC1035 5.1) */
if (isdigit(s[1]) && isdigit(s[2]) && isdigit(s[3])) {
int val = (ldns_hexdigit_to_int(s[1]) * 100 +
ldns_hexdigit_to_int(s[2]) * 10 +
ldns_hexdigit_to_int(s[3]));
if (0 <= val && val <= 255) {
s += 3;
*p = val;
} else {
*p = *++s;
}
} else if (s[1] != '\0') {
*p = *++s;
}
break;
default:
*p = *s;
break;
}
}
if (p != h + 1) {
/* Terminate last label. */
label_length = p - h - 1;
if (label_length > MAXLABELLEN) {
return 0;
}
*h = label_length;
h = p;
}
/* Add root label. */
*h = 0;
return p-dname;
}
static void
xfrd_recover(xfrd_type* xfrd)
{
zone_type* zone = (zone_type*) xfrd->zone;
char* file = NULL;
FILE* fd = NULL;
int round_num = 0;
int master_num = 0;
int next_master = 0;
uint32_t timeout = 0;
uint32_t serial_xfr = 0;
uint32_t serial_notify = 0;
uint32_t serial_disk = 0;
time_t serial_xfr_acquired = 0;
time_t serial_notify_acquired = 0;
time_t serial_disk_acquired = 0;
uint32_t soa_ttl = 0;
uint32_t soa_serial = 0;
uint32_t soa_refresh = 0;
uint32_t soa_retry = 0;
uint32_t soa_expire = 0;
uint32_t soa_minimum = 0;
const char* soa_mname = NULL;
const char* soa_rname = NULL;
if (zone && zone->name && zone->db &&
zone->db->is_initialized && zone->db->have_serial) {
file = ods_build_path(zone->name, ".xfrd-state", 0, 1);
if (file) {
ods_log_verbose("[%s] recover xfrd.state file %s zone %s", xfrd_str,
file, zone->name);
fd = ods_fopen(file, NULL, "r");
if (fd) {
if (!backup_read_check_str(fd, ODS_SE_FILE_MAGIC_V3)) {
ods_log_error("[%s] corrupted state file zone %s: read "
"magic (start) error", xfrd_str, zone->name);
goto xfrd_recover_error;
}
if (!backup_read_check_str(fd, ";;Zone:") |
!backup_read_check_str(fd, "name") |
!backup_read_check_str(fd, zone->name) |
!backup_read_check_str(fd, "ttl") |
!backup_read_uint32_t(fd, &soa_ttl) |
!backup_read_check_str(fd, "mname") |
!backup_read_str(fd, &soa_mname) |
!backup_read_check_str(fd, "rname") |
!backup_read_str(fd, &soa_rname) |
!backup_read_check_str(fd, "serial") |
!backup_read_uint32_t(fd, &soa_serial) |
!backup_read_check_str(fd, "refresh") |
!backup_read_uint32_t(fd, &soa_refresh) |
!backup_read_check_str(fd, "retry") |
!backup_read_uint32_t(fd, &soa_retry) |
!backup_read_check_str(fd, "expire") |
!backup_read_uint32_t(fd, &soa_expire) |
!backup_read_check_str(fd, "minimum") |
!backup_read_uint32_t(fd, &soa_minimum)) {
ods_log_error("[%s] corrupted state file zone %s: read "
";;Zone error", xfrd_str, zone->name);
goto xfrd_recover_error;
}
if (!backup_read_check_str(fd, ";;Master:") |
!backup_read_check_str(fd, "num") |
!backup_read_int(fd, &master_num) |
!backup_read_check_str(fd, "next") |
!backup_read_int(fd, &next_master) |
!backup_read_check_str(fd, "round") |
!backup_read_int(fd, &round_num) |
!backup_read_check_str(fd, "timeout") |
!backup_read_uint32_t(fd, &timeout)) {
ods_log_error("[%s] corrupt state file zone %s: read "
";;Master error", xfrd_str, zone->name);
goto xfrd_recover_error;
}
if (!backup_read_check_str(fd, ";;Serial:") |
!backup_read_check_str(fd, "xfr") |
!backup_read_uint32_t(fd, &serial_xfr) |
!backup_read_time_t(fd, &serial_xfr_acquired) |
!backup_read_check_str(fd, "notify") |
!backup_read_uint32_t(fd, &serial_notify) |
!backup_read_time_t(fd, &serial_notify_acquired) |
!backup_read_check_str(fd, "disk") |
!backup_read_uint32_t(fd, &serial_disk) |
!backup_read_time_t(fd, &serial_disk_acquired)) {
ods_log_error("[%s] corrupt state file zone %s: read "
";;Serial error", xfrd_str, zone->name);
goto xfrd_recover_error;
}
if (!backup_read_check_str(fd, ODS_SE_FILE_MAGIC_V3)) {
ods_log_error("[%s] corrupt state file zone %s: read "
"magic (end) error", xfrd_str, zone->name);
goto xfrd_recover_error;
}
/* all ok */
xfrd->master_num = master_num;
xfrd->next_master = next_master;
xfrd->round_num = round_num;
xfrd->timeout.tv_sec = timeout;
xfrd->timeout.tv_nsec = 0;
xfrd->master = NULL; /* acl_find_num(...) */
xfrd->soa.ttl = soa_ttl;
xfrd->soa.serial = soa_serial;
xfrd->soa.refresh = soa_refresh;
xfrd->soa.retry = soa_retry;
xfrd->soa.expire = soa_expire;
xfrd->soa.minimum = soa_minimum;
xfrd->soa.mname[0] = xfrd_recover_dname(xfrd->soa.mname+1,
soa_mname);
xfrd->soa.rname[0] = xfrd_recover_dname(xfrd->soa.rname+1,
soa_rname);
xfrd->serial_xfr = serial_xfr;
xfrd->serial_xfr_acquired = serial_xfr_acquired;
xfrd->serial_notify = serial_notify;
xfrd->serial_notify_acquired = serial_notify_acquired;
xfrd->serial_disk = serial_disk;
xfrd->serial_disk_acquired = serial_disk_acquired;
if (!timeout || serial_notify_acquired ||
(serial_disk_acquired &&
(uint32_t)xfrd_time(xfrd) - serial_disk_acquired >
soa_refresh)) {
xfrd_set_timer_refresh(xfrd);
}
if (serial_disk_acquired &&
((uint32_t)xfrd_time(xfrd) - serial_disk_acquired >
soa_expire)) {
xfrd_set_timer_refresh(xfrd);
}
xfrd_recover_error:
free((void*)soa_mname);
free((void*)soa_rname);
ods_fclose(fd);
}
free(file);
}
} else {
ods_log_verbose("[%s] did not recover xfrd.state file zone %s", xfrd_str,
(zone && zone->name)?zone->name:"(null)");
}
}
xfrd_type*
xfrd_create(xfrhandler_type* xfrhandler, zone_type* zone)
{
xfrd_type* xfrd = NULL;
if (!xfrhandler || !zone) {
return NULL;
}
CHECKALLOC(xfrd = (xfrd_type*) malloc(sizeof(xfrd_type)));
pthread_mutex_init(&xfrd->serial_lock, NULL);
pthread_mutex_init(&xfrd->rw_lock, NULL);
xfrd->xfrhandler = xfrhandler;
xfrd->zone = zone;
xfrd->tcp_conn = -1;
xfrd->round_num = -1;
xfrd->master_num = 0;
xfrd->next_master = -1;
xfrd->master = NULL;
pthread_mutex_lock(&xfrd->serial_lock);
xfrd->serial_xfr = 0;
xfrd->serial_disk = 0;
xfrd->serial_notify = 0;
xfrd->serial_xfr_acquired = 0;
xfrd->serial_disk_acquired = 0;
xfrd->serial_notify_acquired = 0;
xfrd->serial_retransfer = 0;
pthread_mutex_unlock(&xfrd->serial_lock);
xfrd->query_id = 0;
xfrd->msg_seq_nr = 0;
xfrd->msg_rr_count = 0;
xfrd->msg_old_serial = 0;
xfrd->msg_new_serial = 0;
xfrd->msg_is_ixfr = 0;
xfrd->msg_do_retransfer = 0;
xfrd->udp_waiting = 0;
xfrd->udp_waiting_next = NULL;
xfrd->tcp_waiting = 0;
xfrd->tcp_waiting_next = NULL;
xfrd->tsig_rr = tsig_rr_create();
if (!xfrd->tsig_rr) {
xfrd_cleanup(xfrd, 0);
return NULL;
}
memset(&xfrd->soa, 0, sizeof(xfrd->soa));
xfrd->soa.ttl = 0;
xfrd->soa.mname[0] = 1;
xfrd->soa.rname[0] = 1;
xfrd->soa.serial = 0;
xfrd->soa.refresh = 3600;
xfrd->soa.retry = 300;
xfrd->soa.expire = 604800;
xfrd->soa.minimum = 3600;
xfrd->handler.fd = -1;
xfrd->handler.user_data = (void*) xfrd;
xfrd->handler.timeout = 0;
xfrd->handler.event_types =
NETIO_EVENT_READ|NETIO_EVENT_TIMEOUT;
xfrd->handler.event_handler = xfrd_handle_zone;
xfrd_set_timer_time(xfrd, 0);
xfrd_recover(xfrd);
return xfrd;
}
static time_t
xfrd_time(xfrd_type* xfrd)
{
ods_log_assert(xfrd);
ods_log_assert(xfrd->xfrhandler);
return xfrhandler_time((xfrhandler_type*) xfrd->xfrhandler);
}
static void
xfrd_set_timer(xfrd_type* xfrd, time_t t)
{
if (!xfrd || !xfrd->xfrhandler) {
return;
}
if(t > xfrd_time(xfrd) + 10) {
time_t extra = t - xfrd_time(xfrd);
time_t base = extra*9/10;
#ifdef HAVE_ARC4RANDOM_UNIFORM
t = xfrd_time(xfrd) + base +
arc4random_uniform(extra-base);
#elif HAVE_ARC4RANDOM
t = xfrd_time(xfrd) + base +
arc4random()%(extra-base);
#else
t = xfrd_time(xfrd) + base +
random()%(extra-base);
#endif
}
xfrd->handler.timeout = &xfrd->timeout;
xfrd->timeout.tv_sec = t;
xfrd->timeout.tv_nsec = 0;
}
static void
xfrd_unset_timer(xfrd_type* xfrd)
{
ods_log_assert(xfrd);
xfrd->handler.timeout = NULL;
}
static void
xfrd_set_timer_time(xfrd_type* xfrd, time_t t)
{
ods_log_assert(xfrd);
xfrd_set_timer(xfrd, xfrd_time(xfrd) + t);
}
void
xfrd_set_timer_now(xfrd_type* xfrd)
{
zone_type* zone = NULL;
if (!xfrd || !xfrd->zone || !xfrd->xfrhandler) {
return;
}
zone = (zone_type*) xfrd->zone;
ods_log_debug("[%s] zone %s sets timer timeout now", xfrd_str,
zone->name);
xfrd_set_timer_time(xfrd, 0);
}
void
xfrd_set_timer_retry(xfrd_type* xfrd)
{
zone_type* zone = NULL;
if (!xfrd || !xfrd->zone || !xfrd->xfrhandler) {
return;
}
zone = (zone_type*) xfrd->zone;
ods_log_debug("[%s] zone %s sets timer timeout retry %u", xfrd_str,
zone->name, (unsigned) xfrd->soa.retry);
xfrd_set_timer_time(xfrd, xfrd->soa.retry);
}
void
xfrd_set_timer_refresh(xfrd_type* xfrd)
{
zone_type* zone = NULL;
if (!xfrd || !xfrd->zone || !xfrd->xfrhandler) {
return;
}
zone = (zone_type*) xfrd->zone;
ods_log_debug("[%s] zone %s sets timer timeout refresh %u", xfrd_str,
zone->name, (unsigned) xfrd->soa.refresh);
xfrd_set_timer_time(xfrd, xfrd->soa.refresh);
}
static socklen_t
xfrd_acl_sockaddr(acl_type* acl, unsigned int port,
struct sockaddr_storage *sck)
{
ods_log_assert(acl);
ods_log_assert(sck);
ods_log_assert(port);
memset(sck, 0, sizeof(struct sockaddr_storage));
if (acl->family == AF_INET6) {
struct sockaddr_in6* sa = (struct sockaddr_in6*)sck;
sa->sin6_family = AF_INET6;
sa->sin6_port = htons(port);
sa->sin6_addr = acl->addr.addr6;
return sizeof(struct sockaddr_in6);
} else {
struct sockaddr_in* sa = (struct sockaddr_in*)sck;
sa->sin_family = AF_INET;
sa->sin_port = htons(port);
sa->sin_addr = acl->addr.addr;
return sizeof(struct sockaddr_in);
}
return 0;
}
socklen_t
xfrd_acl_sockaddr_to(acl_type* acl, struct sockaddr_storage *to)
{
unsigned int port = 0;
if (!acl || !to) {
return 0;
}
port = acl->port ? acl->port : (unsigned) atoi(DNS_PORT_STRING);
return xfrd_acl_sockaddr(acl, port, to);
}
static void
xfrd_tsig_sign(xfrd_type* xfrd, buffer_type* buffer)
{
tsig_algo_type* algo = NULL;
if (!xfrd || !xfrd->tsig_rr || !xfrd->master || !xfrd->master->tsig ||
!xfrd->master->tsig->key || !buffer) {
return; /* no tsig configured */
}
algo = tsig_lookup_algo(xfrd->master->tsig->algorithm);
if (!algo) {
ods_log_error("[%s] unable to sign request: tsig unknown algorithm "
"%s", xfrd_str, xfrd->master->tsig->algorithm);
return;
}
ods_log_assert(algo);
tsig_rr_reset(xfrd->tsig_rr, algo, xfrd->master->tsig->key);
xfrd->tsig_rr->original_query_id = buffer_pkt_id(buffer);
xfrd->tsig_rr->algo_name = ldns_rdf_clone(xfrd->tsig_rr->algo->wf_name);
xfrd->tsig_rr->key_name = ldns_rdf_clone(xfrd->tsig_rr->key->dname);
log_dname(xfrd->tsig_rr->key_name, "tsig sign query with key", LOG_DEBUG);
log_dname(xfrd->tsig_rr->algo_name, "tsig sign query with algorithm",
LOG_DEBUG);
tsig_rr_prepare(xfrd->tsig_rr);
tsig_rr_update(xfrd->tsig_rr, buffer, buffer_position(buffer));
tsig_rr_sign(xfrd->tsig_rr);
ods_log_debug("[%s] tsig append rr to request id=%u", xfrd_str,
buffer_pkt_id(buffer));
tsig_rr_append(xfrd->tsig_rr, buffer);
buffer_pkt_set_arcount(buffer, buffer_pkt_arcount(buffer)+1);
tsig_rr_prepare(xfrd->tsig_rr);
}
static int
xfrd_tsig_process(xfrd_type* xfrd, buffer_type* buffer)
{
zone_type* zone = NULL;
int have_tsig = 0;
if (!xfrd || !xfrd->tsig_rr || !xfrd->master || !xfrd->master->tsig ||
!xfrd->master->tsig->key || !buffer) {
return 1; /* no tsig configured */
}
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
ods_log_assert(xfrd->master->address);
if (!tsig_rr_find(xfrd->tsig_rr, buffer)) {
ods_log_error("[%s] unable to process tsig: xfr zone %s from %s "
"has malformed tsig rr", xfrd_str, zone->name,
xfrd->master->address);
return 0;
}
if (xfrd->tsig_rr->status == TSIG_OK) {
have_tsig = 1;
if (xfrd->tsig_rr->error_code != LDNS_RCODE_NOERROR) {
ods_log_error("[%s] zone %s, from %s has tsig error (%s)",
xfrd_str, zone->name, xfrd->master->address,
tsig_strerror(xfrd->tsig_rr->error_code));
}
/* strip the TSIG resource record off... */
buffer_set_limit(buffer, xfrd->tsig_rr->position);
buffer_pkt_set_arcount(buffer, buffer_pkt_arcount(buffer)-1);
}
/* keep running the TSIG hash */
tsig_rr_update(xfrd->tsig_rr, buffer, buffer_limit(buffer));
if (have_tsig) {
if (!tsig_rr_verify(xfrd->tsig_rr)) {
ods_log_error("[%s] unable to process tsig: xfr zone %s from %s "
"has bad tsig signature", xfrd_str, zone->name,
xfrd->master->address);
return 0;
}
/* prepare for next tsigs */
tsig_rr_prepare(xfrd->tsig_rr);
} else if (xfrd->tsig_rr->update_since_last_prepare >
XFRD_TSIG_MAX_UNSIGNED) {
/* we allow a number of non-tsig signed packets */
ods_log_error("[%s] unable to process tsig: xfr zone %s, from %s "
"has too many consecutive packets without tsig", xfrd_str,
zone->name, xfrd->master->address);
return 0;
}
if (!have_tsig && xfrd->msg_seq_nr == 0) {
ods_log_error("[%s] unable to process tsig: xfr zone %s from %s "
"has no tsig in first packet of reply", xfrd_str,
zone->name, xfrd->master->address);
return 0;
}
/* process TSIG ok */
return 1;
}
static void
xfrd_commit_packet(xfrd_type* xfrd)
{
zone_type* zone = NULL;
char* xfrfile = NULL;
FILE* fd = NULL;
time_t serial_disk_acq = 0;
ods_log_assert(xfrd);
zone = (zone_type*) xfrd->zone;
xfrfile = ods_build_path(zone->name, ".xfrd", 0, 1);
if (!xfrfile) {
ods_log_crit("[%s] unable to commit xfr zone %s: build path failed",
xfrd_str, zone->name);
return;
}
ods_log_assert(zone);
ods_log_assert(zone->name);
pthread_mutex_lock(&zone->zone_lock);
pthread_mutex_lock(&xfrd->rw_lock);
pthread_mutex_lock(&xfrd->serial_lock);
/* mark end packet */
fd = ods_fopen(xfrfile, NULL, "a");
free((void*)xfrfile);
if (fd) {
fprintf(fd, ";;ENDPACKET\n");
ods_fclose(fd);
} else {
pthread_mutex_unlock(&xfrd->rw_lock);
pthread_mutex_unlock(&zone->zone_lock);
pthread_mutex_unlock(&xfrd->serial_lock);
ods_log_crit("[%s] unable to commit xfr zone %s: ods_fopen() failed "
"(%s)", xfrd_str, zone->name, strerror(errno));
return;
}
/* update soa serial management */
xfrd->serial_disk = xfrd->msg_new_serial;
serial_disk_acq = xfrd->serial_disk_acquired;
xfrd->serial_disk_acquired = xfrd_time(xfrd);
/* ensure newer time */
if (xfrd->serial_disk_acquired == serial_disk_acq) {
xfrd->serial_disk_acquired++;
}
xfrd->soa.serial = xfrd->serial_disk;
if (xfrd->msg_do_retransfer ||
(util_serial_gt(xfrd->serial_disk, xfrd->serial_xfr) &&
xfrd->serial_disk_acquired > xfrd->serial_xfr_acquired)) {
/* reschedule task */
xfrhandler_type* xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
engine_type* engine = (engine_type*) xfrhandler->engine;
ods_log_assert(xfrhandler);
ods_log_assert(engine);
ods_log_debug("[%s] reschedule task for zone %s: disk serial=%u "
"acquired=%lu, memory serial=%u acquired=%lu", xfrd_str,
zone->name, xfrd->serial_disk,
(unsigned long)xfrd->serial_disk_acquired, xfrd->serial_xfr,
(unsigned long)xfrd->serial_xfr_acquired);
schedule_scheduletask(engine->taskq, TASK_FORCEREAD, zone->name, zone, &zone->zone_lock, schedule_IMMEDIATELY);
engine_wakeup_workers(engine);
}
/* reset retransfer */
xfrd->msg_do_retransfer = 0;
pthread_mutex_unlock(&xfrd->serial_lock);
pthread_mutex_unlock(&xfrd->rw_lock);
pthread_mutex_unlock(&zone->zone_lock);
}
static void
xfrd_dump_packet(xfrd_type* xfrd, buffer_type* buffer)
{
zone_type* zone = NULL;
char* xfrfile = NULL;
FILE* fd = NULL;
ldns_pkt* pkt = NULL;
ldns_status status = LDNS_STATUS_OK;
ods_log_assert(buffer);
ods_log_assert(xfrd);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
status = ldns_wire2pkt(&pkt, buffer_begin(buffer), buffer_limit(buffer));
if (status != LDNS_STATUS_OK) {
ods_log_crit("[%s] unable to dump packet zone %s: ldns_wire2pkt() "
"failed (%s)", xfrd_str, zone->name,
ldns_get_errorstr_by_id(status));
return;
}
ods_log_assert(pkt);
xfrfile = ods_build_path(zone->name, ".xfrd", 0, 1);
if (!xfrfile) {
ods_log_crit("[%s] unable to dump packet zone %s: build path failed",
xfrd_str, zone->name);
return;
}
pthread_mutex_lock(&xfrd->rw_lock);
if (xfrd->msg_do_retransfer && !xfrd->msg_seq_nr && !xfrd->msg_is_ixfr) {
fd = ods_fopen(xfrfile, NULL, "w");
} else {
fd = ods_fopen(xfrfile, NULL, "a");
}
free((void*) xfrfile);
if (!fd) {
ods_log_crit("[%s] unable to dump packet zone %s: ods_fopen() failed "
"(%s)", xfrd_str, zone->name, strerror(errno));
pthread_mutex_unlock(&xfrd->rw_lock);
return;
}
ods_log_assert(fd);
if (xfrd->msg_seq_nr == 0) {
fprintf(fd, ";;BEGINPACKET\n");
}
ldns_rr_list_print(fd, ldns_pkt_answer(pkt));
ods_fclose(fd);
pthread_mutex_unlock(&xfrd->rw_lock);
ldns_pkt_free(pkt);
}
static void
xfrd_write_soa(xfrd_type* xfrd, buffer_type* buffer)
{
zone_type* zone = NULL;
size_t rdlength_pos = 0;
uint16_t rdlength = 0;
ods_log_assert(xfrd);
ods_log_assert(buffer);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->apex);
buffer_write_rdf(buffer, zone->apex);
buffer_write_u16(buffer, (uint16_t) LDNS_RR_TYPE_SOA);
buffer_write_u16(buffer, (uint16_t) zone->klass);
buffer_write_u32(buffer, xfrd->soa.ttl);
rdlength_pos = buffer_position(buffer);
buffer_skip(buffer, sizeof(rdlength));
buffer_write(buffer, xfrd->soa.mname+1, xfrd->soa.mname[0]);
buffer_write(buffer, xfrd->soa.rname+1, xfrd->soa.rname[0]);
buffer_write_u32(buffer, xfrd->soa.serial);
buffer_write_u32(buffer, xfrd->soa.refresh);
buffer_write_u32(buffer, xfrd->soa.retry);
buffer_write_u32(buffer, xfrd->soa.expire);
buffer_write_u32(buffer, xfrd->soa.minimum);
rdlength = buffer_position(buffer) - rdlength_pos - sizeof(rdlength);
buffer_write_u16_at(buffer, rdlength_pos, rdlength);
}
static void
xfrd_update_soa(xfrd_type* xfrd, buffer_type* buffer, uint32_t ttl,
uint16_t mname_pos, uint16_t rname_pos,
uint32_t refresh, uint32_t retry, uint32_t expire, uint32_t minimum)
{
zone_type* zone = NULL;
ods_log_assert(xfrd);
ods_log_assert(buffer);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->apex);
xfrd->soa.ttl = ttl;
xfrd->soa.refresh = refresh;
xfrd->soa.retry = retry;
xfrd->soa.expire = expire;
xfrd->soa.minimum = minimum;
buffer_set_position(buffer, mname_pos);
if (!(xfrd->soa.mname[0] =
buffer_read_dname(buffer, xfrd->soa.mname+1, 1))) {
xfrd->soa.mname[0] = 1;
xfrd->soa.mname[1] = 0;
}
buffer_set_position(buffer, rname_pos);
if (!(xfrd->soa.rname[0] =
buffer_read_dname(buffer, xfrd->soa.rname+1, 1))) {
xfrd->soa.rname[0] = 1;
xfrd->soa.rname[1] = 0;
}
}
static int
xfrd_parse_soa(xfrd_type* xfrd, buffer_type* buffer, unsigned rdata_only,
unsigned update, uint32_t t, uint32_t* soa_serial)
{
ldns_rr_type type = LDNS_RR_TYPE_SOA;
uint16_t mname_pos = 0;
uint16_t rname_pos = 0;
uint16_t pos = 0;
uint32_t serial = 0;
uint32_t refresh = 0;
uint32_t retry = 0;
uint32_t expire = 0;
uint32_t minimum = 0;
uint32_t ttl = t;
ods_log_assert(xfrd);
ods_log_assert(buffer);
/* type class ttl */
if (!rdata_only) {
if (!buffer_available(buffer, 10)) {
ods_log_debug("[%s] unable to parse soa: rr too short",
xfrd_str);
return 0;
}
type = (ldns_rr_type) buffer_read_u16(buffer);
if (type != LDNS_RR_TYPE_SOA) {
ods_log_debug("[%s] unable to parse soa: rrtype %u != soa",
xfrd_str, (unsigned) type);
return 0;
}
(void)buffer_read_u16(buffer); /* class */
ttl = buffer_read_u32(buffer);
/* rdata length */
if (!buffer_available(buffer, buffer_read_u16(buffer))) {
ods_log_debug("[%s] unable to parse soa: rdata too short",
xfrd_str);
return 0;
}
}
/* MNAME */
mname_pos = buffer_position(buffer);
if (!buffer_skip_dname(buffer)) {
ods_log_debug("[%s] unable to parse soa: bad mname",
xfrd_str);
return 0;
}
/* RNAME */
rname_pos = buffer_position(buffer);
if (!buffer_skip_dname(buffer)) {
ods_log_debug("[%s] unable to parse soa: bad rname",
xfrd_str);
return 0;
}
serial = buffer_read_u32(buffer);
refresh = buffer_read_u32(buffer);
retry = buffer_read_u32(buffer);
expire = buffer_read_u32(buffer);
minimum = buffer_read_u32(buffer);
pos = buffer_position(buffer);
if (soa_serial) {
*soa_serial = serial;
}
if (update) {
xfrd_update_soa(xfrd, buffer, ttl, mname_pos, rname_pos,
refresh, retry, expire, minimum);
}
buffer_set_position(buffer, pos);
return 1;
}
static ods_status
xfrd_parse_rrs(xfrd_type* xfrd, buffer_type* buffer, uint16_t count,
int* done)
{
ldns_rr_type type = 0;
uint16_t rrlen = 0;
uint32_t ttl = 0;
uint32_t serial = 0;
uint32_t tmp_serial = 0;
size_t i = 0;
ods_log_assert(xfrd);
ods_log_assert(buffer);
ods_log_assert(done);
for (i=0; i < count; ++i, ++xfrd->msg_rr_count) {
if (*done) {
return ODS_STATUS_OK;
}
if (!buffer_skip_dname(buffer)) {
return ODS_STATUS_SKIPDNAME;
}
if (!buffer_available(buffer, 10)) {
return ODS_STATUS_BUFAVAIL;
}
(void)buffer_position(buffer);
type = (ldns_rr_type) buffer_read_u16(buffer);
(void)buffer_read_u16(buffer); /* class */
ttl = buffer_read_u32(buffer);
rrlen = buffer_read_u16(buffer);
if (!buffer_available(buffer, rrlen)) {
return ODS_STATUS_BUFAVAIL;
}
if (type == LDNS_RR_TYPE_SOA) {
if (!xfrd_parse_soa(xfrd, buffer, 1, 0, ttl, &serial)) {
return ODS_STATUS_PARSESOA;
}
if (xfrd->msg_rr_count == 1 && serial != xfrd->msg_new_serial) {
/* 2nd RR is SOA with different serial, this is an IXFR */
xfrd->msg_is_ixfr = 1;
pthread_mutex_lock(&xfrd->serial_lock);
if (!xfrd->serial_disk_acquired) {
pthread_mutex_unlock(&xfrd->serial_lock);
/* got IXFR but need AXFR */
return ODS_STATUS_REQAXFR;
}
if (!xfrd->msg_do_retransfer && serial != xfrd->serial_disk) {
pthread_mutex_unlock(&xfrd->serial_lock);
/* bad start serial in IXFR */
return ODS_STATUS_INSERIAL;
}
pthread_mutex_unlock(&xfrd->serial_lock);
xfrd->msg_old_serial = serial;
tmp_serial = serial;
} else if (serial == xfrd->msg_new_serial) {
/* saw another SOA of new serial. */
if (xfrd->msg_is_ixfr == 1) {
xfrd->msg_is_ixfr = 2; /* seen middle SOA in ixfr */
} else {
*done = 1; /* final axfr/ixfr soa */
}
} else if (xfrd->msg_is_ixfr) {
/* some additional checks */
if (util_serial_gt(serial, xfrd->msg_new_serial)) {
/* bad middle serial in IXFR (too high) */
return ODS_STATUS_INSERIAL;
}
if (util_serial_gt(tmp_serial, serial)) {
/* middle serial decreases in IXFR */
return ODS_STATUS_INSERIAL;
}
/* serial ok, update tmp serial */
tmp_serial = serial;
}
} else {
buffer_skip(buffer, rrlen);
}
}
return ODS_STATUS_OK;
}
static xfrd_pkt_status
xfrd_parse_packet(xfrd_type* xfrd, buffer_type* buffer)
{
zone_type* zone = NULL;
uint16_t qdcount = 0;
uint16_t ancount = 0;
uint16_t ancount_todo = 0;
uint16_t rrcount = 0;
uint32_t serial = 0;
int done = 0;
ods_status status = ODS_STATUS_OK;
ods_log_assert(buffer);
ods_log_assert(xfrd);
ods_log_assert(xfrd->master);
ods_log_assert(xfrd->master->address);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
/* check packet size */
if (!buffer_available(buffer, BUFFER_PKT_HEADER_SIZE)) {
ods_log_error("[%s] unable to parse packet: zone %s received bad "
"packet from %s (too small)", xfrd_str, zone->name,
xfrd->master->address);
return XFRD_PKT_BAD;
}
/* check query id */
if (buffer_pkt_id(buffer) != xfrd->query_id) {
ods_log_error("[%s] bad packet: zone %s received bad query id "
"%u from %s (expected %u)", xfrd_str, zone->name,
buffer_pkt_id(buffer), xfrd->master->address, xfrd->query_id);
return XFRD_PKT_BAD;
}
/* check rcode */
if (buffer_pkt_rcode(buffer) != LDNS_RCODE_NOERROR) {
ods_log_error("[%s] bad packet: zone %s received error code %s from %s",
xfrd_str, zone->name, ldns_pkt_rcode2str(buffer_pkt_rcode(buffer)),
xfrd->master->address);
if (buffer_pkt_rcode(buffer) == LDNS_RCODE_NOTIMPL) {
return XFRD_PKT_NOTIMPL;
} else if (buffer_pkt_rcode(buffer) != LDNS_RCODE_NOTAUTH) {
return XFRD_PKT_BAD;
}
}
/* check tsig */
if (!xfrd_tsig_process(xfrd, buffer)) {
ods_log_error("[%s] bad packet: zone %s received bad tsig "
"from %s", xfrd_str, zone->name, xfrd->master->address);
return XFRD_PKT_BAD;
}
/* skip header and question section */
buffer_skip(buffer, BUFFER_PKT_HEADER_SIZE);
qdcount = buffer_pkt_qdcount(buffer);
for (rrcount = 0; rrcount < qdcount; rrcount++) {
if (!buffer_skip_rr(buffer, 1)) {
ods_log_error("[%s] bad packet: zone %s received bad "
"question section from %s (bad rr)", xfrd_str, zone->name,
xfrd->master->address);
return XFRD_PKT_BAD;
}
}
/* answer section */
ancount = buffer_pkt_ancount(buffer);
if (xfrd->msg_rr_count == 0 && ancount == 0) {
if (xfrd->tcp_conn == -1 && buffer_pkt_tc(buffer)) {
ods_log_info("[%s] zone %s received tc from %s, retry tcp",
xfrd_str, zone->name, xfrd->master->address);
return XFRD_PKT_TC;
}
ods_log_error("[%s] bad packet: zone %s received bad xfr packet "
"from %s (nodata)", xfrd_str, zone->name, xfrd->master->address);
return XFRD_PKT_BAD;
}
ancount_todo = ancount;
if (xfrd->msg_rr_count == 0) {
/* parse the first RR, see if it is a SOA */
if (!buffer_skip_dname(buffer) ||
!xfrd_parse_soa(xfrd, buffer, 0, 1, 0, &serial)) {
ods_log_error("[%s] bad packet: zone %s received bad xfr "
"packet from %s (bad soa)", xfrd_str, zone->name,
xfrd->master->address);
return XFRD_PKT_BAD;
}
/* check serial */
pthread_mutex_lock(&xfrd->serial_lock);
if (!xfrd->msg_do_retransfer &&
xfrd->serial_disk_acquired && xfrd->serial_disk == serial) {
ods_log_info("[%s] zone %s got update indicating current "
"serial %u from %s", xfrd_str, zone->name, serial,
xfrd->master->address);
xfrd->serial_disk_acquired = xfrd_time(xfrd);
if (xfrd->serial_xfr == serial) {
xfrd->serial_xfr_acquired = time_now();
if (!xfrd->serial_notify_acquired) {
/* not notified or anything, so stop asking around */
xfrd->round_num = -1; /* next try start a new round */
xfrd_set_timer_refresh(xfrd);
ods_log_debug("[%s] zone %s wait refresh time", xfrd_str,
zone->name);
pthread_mutex_unlock(&xfrd->serial_lock);
return XFRD_PKT_NEWLEASE;
}
/* try next master */
ods_log_debug("[%s] zone %s try next master", xfrd_str,
zone->name);
pthread_mutex_unlock(&xfrd->serial_lock);
return XFRD_PKT_BAD;
}
}
if (!xfrd->msg_do_retransfer && xfrd->serial_disk_acquired &&
!util_serial_gt(serial, xfrd->serial_disk)) {
ods_log_info("[%s] zone %s ignoring old serial %u from %s "
"(have %u)", xfrd_str, zone->name, serial,
xfrd->master->address, xfrd->serial_disk);
pthread_mutex_unlock(&xfrd->serial_lock);
return XFRD_PKT_BAD;
}
xfrd->msg_new_serial = serial;
if (!xfrd->msg_do_retransfer && xfrd->serial_disk_acquired) {
xfrd->msg_old_serial = xfrd->serial_disk;
} else {
xfrd->msg_old_serial = 0;
}
/* update notify serial if this xfr is newer */
if (ancount > 1 && xfrd->serial_notify_acquired &&
util_serial_gt(serial, xfrd->serial_notify)) {
xfrd->serial_notify = serial;
}
pthread_mutex_unlock(&xfrd->serial_lock);
xfrd->msg_rr_count = 1;
xfrd->msg_is_ixfr = 0;
ancount_todo = ancount - 1;
}
/* check tc bit */
if (xfrd->tcp_conn == -1 && buffer_pkt_tc(buffer)) {
ods_log_info("[%s] zone %s received tc from %s, retry tcp",
xfrd_str, zone->name, xfrd->master->address);
return XFRD_PKT_TC;
}
if (xfrd->tcp_conn == -1 && ancount < 2) {
/* too short to be a real ixfr/axfr data transfer */
ods_log_info("[%s] zone %s received too short udp reply from %s, "
"retry tcp", xfrd_str, zone->name, xfrd->master->address);
return XFRD_PKT_TC;
}
status = xfrd_parse_rrs(xfrd, buffer, ancount_todo, &done);
if (status != ODS_STATUS_OK) {
ods_log_error("[%s] bad packet: zone %s received bad xfr packet "
"from %s (%s)", xfrd_str, zone->name, xfrd->master->address,
ods_status2str(status));
return XFRD_PKT_BAD;
}
if (xfrd->tcp_conn == -1 && !done) {
ods_log_error("[%s] bad packet: zone %s received bad xfr packet "
"(xfr over udp incomplete)", xfrd_str, zone->name);
return XFRD_PKT_BAD;
}
if (!done) {
return XFRD_PKT_MORE;
}
return XFRD_PKT_XFR;
}
static xfrd_pkt_status
xfrd_handle_packet(xfrd_type* xfrd, buffer_type* buffer)
{
xfrd_pkt_status res = XFRD_PKT_BAD;
zone_type* zone = NULL;
ods_log_assert(xfrd);
ods_log_assert(xfrd->master);
ods_log_assert(xfrd->master->address);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
res = xfrd_parse_packet(xfrd, buffer);
ods_log_debug("[%s] zone %s xfr packet parsed (res %d)", xfrd_str,
zone->name, res);
switch (res) {
case XFRD_PKT_MORE:
case XFRD_PKT_XFR:
/* continue with commit */
break;
case XFRD_PKT_NEWLEASE:
xfrd->serial_notify_acquired = 0;
case XFRD_PKT_TC:
return res;
break;
case XFRD_PKT_NOTIMPL:
case XFRD_PKT_BAD:
default:
/* rollback */
if (xfrd->msg_seq_nr > 0) {
buffer_clear(buffer);
ods_log_info("[%s] zone %s xfr rollback", xfrd_str,
zone->name);
buffer_flip(buffer);
}
return res;
break;
}
/* dump reply on disk to diff file */
xfrd_dump_packet(xfrd, buffer);
/* more? */
xfrd->msg_seq_nr++;
if (res == XFRD_PKT_MORE) {
/* wait for more */
return XFRD_PKT_MORE;
}
/* done */
buffer_clear(buffer);
buffer_flip(buffer);
/* commit packet */
xfrd_commit_packet(xfrd);
/* next time */
pthread_mutex_lock(&xfrd->serial_lock);
ods_log_info("[%s] zone %s transfer done [notify acquired %lu, serial on "
"disk %u, notify serial %u]", xfrd_str, zone->name,
(unsigned long)xfrd->serial_notify_acquired, xfrd->serial_disk,
xfrd->serial_notify);
if (xfrd->serial_notify_acquired &&
!util_serial_gt(xfrd->serial_notify, xfrd->serial_disk)) {
ods_log_verbose("[%s] zone %s reset notify acquired", xfrd_str,
zone->name);
xfrd->serial_notify_acquired = 0;
}
if (!xfrd->serial_notify_acquired) {
ods_log_debug("[%s] zone %s xfr done", xfrd_str, zone->name);
xfrd->round_num = -1; /* next try start anew */
xfrd_set_timer_refresh(xfrd);
pthread_mutex_unlock(&xfrd->serial_lock);
return XFRD_PKT_XFR;
}
pthread_mutex_unlock(&xfrd->serial_lock);
/* try to get an even newer serial */
ods_log_info("[%s] zone %s try get newer serial", xfrd_str, zone->name);
return XFRD_PKT_BAD;
}
static void
xfrd_tcp_write(xfrd_type* xfrd, tcp_set_type* set)
{
zone_type* zone = NULL;
tcp_conn_type* tcp = NULL;
int ret = 0;
int error = 0;
socklen_t len = 0;
ods_log_assert(set);
ods_log_assert(xfrd);
ods_log_assert(xfrd->tcp_conn != -1);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
tcp = set->tcp_conn[xfrd->tcp_conn];
if (tcp->total_bytes == 0) {
/* check for pending error from nonblocking connect */
/* from Stevens, unix network programming, vol1, 3rd ed, p450 */
len = sizeof(error);
if (getsockopt(tcp->fd, SOL_SOCKET, SO_ERROR, &error, &len) < 0) {
error = errno; /* on solaris errno is error */
}
if (error == EINPROGRESS || error == EWOULDBLOCK) {
ods_log_debug("[%s] zone %s zero write, write again later (%s)",
xfrd_str, zone->name, strerror(error));
return; /* try again later */
}
if (error != 0) {
ods_log_error("[%s] zone %s cannot tcp connect to %s: %s",
xfrd_str, zone->name, xfrd->master->address, strerror(errno));
xfrd_set_timer_now(xfrd);
xfrd_tcp_release(xfrd, set, 1);
return;
}
}
ret = tcp_conn_write(tcp);
if(ret == -1) {
ods_log_error("[%s] zone %s cannot tcp write to %s: %s",
xfrd_str, zone->name, xfrd->master->address, strerror(errno));
xfrd_set_timer_now(xfrd);
xfrd_tcp_release(xfrd, set, 1);
return;
}
if (ret == 0) {
ods_log_debug("[%s] zone %s zero write, write again later",
xfrd_str, zone->name);
return; /* write again later */
}
/* done writing, get ready for reading */
ods_log_debug("[%s] zone %s done writing, get ready for reading",
xfrd_str, zone->name);
tcp->is_reading = 1;
tcp_conn_ready(tcp);
xfrd->handler.event_types = NETIO_EVENT_READ|NETIO_EVENT_TIMEOUT;
xfrd_tcp_read(xfrd, set);
}
static int
xfrd_tcp_open(xfrd_type* xfrd, tcp_set_type* set)
{
int fd, family, conn;
struct sockaddr_storage to;
socklen_t to_len;
zone_type* zone = NULL;
ods_log_assert(set);
ods_log_assert(xfrd);
ods_log_assert(xfrd->tcp_conn != -1);
ods_log_assert(xfrd->master);
ods_log_assert(xfrd->master->address);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
ods_log_debug("[%s] zone %s open tcp connection to %s", xfrd_str,
zone->name, xfrd->master->address);
set->tcp_conn[xfrd->tcp_conn]->is_reading = 0;
set->tcp_conn[xfrd->tcp_conn]->total_bytes = 0;
set->tcp_conn[xfrd->tcp_conn]->msglen = 0;
if (xfrd->master->family == AF_INET6) {
family = PF_INET6;
} else {
family = PF_INET;
}
fd = socket(family, SOCK_STREAM, IPPROTO_TCP);
set->tcp_conn[xfrd->tcp_conn]->fd = fd;
if (fd == -1) {
ods_log_error("[%s] zone %s cannot create tcp socket to %s: %s",
xfrd_str, zone->name, xfrd->master->address, strerror(errno));
xfrd_set_timer_now(xfrd);
xfrd_tcp_release(xfrd, set, 0);
return 0;
}
if (fcntl(fd, F_SETFL, O_NONBLOCK) == -1) {
ods_log_error("[%s] zone %s cannot fcntl tcp socket: %s",
xfrd_str, zone->name, strerror(errno));
xfrd_set_timer_now(xfrd);
xfrd_tcp_release(xfrd, set, 0);
return 0;
}
to_len = xfrd_acl_sockaddr_to(xfrd->master, &to);
/* bind it */
interface_type interface = xfrd->xfrhandler->engine->dnshandler->interfaces->interfaces[0];
if (!interface.address) {
ods_log_error("[%s] unable to get the address of interface", xfrd_str);
return -1;
}
if (acl_parse_family(interface.address) == AF_INET) {
struct sockaddr_in addr;
addr.sin_family = acl_parse_family(interface.address);
addr.sin_addr = interface.addr.addr;
addr.sin_port = 0;
if (bind(fd, (struct sockaddr *) &addr, sizeof(addr)) != 0) {
ods_log_error("[%s] unable to bind address %s: bind failed %s", xfrd_str, interface.address, strerror(errno));
return -1;
}
}
else {
struct sockaddr_in6 addr6;
addr6.sin6_family = acl_parse_family(interface.address);
addr6.sin6_addr = interface.addr.addr6;
addr6.sin6_port = 0;
if (bind(fd, (struct sockaddr *) &addr6, sizeof(addr6)) != 0) {
ods_log_error("[%s] unable to bind address %s: bind failed %s", xfrd_str, interface.address, strerror(errno));
return -1;
}
}
conn = connect(fd, (struct sockaddr*)&to, to_len);
if (conn == -1 && errno != EINPROGRESS) {
ods_log_error("[%s] zone %s cannot connect tcp socket to %s: %s",
xfrd_str, zone->name, xfrd->master->address, strerror(errno));
xfrd_set_timer_now(xfrd);
xfrd_tcp_release(xfrd, set, 0);
return 0;
}
xfrd->handler.fd = fd;
xfrd->handler.event_types = NETIO_EVENT_WRITE|NETIO_EVENT_TIMEOUT;
xfrd_set_timer(xfrd, xfrd_time(xfrd) + XFRD_TCP_TIMEOUT);
return 1;
}
static void
xfrd_tcp_obtain(xfrd_type* xfrd, tcp_set_type* set)
{
xfrhandler_type* xfrhandler;
int i = 0;
ods_log_assert(set);
ods_log_assert(xfrd);
ods_log_assert(xfrd->tcp_conn == -1);
ods_log_assert(xfrd->tcp_waiting == 0);
if (set->tcp_count < TCPSET_MAX) {
ods_log_assert(!set->tcp_waiting_first);
set->tcp_count ++;
/* find a free tcp_buffer */
for (i=0; i < TCPSET_MAX; i++) {
if (set->tcp_conn[i]->fd == -1) {
xfrd->tcp_conn = i;
break;
}
}
ods_log_assert(xfrd->tcp_conn != -1);
xfrd->tcp_waiting = 0;
/* stop udp use (if any) */
if (xfrd->handler.fd != -1) {
xfrd_udp_release(xfrd);
}
if (!xfrd_tcp_open(xfrd, set)) {
return;
}
xfrd_tcp_xfr(xfrd, set);
return;
}
/* wait, at end of line */
ods_log_verbose("[%s] max number of tcp connections (%d) reached",
xfrd_str, TCPSET_MAX);
xfrd->tcp_waiting = 1;
xfrd_unset_timer(xfrd);
/* add it to the waiting queue */
xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
xfrd->tcp_waiting_next = xfrhandler->tcp_waiting_first;
xfrhandler->tcp_waiting_first = xfrd;
}
static void
xfrd_tcp_xfr(xfrd_type* xfrd, tcp_set_type* set)
{
tcp_conn_type* tcp = NULL;
zone_type* zone = NULL;
ods_log_assert(set);
ods_log_assert(xfrd);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
ods_log_assert(xfrd->tcp_conn != -1);
ods_log_assert(xfrd->tcp_waiting == 0);
ods_log_assert(xfrd->master);
ods_log_assert(xfrd->master->address);
/* start AXFR or IXFR for the zone */
tcp = set->tcp_conn[xfrd->tcp_conn];
if (xfrd->msg_do_retransfer || xfrd->serial_xfr_acquired <= 0 ||
xfrd->master->ixfr_disabled) {
ods_log_info("[%s] zone %s request axfr to %s", xfrd_str,
zone->name, xfrd->master->address);
buffer_pkt_query(tcp->packet, zone->apex, LDNS_RR_TYPE_AXFR,
zone->klass);
} else {
ods_log_info("[%s] zone %s request tcp/ixfr=%u to %s", xfrd_str,
zone->name, xfrd->soa.serial, xfrd->master->address);
buffer_pkt_query(tcp->packet, zone->apex, LDNS_RR_TYPE_IXFR,
zone->klass);
buffer_pkt_set_nscount(tcp->packet, 1);
xfrd_write_soa(xfrd, tcp->packet);
}
/* make packet */
xfrd->query_id = buffer_pkt_id(tcp->packet);
xfrd->msg_seq_nr = 0;
xfrd->msg_rr_count = 0;
xfrd->msg_old_serial = 0;
xfrd->msg_new_serial = 0;
xfrd->msg_is_ixfr = 0;
xfrd_tsig_sign(xfrd, tcp->packet);
buffer_flip(tcp->packet);
tcp->msglen = buffer_limit(tcp->packet);
ods_log_verbose("[%s] zone %s sending tcp query id=%d", xfrd_str,
zone->name, xfrd->query_id);
/* wait for select to complete connect before write */
}
static void
xfrd_tcp_read(xfrd_type* xfrd, tcp_set_type* set)
{
tcp_conn_type* tcp = NULL;
int ret = 0;
ods_log_assert(set);
ods_log_assert(xfrd);
ods_log_assert(xfrd->tcp_conn != -1);
tcp = set->tcp_conn[xfrd->tcp_conn];
ret = tcp_conn_read(tcp);
if (ret == -1) {
xfrd_set_timer_now(xfrd);
xfrd_tcp_release(xfrd, set, 1);
return;
}
if (ret == 0) {
return;
}
/* completed msg */
buffer_flip(tcp->packet);
ret = xfrd_handle_packet(xfrd, tcp->packet);
switch (ret) {
case XFRD_PKT_MORE:
tcp_conn_ready(tcp);
break;
case XFRD_PKT_XFR:
case XFRD_PKT_NEWLEASE:
ods_log_verbose("[%s] tcp read %s: release connection", xfrd_str,
XFRD_PKT_XFR?"xfr":"newlease");
xfrd_tcp_release(xfrd, set, 1);
ods_log_assert(xfrd->round_num == -1);
break;
case XFRD_PKT_NOTIMPL:
xfrd->master->ixfr_disabled = time_now();
ods_log_verbose("[%s] disable ixfr requests for %s from now (%lu)",
xfrd_str, xfrd->master->address, (unsigned long)xfrd->master->ixfr_disabled);
/* break; */
case XFRD_PKT_BAD:
default:
ods_log_debug("[%s] tcp read %s: release connection", xfrd_str,
ret==XFRD_PKT_BAD?"bad":"notimpl");
xfrd_tcp_release(xfrd, set, 1);
xfrd_make_request(xfrd);
break;
}
}
static void
xfrd_tcp_release(xfrd_type* xfrd, tcp_set_type* set, int open_waiting)
{
xfrhandler_type* xfrhandler;
int conn = 0;
zone_type* zone = NULL;
ods_log_assert(set);
ods_log_assert(xfrd);
ods_log_assert(xfrd->master);
ods_log_assert(xfrd->master->address);
ods_log_assert(xfrd->tcp_conn != -1);
ods_log_assert(xfrd->tcp_waiting == 0);
zone = (zone_type*) xfrd->zone;
ods_log_debug("[%s] zone %s release tcp connection to %s", xfrd_str,
zone->name, xfrd->master->address);
conn = xfrd->tcp_conn;
xfrd->tcp_conn = -1;
xfrd->tcp_waiting = 0;
xfrd->handler.fd = -1;
xfrd->handler.event_types = NETIO_EVENT_READ|NETIO_EVENT_TIMEOUT;
if (set->tcp_conn[conn]->fd != -1) {
close(set->tcp_conn[conn]->fd);
}
set->tcp_conn[conn]->fd = -1;
set->tcp_count --;
/* see if there are any connections waiting for a slot. Or return. */
if (!open_waiting) return;
xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
while (xfrhandler->tcp_waiting_first && set->tcp_count < TCPSET_MAX) {
int i;
xfrd_type* waiting_xfrd = xfrhandler->tcp_waiting_first;
xfrhandler->tcp_waiting_first = waiting_xfrd->tcp_waiting_next;
waiting_xfrd->tcp_waiting_next = NULL;
/* find a free tcp_buffer */
for (i=0; i < TCPSET_MAX; i++) {
if (set->tcp_conn[i]->fd == -1) {
waiting_xfrd->tcp_conn = i;
set->tcp_count++;
break;
}
}
waiting_xfrd->tcp_waiting = 0;
/* stop udp use (if any) */
if (waiting_xfrd->handler.fd != -1) {
xfrd_udp_release(waiting_xfrd);
}
/* if xfrd_tcp_open() fails its slot in set->tcp_conn[]
* is released. Continue to next. We don't put it back in the
* waiting queue, it would keep the signer busy retrying, making
* things only worse. */
if (xfrd_tcp_open(waiting_xfrd, set)) {
xfrd_tcp_xfr(waiting_xfrd, set);
}
}
}
static int
xfrd_udp_send(xfrd_type* xfrd, buffer_type* buffer)
{
struct sockaddr_storage to;
socklen_t to_len = 0;
int fd = -1;
int family = PF_INET;
ssize_t nb = -1;
ods_log_assert(buffer);
ods_log_assert(xfrd);
ods_log_assert(xfrd->master);
ods_log_assert(xfrd->master->address);
/* this will set the remote port to acl->port or TCP_PORT */
to_len = xfrd_acl_sockaddr_to(xfrd->master, &to);
/* get the address family of the remote host */
if (xfrd->master->family == AF_INET6) {
family = PF_INET6;
}
/* create socket */
fd = socket(family, SOCK_DGRAM, IPPROTO_UDP);
if (fd == -1) {
ods_log_error("[%s] unable to send data over udp to %s: "
"socket() failed (%s)", xfrd_str, xfrd->master->address,
strerror(errno));
return -1;
}
/* bind it? */
/* send it (udp) */
ods_log_deeebug("[%s] send %lu bytes over udp to %s", xfrd_str,
(unsigned long)buffer_remaining(buffer), xfrd->master->address);
nb = sendto(fd, buffer_current(buffer), buffer_remaining(buffer), 0,
(struct sockaddr*)&to, to_len);
if (nb == -1) {
ods_log_error("[%s] unable to send data over udp to %s: "
"sendto() failed (%s)", xfrd_str, xfrd->master->address,
strerror(errno));
close(fd);
return -1;
}
return fd;
}
static int
xfrd_udp_send_request_ixfr(xfrd_type* xfrd)
{
int fd;
xfrhandler_type* xfrhandler = NULL;
zone_type* zone = NULL;
ods_log_assert(xfrd);
ods_log_assert(xfrd->master);
ods_log_assert(xfrd->master->address);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
if (xfrd->tcp_conn != -1) {
/* tcp is using the handler.fd */
ods_log_error("[%s] unable to transfer zone %s: tried to send "
"udp while tcp obtained", xfrd_str, zone->name);
return -1;
}
/* make packet */
xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
ods_log_assert(xfrhandler);
buffer_pkt_query(xfrhandler->packet, zone->apex, LDNS_RR_TYPE_IXFR,
zone->klass);
xfrd->query_id = buffer_pkt_id(xfrhandler->packet);
xfrd->msg_seq_nr = 0;
xfrd->msg_rr_count = 0;
xfrd->msg_old_serial = 0;
xfrd->msg_new_serial = 0;
xfrd->msg_is_ixfr = 0;
buffer_pkt_set_nscount(xfrhandler->packet, 1);
xfrd_write_soa(xfrd, xfrhandler->packet);
xfrd_tsig_sign(xfrd, xfrhandler->packet);
buffer_flip(xfrhandler->packet);
xfrd_set_timer(xfrd, xfrd_time(xfrd) + XFRD_UDP_TIMEOUT);
ods_log_info("[%s] zone %s request udp/ixfr=%u to %s", xfrd_str,
zone->name, xfrd->soa.serial, xfrd->master->address);
if((fd = xfrd_udp_send(xfrd, xfrhandler->packet)) == -1) {
return -1;
}
return fd;
}
static void
xfrd_udp_obtain(xfrd_type* xfrd)
{
xfrhandler_type* xfrhandler = NULL;
ods_log_assert(xfrd);
ods_log_assert(xfrd->xfrhandler);
ods_log_assert(xfrd->udp_waiting == 0);
xfrhandler = (void*) xfrd->xfrhandler;
if (xfrd->tcp_conn != -1) {
/* no tcp and udp at the same time */
xfrd_tcp_release(xfrd, xfrhandler->tcp_set, 1);
}
if (xfrhandler->udp_use_num < XFRD_MAX_UDP) {
xfrhandler->udp_use_num++;
xfrd->handler.fd = xfrd_udp_send_request_ixfr(xfrd);
if (xfrd->handler.fd == -1) {
xfrhandler->udp_use_num--;
}
return;
}
/* queue the zone as last */
xfrd->udp_waiting = 1;
xfrd->udp_waiting_next = NULL;
if (!xfrhandler->udp_waiting_first) {
xfrhandler->udp_waiting_first = xfrd;
}
if (xfrhandler->udp_waiting_last) {
xfrhandler->udp_waiting_last->udp_waiting_next = xfrd;
}
xfrhandler->udp_waiting_last = xfrd;
xfrd_unset_timer(xfrd);
}
static int
xfrd_udp_read_packet(xfrd_type* xfrd)
{
xfrhandler_type* xfrhandler = NULL;
ssize_t received = 0;
ods_log_assert(xfrd);
xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
ods_log_assert(xfrhandler);
/* read the data */
buffer_clear(xfrhandler->packet);
received = recvfrom(xfrd->handler.fd, buffer_begin(xfrhandler->packet),
buffer_remaining(xfrhandler->packet), 0, NULL, NULL);
if (received == -1) {
ods_log_error("[%s] unable to read packet: recvfrom() failed fd %d "
"(%s)", xfrd_str, xfrd->handler.fd, strerror(errno));
return 0;
}
buffer_set_limit(xfrhandler->packet, received);
return 1;
}
static void
xfrd_udp_read(xfrd_type* xfrd)
{
xfrhandler_type* xfrhandler = NULL;
zone_type* zone = NULL;
xfrd_pkt_status res = XFRD_PKT_BAD;
ods_log_assert(xfrd);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
ods_log_debug("[%s] zone %s read data from udp", xfrd_str,
zone->name);
if (!xfrd_udp_read_packet(xfrd)) {
ods_log_error("[%s] unable to read data from udp zone %s: "
"xfrd_udp_read_packet() failed", xfrd_str, zone->name);
xfrd_udp_release(xfrd);
return;
}
xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
ods_log_assert(xfrhandler);
res = xfrd_handle_packet(xfrd, xfrhandler->packet);
switch (res) {
case XFRD_PKT_TC:
ods_log_verbose("[%s] truncation from %s",
xfrd_str, xfrd->master->address);
xfrd_udp_release(xfrd);
xfrd_set_timer(xfrd, xfrd_time(xfrd) + XFRD_TCP_TIMEOUT);
xfrd_tcp_obtain(xfrd, xfrhandler->tcp_set);
break;
case XFRD_PKT_XFR:
case XFRD_PKT_NEWLEASE:
ods_log_verbose("[%s] xfr/newlease from %s",
xfrd_str, xfrd->master->address);
/* nothing more to do */
ods_log_assert(xfrd->round_num == -1);
xfrd_udp_release(xfrd);
break;
case XFRD_PKT_NOTIMPL:
xfrd->master->ixfr_disabled = time_now();
ods_log_verbose("[%s] disable ixfr requests for %s from now (%lu)",
xfrd_str, xfrd->master->address, (unsigned long)xfrd->master->ixfr_disabled);
/* break; */
case XFRD_PKT_BAD:
default:
ods_log_debug("[%s] bad ixfr packet from %s",
xfrd_str, xfrd->master->address);
xfrd_udp_release(xfrd);
xfrd_make_request(xfrd);
break;
}
}
static void
xfrd_udp_release(xfrd_type* xfrd)
{
xfrhandler_type* xfrhandler = NULL;
ods_log_assert(xfrd);
ods_log_assert(xfrd->udp_waiting == 0);
if(xfrd->handler.fd != -1)
close(xfrd->handler.fd);
xfrd->handler.fd = -1;
xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
ods_log_assert(xfrhandler);
/* see if there are waiting zones */
if (xfrhandler->udp_use_num == XFRD_MAX_UDP) {
while (xfrhandler->udp_waiting_first) {
/* snip off waiting list */
xfrd_type* wf = xfrhandler->udp_waiting_first;
ods_log_assert(wf->udp_waiting);
wf->udp_waiting = 0;
xfrhandler->udp_waiting_first = wf->udp_waiting_next;
if (xfrhandler->udp_waiting_last == wf) {
xfrhandler->udp_waiting_last = NULL;
}
/* see if this zone needs udp connection */
if (wf->tcp_conn == -1) {
wf->handler.fd = xfrd_udp_send_request_ixfr(wf);
if (wf->handler.fd != -1) {
return;
}
}
}
}
/* no waiting zones */
if (xfrhandler->udp_use_num > 0) {
xfrhandler->udp_use_num --;
}
}
static void
xfrd_make_request(xfrd_type* xfrd)
{
zone_type* zone = NULL;
dnsin_type* dnsin = NULL;
if (!xfrd || !xfrd->xfrhandler) {
return;
}
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
ods_log_assert(zone->adinbound);
ods_log_assert(zone->adinbound->type == ADAPTER_DNS);
ods_log_assert(zone->adinbound->config);
dnsin = (dnsin_type*) zone->adinbound->config;
if (xfrd->next_master != -1) {
/* we are told to use this next master */
xfrd->master_num = xfrd->next_master;
xfrd->master = NULL; /* acl_find_num(...) */
/* if there is no next master, fallback to use the first one */
if (!xfrd->master) {
xfrd->master = dnsin->request_xfr;
xfrd->master_num = 0;
}
/* fallback to cycle master */
xfrd->next_master = -1;
xfrd->round_num = 0; /* fresh set of retries after notify */
} else {
/* cycle master */
if (xfrd->round_num != -1 && xfrd->master &&
xfrd->master->next) {
/* try the next master */
xfrd->master = xfrd->master->next;
xfrd->master_num++;
} else {
/* start a new round */
xfrd->master = dnsin->request_xfr;
xfrd->master_num = 0;
xfrd->round_num++;
}
if (xfrd->round_num >= XFRD_MAX_ROUNDS) {
/* tried all servers that many times, wait */
xfrd->round_num = -1;
xfrd_set_timer_retry(xfrd);
ods_log_verbose("[%s] zone %s make request wait retry",
xfrd_str, zone->name);
return;
}
}
if (!xfrd->master) {
ods_log_debug("[%s] unable to make request for zone %s: no master",
xfrd_str, zone->name);
xfrd->round_num = -1;
xfrd_set_timer_retry(xfrd);
return;
}
/* cache ixfr_disabled only for XFRD_NO_IXFR_CACHE time */
if (xfrd->master->ixfr_disabled &&
(xfrd->master->ixfr_disabled + XFRD_NO_IXFR_CACHE) <=
xfrd_time(xfrd)) {
ods_log_verbose("[%s] clear negative caching ixfr disabled for "
"master %s", xfrd_str, xfrd->master->address);
ods_log_debug("[%s] clear negative caching calc: %lu + %lu <= %lu",
xfrd_str, (unsigned long) xfrd->master->ixfr_disabled, (unsigned long)XFRD_NO_IXFR_CACHE,
(unsigned long) xfrd_time(xfrd));
xfrd->master->ixfr_disabled = 0;
}
/* perform xfr request */
if (xfrd->serial_xfr_acquired && !xfrd->master->ixfr_disabled &&
!xfrd->serial_retransfer) {
xfrd_set_timer(xfrd, xfrd_time(xfrd) + XFRD_UDP_TIMEOUT);
ods_log_verbose("[%s] zone %s make request [udp round %d master %s:%u]",
xfrd_str, zone->name, xfrd->round_num, xfrd->master->address,
xfrd->master->port);
xfrd_udp_obtain(xfrd);
} else if (!xfrd->serial_xfr_acquired || xfrd->master->ixfr_disabled ||
xfrd->serial_retransfer) {
xfrhandler_type* xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
ods_log_assert(xfrhandler);
if (xfrd->serial_retransfer) {
xfrd->msg_do_retransfer = 1;
xfrd->serial_retransfer = 0;
}
xfrd_set_timer(xfrd, xfrd_time(xfrd) + XFRD_TCP_TIMEOUT);
ods_log_verbose("[%s] zone %s make request [tcp round %d master %s:%u]",
xfrd_str, zone->name, xfrd->round_num, xfrd->master->address,
xfrd->master->port);
xfrd_tcp_obtain(xfrd, xfrhandler->tcp_set);
}
}
static void
xfrd_handle_zone(netio_type* ATTR_UNUSED(netio),
netio_handler_type* handler, netio_events_type event_types)
{
xfrd_type* xfrd = NULL;
zone_type* zone = NULL;
if (!handler) {
return;
}
xfrd = (xfrd_type*) handler->user_data;
ods_log_assert(xfrd);
zone = (zone_type*) xfrd->zone;
ods_log_assert(zone);
ods_log_assert(zone->name);
if (xfrd->tcp_conn != -1) {
/* busy in tcp transaction */
xfrhandler_type* xfrhandler = (xfrhandler_type*) xfrd->xfrhandler;
ods_log_assert(xfrhandler);
if (event_types & NETIO_EVENT_READ) {
ods_log_deeebug("[%s] zone %s event tcp read", xfrd_str, zone->name);
xfrd_set_timer(xfrd, xfrd_time(xfrd) + XFRD_TCP_TIMEOUT);
xfrd_tcp_read(xfrd, xfrhandler->tcp_set);
return;
} else if (event_types & NETIO_EVENT_WRITE) {
ods_log_deeebug("[%s] zone %s event tcp write", xfrd_str,
zone->name);
xfrd_set_timer(xfrd, xfrd_time(xfrd) + XFRD_TCP_TIMEOUT);
xfrd_tcp_write(xfrd, xfrhandler->tcp_set);
return;
} else if (event_types & NETIO_EVENT_TIMEOUT) {
/* tcp connection timed out. Stop it. */
ods_log_deeebug("[%s] zone %s event tcp timeout", xfrd_str,
zone->name);
xfrd_tcp_release(xfrd, xfrhandler->tcp_set, 1);
/* continue to retry; as if a timeout happened */
event_types = NETIO_EVENT_TIMEOUT;
}
}
if (event_types & NETIO_EVENT_READ) {
/* busy in udp transaction */
ods_log_deeebug("[%s] zone %s event udp read", xfrd_str,
zone->name);
xfrd_set_timer_now(xfrd);
xfrd_udp_read(xfrd);
return;
}
/* timeout */
ods_log_deeebug("[%s] zone %s timeout", xfrd_str, zone->name);
if (handler->fd != -1) {
ods_log_assert(xfrd->tcp_conn == -1);
xfrd_udp_release(xfrd);
}
if (xfrd->tcp_waiting) {
ods_log_deeebug("[%s] zone %s skips retry: tcp connections full",
xfrd_str, zone->name);
xfrd_unset_timer(xfrd);
return;
}
if (xfrd->udp_waiting) {
ods_log_deeebug("[%s] zone %s skips retry: udp connections full",
xfrd_str, zone->name);
xfrd_unset_timer(xfrd);
return;
}
/* make a new request */
xfrd_make_request(xfrd);
}
static void
xfrd_backup_dname(FILE* out, uint8_t* dname)
{
uint8_t* d= dname+1;
uint8_t len = *d++;
uint8_t i;
if (dname[0]<=1) {
fprintf(out, ".");
return;
}
while (len) {
ods_log_assert(d - (dname+1) <= dname[0]);
for (i=0; i<len; i++) {
uint8_t ch = *d++;
if (isalnum(ch) || ch == '-' || ch == '_') {
fprintf(out, "%c", ch);
} else if (ch == '.' || ch == '\\') {
fprintf(out, "\\%c", ch);
} else {
fprintf(out, "\\%03u", (unsigned int)ch);
}
}
fprintf(out, ".");
len = *d++;
}
return;
}
static void
xfrd_backup(xfrd_type* xfrd)
{
zone_type* zone = (zone_type*) xfrd->zone;
char* file = NULL;
int timeout = 0;
FILE* fd = NULL;
if (zone && zone->name) {
file = ods_build_path(zone->name, ".xfrd-state", 0, 1);
if (file) {
fd = ods_fopen(file, NULL, "w");
if (fd) {
if (xfrd->handler.timeout) {
timeout = xfrd->timeout.tv_sec;
}
fprintf(fd, "%s\n", ODS_SE_FILE_MAGIC_V3);
fprintf(fd, ";;Zone: name %s ttl %u mname ",
zone->name,
(unsigned) xfrd->soa.ttl);
xfrd_backup_dname(fd, xfrd->soa.mname),
fprintf(fd, " rname ");
xfrd_backup_dname(fd, xfrd->soa.rname),
fprintf(fd, " serial %u refresh %u retry %u expire %u "
"minimum %u\n",
(unsigned) xfrd->soa.serial,
(unsigned) xfrd->soa.refresh,
(unsigned) xfrd->soa.retry,
(unsigned) xfrd->soa.expire,
(unsigned) xfrd->soa.minimum);
fprintf(fd, ";;Master: num %d next %d round %d timeout %d\n",
xfrd->master_num,
xfrd->next_master,
xfrd->round_num,
timeout);
fprintf(fd, ";;Serial: xfr %u %u notify %u %u disk %u %u\n",
(unsigned) xfrd->serial_xfr,
(unsigned) xfrd->serial_xfr_acquired,
(unsigned) xfrd->serial_notify,
(unsigned) xfrd->serial_notify_acquired,
(unsigned) xfrd->serial_disk,
(unsigned) xfrd->serial_disk_acquired);
fprintf(fd, "%s\n", ODS_SE_FILE_MAGIC_V3);
ods_fclose(fd);
}
free(file);
}
}
}
static void
xfrd_unlink(xfrd_type* xfrd)
{
zone_type* zone = (zone_type*) xfrd->zone;
char* file = NULL;
if (zone && zone->name) {
ods_log_info("[%s] unlink zone %s xfrd state", xfrd_str, zone->name);
file = ods_build_path(zone->name, ".xfrd-state", 0, 1);
if (file) {
(void)unlink(file);
free(file);
}
}
}
void
xfrd_cleanup(xfrd_type* xfrd, int backup)
{
if (!xfrd) {
return;
}
/* backup */
if (backup) {
xfrd_backup(xfrd);
} else {
xfrd_unlink(xfrd);
}
tsig_rr_cleanup(xfrd->tsig_rr);
pthread_mutex_destroy(&xfrd->serial_lock);
pthread_mutex_destroy(&xfrd->rw_lock);
free(xfrd);
}
acl_parse_family
int acl_parse_family(const char *a)
Definition acl.c:104
acl_type
struct acl_struct acl_type
Definition acl.h:57
ADAPTER_DNS
@ ADAPTER_DNS
Definition adapter.h:42
dnsin_type
struct dnsin_struct dnsin_type
Definition addns.h:48
backup_read_uint32_t
int backup_read_uint32_t(FILE *in, uint32_t *v)
Definition backup.c:209
backup_read_int
int backup_read_int(FILE *in, int *v)
Definition backup.c:175
backup_read_time_t
int backup_read_time_t(FILE *in, time_t *v)
Definition backup.c:121
backup_read_check_str
int backup_read_check_str(FILE *in, const char *str)
Definition backup.c:77
backup_read_str
int backup_read_str(FILE *in, const char **str)
Definition backup.c:104
backup.h
buffer_available
int buffer_available(buffer_type *buffer, size_t count)
Definition buffer.c:487
buffer_pkt_qdcount
uint16_t buffer_pkt_qdcount(buffer_type *buffer)
Definition buffer.c:994
buffer_clear
void buffer_clear(buffer_type *buffer)
Definition buffer.c:99
buffer_skip_rr
int buffer_skip_rr(buffer_type *buffer, unsigned qrr)
Definition buffer.c:342
buffer_read_u32
uint32_t buffer_read_u32(buffer_type *buffer)
Definition buffer.c:736
buffer_read_u16
uint16_t buffer_read_u16(buffer_type *buffer)
Definition buffer.c:721
buffer_current
uint8_t * buffer_current(buffer_type *buffer)
Definition buffer.c:438
buffer_set_limit
void buffer_set_limit(buffer_type *buffer, size_t limit)
Definition buffer.c:385
buffer_set_position
void buffer_set_position(buffer_type *buffer, size_t pos)
Definition buffer.c:137
buffer_begin
uint8_t * buffer_begin(buffer_type *buffer)
Definition buffer.c:426
buffer_pkt_rcode
ldns_pkt_rcode buffer_pkt_rcode(buffer_type *buffer)
Definition buffer.c:954
buffer_flip
void buffer_flip(buffer_type *buffer)
Definition buffer.c:112
buffer_position
size_t buffer_position(buffer_type *buffer)
Definition buffer.c:125
buffer_pkt_arcount
uint16_t buffer_pkt_arcount(buffer_type *buffer)
Definition buffer.c:1066
buffer_pkt_set_nscount
void buffer_pkt_set_nscount(buffer_type *buffer, uint16_t count)
Definition buffer.c:1054
buffer_write
void buffer_write(buffer_type *buffer, const void *data, size_t count)
Definition buffer.c:538
buffer_write_rdf
void buffer_write_rdf(buffer_type *buffer, ldns_rdf *rdf)
Definition buffer.c:591
buffer_write_u16_at
void buffer_write_u16_at(buffer_type *buffer, size_t at, uint16_t data)
Definition buffer.c:512
buffer_skip
void buffer_skip(buffer_type *buffer, ssize_t count)
Definition buffer.c:150
buffer_pkt_tc
int buffer_pkt_tc(buffer_type *buffer)
Definition buffer.c:894
buffer_skip_dname
int buffer_skip_dname(buffer_type *buffer)
Definition buffer.c:310
buffer_remaining
size_t buffer_remaining(buffer_type *buffer)
Definition buffer.c:463
buffer_write_u32
void buffer_write_u32(buffer_type *buffer, uint32_t data)
Definition buffer.c:578
buffer_pkt_query
void buffer_pkt_query(buffer_type *buffer, ldns_rdf *qname, ldns_rr_type qtype, ldns_rr_class qclass)
Definition buffer.c:1120
buffer_write_u16
void buffer_write_u16(buffer_type *buffer, uint16_t data)
Definition buffer.c:565
buffer_read_dname
size_t buffer_read_dname(buffer_type *buffer, uint8_t *dname, unsigned allow_pointers)
Definition buffer.c:246
buffer_limit
size_t buffer_limit(buffer_type *buffer)
Definition buffer.c:373
buffer_pkt_ancount
uint16_t buffer_pkt_ancount(buffer_type *buffer)
Definition buffer.c:1018
buffer_pkt_set_arcount
void buffer_pkt_set_arcount(buffer_type *buffer, uint16_t count)
Definition buffer.c:1078
buffer_pkt_id
uint16_t buffer_pkt_id(buffer_type *buffer)
Definition buffer.c:751
MAXDOMAINLEN
#define MAXDOMAINLEN
Definition buffer.h:44
BUFFER_PKT_HEADER_SIZE
#define BUFFER_PKT_HEADER_SIZE
Definition buffer.h:43
buffer_type
struct buffer_struct buffer_type
Definition buffer.h:111
MAXLABELLEN
#define MAXLABELLEN
Definition buffer.h:45
log_dname
void log_dname(ldns_rdf *rdf, const char *pre, int level)
Definition domain.c:48
domain.h
engine_wakeup_workers
void engine_wakeup_workers(engine_type *engine)
Definition engine.c:291
engine.h
engine_type
struct engine_struct engine_type
Definition engine.h:38
DNS_PORT_STRING
#define DNS_PORT_STRING
Definition listener.h:51
interface_type
struct interface_struct interface_type
Definition listener.h:68
PF_INET6
#define PF_INET6
Definition netio.h:61
netio_handler_type
struct netio_handler_struct netio_handler_type
Definition netio.h:79
netio_events_type
enum netio_events_enum netio_events_type
Definition netio.h:76
PF_INET
#define PF_INET
Definition netio.h:58
NETIO_EVENT_WRITE
@ NETIO_EVENT_WRITE
Definition netio.h:72
NETIO_EVENT_TIMEOUT
@ NETIO_EVENT_TIMEOUT
Definition netio.h:74
NETIO_EVENT_READ
@ NETIO_EVENT_READ
Definition netio.h:71
netio_type
struct netio_struct netio_type
Definition netio.h:78
acl_struct::family
int family
Definition acl.h:63
acl_struct::ixfr_disabled
time_t ixfr_disabled
Definition acl.h:71
acl_struct::next
acl_type * next
Definition acl.h:59
acl_struct::address
char * address
Definition acl.h:61
acl_struct::tsig
tsig_type * tsig
Definition acl.h:69
acl_struct::addr
union acl_addr_storage addr
Definition acl.h:64
acl_struct::port
unsigned int port
Definition acl.h:62
adapter_struct::config
void * config
Definition adapter.h:61
adapter_struct::type
adapter_mode type
Definition adapter.h:58
netio_handler_struct::timeout
struct timespec * timeout
Definition netio.h:115
netio_handler_struct::fd
int fd
Definition netio.h:108
netio_handler_struct::event_types
netio_events_type event_types
Definition netio.h:124
netio_handler_struct::event_handler
netio_event_handler_type event_handler
Definition netio.h:131
netio_handler_struct::user_data
void * user_data
Definition netio.h:119
soa_struct::serial
uint32_t serial
Definition xfrd.h:82
soa_struct::rname
uint8_t rname[MAXDOMAINLEN+2]
Definition xfrd.h:81
soa_struct::retry
uint32_t retry
Definition xfrd.h:84
soa_struct::minimum
uint32_t minimum
Definition xfrd.h:86
soa_struct::refresh
uint32_t refresh
Definition xfrd.h:83
soa_struct::ttl
uint32_t ttl
Definition xfrd.h:78
soa_struct::mname
uint8_t mname[MAXDOMAINLEN+2]
Definition xfrd.h:80
soa_struct::expire
uint32_t expire
Definition xfrd.h:85
tcp_conn_struct::fd
int fd
Definition tcpset.h:52
tcp_conn_struct::packet
buffer_type * packet
Definition tcpset.h:58
tcp_set_struct::tcp_waiting_first
xfrd_type * tcp_waiting_first
Definition tcpset.h:69
tcp_set_struct::tcp_conn
tcp_conn_type * tcp_conn[TCPSET_MAX]
Definition tcpset.h:68
tcp_set_struct::tcp_count
size_t tcp_count
Definition tcpset.h:71
tsig_algo_struct::wf_name
ldns_rdf * wf_name
Definition tsig.h:91
tsig_key_struct::dname
ldns_rdf * dname
Definition tsig.h:79
tsig_rr_struct::algo
tsig_algo_type * algo
Definition tsig.h:129
tsig_rr_struct::position
size_t position
Definition tsig.h:125
tsig_rr_struct::key
tsig_key_type * key
Definition tsig.h:130
tsig_rr_struct::error_code
uint16_t error_code
Definition tsig.h:142
tsig_rr_struct::update_since_last_prepare
size_t update_since_last_prepare
Definition tsig.h:127
tsig_rr_struct::status
tsig_status status
Definition tsig.h:124
tsig_rr_struct::original_query_id
uint16_t original_query_id
Definition tsig.h:141
tsig_rr_struct::algo_name
ldns_rdf * algo_name
Definition tsig.h:135
tsig_rr_struct::key_name
ldns_rdf * key_name
Definition tsig.h:134
tsig_struct::key
tsig_key_type * key
Definition tsig.h:115
tsig_struct::algorithm
const char * algorithm
Definition tsig.h:113
xfrd_struct::serial_disk_acquired
time_t serial_disk_acquired
Definition xfrd.h:118
xfrd_struct::xfrhandler
xfrhandler_type * xfrhandler
Definition xfrd.h:95
xfrd_struct::msg_old_serial
uint32_t msg_old_serial
Definition xfrd.h:129
xfrd_struct::handler
netio_handler_type handler
Definition xfrd.h:124
xfrd_struct::serial_lock
pthread_mutex_t serial_lock
Definition xfrd.h:97
xfrd_struct::tcp_conn
int tcp_conn
Definition xfrd.h:101
xfrd_struct::rw_lock
pthread_mutex_t rw_lock
Definition xfrd.h:98
xfrd_struct::next_master
int next_master
Definition xfrd.h:104
xfrd_struct::query_id
uint16_t query_id
Definition xfrd.h:127
xfrd_struct::serial_xfr
uint32_t serial_xfr
Definition xfrd.h:108
xfrd_struct::msg_do_retransfer
uint8_t msg_do_retransfer
Definition xfrd.h:133
xfrd_struct::serial_disk
uint32_t serial_disk
Definition xfrd.h:113
xfrd_struct::serial_notify_acquired
time_t serial_notify_acquired
Definition xfrd.h:117
xfrd_struct::tcp_waiting
unsigned tcp_waiting
Definition xfrd.h:138
xfrd_struct::msg_rr_count
size_t msg_rr_count
Definition xfrd.h:131
xfrd_struct::master
acl_type * master
Definition xfrd.h:105
xfrd_struct::udp_waiting_next
xfrd_type * udp_waiting_next
Definition xfrd.h:137
xfrd_struct::tcp_waiting_next
xfrd_type * tcp_waiting_next
Definition xfrd.h:136
xfrd_struct::msg_seq_nr
uint32_t msg_seq_nr
Definition xfrd.h:128
xfrd_struct::serial_retransfer
uint8_t serial_retransfer
Definition xfrd.h:119
xfrd_struct::round_num
int round_num
Definition xfrd.h:102
xfrd_struct::serial_xfr_acquired
time_t serial_xfr_acquired
Definition xfrd.h:114
xfrd_struct::zone
zone_type * zone
Definition xfrd.h:96
xfrd_struct::tsig_rr
tsig_rr_type * tsig_rr
Definition xfrd.h:134
xfrd_struct::timeout
struct timespec timeout
Definition xfrd.h:123
xfrd_struct::udp_waiting
unsigned udp_waiting
Definition xfrd.h:139
xfrd_struct::msg_new_serial
uint32_t msg_new_serial
Definition xfrd.h:130
xfrd_struct::soa
soa_type soa
Definition xfrd.h:120
xfrd_struct::serial_notify
uint32_t serial_notify
Definition xfrd.h:111
xfrd_struct::master_num
int master_num
Definition xfrd.h:103
xfrd_struct::msg_is_ixfr
uint8_t msg_is_ixfr
Definition xfrd.h:132
xfrhandler_struct::packet
buffer_type * packet
Definition xfrhandler.h:62
xfrhandler_struct::tcp_set
tcp_set_type * tcp_set
Definition xfrhandler.h:61
xfrhandler_struct::udp_waiting_first
xfrd_type * udp_waiting_first
Definition xfrhandler.h:64
xfrhandler_struct::udp_use_num
size_t udp_use_num
Definition xfrhandler.h:66
xfrhandler_struct::udp_waiting_last
xfrd_type * udp_waiting_last
Definition xfrhandler.h:65
xfrhandler_struct::tcp_waiting_first
xfrd_type * tcp_waiting_first
Definition xfrhandler.h:63
zone_struct::klass
ldns_rr_class klass
Definition zone.h:62
zone_struct::adinbound
adapter_type * adinbound
Definition zone.h:74
zone_struct::apex
ldns_rdf * apex
Definition zone.h:61
zone_struct::name
const char * name
Definition zone.h:69
zone_struct::zone_lock
pthread_mutex_t zone_lock
Definition zone.h:86
tcp_conn_ready
void tcp_conn_ready(tcp_conn_type *tcp)
Definition tcpset.c:89
tcp_conn_read
int tcp_conn_read(tcp_conn_type *tcp)
Definition tcpset.c:103
tcp_conn_write
int tcp_conn_write(tcp_conn_type *tcp)
Definition tcpset.c:177
tcpset.h
TCPSET_MAX
#define TCPSET_MAX
Definition tcpset.h:45
tcp_set_type
struct tcp_set_struct tcp_set_type
Definition tcpset.h:39
tcp_conn_type
struct tcp_conn_struct tcp_conn_type
Definition tcpset.h:38
tsig_rr_cleanup
void tsig_rr_cleanup(tsig_rr_type *trr)
Definition tsig.c:832
tsig_strerror
const char * tsig_strerror(uint16_t error)
Definition tsig.c:778
tsig_rr_verify
int tsig_rr_verify(tsig_rr_type *trr)
Definition tsig.c:650
tsig_rr_append
void tsig_rr_append(tsig_rr_type *trr, buffer_type *buffer)
Definition tsig.c:672
tsig_rr_sign
void tsig_rr_sign(tsig_rr_type *trr)
Definition tsig.c:629
tsig_rr_reset
void tsig_rr_reset(tsig_rr_type *trr, tsig_algo_type *algo, tsig_key_type *key)
Definition tsig.c:292
tsig_rr_update
void tsig_rr_update(tsig_rr_type *trr, buffer_type *buffer, size_t length)
Definition tsig.c:559
tsig_rr_prepare
void tsig_rr_prepare(tsig_rr_type *trr)
Definition tsig.c:537
tsig_rr_create
tsig_rr_type * tsig_rr_create()
Definition tsig.c:274
tsig_rr_find
int tsig_rr_find(tsig_rr_type *trr, buffer_type *buffer)
Definition tsig.c:435
tsig_lookup_algo
tsig_algo_type * tsig_lookup_algo(const char *name)
Definition tsig.c:257
tsig_algo_type
struct tsig_algo_struct tsig_algo_type
Definition tsig.h:88
TSIG_OK
@ TSIG_OK
Definition tsig.h:57
acl_addr_storage::addr
struct in_addr addr
Definition listener.h:60
acl_addr_storage::addr6
struct in6_addr addr6
Definition listener.h:61
xfrd_set_timer_retry
void xfrd_set_timer_retry(xfrd_type *xfrd)
Definition xfrd.c:472
xfrd_set_timer_refresh
void xfrd_set_timer_refresh(xfrd_type *xfrd)
Definition xfrd.c:490
xfrd_set_timer_now
void xfrd_set_timer_now(xfrd_type *xfrd)
Definition xfrd.c:454
xfrd_acl_sockaddr_to
socklen_t xfrd_acl_sockaddr_to(acl_type *acl, struct sockaddr_storage *to)
Definition xfrd.c:537
xfrd_create
xfrd_type * xfrd_create(xfrhandler_type *xfrhandler, zone_type *zone)
Definition xfrd.c:315
xfrd_cleanup
void xfrd_cleanup(xfrd_type *xfrd, int backup)
Definition xfrd.c:2179
XFRD_TSIG_MAX_UNSIGNED
#define XFRD_TSIG_MAX_UNSIGNED
Definition xfrd.c:49
xfrd.h
XFRD_MAX_UDP
#define XFRD_MAX_UDP
Definition xfrd.h:66
XFRD_NO_IXFR_CACHE
#define XFRD_NO_IXFR_CACHE
Definition xfrd.h:67
XFRD_UDP_TIMEOUT
#define XFRD_UDP_TIMEOUT
Definition xfrd.h:69
XFRD_MAX_ROUNDS
#define XFRD_MAX_ROUNDS
Definition xfrd.h:65
xfrd_pkt_status
enum xfrd_pkt_enum xfrd_pkt_status
Definition xfrd.h:51
XFRD_TCP_TIMEOUT
#define XFRD_TCP_TIMEOUT
Definition xfrd.h:68
XFRD_PKT_NOTIMPL
@ XFRD_PKT_NOTIMPL
Definition xfrd.h:46
XFRD_PKT_BAD
@ XFRD_PKT_BAD
Definition xfrd.h:44
XFRD_PKT_TC
@ XFRD_PKT_TC
Definition xfrd.h:47
XFRD_PKT_MORE
@ XFRD_PKT_MORE
Definition xfrd.h:45
XFRD_PKT_NEWLEASE
@ XFRD_PKT_NEWLEASE
Definition xfrd.h:49
XFRD_PKT_XFR
@ XFRD_PKT_XFR
Definition xfrd.h:48
xfrd_type
struct xfrd_struct xfrd_type
Definition xfrd.h:55
xfrhandler_time
time_t xfrhandler_time(xfrhandler_type *xfrhandler)
Definition xfrhandler.c:141
xfrhandler.h
xfrhandler_type
struct xfrhandler_struct xfrhandler_type
Definition xfrhandler.h:37
zone.h
zone_type
struct zone_struct zone_type
Definition zone.h:41