2 Unix SMB/CIFS implementation.
4 DNS server handler for update requests
6 Copyright (C) 2010 Kai Blin <kai@samba.org>
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>.
23 #include "libcli/util/ntstatus.h"
24 #include "librpc/ndr/libndr.h"
25 #include "librpc/gen_ndr/ndr_dns.h"
26 #include "librpc/gen_ndr/ndr_dnsp.h"
28 #include "param/param.h"
29 #include "param/loadparm.h"
30 #include "dsdb/samdb/samdb.h"
31 #include "dsdb/common/util.h"
32 #include "smbd/service_task.h"
33 #include "dns_server/dns_server.h"
34 #include "auth/auth.h"
37 #define DBGC_CLASS DBGC_DNS
39 static WERROR dns_rr_to_dnsp(TALLOC_CTX *mem_ctx,
40 const struct dns_res_rec *rrec,
41 struct dnsp_DnssrvRpcRecord *r,
44 static WERROR check_one_prerequisite(struct dns_server *dns,
46 const struct dns_name_question *zone,
47 const struct dns_res_rec *pr,
55 struct dnsp_DnssrvRpcRecord *rec = NULL;
56 struct dnsp_DnssrvRpcRecord *ans;
59 size_t host_part_len = 0;
64 return DNS_ERR(FORMAT_ERROR);
67 match = dns_name_match(zone->name, pr->name, &host_part_len);
69 return DNS_ERR(NOTZONE);
72 werror = dns_name2dn(dns, mem_ctx, pr->name, &dn);
73 W_ERROR_NOT_OK_RETURN(werror);
75 if (pr->rr_class == DNS_QCLASS_ANY) {
77 if (pr->length != 0) {
78 return DNS_ERR(FORMAT_ERROR);
82 if (pr->rr_type == DNS_QTYPE_ALL) {
85 werror = dns_lookup_records(dns, mem_ctx, dn, &ans, &acount);
86 if (W_ERROR_EQUAL(werror, WERR_DNS_ERROR_NAME_DOES_NOT_EXIST)) {
87 return DNS_ERR(NAME_ERROR);
89 W_ERROR_NOT_OK_RETURN(werror);
92 return DNS_ERR(NAME_ERROR);
97 werror = dns_lookup_records(dns, mem_ctx, dn, &ans, &acount);
98 if (W_ERROR_EQUAL(werror, WERR_DNS_ERROR_NAME_DOES_NOT_EXIST)) {
99 return DNS_ERR(NXRRSET);
101 if (W_ERROR_EQUAL(werror, DNS_ERR(NAME_ERROR))) {
102 return DNS_ERR(NXRRSET);
104 W_ERROR_NOT_OK_RETURN(werror);
106 for (i = 0; i < acount; i++) {
107 if (ans[i].wType == (enum dns_record_type) pr->rr_type) {
113 return DNS_ERR(NXRRSET);
118 * RFC2136 3.2.5 doesn't actually mention the need to return
119 * OK here, but otherwise we'd always return a FORMAT_ERROR
120 * later on. This also matches Microsoft DNS behavior.
125 if (pr->rr_class == DNS_QCLASS_NONE) {
126 if (pr->length != 0) {
127 return DNS_ERR(FORMAT_ERROR);
130 if (pr->rr_type == DNS_QTYPE_ALL) {
133 werror = dns_lookup_records(dns, mem_ctx, dn, &ans, &acount);
134 if (W_ERROR_EQUAL(werror, WERR_OK)) {
135 return DNS_ERR(YXDOMAIN);
140 werror = dns_lookup_records(dns, mem_ctx, dn, &ans, &acount);
141 if (W_ERROR_EQUAL(werror, WERR_DNS_ERROR_NAME_DOES_NOT_EXIST)) {
144 if (W_ERROR_EQUAL(werror, DNS_ERR(NAME_ERROR))) {
148 for (i = 0; i < acount; i++) {
149 if (ans[i].wType == (enum dns_record_type) pr->rr_type) {
155 return DNS_ERR(YXRRSET);
160 * RFC2136 3.2.5 doesn't actually mention the need to return
161 * OK here, but otherwise we'd always return a FORMAT_ERROR
162 * later on. This also matches Microsoft DNS behavior.
167 if (pr->rr_class != zone->question_class) {
168 return DNS_ERR(FORMAT_ERROR);
171 *final_result = false;
173 werror = dns_lookup_records(dns, mem_ctx, dn, &ans, &acount);
174 if (W_ERROR_EQUAL(werror, WERR_DNS_ERROR_NAME_DOES_NOT_EXIST)) {
175 return DNS_ERR(NXRRSET);
177 if (W_ERROR_EQUAL(werror, DNS_ERR(NAME_ERROR))) {
178 return DNS_ERR(NXRRSET);
180 W_ERROR_NOT_OK_RETURN(werror);
182 rec = talloc_zero(mem_ctx, struct dnsp_DnssrvRpcRecord);
183 W_ERROR_HAVE_NO_MEMORY(rec);
185 werror = dns_rr_to_dnsp(rec, pr, rec, dns_name_is_static(ans, acount));
186 W_ERROR_NOT_OK_RETURN(werror);
188 for (i = 0; i < acount; i++) {
189 if (dns_records_match(rec, &ans[i])) {
196 return DNS_ERR(NXRRSET);
202 static WERROR check_prerequisites(struct dns_server *dns,
204 const struct dns_name_question *zone,
205 const struct dns_res_rec *prereqs, uint16_t count)
208 WERROR final_error = WERR_OK;
210 for (i = 0; i < count; i++) {
214 werror = check_one_prerequisite(dns, mem_ctx, zone,
215 &prereqs[i], &final);
216 if (!W_ERROR_IS_OK(werror)) {
220 if (W_ERROR_IS_OK(final_error)) {
221 final_error = werror;
226 if (!W_ERROR_IS_OK(final_error)) {
233 static WERROR update_prescan(const struct dns_name_question *zone,
234 const struct dns_res_rec *updates, uint16_t count)
236 const struct dns_res_rec *r;
238 size_t host_part_len;
241 for (i = 0; i < count; i++) {
243 match = dns_name_match(zone->name, r->name, &host_part_len);
245 return DNS_ERR(NOTZONE);
247 if (zone->question_class == r->rr_class) {
248 if (r->rr_type == DNS_QTYPE_ALL) {
249 return DNS_ERR(FORMAT_ERROR);
251 if (r->rr_type == DNS_QTYPE_AXFR) {
252 return DNS_ERR(FORMAT_ERROR);
254 if (r->rr_type == DNS_QTYPE_MAILB) {
255 return DNS_ERR(FORMAT_ERROR);
257 if (r->rr_type == DNS_QTYPE_MAILA) {
258 return DNS_ERR(FORMAT_ERROR);
260 } else if (r->rr_class == DNS_QCLASS_ANY) {
262 return DNS_ERR(FORMAT_ERROR);
264 if (r->length != 0) {
265 return DNS_ERR(FORMAT_ERROR);
267 if (r->rr_type == DNS_QTYPE_AXFR) {
268 return DNS_ERR(FORMAT_ERROR);
270 if (r->rr_type == DNS_QTYPE_MAILB) {
271 return DNS_ERR(FORMAT_ERROR);
273 if (r->rr_type == DNS_QTYPE_MAILA) {
274 return DNS_ERR(FORMAT_ERROR);
276 } else if (r->rr_class == DNS_QCLASS_NONE) {
278 return DNS_ERR(FORMAT_ERROR);
280 if (r->rr_type == DNS_QTYPE_ALL) {
281 return DNS_ERR(FORMAT_ERROR);
283 if (r->rr_type == DNS_QTYPE_AXFR) {
284 return DNS_ERR(FORMAT_ERROR);
286 if (r->rr_type == DNS_QTYPE_MAILB) {
287 return DNS_ERR(FORMAT_ERROR);
289 if (r->rr_type == DNS_QTYPE_MAILA) {
290 return DNS_ERR(FORMAT_ERROR);
293 return DNS_ERR(FORMAT_ERROR);
299 static WERROR dns_rr_to_dnsp(TALLOC_CTX *mem_ctx,
300 const struct dns_res_rec *rrec,
301 struct dnsp_DnssrvRpcRecord *r,
304 enum ndr_err_code ndr_err;
307 if (rrec->rr_type == DNS_QTYPE_ALL) {
308 return DNS_ERR(FORMAT_ERROR);
313 r->wType = (enum dns_record_type) rrec->rr_type;
314 r->dwTtlSeconds = rrec->ttl;
315 r->rank = DNS_RANK_ZONE;
316 if (name_is_static) {
319 unix_to_nt_time(&t, time(NULL));
320 t /= 10 * 1000 * 1000;
325 /* If we get QCLASS_ANY, we're done here */
326 if (rrec->rr_class == DNS_QCLASS_ANY) {
330 switch(rrec->rr_type) {
332 r->data.ipv4 = talloc_strdup(mem_ctx, rrec->rdata.ipv4_record);
333 W_ERROR_HAVE_NO_MEMORY(r->data.ipv4);
336 r->data.ipv6 = talloc_strdup(mem_ctx, rrec->rdata.ipv6_record);
337 W_ERROR_HAVE_NO_MEMORY(r->data.ipv6);
340 r->data.ns = talloc_strdup(mem_ctx, rrec->rdata.ns_record);
341 W_ERROR_HAVE_NO_MEMORY(r->data.ns);
343 case DNS_QTYPE_CNAME:
344 r->data.cname = talloc_strdup(mem_ctx, rrec->rdata.cname_record);
345 W_ERROR_HAVE_NO_MEMORY(r->data.cname);
348 r->data.srv.wPriority = rrec->rdata.srv_record.priority;
349 r->data.srv.wWeight = rrec->rdata.srv_record.weight;
350 r->data.srv.wPort = rrec->rdata.srv_record.port;
351 r->data.srv.nameTarget = talloc_strdup(mem_ctx,
352 rrec->rdata.srv_record.target);
353 W_ERROR_HAVE_NO_MEMORY(r->data.srv.nameTarget);
356 r->data.ptr = talloc_strdup(mem_ctx, rrec->rdata.ptr_record);
357 W_ERROR_HAVE_NO_MEMORY(r->data.ptr);
360 r->data.mx.wPriority = rrec->rdata.mx_record.preference;
361 r->data.mx.nameTarget = talloc_strdup(mem_ctx,
362 rrec->rdata.mx_record.exchange);
363 W_ERROR_HAVE_NO_MEMORY(r->data.mx.nameTarget);
366 ndr_err = ndr_dnsp_string_list_copy(mem_ctx,
367 &rrec->rdata.txt_record.txt,
369 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
370 return WERR_NOT_ENOUGH_MEMORY;
375 DEBUG(0, ("Got a qytpe of %d\n", rrec->rr_type));
376 return DNS_ERR(NOT_IMPLEMENTED);
385 static WERROR handle_one_update(struct dns_server *dns,
387 const struct dns_name_question *zone,
388 const struct dns_res_rec *update,
389 const struct dns_server_tkey *tkey)
391 struct dnsp_DnssrvRpcRecord *recs = NULL;
397 bool tombstoned = false;
398 bool needs_add = false;
401 DEBUG(2, ("Looking at record: \n"));
403 NDR_PRINT_DEBUG(dns_res_rec, discard_const(update));
406 switch (update->rr_type) {
409 case DNS_QTYPE_CNAME:
418 DEBUG(0, ("Can't handle updates of type %u yet\n",
420 return DNS_ERR(NOT_IMPLEMENTED);
423 werror = dns_name2dn(dns, mem_ctx, update->name, &dn);
424 W_ERROR_NOT_OK_RETURN(werror);
426 werror = dns_common_lookup(dns->samdb, mem_ctx, dn,
427 &recs, &rcount, &tombstoned);
428 if (W_ERROR_EQUAL(werror, WERR_DNS_ERROR_NAME_DOES_NOT_EXIST)) {
432 W_ERROR_NOT_OK_RETURN(werror);
436 * we need to keep the existing tombstone record
442 name_is_static = dns_name_is_static(recs, rcount);
444 if (update->rr_class == zone->question_class) {
445 if (update->rr_type == DNS_QTYPE_CNAME) {
447 * If there is a record in the directory
448 * that's not a CNAME, ignore update
450 for (i = first; i < rcount; i++) {
451 if (recs[i].wType != DNS_TYPE_CNAME) {
452 DEBUG(5, ("Skipping update\n"));
459 * There should be no entries besides one CNAME record
460 * per name, so replace everything with the new CNAME
464 recs = talloc_realloc(mem_ctx, recs,
465 struct dnsp_DnssrvRpcRecord, rcount + 1);
466 W_ERROR_HAVE_NO_MEMORY(recs);
468 werror = dns_rr_to_dnsp(
469 recs, update, &recs[rcount], name_is_static);
470 W_ERROR_NOT_OK_RETURN(werror);
473 werror = dns_replace_records(dns, mem_ctx, dn,
474 needs_add, recs, rcount);
475 W_ERROR_NOT_OK_RETURN(werror);
480 * If there is a CNAME record for this name,
483 for (i = first; i < rcount; i++) {
484 if (recs[i].wType == DNS_TYPE_CNAME) {
485 DEBUG(5, ("Skipping update\n"));
490 if (update->rr_type == DNS_QTYPE_SOA) {
494 * If the zone has no SOA record?? or update's
495 * serial number is smaller than existing SOA's,
498 for (i = first; i < rcount; i++) {
499 if (recs[i].wType == DNS_TYPE_SOA) {
502 n = update->rdata.soa_record.serial;
503 o = recs[i].data.soa.serial;
505 * TODO: Implement RFC 1982 comparison
509 DEBUG(5, ("Skipping update\n"));
517 DEBUG(5, ("Skipping update\n"));
521 werror = dns_rr_to_dnsp(
522 mem_ctx, update, &recs[i], name_is_static);
523 W_ERROR_NOT_OK_RETURN(werror);
525 for (i++; i < rcount; i++) {
526 if (recs[i].wType != DNS_TYPE_SOA) {
530 recs[i] = (struct dnsp_DnssrvRpcRecord) {
531 .wType = DNS_TYPE_TOMBSTONE,
535 werror = dns_replace_records(dns, mem_ctx, dn,
536 needs_add, recs, rcount);
537 W_ERROR_NOT_OK_RETURN(werror);
542 recs = talloc_realloc(mem_ctx, recs,
543 struct dnsp_DnssrvRpcRecord, rcount+1);
544 W_ERROR_HAVE_NO_MEMORY(recs);
547 dns_rr_to_dnsp(recs, update, &recs[rcount], name_is_static);
548 W_ERROR_NOT_OK_RETURN(werror);
550 for (i = first; i < rcount; i++) {
551 if (!dns_records_match(&recs[i], &recs[rcount])) {
555 recs[i].data = recs[rcount].data;
556 recs[i].wType = recs[rcount].wType;
557 recs[i].dwTtlSeconds = recs[rcount].dwTtlSeconds;
558 recs[i].rank = recs[rcount].rank;
560 werror = dns_replace_records(dns, mem_ctx, dn,
561 needs_add, recs, rcount);
562 W_ERROR_NOT_OK_RETURN(werror);
567 werror = dns_replace_records(dns, mem_ctx, dn,
568 needs_add, recs, rcount+1);
569 W_ERROR_NOT_OK_RETURN(werror);
572 } else if (update->rr_class == DNS_QCLASS_ANY) {
573 if (update->rr_type == DNS_QTYPE_ALL) {
574 if (dns_name_equal(update->name, zone->name)) {
575 for (i = first; i < rcount; i++) {
577 if (recs[i].wType == DNS_TYPE_SOA) {
581 if (recs[i].wType == DNS_TYPE_NS) {
585 recs[i] = (struct dnsp_DnssrvRpcRecord) {
586 .wType = DNS_TYPE_TOMBSTONE,
591 for (i = first; i < rcount; i++) {
592 recs[i] = (struct dnsp_DnssrvRpcRecord) {
593 .wType = DNS_TYPE_TOMBSTONE,
598 } else if (dns_name_equal(update->name, zone->name)) {
600 if (update->rr_type == DNS_QTYPE_SOA) {
604 if (update->rr_type == DNS_QTYPE_NS) {
608 for (i = first; i < rcount; i++) {
609 if (recs[i].wType == (enum dns_record_type) update->rr_type) {
610 recs[i] = (struct dnsp_DnssrvRpcRecord) {
611 .wType = DNS_TYPE_TOMBSTONE,
616 werror = dns_replace_records(dns, mem_ctx, dn,
617 needs_add, recs, rcount);
618 W_ERROR_NOT_OK_RETURN(werror);
621 } else if (update->rr_class == DNS_QCLASS_NONE) {
622 struct dnsp_DnssrvRpcRecord *del_rec;
624 if (update->rr_type == DNS_QTYPE_SOA) {
627 if (update->rr_type == DNS_QTYPE_NS) {
629 struct dnsp_DnssrvRpcRecord *ns_rec = talloc(mem_ctx,
630 struct dnsp_DnssrvRpcRecord);
631 W_ERROR_HAVE_NO_MEMORY(ns_rec);
633 werror = dns_rr_to_dnsp(
634 ns_rec, update, ns_rec, name_is_static);
635 W_ERROR_NOT_OK_RETURN(werror);
637 for (i = first; i < rcount; i++) {
638 if (dns_records_match(ns_rec, &recs[i])) {
648 del_rec = talloc(mem_ctx, struct dnsp_DnssrvRpcRecord);
649 W_ERROR_HAVE_NO_MEMORY(del_rec);
652 dns_rr_to_dnsp(del_rec, update, del_rec, name_is_static);
653 W_ERROR_NOT_OK_RETURN(werror);
655 for (i = first; i < rcount; i++) {
656 if (dns_records_match(del_rec, &recs[i])) {
657 recs[i] = (struct dnsp_DnssrvRpcRecord) {
658 .wType = DNS_TYPE_TOMBSTONE,
663 werror = dns_replace_records(dns, mem_ctx, dn,
664 needs_add, recs, rcount);
665 W_ERROR_NOT_OK_RETURN(werror);
671 static WERROR handle_updates(struct dns_server *dns,
673 const struct dns_name_question *zone,
674 const struct dns_res_rec *prereqs, uint16_t pcount,
675 struct dns_res_rec *updates, uint16_t upd_count,
676 struct dns_server_tkey *tkey)
678 struct ldb_dn *zone_dn = NULL;
679 WERROR werror = WERR_OK;
682 TALLOC_CTX *tmp_ctx = talloc_new(mem_ctx);
685 ret = ldb_set_opaque(
689 if (ret != LDB_SUCCESS) {
690 DEBUG(1, ("unable to set session info\n"));
691 werror = DNS_ERR(SERVER_FAILURE);
696 werror = dns_name2dn(dns, tmp_ctx, zone->name, &zone_dn);
697 W_ERROR_NOT_OK_GOTO(werror, failed);
699 ret = ldb_transaction_start(dns->samdb);
700 if (ret != LDB_SUCCESS) {
701 werror = DNS_ERR(SERVER_FAILURE);
705 werror = check_prerequisites(dns, tmp_ctx, zone, prereqs, pcount);
706 W_ERROR_NOT_OK_GOTO(werror, failed);
708 DBG_DEBUG("dns update count is %u\n", upd_count);
710 for (ri = 0; ri < upd_count; ri++) {
711 werror = handle_one_update(dns, tmp_ctx, zone,
713 W_ERROR_NOT_OK_GOTO(werror, failed);
716 ldb_transaction_commit(dns->samdb);
717 TALLOC_FREE(tmp_ctx);
723 system_session(dns->task->lp_ctx));
729 ldb_transaction_cancel(dns->samdb);
735 system_session(dns->task->lp_ctx));
738 TALLOC_FREE(tmp_ctx);
743 static WERROR dns_update_allowed(struct dns_server *dns,
744 const struct dns_request_state *state,
745 struct dns_server_tkey **tkey)
747 if (lpcfg_allow_dns_updates(dns->task->lp_ctx) == DNS_UPDATE_ON) {
748 DEBUG(2, ("All updates allowed.\n"));
752 if (lpcfg_allow_dns_updates(dns->task->lp_ctx) == DNS_UPDATE_OFF) {
753 DEBUG(2, ("Updates disabled.\n"));
754 return DNS_ERR(REFUSED);
757 if (state->authenticated == false ) {
758 DEBUG(2, ("Update not allowed for unsigned packet.\n"));
759 return DNS_ERR(REFUSED);
762 *tkey = dns_find_tkey(dns->tkeys, state->key_name);
764 DEBUG(0, ("Authenticated, but key not found. Something is wrong.\n"));
765 return DNS_ERR(REFUSED);
772 WERROR dns_server_process_update(struct dns_server *dns,
773 const struct dns_request_state *state,
775 const struct dns_name_packet *in,
776 struct dns_res_rec **prereqs, uint16_t *prereq_count,
777 struct dns_res_rec **updates, uint16_t *update_count,
778 struct dns_res_rec **additional, uint16_t *arcount)
780 struct dns_name_question *zone;
781 const struct dns_server_zone *z;
782 size_t host_part_len = 0;
783 WERROR werror = DNS_ERR(NOT_IMPLEMENTED);
784 struct dns_server_tkey *tkey = NULL;
786 if (in->qdcount != 1) {
787 return DNS_ERR(FORMAT_ERROR);
790 zone = &in->questions[0];
792 if (zone->question_class != DNS_QCLASS_IN &&
793 zone->question_class != DNS_QCLASS_ANY) {
794 return DNS_ERR(NOT_IMPLEMENTED);
797 if (zone->question_type != DNS_QTYPE_SOA) {
798 return DNS_ERR(FORMAT_ERROR);
801 DEBUG(2, ("Got a dns update request.\n"));
803 for (z = dns->zones; z != NULL; z = z->next) {
806 match = dns_name_match(z->name, zone->name, &host_part_len);
813 DEBUG(1, ("We're not authoritative for this zone\n"));
814 return DNS_ERR(NOTAUTH);
817 if (host_part_len != 0) {
818 /* TODO: We need to delegate this one */
819 DEBUG(1, ("Would have to delegate zone '%s'.\n", zone->name));
820 return DNS_ERR(NOT_IMPLEMENTED);
823 *prereq_count = in->ancount;
824 *prereqs = in->answers;
825 werror = check_prerequisites(dns, mem_ctx, in->questions, *prereqs,
827 W_ERROR_NOT_OK_RETURN(werror);
829 werror = dns_update_allowed(dns, state, &tkey);
830 if (!W_ERROR_IS_OK(werror)) {
834 *update_count = in->nscount;
835 *updates = in->nsrecs;
836 werror = update_prescan(in->questions, *updates, *update_count);
837 W_ERROR_NOT_OK_RETURN(werror);
839 werror = handle_updates(dns, mem_ctx, in->questions, *prereqs,
840 *prereq_count, *updates, *update_count, tkey);
841 W_ERROR_NOT_OK_RETURN(werror);