+ char **dict;
+ int size;
+ int num;
+};
+
+// This establishes the precedence of wildcard expressions
+#define SETTING_WILDCARD_NO 0 // No wildcard
+#define SETTING_WILDCARD_DB 1 // Database wildcard 'host:port/*'
+#define SETTING_WILDCARD_YES 2 // Complete wildcard '*'
+
+// Returns size of settings directory
+int settings_num(struct conf_service *service)
+{
+ return service->dictionary->num;
+}
+
+/* Find and possible create a new dictionary entry. Pass valid NMEM pointer if creation is allowed, otherwise null */
+static int settings_index_lookup(struct setting_dictionary *dictionary, const char *name, NMEM nmem)
+{
+ size_t maxlen;
+ int i;
+ const char *p;
+
+ assert(name);
+
+ if (!strncmp("pz:", name, 3) && (p = strchr(name + 3, ':')))
+ maxlen = (p - name) + 1;
+ else
+ maxlen = strlen(name) + 1;
+ for (i = 0; i < dictionary->num; i++)
+ if (!strncmp(name, dictionary->dict[i], maxlen))
+ return i;
+ if (!nmem)
+ return -1;
+ if (!strncmp("pz:", name, 3))
+ yaz_log(YLOG_WARN, "Adding pz-type setting name %s", name);
+ if (dictionary->num + 1 > dictionary->size)
+ {
+ char **tmp =
+ nmem_malloc(nmem, dictionary->size * 2 * sizeof(char*));
+ memcpy(tmp, dictionary->dict, dictionary->size * sizeof(char*));
+ dictionary->dict = tmp;
+ dictionary->size *= 2;
+ }
+ dictionary->dict[dictionary->num] = nmem_strdup(nmem, name);
+ dictionary->dict[dictionary->num][maxlen-1] = '\0';
+ return dictionary->num++;
+}
+
+int settings_create_offset(struct conf_service *service, const char *name)
+{
+ return settings_index_lookup(service->dictionary, name, service->nmem);
+}
+
+int settings_lookup_offset(struct conf_service *service, const char *name)
+{
+ return settings_index_lookup(service->dictionary, name, 0);
+}
+
+char *settings_name(struct conf_service *service, int offset)
+{
+ assert(offset < service->dictionary->num);
+ return service->dictionary->dict[offset];
+}
+
+
+// Apply a session override to a database
+void service_apply_setting(struct conf_service *service, char *name, char *value)
+{
+ struct setting *s;
+ int offset = settings_create_offset(service, name);
+ expand_settings_array(&service->settings->settings, &service->settings->num_settings, offset, service->nmem);
+ for (s = service->settings->settings[offset]; s; s = s->next)
+ if (!strcmp(s->name, name))
+ {
+ s->value = value;
+ return;
+ }
+ s = nmem_malloc(service->nmem, sizeof(*s));
+ s->precedence = 0;
+ s->target = NULL;
+ s->name = name;
+ s->value = value;
+ s->next = service->settings->settings[offset];
+ service->settings->settings[offset] = s;
+}
+
+
+static int isdir(const char *path)
+{
+ struct stat st;
+
+ if (stat(path, &st) < 0)
+ {
+ yaz_log(YLOG_FATAL|YLOG_ERRNO, "stat %s", path);
+ exit(1);
+ }
+ return st.st_mode & S_IFDIR;
+}
+
+// Read settings from an XML file, calling handler function for each setting
+int settings_read_node_x(xmlNode *n,
+ void *client_data,
+ void (*fun)(void *client_data,
+ struct setting *set))
+{
+ int ret_val = 0; /* success */
+ char *namea = (char *) xmlGetProp(n, (xmlChar *) "name");
+ char *targeta = (char *) xmlGetProp(n, (xmlChar *) "target");
+ char *valuea = (char *) xmlGetProp(n, (xmlChar *) "value");
+ char *usera = (char *) xmlGetProp(n, (xmlChar *) "user");
+ char *precedencea = (char *) xmlGetProp(n, (xmlChar *) "precedence");
+
+ for (n = n->children; n; n = n->next)
+ {
+ if (n->type != XML_ELEMENT_NODE)
+ continue;
+ if (!strcmp((const char *) n->name, "set"))
+ {
+ xmlNode *root = n->children;
+ struct setting set;
+ char *name = (char *) xmlGetProp(n, (xmlChar *) "name");
+ char *target = (char *) xmlGetProp(n, (xmlChar *) "target");
+ char *value = (char *) xmlGetProp(n, (xmlChar *) "value");
+ char *user = (char *) xmlGetProp(n, (xmlChar *) "user");
+ char *precedence = (char *) xmlGetProp(n, (xmlChar *) "precedence");
+ xmlChar *buf_out = 0;
+
+ set.next = 0;
+
+ if (precedence)
+ set.precedence = atoi((char *) precedence);
+ else if (precedencea)
+ set.precedence = atoi((char *) precedencea);
+ else
+ set.precedence = 0;
+
+ set.target = target ? target : targeta;
+ set.name = name ? name : namea;
+
+ while (root && root->type != XML_ELEMENT_NODE)
+ root = root->next;
+ if (!root)
+ set.value = value ? value : valuea;
+ else
+ { /* xml document content for this setting */
+ xmlDoc *doc = xmlNewDoc(BAD_CAST "1.0");
+ if (!doc)
+ {
+ if (set.name)
+ yaz_log(YLOG_WARN, "bad XML content for setting "
+ "name=%s", set.name);
+ else
+ yaz_log(YLOG_WARN, "bad XML content for setting");
+ ret_val = -1;
+ }
+ else
+ {
+ int len_out;
+ xmlDocSetRootElement(doc, xmlCopyNode(root, 1));
+ xmlDocDumpMemory(doc, &buf_out, &len_out);
+ /* xmlDocDumpMemory 0-terminates */
+ set.value = (char *) buf_out;
+ xmlFreeDoc(doc);
+ }
+ }
+
+ if (set.name && set.value && set.target)
+ (*fun)(client_data, &set);
+ else
+ {
+ if (set.name)
+ yaz_log(YLOG_WARN, "missing value and/or target for "
+ "setting name=%s", set.name);
+ else
+ yaz_log(YLOG_WARN, "missing name/value/target for setting");
+ ret_val = -1;
+ }
+ xmlFree(buf_out);
+ xmlFree(name);
+ xmlFree(precedence);
+ xmlFree(value);
+ xmlFree(user);
+ xmlFree(target);
+ }
+ else
+ {
+ yaz_log(YLOG_WARN, "Unknown element %s in settings file",
+ (char*) n->name);
+ ret_val = -1;
+ }
+ }
+ xmlFree(namea);
+ xmlFree(precedencea);
+ xmlFree(valuea);
+ xmlFree(usera);
+ xmlFree(targeta);
+ return ret_val;
+}
+
+static int read_settings_file(const char *path,
+ void *client_data,
+ void (*fun)(void *client_data,
+ struct setting *set))
+{
+ xmlDoc *doc = xmlParseFile(path);
+ xmlNode *n;
+ int ret;
+
+ if (!doc)
+ {
+ yaz_log(YLOG_FATAL, "Failed to parse %s", path);
+ return -1;
+ }
+ n = xmlDocGetRootElement(doc);
+ ret = settings_read_node_x(n, client_data, fun);
+
+ xmlFreeDoc(doc);
+ return ret;
+}
+
+
+// Recursively read files or directories, invoking a
+// callback for each one
+static int read_settings(const char *path,
+ void *client_data,
+ void (*fun)(void *client_data,
+ struct setting *set))
+{
+ int ret = 0;
+ DIR *d;
+ struct dirent *de;
+ char *dot;
+
+ if (isdir(path))
+ {
+ if (!(d = opendir(path)))
+ {
+ yaz_log(YLOG_FATAL|YLOG_ERRNO, "%s", path);
+ return -1;
+ }
+ while ((de = readdir(d)))
+ {
+ char tmp[1024];
+ if (*de->d_name == '.' || !strcmp(de->d_name, "CVS"))
+ continue;
+ sprintf(tmp, "%s/%s", path, de->d_name);
+ if (read_settings(tmp, client_data, fun))
+ ret = -1;
+ }
+ closedir(d);
+ }
+ else if ((dot = strrchr(path, '.')) && !strcmp(dot + 1, "xml"))
+ ret = read_settings_file(path, client_data, fun);
+ return ret;
+}
+
+// Determines if a ZURL is a wildcard, and what kind
+static int zurl_wildcard(const char *zurl)
+{
+ if (!zurl)
+ return SETTING_WILDCARD_NO;
+ if (*zurl == '*')
+ return SETTING_WILDCARD_YES;
+ else if (*(zurl + strlen(zurl) - 1) == '*')
+ return SETTING_WILDCARD_DB;
+ else
+ return SETTING_WILDCARD_NO;
+}
+
+struct update_database_context {
+ struct setting *set;
+ struct conf_service *service;