3 * Functions for ldns_zone structure
4 * a Net::DNS like library for C
6 * (c) NLnet Labs, 2005-2006
7 * See the file LICENSE for the license
9 #include <ldns/config.h>
11 #include <ldns/ldns.h>
17 ldns_zone_soa(const ldns_zone *z)
23 ldns_zone_rr_count(const ldns_zone *z)
25 return ldns_rr_list_rr_count(z->_rrs);
29 ldns_zone_set_soa(ldns_zone *z, ldns_rr *soa)
35 ldns_zone_rrs(const ldns_zone *z)
41 ldns_zone_set_rrs(ldns_zone *z, ldns_rr_list *rrlist)
47 ldns_zone_push_rr_list(ldns_zone *z, const ldns_rr_list *list)
49 return ldns_rr_list_cat(ldns_zone_rrs(z), list);
53 ldns_zone_push_rr(ldns_zone *z, ldns_rr *rr)
55 return ldns_rr_list_push_rr(ldns_zone_rrs(z), rr);
60 * Get the list of glue records in a zone
61 * XXX: there should be a way for this to return error, other than NULL,
62 * since NULL is a valid return
65 ldns_zone_glue_rr_list(const ldns_zone *z)
67 /* when do we find glue? It means we find an IP address
68 * (AAAA/A) for a nameserver listed in the zone
71 * first find all the zonecuts (NS records)
72 * find all the AAAA or A records (can be done it the
75 * Check if the aaaa/a list are subdomains under the
77 * If yes -> glue, if no -> not glue
80 ldns_rr_list *zone_cuts;
84 ldns_rdf *dname_a, *ns_owner;
91 /* we cannot determine glue in a 'zone' without a SOA */
92 if (!ldns_zone_soa(z)) {
96 zone_cuts = ldns_rr_list_new();
97 if (!zone_cuts) goto memory_error;
98 addr = ldns_rr_list_new();
99 if (!addr) goto memory_error;
100 glue = ldns_rr_list_new();
101 if (!glue) goto memory_error;
103 for(i = 0; i < ldns_zone_rr_count(z); i++) {
104 r = ldns_rr_list_rr(ldns_zone_rrs(z), i);
105 if (ldns_rr_get_type(r) == LDNS_RR_TYPE_A ||
106 ldns_rr_get_type(r) == LDNS_RR_TYPE_AAAA) {
108 if (!ldns_rr_list_push_rr(addr, r)) goto memory_error;
111 if (ldns_rr_get_type(r) == LDNS_RR_TYPE_NS) {
112 /* multiple zones will end up here -
113 * for now; not a problem
115 /* don't add NS records for the current zone itself */
116 if (ldns_rdf_compare(ldns_rr_owner(r),
117 ldns_rr_owner(ldns_zone_soa(z))) != 0) {
118 if (!ldns_rr_list_push_rr(zone_cuts, r)) goto memory_error;
124 /* will sorting make it quicker ?? */
125 for(i = 0; i < ldns_rr_list_rr_count(zone_cuts); i++) {
126 ns = ldns_rr_list_rr(zone_cuts, i);
127 ns_owner = ldns_rr_owner(ns);
129 for(j = 0; j < ldns_rr_list_rr_count(addr); j++) {
130 a = ldns_rr_list_rr(addr, j);
131 dname_a = ldns_rr_owner(a);
133 if (ldns_dname_is_subdomain(dname_a, ns_owner) ||
134 ldns_dname_compare(dname_a, ns_owner) == 0) {
136 if (!ldns_rr_list_push_rr(glue, a)) goto memory_error;
141 ldns_rr_list_free(addr);
142 ldns_rr_list_free(zone_cuts);
144 if (ldns_rr_list_rr_count(glue) == 0) {
145 ldns_rr_list_free(glue);
153 LDNS_FREE(zone_cuts);
156 ldns_rr_list_free(addr);
159 ldns_rr_list_free(glue);
169 z = LDNS_MALLOC(ldns_zone);
174 z->_rrs = ldns_rr_list_new();
179 ldns_zone_set_soa(z, NULL);
187 ldns_zone_new_frm_fp(ldns_zone **z, FILE *fp, const ldns_rdf *origin, uint32_t ttl, ldns_rr_class c)
189 return ldns_zone_new_frm_fp_l(z, fp, origin, ttl, c, NULL);
192 /* XXX: class is never used */
194 ldns_zone_new_frm_fp_l(ldns_zone **z, FILE *fp, const ldns_rdf *origin, uint32_t ttl,
195 ldns_rr_class ATTR_UNUSED(c), int *line_nr)
202 bool soa_seen = false; /* 2 soa are an error */
206 /* most cases of error are memory problems */
207 ret = LDNS_STATUS_MEM_ERR;
216 my_origin = ldns_rdf_clone(origin);
217 if (!my_origin) goto error;
218 /* also set the prev */
219 my_prev = ldns_rdf_clone(origin);
220 if (!my_prev) goto error;
223 newzone = ldns_zone_new();
224 if (!newzone) goto error;
227 s = ldns_rr_new_frm_fp_l(&rr, fp, &my_ttl, &my_origin, &my_prev, line_nr);
230 if (ldns_rr_get_type(rr) == LDNS_RR_TYPE_SOA) {
233 * just skip, maybe we want to say
239 ldns_zone_set_soa(newzone, rr);
240 /* set origin to soa if not specified */
242 my_origin = ldns_rdf_clone(ldns_rr_owner(rr));
247 /* a normal RR - as sofar the DNS is normal */
248 if (!ldns_zone_push_rr(newzone, rr)) goto error;
250 case LDNS_STATUS_SYNTAX_EMPTY:
251 /* empty line was seen */
252 case LDNS_STATUS_SYNTAX_TTL:
253 /* the function set the ttl */
255 case LDNS_STATUS_SYNTAX_ORIGIN:
256 /* the function set the origin */
258 case LDNS_STATUS_SYNTAX_INCLUDE:
259 ret = LDNS_STATUS_SYNTAX_INCLUDE_ERR_NOTIMPL;
268 ldns_rdf_deep_free(my_origin);
271 ldns_rdf_deep_free(my_prev);
276 ldns_zone_free(newzone);
279 return LDNS_STATUS_OK;
283 ldns_rdf_deep_free(my_origin);
286 ldns_rdf_deep_free(my_prev);
289 ldns_zone_free(newzone);
295 ldns_zone_sort(ldns_zone *zone)
298 assert(zone != NULL);
300 zrr = ldns_zone_rrs(zone);
301 ldns_rr_list_sort(zrr);
305 ldns_zone_free(ldns_zone *zone)
307 ldns_rr_list_free(zone->_rrs);
312 ldns_zone_deep_free(ldns_zone *zone)
314 ldns_rr_free(zone->_soa);
315 ldns_rr_list_deep_free(zone->_rrs);