2 Unix SMB/CIFS implementation.
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 "libcli/util/werror.h"
25 #include "librpc/ndr/libndr.h"
26 #include "librpc/gen_ndr/ndr_dns.h"
27 #include "librpc/gen_ndr/ndr_dnsp.h"
29 #include "dsdb/samdb/samdb.h"
30 #include "dsdb/common/util.h"
31 #include "dns_server/dns_server.h"
34 #define DBGC_CLASS DBGC_DNS
36 uint8_t werr_to_dns_err(WERROR werr
)
38 if (W_ERROR_EQUAL(WERR_OK
, werr
)) {
40 } else if (W_ERROR_EQUAL(DNS_ERR(FORMAT_ERROR
), werr
)) {
41 return DNS_RCODE_FORMERR
;
42 } else if (W_ERROR_EQUAL(DNS_ERR(SERVER_FAILURE
), werr
)) {
43 return DNS_RCODE_SERVFAIL
;
44 } else if (W_ERROR_EQUAL(DNS_ERR(NAME_ERROR
), werr
)) {
45 return DNS_RCODE_NXDOMAIN
;
46 } else if (W_ERROR_EQUAL(WERR_DNS_ERROR_NAME_DOES_NOT_EXIST
, werr
)) {
47 return DNS_RCODE_NXDOMAIN
;
48 } else if (W_ERROR_EQUAL(DNS_ERR(NOT_IMPLEMENTED
), werr
)) {
49 return DNS_RCODE_NOTIMP
;
50 } else if (W_ERROR_EQUAL(DNS_ERR(REFUSED
), werr
)) {
51 return DNS_RCODE_REFUSED
;
52 } else if (W_ERROR_EQUAL(DNS_ERR(YXDOMAIN
), werr
)) {
53 return DNS_RCODE_YXDOMAIN
;
54 } else if (W_ERROR_EQUAL(DNS_ERR(YXRRSET
), werr
)) {
55 return DNS_RCODE_YXRRSET
;
56 } else if (W_ERROR_EQUAL(DNS_ERR(NXRRSET
), werr
)) {
57 return DNS_RCODE_NXRRSET
;
58 } else if (W_ERROR_EQUAL(DNS_ERR(NOTAUTH
), werr
)) {
59 return DNS_RCODE_NOTAUTH
;
60 } else if (W_ERROR_EQUAL(DNS_ERR(NOTZONE
), werr
)) {
61 return DNS_RCODE_NOTZONE
;
62 } else if (W_ERROR_EQUAL(DNS_ERR(BADKEY
), werr
)) {
63 return DNS_RCODE_BADKEY
;
65 DEBUG(5, ("No mapping exists for %s\n", win_errstr(werr
)));
66 return DNS_RCODE_SERVFAIL
;
69 bool dns_name_match(const char *zone
, const char *name
, size_t *host_part_len
)
71 size_t zl
= strlen(zone
);
72 size_t nl
= strlen(name
);
74 static const size_t fixup
= 'a' - 'A';
80 for (zi
= zl
, ni
= nl
; zi
>= 0; zi
--, ni
--) {
84 /* convert to lower case */
85 if (zc
>= 'A' && zc
<= 'Z') {
88 if (nc
>= 'A' && nc
<= 'Z') {
98 if (name
[ni
] != '.') {
105 *host_part_len
= ni
+1;
110 /* Names are equal if they match and there's nothing left over */
111 bool dns_name_equal(const char *name1
, const char *name2
)
113 size_t host_part_len
;
114 bool ret
= dns_name_match(name1
, name2
, &host_part_len
);
116 return ret
&& (host_part_len
== 0);
120 see if two dns records match
122 bool dns_records_match(struct dnsp_DnssrvRpcRecord
*rec1
,
123 struct dnsp_DnssrvRpcRecord
*rec2
)
128 if (rec1
->wType
!= rec2
->wType
) {
132 /* see if the data matches */
133 switch (rec1
->wType
) {
135 return strcmp(rec1
->data
.ipv4
, rec2
->data
.ipv4
) == 0;
137 return strcmp(rec1
->data
.ipv6
, rec2
->data
.ipv6
) == 0;
139 return dns_name_equal(rec1
->data
.cname
, rec2
->data
.cname
);
141 if (rec1
->data
.txt
.count
!= rec2
->data
.txt
.count
) {
145 for (i
=0; i
<rec1
->data
.txt
.count
; i
++) {
146 status
= status
&& (strcmp(rec1
->data
.txt
.str
[i
],
147 rec2
->data
.txt
.str
[i
]) == 0);
151 return strcmp(rec1
->data
.ptr
, rec2
->data
.ptr
) == 0;
153 return dns_name_equal(rec1
->data
.ns
, rec2
->data
.ns
);
156 return rec1
->data
.srv
.wPriority
== rec2
->data
.srv
.wPriority
&&
157 rec1
->data
.srv
.wWeight
== rec2
->data
.srv
.wWeight
&&
158 rec1
->data
.srv
.wPort
== rec2
->data
.srv
.wPort
&&
159 dns_name_equal(rec1
->data
.srv
.nameTarget
, rec2
->data
.srv
.nameTarget
);
162 return rec1
->data
.mx
.wPriority
== rec2
->data
.mx
.wPriority
&&
163 dns_name_equal(rec1
->data
.mx
.nameTarget
, rec2
->data
.mx
.nameTarget
);
166 return strcmp(rec1
->data
.hinfo
.cpu
, rec2
->data
.hinfo
.cpu
) == 0 &&
167 strcmp(rec1
->data
.hinfo
.os
, rec2
->data
.hinfo
.os
) == 0;
170 return dns_name_equal(rec1
->data
.soa
.mname
, rec2
->data
.soa
.mname
) &&
171 dns_name_equal(rec1
->data
.soa
.rname
, rec2
->data
.soa
.rname
) &&
172 rec1
->data
.soa
.serial
== rec2
->data
.soa
.serial
&&
173 rec1
->data
.soa
.refresh
== rec2
->data
.soa
.refresh
&&
174 rec1
->data
.soa
.retry
== rec2
->data
.soa
.retry
&&
175 rec1
->data
.soa
.expire
== rec2
->data
.soa
.expire
&&
176 rec1
->data
.soa
.minimum
== rec2
->data
.soa
.minimum
;
184 WERROR
dns_lookup_records(struct dns_server
*dns
,
187 struct dnsp_DnssrvRpcRecord
**records
,
190 static const char * const attrs
[] = { "dnsRecord", NULL
};
191 struct ldb_message_element
*el
;
194 struct ldb_message
*msg
= NULL
;
195 struct dnsp_DnssrvRpcRecord
*recs
;
197 ret
= dsdb_search_one(dns
->samdb
, mem_ctx
, &msg
, dn
,
198 LDB_SCOPE_BASE
, attrs
, 0, "%s", "(objectClass=dnsNode)");
199 if (ret
!= LDB_SUCCESS
) {
200 /* TODO: we need to check if there's a glue record we need to
201 * create a referral to */
202 return DNS_ERR(NAME_ERROR
);
205 el
= ldb_msg_find_element(msg
, attrs
[0]);
209 return DNS_ERR(NAME_ERROR
);
212 recs
= talloc_zero_array(mem_ctx
, struct dnsp_DnssrvRpcRecord
, el
->num_values
);
216 for (ri
= 0; ri
< el
->num_values
; ri
++) {
217 struct ldb_val
*v
= &el
->values
[ri
];
218 enum ndr_err_code ndr_err
;
220 ndr_err
= ndr_pull_struct_blob(v
, recs
, &recs
[ri
],
221 (ndr_pull_flags_fn_t
)ndr_pull_dnsp_DnssrvRpcRecord
);
222 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err
)) {
223 DEBUG(0, ("Failed to grab dnsp_DnssrvRpcRecord\n"));
224 return DNS_ERR(SERVER_FAILURE
);
228 *rec_count
= el
->num_values
;
232 WERROR
dns_replace_records(struct dns_server
*dns
,
236 const struct dnsp_DnssrvRpcRecord
*records
,
239 struct ldb_message_element
*el
;
242 struct ldb_message
*msg
= NULL
;
244 msg
= ldb_msg_new(mem_ctx
);
245 W_ERROR_HAVE_NO_MEMORY(msg
);
249 ret
= ldb_msg_add_empty(msg
, "dnsRecord", LDB_FLAG_MOD_REPLACE
, &el
);
250 if (ret
!= LDB_SUCCESS
) {
251 return DNS_ERR(SERVER_FAILURE
);
254 el
->values
= talloc_zero_array(el
, struct ldb_val
, rec_count
);
256 W_ERROR_HAVE_NO_MEMORY(el
->values
);
259 for (i
= 0; i
< rec_count
; i
++) {
260 static const struct dnsp_DnssrvRpcRecord zero
;
261 struct ldb_val
*v
= &el
->values
[el
->num_values
];
262 enum ndr_err_code ndr_err
;
264 if (memcmp(&records
[i
], &zero
, sizeof(zero
)) == 0) {
267 ndr_err
= ndr_push_struct_blob(v
, el
->values
, &records
[i
],
268 (ndr_push_flags_fn_t
)ndr_push_dnsp_DnssrvRpcRecord
);
269 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err
)) {
270 DEBUG(0, ("Failed to grab dnsp_DnssrvRpcRecord\n"));
271 return DNS_ERR(SERVER_FAILURE
);
277 if (el
->num_values
== 0) {
281 /* No entries left, delete the dnsNode object */
282 ret
= ldb_delete(dns
->samdb
, msg
->dn
);
283 if (ret
!= LDB_SUCCESS
) {
284 DEBUG(0, ("Deleting record failed; %d\n", ret
));
285 return DNS_ERR(SERVER_FAILURE
);
291 ret
= ldb_msg_add_string(msg
, "objectClass", "dnsNode");
292 if (ret
!= LDB_SUCCESS
) {
293 return DNS_ERR(SERVER_FAILURE
);
296 ret
= ldb_add(dns
->samdb
, msg
);
297 if (ret
!= LDB_SUCCESS
) {
298 return DNS_ERR(SERVER_FAILURE
);
304 ret
= ldb_modify(dns
->samdb
, msg
);
305 if (ret
!= LDB_SUCCESS
) {
306 return DNS_ERR(SERVER_FAILURE
);
312 bool dns_authorative_for_zone(struct dns_server
*dns
,
315 const struct dns_server_zone
*z
;
316 size_t host_part_len
= 0;
322 if (strcmp(name
, "") == 0) {
325 for (z
= dns
->zones
; z
!= NULL
; z
= z
->next
) {
328 match
= dns_name_match(z
->name
, name
, &host_part_len
);
340 WERROR
dns_name2dn(struct dns_server
*dns
,
347 const struct dns_server_zone
*z
;
348 size_t host_part_len
= 0;
351 return DNS_ERR(FORMAT_ERROR
);
354 /*TODO: Check if 'name' is a valid DNS name */
356 if (strcmp(name
, "") == 0) {
357 base
= ldb_get_default_basedn(dns
->samdb
);
358 dn
= ldb_dn_copy(mem_ctx
, base
);
359 ldb_dn_add_child_fmt(dn
, "DC=@,DC=RootDNSServers,CN=MicrosoftDNS,CN=System");
364 for (z
= dns
->zones
; z
!= NULL
; z
= z
->next
) {
367 match
= dns_name_match(z
->name
, name
, &host_part_len
);
374 return DNS_ERR(NAME_ERROR
);
377 if (host_part_len
== 0) {
378 dn
= ldb_dn_copy(mem_ctx
, z
->dn
);
379 ldb_dn_add_child_fmt(dn
, "DC=@");
384 dn
= ldb_dn_copy(mem_ctx
, z
->dn
);
385 ldb_dn_add_child_fmt(dn
, "DC=%*.*s", (int)host_part_len
, (int)host_part_len
, name
);
390 WERROR
dns_generate_options(struct dns_server
*dns
,
392 struct dns_res_rec
**options
)
394 struct dns_res_rec
*o
;
396 o
= talloc_zero(mem_ctx
, struct dns_res_rec
);
401 o
->rr_type
= DNS_QTYPE_OPT
;
402 /* This is ugly, but RFC2671 wants the payload size in this field */
403 o
->rr_class
= (enum dns_qclass
) dns
->max_payload
;