2 This file is part of catta.
4 catta is free software; you can redistribute it and/or modify it
5 under the terms of the GNU Lesser General Public License as
6 published by the Free Software Foundation; either version 2.1 of the
7 License, or (at your option) any later version.
9 catta is distributed in the hope that it will be useful, but WITHOUT
10 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
11 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
12 Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with catta; if not, write to the Free Software
16 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
31 #include <arpa/inet.h>
33 #include <sys/utsname.h>
34 #include <sys/types.h>
35 #include <sys/socket.h>
37 #include <catta/domain.h>
38 #include <catta/timeval.h>
39 #include <catta/malloc.h>
40 #include <catta/error.h>
41 #include <catta/domain.h>
42 #include <catta/log.h>
49 #include "dns-srv-rr.h"
51 #include "domain-util.h"
53 static void transport_flags_from_domain(CattaServer *s, CattaPublishFlags *flags, const char *domain) {
57 assert(!((*flags & CATTA_PUBLISH_USE_MULTICAST) && (*flags & CATTA_PUBLISH_USE_WIDE_AREA)));
59 if (*flags & (CATTA_PUBLISH_USE_MULTICAST|CATTA_PUBLISH_USE_WIDE_AREA))
62 if (!s->wide_area_lookup_engine ||
63 !catta_wide_area_has_servers(s->wide_area_lookup_engine) ||
64 catta_domain_ends_with(domain, CATTA_MDNS_SUFFIX_LOCAL) ||
65 catta_domain_ends_with(domain, CATTA_MDNS_SUFFIX_ADDR_IPV4) ||
66 catta_domain_ends_with(domain, CATTA_MDNS_SUFFIX_ADDR_IPV6))
67 *flags |= CATTA_PUBLISH_USE_MULTICAST;
69 *flags |= CATTA_PUBLISH_USE_WIDE_AREA;
72 void catta_entry_free(CattaServer*s, CattaEntry *e) {
78 catta_goodbye_entry(s, e, 1, 1);
80 /* Remove from linked list */
81 CATTA_LLIST_REMOVE(CattaEntry, entries, s->entries, e);
83 /* Remove from hash table indexed by name */
84 t = catta_hashmap_lookup(s->entries_by_key, e->record->key);
85 CATTA_LLIST_REMOVE(CattaEntry, by_key, t, e);
87 catta_hashmap_replace(s->entries_by_key, t->record->key, t);
89 catta_hashmap_remove(s->entries_by_key, e->record->key);
91 /* Remove from associated group */
93 CATTA_LLIST_REMOVE(CattaEntry, by_group, e->group->entries, e);
95 catta_record_unref(e->record);
99 void catta_entry_group_free(CattaServer *s, CattaSEntryGroup *g) {
104 catta_entry_free(s, g->entries);
106 if (g->register_time_event)
107 catta_time_event_free(g->register_time_event);
109 CATTA_LLIST_REMOVE(CattaSEntryGroup, groups, s->groups, g);
113 void catta_cleanup_dead_entries(CattaServer *s) {
116 if (s->need_group_cleanup) {
117 CattaSEntryGroup *g, *next;
119 for (g = s->groups; g; g = next) {
120 next = g->groups_next;
123 catta_entry_group_free(s, g);
126 s->need_group_cleanup = 0;
129 if (s->need_entry_cleanup) {
130 CattaEntry *e, *next;
132 for (e = s->entries; e; e = next) {
133 next = e->entries_next;
136 catta_entry_free(s, e);
139 s->need_entry_cleanup = 0;
142 if (s->need_browser_cleanup)
143 catta_browser_cleanup(s);
145 if (s->cleanup_time_event) {
146 catta_time_event_free(s->cleanup_time_event);
147 s->cleanup_time_event = NULL;
151 static int check_record_conflict(CattaServer *s, CattaIfIndex iface, CattaProtocol protocol, CattaRecord *r, CattaPublishFlags flags) {
157 for (e = catta_hashmap_lookup(s->entries_by_key, r->key); e; e = e->by_key_next) {
161 if (!(flags & CATTA_PUBLISH_UNIQUE) && !(e->flags & CATTA_PUBLISH_UNIQUE))
164 if ((flags & CATTA_PUBLISH_ALLOW_MULTIPLE) && (e->flags & CATTA_PUBLISH_ALLOW_MULTIPLE) )
167 if (catta_record_equal_no_ttl(r, e->record)) {
168 /* The records are the same, not a conflict in any case */
174 e->iface == iface) &&
175 (protocol == CATTA_PROTO_UNSPEC ||
176 e->protocol == CATTA_PROTO_UNSPEC ||
177 e->protocol == protocol))
185 static CattaEntry * server_add_internal(
189 CattaProtocol protocol,
190 CattaPublishFlags flags,
198 CATTA_CHECK_VALIDITY_RETURN_NULL(s, s->state != CATTA_SERVER_FAILURE && s->state != CATTA_SERVER_INVALID, CATTA_ERR_BAD_STATE);
199 CATTA_CHECK_VALIDITY_RETURN_NULL(s, CATTA_IF_VALID(iface), CATTA_ERR_INVALID_INTERFACE);
200 CATTA_CHECK_VALIDITY_RETURN_NULL(s, CATTA_PROTO_VALID(protocol), CATTA_ERR_INVALID_PROTOCOL);
201 CATTA_CHECK_VALIDITY_RETURN_NULL(s, CATTA_FLAGS_VALID(
203 CATTA_PUBLISH_NO_ANNOUNCE|
204 CATTA_PUBLISH_NO_PROBE|
205 CATTA_PUBLISH_UNIQUE|
206 CATTA_PUBLISH_ALLOW_MULTIPLE|
207 CATTA_PUBLISH_UPDATE|
208 CATTA_PUBLISH_USE_WIDE_AREA|
209 CATTA_PUBLISH_USE_MULTICAST), CATTA_ERR_INVALID_FLAGS);
210 CATTA_CHECK_VALIDITY_RETURN_NULL(s, catta_is_valid_domain_name(r->key->name), CATTA_ERR_INVALID_HOST_NAME);
211 CATTA_CHECK_VALIDITY_RETURN_NULL(s, r->ttl != 0, CATTA_ERR_INVALID_TTL);
212 CATTA_CHECK_VALIDITY_RETURN_NULL(s, !catta_key_is_pattern(r->key), CATTA_ERR_IS_PATTERN);
213 CATTA_CHECK_VALIDITY_RETURN_NULL(s, catta_record_is_valid(r), CATTA_ERR_INVALID_RECORD);
214 CATTA_CHECK_VALIDITY_RETURN_NULL(s, r->key->clazz == CATTA_DNS_CLASS_IN, CATTA_ERR_INVALID_DNS_CLASS);
215 CATTA_CHECK_VALIDITY_RETURN_NULL(s,
216 (r->key->type != 0) &&
217 (r->key->type != CATTA_DNS_TYPE_ANY) &&
218 (r->key->type != CATTA_DNS_TYPE_OPT) &&
219 (r->key->type != CATTA_DNS_TYPE_TKEY) &&
220 (r->key->type != CATTA_DNS_TYPE_TSIG) &&
221 (r->key->type != CATTA_DNS_TYPE_IXFR) &&
222 (r->key->type != CATTA_DNS_TYPE_AXFR), CATTA_ERR_INVALID_DNS_TYPE);
224 transport_flags_from_domain(s, &flags, r->key->name);
225 CATTA_CHECK_VALIDITY_RETURN_NULL(s, flags & CATTA_PUBLISH_USE_MULTICAST, CATTA_ERR_NOT_SUPPORTED);
226 CATTA_CHECK_VALIDITY_RETURN_NULL(s, !s->config.disable_publishing, CATTA_ERR_NOT_PERMITTED);
227 CATTA_CHECK_VALIDITY_RETURN_NULL(s,
229 (g->state != CATTA_ENTRY_GROUP_ESTABLISHED && g->state != CATTA_ENTRY_GROUP_REGISTERING) ||
230 (flags & CATTA_PUBLISH_UPDATE), CATTA_ERR_BAD_STATE);
232 if (flags & CATTA_PUBLISH_UPDATE) {
233 CattaRecord *old_record;
236 /* Update and existing record */
238 /* Find the first matching entry */
239 for (e = catta_hashmap_lookup(s->entries_by_key, r->key); e; e = e->by_key_next) {
240 if (!e->dead && e->group == g && e->iface == iface && e->protocol == protocol)
246 /* Hmm, nothing found? */
248 catta_server_set_errno(s, CATTA_ERR_NOT_FOUND);
252 /* Update the entry */
253 old_record = e->record;
254 e->record = catta_record_ref(r);
257 /* Announce our changes when needed */
258 if (!catta_record_equal_no_ttl(old_record, r) && (!g || g->state != CATTA_ENTRY_GROUP_UNCOMMITED)) {
260 /* Remove the old entry from all caches, if needed */
261 if (!(e->flags & CATTA_PUBLISH_UNIQUE))
262 catta_goodbye_entry(s, e, 1, 0);
264 /* Reannounce our updated entry */
265 catta_reannounce_entry(s, e);
268 /* If we were the first entry in the list, we need to update the key */
270 catta_hashmap_replace(s->entries_by_key, e->record->key, e);
272 catta_record_unref(old_record);
277 /* Add a new record */
279 if (check_record_conflict(s, iface, protocol, r, flags) < 0) {
280 catta_server_set_errno(s, CATTA_ERR_COLLISION);
284 if (!(e = catta_new(CattaEntry, 1))) {
285 catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
290 e->record = catta_record_ref(r);
293 e->protocol = protocol;
297 CATTA_LLIST_HEAD_INIT(CattaAnnouncer, e->announcers);
299 CATTA_LLIST_PREPEND(CattaEntry, entries, s->entries, e);
301 /* Insert into hash table indexed by name */
302 t = catta_hashmap_lookup(s->entries_by_key, e->record->key);
303 CATTA_LLIST_PREPEND(CattaEntry, by_key, t, e);
304 catta_hashmap_replace(s->entries_by_key, e->record->key, t);
306 /* Insert into group list */
308 CATTA_LLIST_PREPEND(CattaEntry, by_group, g->entries, e);
310 catta_announce_entry(s, e);
316 int catta_server_add(
320 CattaProtocol protocol,
321 CattaPublishFlags flags,
324 if (!server_add_internal(s, g, iface, protocol, flags, r))
325 return catta_server_errno(s);
330 const CattaRecord *catta_server_iterate(CattaServer *s, CattaSEntryGroup *g, void **state) {
331 CattaEntry **e = (CattaEntry**) state;
336 *e = g ? g->entries : s->entries;
338 while (*e && (*e)->dead)
339 *e = g ? (*e)->by_group_next : (*e)->entries_next;
344 return catta_record_ref((*e)->record);
347 int catta_server_dump(CattaServer *s, CattaDumpCallback callback, void* userdata) {
353 callback(";;; ZONE DUMP FOLLOWS ;;;", userdata);
355 for (e = s->entries; e; e = e->entries_next) {
362 if (!(t = catta_record_to_string(e->record)))
363 return catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
365 snprintf(ln, sizeof(ln), "%s ; iface=%i proto=%i", t, e->iface, e->protocol);
368 callback(ln, userdata);
371 catta_dump_caches(s->monitor, callback, userdata);
373 if (s->wide_area_lookup_engine)
374 catta_wide_area_cache_dump(s->wide_area_lookup_engine, callback, userdata);
378 static CattaEntry *server_add_ptr_internal(
382 CattaProtocol protocol,
383 CattaPublishFlags flags,
394 CATTA_CHECK_VALIDITY_RETURN_NULL(s, !name || catta_is_valid_domain_name(name), CATTA_ERR_INVALID_HOST_NAME);
395 CATTA_CHECK_VALIDITY_RETURN_NULL(s, catta_is_valid_domain_name(dest), CATTA_ERR_INVALID_HOST_NAME);
398 name = s->host_name_fqdn;
400 if (!(r = catta_record_new_full(name, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_PTR, ttl))) {
401 catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
405 r->data.ptr.name = catta_normalize_name_strdup(dest);
406 e = server_add_internal(s, g, iface, protocol, flags, r);
407 catta_record_unref(r);
411 int catta_server_add_ptr(
415 CattaProtocol protocol,
416 CattaPublishFlags flags,
425 if (!(e = server_add_ptr_internal(s, g, iface, protocol, flags, ttl, name, dest)))
426 return catta_server_errno(s);
431 int catta_server_add_address(
435 CattaProtocol protocol,
436 CattaPublishFlags flags,
440 char n[CATTA_DOMAIN_NAME_MAX];
442 CattaEntry *entry = NULL, *reverse = NULL;
448 CATTA_CHECK_VALIDITY(s, CATTA_IF_VALID(iface), CATTA_ERR_INVALID_INTERFACE);
449 CATTA_CHECK_VALIDITY(s, CATTA_PROTO_VALID(protocol) && CATTA_PROTO_VALID(a->proto), CATTA_ERR_INVALID_PROTOCOL);
450 CATTA_CHECK_VALIDITY(s, CATTA_FLAGS_VALID(flags,
451 CATTA_PUBLISH_NO_REVERSE|
452 CATTA_PUBLISH_NO_ANNOUNCE|
453 CATTA_PUBLISH_NO_PROBE|
454 CATTA_PUBLISH_UPDATE|
455 CATTA_PUBLISH_USE_WIDE_AREA|
456 CATTA_PUBLISH_USE_MULTICAST), CATTA_ERR_INVALID_FLAGS);
457 CATTA_CHECK_VALIDITY(s, !name || catta_is_valid_fqdn(name), CATTA_ERR_INVALID_HOST_NAME);
459 /* Prepare the host naem */
462 name = s->host_name_fqdn;
464 CATTA_ASSERT_TRUE(catta_normalize_name(name, n, sizeof(n)));
468 transport_flags_from_domain(s, &flags, name);
469 CATTA_CHECK_VALIDITY(s, flags & CATTA_PUBLISH_USE_MULTICAST, CATTA_ERR_NOT_SUPPORTED);
471 /* Create the A/AAAA record */
473 if (a->proto == CATTA_PROTO_INET) {
475 if (!(r = catta_record_new_full(name, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_A, CATTA_DEFAULT_TTL_HOST_NAME))) {
476 ret = catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
480 r->data.a.address = a->data.ipv4;
483 assert(a->proto == CATTA_PROTO_INET6);
485 if (!(r = catta_record_new_full(name, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_AAAA, CATTA_DEFAULT_TTL_HOST_NAME))) {
486 ret = catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
490 r->data.aaaa.address = a->data.ipv6;
493 entry = server_add_internal(s, g, iface, protocol, (flags & ~ CATTA_PUBLISH_NO_REVERSE) | CATTA_PUBLISH_UNIQUE | CATTA_PUBLISH_ALLOW_MULTIPLE, r);
494 catta_record_unref(r);
497 ret = catta_server_errno(s);
501 /* Create the reverse lookup entry */
503 if (!(flags & CATTA_PUBLISH_NO_REVERSE)) {
504 char reverse_n[CATTA_DOMAIN_NAME_MAX];
505 catta_reverse_lookup_name(a, reverse_n, sizeof(reverse_n));
507 if (!(reverse = server_add_ptr_internal(s, g, iface, protocol, flags | CATTA_PUBLISH_UNIQUE, CATTA_DEFAULT_TTL_HOST_NAME, reverse_n, name))) {
508 ret = catta_server_errno(s);
515 if (ret != CATTA_OK && !(flags & CATTA_PUBLISH_UPDATE)) {
517 catta_entry_free(s, entry);
519 catta_entry_free(s, reverse);
525 static CattaEntry *server_add_txt_strlst_nocopy(
529 CattaProtocol protocol,
530 CattaPublishFlags flags,
533 CattaStringList *strlst) {
540 if (!(r = catta_record_new_full(name ? name : s->host_name_fqdn, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_TXT, ttl))) {
541 catta_string_list_free(strlst);
542 catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
546 r->data.txt.string_list = strlst;
547 e = server_add_internal(s, g, iface, protocol, flags, r);
548 catta_record_unref(r);
553 static CattaStringList *add_magic_cookie(
555 CattaStringList *strlst) {
559 if (!s->config.add_service_cookie)
562 if (catta_string_list_find(strlst, CATTA_SERVICE_COOKIE))
563 /* This string list already contains a magic cookie */
566 return catta_string_list_add_printf(strlst, CATTA_SERVICE_COOKIE"=%u", s->local_service_cookie);
569 static int server_add_service_strlst_nocopy(
573 CattaProtocol protocol,
574 CattaPublishFlags flags,
580 CattaStringList *strlst) {
582 char ptr_name[CATTA_DOMAIN_NAME_MAX], svc_name[CATTA_DOMAIN_NAME_MAX], enum_ptr[CATTA_DOMAIN_NAME_MAX], *h = NULL;
583 CattaRecord *r = NULL;
585 CattaEntry *srv_entry = NULL, *txt_entry = NULL, *ptr_entry = NULL, *enum_entry = NULL;
591 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_IF_VALID(iface), CATTA_ERR_INVALID_INTERFACE);
592 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_PROTO_VALID(protocol), CATTA_ERR_INVALID_PROTOCOL);
593 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_FLAGS_VALID(flags,
594 CATTA_PUBLISH_NO_COOKIE|
595 CATTA_PUBLISH_UPDATE|
596 CATTA_PUBLISH_USE_WIDE_AREA|
597 CATTA_PUBLISH_USE_MULTICAST), CATTA_ERR_INVALID_FLAGS);
598 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, catta_is_valid_service_name(name), CATTA_ERR_INVALID_SERVICE_NAME);
599 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, catta_is_valid_service_type_strict(type), CATTA_ERR_INVALID_SERVICE_TYPE);
600 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, !domain || catta_is_valid_domain_name(domain), CATTA_ERR_INVALID_DOMAIN_NAME);
601 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, !host || catta_is_valid_fqdn(host), CATTA_ERR_INVALID_HOST_NAME);
604 domain = s->domain_name;
607 host = s->host_name_fqdn;
609 transport_flags_from_domain(s, &flags, domain);
610 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, flags & CATTA_PUBLISH_USE_MULTICAST, CATTA_ERR_NOT_SUPPORTED);
612 if (!(h = catta_normalize_name_strdup(host))) {
613 ret = catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
617 if ((ret = catta_service_name_join(svc_name, sizeof(svc_name), name, type, domain)) < 0 ||
618 (ret = catta_service_name_join(ptr_name, sizeof(ptr_name), NULL, type, domain)) < 0 ||
619 (ret = catta_service_name_join(enum_ptr, sizeof(enum_ptr), NULL, "_services._dns-sd._udp", domain)) < 0) {
620 catta_server_set_errno(s, ret);
624 /* Add service enumeration PTR record */
626 if (!(ptr_entry = server_add_ptr_internal(s, g, iface, protocol, 0, CATTA_DEFAULT_TTL, ptr_name, svc_name))) {
627 ret = catta_server_errno(s);
633 if (!(r = catta_record_new_full(svc_name, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_SRV, CATTA_DEFAULT_TTL_HOST_NAME))) {
634 ret = catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
638 r->data.srv.priority = 0;
639 r->data.srv.weight = 0;
640 r->data.srv.port = port;
641 r->data.srv.name = h;
643 srv_entry = server_add_internal(s, g, iface, protocol, CATTA_PUBLISH_UNIQUE, r);
644 catta_record_unref(r);
647 ret = catta_server_errno(s);
653 if (!(flags & CATTA_PUBLISH_NO_COOKIE))
654 strlst = add_magic_cookie(s, strlst);
656 txt_entry = server_add_txt_strlst_nocopy(s, g, iface, protocol, CATTA_PUBLISH_UNIQUE, CATTA_DEFAULT_TTL, svc_name, strlst);
660 ret = catta_server_errno(s);
664 /* Add service type enumeration record */
666 if (!(enum_entry = server_add_ptr_internal(s, g, iface, protocol, 0, CATTA_DEFAULT_TTL, enum_ptr, ptr_name))) {
667 ret = catta_server_errno(s);
672 if (ret != CATTA_OK && !(flags & CATTA_PUBLISH_UPDATE)) {
674 catta_entry_free(s, srv_entry);
676 catta_entry_free(s, txt_entry);
678 catta_entry_free(s, ptr_entry);
680 catta_entry_free(s, enum_entry);
683 catta_string_list_free(strlst);
689 int catta_server_add_service_strlst(
693 CattaProtocol protocol,
694 CattaPublishFlags flags,
700 CattaStringList *strlst) {
706 return server_add_service_strlst_nocopy(s, g, iface, protocol, flags, name, type, domain, host, port, catta_string_list_copy(strlst));
709 int catta_server_add_service(
713 CattaProtocol protocol,
714 CattaPublishFlags flags,
726 ret = server_add_service_strlst_nocopy(s, g, iface, protocol, flags, name, type, domain, host, port, catta_string_list_new_va(va));
732 static int server_update_service_txt_strlst_nocopy(
736 CattaProtocol protocol,
737 CattaPublishFlags flags,
741 CattaStringList *strlst) {
743 char svc_name[CATTA_DOMAIN_NAME_MAX];
751 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_IF_VALID(iface), CATTA_ERR_INVALID_INTERFACE);
752 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_PROTO_VALID(protocol), CATTA_ERR_INVALID_PROTOCOL);
753 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_FLAGS_VALID(flags,
754 CATTA_PUBLISH_NO_COOKIE|
755 CATTA_PUBLISH_USE_WIDE_AREA|
756 CATTA_PUBLISH_USE_MULTICAST), CATTA_ERR_INVALID_FLAGS);
757 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, catta_is_valid_service_name(name), CATTA_ERR_INVALID_SERVICE_NAME);
758 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, catta_is_valid_service_type_strict(type), CATTA_ERR_INVALID_SERVICE_TYPE);
759 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, !domain || catta_is_valid_domain_name(domain), CATTA_ERR_INVALID_DOMAIN_NAME);
762 domain = s->domain_name;
764 transport_flags_from_domain(s, &flags, domain);
765 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, flags & CATTA_PUBLISH_USE_MULTICAST, CATTA_ERR_NOT_SUPPORTED);
767 if ((ret = catta_service_name_join(svc_name, sizeof(svc_name), name, type, domain)) < 0) {
768 catta_server_set_errno(s, ret);
773 if (!(flags & CATTA_PUBLISH_NO_COOKIE))
774 strlst = add_magic_cookie(s, strlst);
776 e = server_add_txt_strlst_nocopy(s, g, iface, protocol, CATTA_PUBLISH_UNIQUE | CATTA_PUBLISH_UPDATE, CATTA_DEFAULT_TTL, svc_name, strlst);
780 ret = catta_server_errno(s);
784 catta_string_list_free(strlst);
789 int catta_server_update_service_txt_strlst(
793 CattaProtocol protocol,
794 CattaPublishFlags flags,
798 CattaStringList *strlst) {
800 return server_update_service_txt_strlst_nocopy(s, g, iface, protocol, flags, name, type, domain, catta_string_list_copy(strlst));
803 /** Update the TXT record for a service with the NULL termonate list of strings */
804 int catta_server_update_service_txt(
808 CattaProtocol protocol,
809 CattaPublishFlags flags,
818 va_start(va, domain);
819 ret = server_update_service_txt_strlst_nocopy(s, g, iface, protocol, flags, name, type, domain, catta_string_list_new_va(va));
825 int catta_server_add_service_subtype(
829 CattaProtocol protocol,
830 CattaPublishFlags flags,
834 const char *subtype) {
837 char svc_name[CATTA_DOMAIN_NAME_MAX], ptr_name[CATTA_DOMAIN_NAME_MAX];
843 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_IF_VALID(iface), CATTA_ERR_INVALID_INTERFACE);
844 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_PROTO_VALID(protocol), CATTA_ERR_INVALID_PROTOCOL);
845 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, CATTA_FLAGS_VALID(flags, CATTA_PUBLISH_USE_MULTICAST|CATTA_PUBLISH_USE_WIDE_AREA), CATTA_ERR_INVALID_FLAGS);
846 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, catta_is_valid_service_name(name), CATTA_ERR_INVALID_SERVICE_NAME);
847 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, catta_is_valid_service_type_strict(type), CATTA_ERR_INVALID_SERVICE_TYPE);
848 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, !domain || catta_is_valid_domain_name(domain), CATTA_ERR_INVALID_DOMAIN_NAME);
849 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, catta_is_valid_service_subtype(subtype), CATTA_ERR_INVALID_SERVICE_SUBTYPE);
852 domain = s->domain_name;
854 transport_flags_from_domain(s, &flags, domain);
855 CATTA_CHECK_VALIDITY_SET_RET_GOTO_FAIL(s, flags & CATTA_PUBLISH_USE_MULTICAST, CATTA_ERR_NOT_SUPPORTED);
857 if ((ret = catta_service_name_join(svc_name, sizeof(svc_name), name, type, domain)) < 0 ||
858 (ret = catta_service_name_join(ptr_name, sizeof(ptr_name), NULL, subtype, domain)) < 0) {
859 catta_server_set_errno(s, ret);
863 if ((ret = catta_server_add_ptr(s, g, iface, protocol, 0, CATTA_DEFAULT_TTL, ptr_name, svc_name)) < 0)
871 static void hexstring(char *s, size_t sl, const void *p, size_t pl) {
872 static const char hex[] = "0123456789abcdef";
874 const uint8_t *k = p;
876 while (sl > 1 && pl > 0) {
877 *(s++) = hex[(b ? *k : *k >> 4) & 0xF];
893 static CattaEntry *server_add_dns_server_name(
897 CattaProtocol protocol,
898 CattaPublishFlags flags,
900 CattaDNSServerType type,
902 uint16_t port /** should be 53 */) {
905 char t[CATTA_DOMAIN_NAME_MAX], normalized_d[CATTA_DOMAIN_NAME_MAX], *n;
912 CATTA_CHECK_VALIDITY_RETURN_NULL(s, CATTA_FLAGS_VALID(flags, CATTA_PUBLISH_USE_WIDE_AREA|CATTA_PUBLISH_USE_MULTICAST), CATTA_ERR_INVALID_FLAGS);
913 CATTA_CHECK_VALIDITY_RETURN_NULL(s, type == CATTA_DNS_SERVER_UPDATE || type == CATTA_DNS_SERVER_RESOLVE, CATTA_ERR_INVALID_FLAGS);
914 CATTA_CHECK_VALIDITY_RETURN_NULL(s, port != 0, CATTA_ERR_INVALID_PORT);
915 CATTA_CHECK_VALIDITY_RETURN_NULL(s, catta_is_valid_fqdn(name), CATTA_ERR_INVALID_HOST_NAME);
916 CATTA_CHECK_VALIDITY_RETURN_NULL(s, !domain || catta_is_valid_domain_name(domain), CATTA_ERR_INVALID_DOMAIN_NAME);
919 domain = s->domain_name;
921 transport_flags_from_domain(s, &flags, domain);
922 CATTA_CHECK_VALIDITY_RETURN_NULL(s, flags & CATTA_PUBLISH_USE_MULTICAST, CATTA_ERR_NOT_SUPPORTED);
924 if (!(n = catta_normalize_name_strdup(name))) {
925 catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
929 CATTA_ASSERT_TRUE(catta_normalize_name(domain, normalized_d, sizeof(normalized_d)));
931 snprintf(t, sizeof(t), "%s.%s", type == CATTA_DNS_SERVER_RESOLVE ? "_domain._udp" : "_dns-update._udp", normalized_d);
933 if (!(r = catta_record_new_full(t, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_SRV, CATTA_DEFAULT_TTL_HOST_NAME))) {
934 catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
939 r->data.srv.priority = 0;
940 r->data.srv.weight = 0;
941 r->data.srv.port = port;
942 r->data.srv.name = n;
943 e = server_add_internal(s, g, iface, protocol, 0, r);
944 catta_record_unref(r);
949 int catta_server_add_dns_server_address(
953 CattaProtocol protocol,
954 CattaPublishFlags flags,
956 CattaDNSServerType type,
957 const CattaAddress *address,
958 uint16_t port /** should be 53 */) {
962 CattaEntry *a_entry, *s_entry;
967 CATTA_CHECK_VALIDITY(s, CATTA_IF_VALID(iface), CATTA_ERR_INVALID_INTERFACE);
968 CATTA_CHECK_VALIDITY(s, CATTA_PROTO_VALID(protocol) && CATTA_PROTO_VALID(address->proto), CATTA_ERR_INVALID_PROTOCOL);
969 CATTA_CHECK_VALIDITY(s, CATTA_FLAGS_VALID(flags, CATTA_PUBLISH_USE_MULTICAST|CATTA_PUBLISH_USE_WIDE_AREA), CATTA_ERR_INVALID_FLAGS);
970 CATTA_CHECK_VALIDITY(s, type == CATTA_DNS_SERVER_UPDATE || type == CATTA_DNS_SERVER_RESOLVE, CATTA_ERR_INVALID_FLAGS);
971 CATTA_CHECK_VALIDITY(s, port != 0, CATTA_ERR_INVALID_PORT);
972 CATTA_CHECK_VALIDITY(s, !domain || catta_is_valid_domain_name(domain), CATTA_ERR_INVALID_DOMAIN_NAME);
975 domain = s->domain_name;
977 transport_flags_from_domain(s, &flags, domain);
978 CATTA_CHECK_VALIDITY(s, flags & CATTA_PUBLISH_USE_MULTICAST, CATTA_ERR_NOT_SUPPORTED);
980 if (address->proto == CATTA_PROTO_INET) {
981 hexstring(h, sizeof(h), &address->data, sizeof(CattaIPv4Address));
982 snprintf(n, sizeof(n), "ip-%s.%s", h, domain);
983 r = catta_record_new_full(n, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_A, CATTA_DEFAULT_TTL_HOST_NAME);
984 r->data.a.address = address->data.ipv4;
986 hexstring(h, sizeof(h), &address->data, sizeof(CattaIPv6Address));
987 snprintf(n, sizeof(n), "ip6-%s.%s", h, domain);
988 r = catta_record_new_full(n, CATTA_DNS_CLASS_IN, CATTA_DNS_TYPE_AAAA, CATTA_DEFAULT_TTL_HOST_NAME);
989 r->data.aaaa.address = address->data.ipv6;
993 return catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
995 a_entry = server_add_internal(s, g, iface, protocol, CATTA_PUBLISH_UNIQUE | CATTA_PUBLISH_ALLOW_MULTIPLE, r);
996 catta_record_unref(r);
999 return catta_server_errno(s);
1001 if (!(s_entry = server_add_dns_server_name(s, g, iface, protocol, flags, domain, type, n, port))) {
1002 if (!(flags & CATTA_PUBLISH_UPDATE))
1003 catta_entry_free(s, a_entry);
1004 return catta_server_errno(s);
1010 void catta_s_entry_group_change_state(CattaSEntryGroup *g, CattaEntryGroupState state) {
1013 if (g->state == state)
1016 assert(state <= CATTA_ENTRY_GROUP_COLLISION);
1018 if (g->state == CATTA_ENTRY_GROUP_ESTABLISHED) {
1020 /* If the entry group was established for a time longer then
1021 * 5s, reset the establishment trial counter */
1023 if (catta_age(&g->established_at) > 5000000)
1024 g->n_register_try = 0;
1025 } else if (g->state == CATTA_ENTRY_GROUP_REGISTERING) {
1026 if (g->register_time_event) {
1027 catta_time_event_free(g->register_time_event);
1028 g->register_time_event = NULL;
1032 if (state == CATTA_ENTRY_GROUP_ESTABLISHED)
1034 /* If the entry group is now established, remember the time
1037 gettimeofday(&g->established_at, NULL);
1042 g->callback(g->server, g, state, g->userdata);
1045 CattaSEntryGroup *catta_s_entry_group_new(CattaServer *s, CattaSEntryGroupCallback callback, void* userdata) {
1046 CattaSEntryGroup *g;
1050 if (!(g = catta_new(CattaSEntryGroup, 1))) {
1051 catta_server_set_errno(s, CATTA_ERR_NO_MEMORY);
1056 g->callback = callback;
1057 g->userdata = userdata;
1059 g->state = CATTA_ENTRY_GROUP_UNCOMMITED;
1061 g->n_register_try = 0;
1062 g->register_time_event = NULL;
1063 g->register_time.tv_sec = 0;
1064 g->register_time.tv_usec = 0;
1065 CATTA_LLIST_HEAD_INIT(CattaEntry, g->entries);
1067 CATTA_LLIST_PREPEND(CattaSEntryGroup, groups, s->groups, g);
1071 static void cleanup_time_event_callback(CATTA_GCC_UNUSED CattaTimeEvent *e, void* userdata) {
1072 CattaServer *s = userdata;
1076 catta_cleanup_dead_entries(s);
1079 static void schedule_cleanup(CattaServer *s) {
1084 if (!s->cleanup_time_event)
1085 s->cleanup_time_event = catta_time_event_new(s->time_event_queue, catta_elapse_time(&tv, 1000, 0), &cleanup_time_event_callback, s);
1088 void catta_s_entry_group_free(CattaSEntryGroup *g) {
1094 for (e = g->entries; e; e = e->by_group_next) {
1096 catta_goodbye_entry(g->server, e, 1, 1);
1101 if (g->register_time_event) {
1102 catta_time_event_free(g->register_time_event);
1103 g->register_time_event = NULL;
1108 g->server->need_group_cleanup = 1;
1109 g->server->need_entry_cleanup = 1;
1111 schedule_cleanup(g->server);
1114 static void entry_group_commit_real(CattaSEntryGroup *g) {
1117 gettimeofday(&g->register_time, NULL);
1119 catta_s_entry_group_change_state(g, CATTA_ENTRY_GROUP_REGISTERING);
1124 catta_announce_group(g->server, g);
1125 catta_s_entry_group_check_probed(g, 0);
1128 static void entry_group_register_time_event_callback(CATTA_GCC_UNUSED CattaTimeEvent *e, void* userdata) {
1129 CattaSEntryGroup *g = userdata;
1132 catta_time_event_free(g->register_time_event);
1133 g->register_time_event = NULL;
1135 /* Holdoff time passed, so let's start probing */
1136 entry_group_commit_real(g);
1139 int catta_s_entry_group_commit(CattaSEntryGroup *g) {
1145 if (g->state != CATTA_ENTRY_GROUP_UNCOMMITED && g->state != CATTA_ENTRY_GROUP_COLLISION)
1146 return catta_server_set_errno(g->server, CATTA_ERR_BAD_STATE);
1148 if (catta_s_entry_group_is_empty(g))
1149 return catta_server_set_errno(g->server, CATTA_ERR_IS_EMPTY);
1151 g->n_register_try++;
1153 catta_timeval_add(&g->register_time,
1154 1000*(g->n_register_try >= CATTA_RR_RATE_LIMIT_COUNT ?
1155 CATTA_RR_HOLDOFF_MSEC_RATE_LIMIT :
1156 CATTA_RR_HOLDOFF_MSEC));
1158 gettimeofday(&now, NULL);
1160 if (catta_timeval_compare(&g->register_time, &now) <= 0) {
1162 /* Holdoff time passed, so let's start probing */
1163 entry_group_commit_real(g);
1166 /* Holdoff time has not yet passed, so let's wait */
1167 assert(!g->register_time_event);
1168 g->register_time_event = catta_time_event_new(g->server->time_event_queue, &g->register_time, entry_group_register_time_event_callback, g);
1170 catta_s_entry_group_change_state(g, CATTA_ENTRY_GROUP_REGISTERING);
1176 void catta_s_entry_group_reset(CattaSEntryGroup *g) {
1180 for (e = g->entries; e; e = e->by_group_next) {
1182 catta_goodbye_entry(g->server, e, 1, 1);
1186 g->server->need_entry_cleanup = 1;
1190 catta_s_entry_group_change_state(g, CATTA_ENTRY_GROUP_UNCOMMITED);
1192 schedule_cleanup(g->server);
1195 int catta_entry_is_commited(CattaEntry *e) {
1200 e->group->state == CATTA_ENTRY_GROUP_REGISTERING ||
1201 e->group->state == CATTA_ENTRY_GROUP_ESTABLISHED;
1204 CattaEntryGroupState catta_s_entry_group_get_state(CattaSEntryGroup *g) {
1211 void catta_s_entry_group_set_data(CattaSEntryGroup *g, void* userdata) {
1214 g->userdata = userdata;
1217 void* catta_s_entry_group_get_data(CattaSEntryGroup *g) {
1223 int catta_s_entry_group_is_empty(CattaSEntryGroup *g) {
1227 /* Look for an entry that is not dead */
1228 for (e = g->entries; e; e = e->by_group_next)