1 /* This file is part of Pazpar2.
2 Copyright (C) 2006-2012 Index Data
4 Pazpar2 is free software; you can redistribute it and/or modify it under
5 the terms of the GNU General Public License as published by the Free
6 Software Foundation; either version 2, or (at your option) any later
9 Pazpar2 is distributed in the hope that it will be useful, but WITHOUT ANY
10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
25 #include <sys/types.h>
33 #include "pazpar2_config.h"
38 #include <sys/types.h>
40 enum pazpar2_database_criterion_type {
42 PAZPAR2_SUBSTRING_MATCH
45 struct database_criterion_value {
47 struct database_criterion_value *next;
50 struct database_criterion {
52 enum pazpar2_database_criterion_type type;
53 struct database_criterion_value *values;
54 struct database_criterion *next;
57 struct database *new_database(const char *id, NMEM nmem)
59 return new_database_inherit_settings(id, nmem, 0);
61 struct database *new_database_inherit_settings(const char *id, NMEM nmem, struct settings *service_settings)
64 struct setting *idset;
66 db = nmem_malloc(nmem, sizeof(*db));
67 db->id = nmem_strdup(nmem, id);
70 if (service_settings && service_settings->num_settings > 0) {
71 yaz_log(YLOG_DEBUG, "copying settings from service to database %s settings", db->id);
72 db->num_settings = service_settings->num_settings;
73 db->settings = nmem_malloc(nmem, sizeof(struct settings*) * db->num_settings);
74 // Initialize database settings with service settings
75 memcpy(db->settings, service_settings->settings, sizeof(struct settings*) * db->num_settings);
79 yaz_log(YLOG_DEBUG, "No service settings to database %s ", db->id);
80 db->num_settings = PZ_MAX_EOF;
81 db->settings = nmem_malloc(nmem, sizeof(struct settings*) * db->num_settings);
82 memset(db->settings, 0, sizeof(struct settings*) * db->num_settings);
84 idset = nmem_malloc(nmem, sizeof(*idset));
85 idset->precedence = 0;
86 idset->name = "pz:id";
87 idset->target = idset->value = db->id;
88 idset->next = db->settings[PZ_ID];
89 db->settings[PZ_ID] = idset;
94 // Return a database structure by ID. Load and add to list if necessary
95 // new==1 just means we know it's not in the list
96 struct database *create_database_for_service(const char *id,
97 struct conf_service *service)
100 for (p = service->databases; p; p = p->next)
101 if (!strcmp(p->id, id))
104 yaz_log(YLOG_DEBUG, "new database %s under service %s values %p", id, service->id);
105 p = new_database_inherit_settings(id, service->nmem, service->settings);
107 p->next = service->databases;
108 service->databases = p;
113 // This whole session_grep database thing should be moved elsewhere
115 int match_zurl(const char *zurl, const char *pattern)
119 if (!strcmp(pattern, "*"))
121 else if (!strncmp(pattern, "*/", 2)) // host wildcard.. what the heck is that for?
123 char *db = strchr(zurl, '/');
126 if (!strcmp(pattern + 2, db))
131 else if (*(pattern + (len = strlen(pattern) - 1)) == '*') // db wildcard
133 if (!strncmp(pattern, zurl, len))
138 else if (!strcmp(pattern, zurl))
144 // This will be generalized at some point
145 static int match_criterion(struct setting **settings,
146 struct conf_service *service,
147 struct database_criterion *c)
149 int offset = settings_lookup_offset(service, c->name);
150 struct database_criterion_value *v;
154 yaz_log(YLOG_WARN, "Criterion not found: %s", c->name);
157 if (!settings[offset])
159 for (v = c->values; v; v = v->next)
161 if (c->type == PAZPAR2_STRING_MATCH)
165 if (match_zurl(settings[offset]->value, v->value))
170 if (!strcmp(settings[offset]->value, v->value))
174 else if (c->type == PAZPAR2_SUBSTRING_MATCH)
176 if (strstr(settings[offset]->value, v->value))
186 // parses crit1=val1,crit2=val2|val3,...
187 static struct database_criterion *create_database_criterion(NMEM m,
190 struct database_criterion *res = 0;
197 nmem_strsplit(m, ",", buf, &values, &num);
198 for (i = 0; i < num; i++)
203 struct database_criterion *new = nmem_malloc(m, sizeof(*new));
205 if ((eq = strchr(values[i], '=')))
206 new->type = PAZPAR2_STRING_MATCH;
207 else if ((eq = strchr(values[i], '~')))
208 new->type = PAZPAR2_SUBSTRING_MATCH;
211 yaz_log(YLOG_WARN, "Missing equal-sign/tilde in filter");
215 new->name = values[i];
216 nmem_strsplit(m, "|", eq, &subvalues, &subnum);
218 for (subi = 0; subi < subnum; subi++)
220 struct database_criterion_value *newv
221 = nmem_malloc(m, sizeof(*newv));
222 newv->value = subvalues[subi];
223 newv->next = new->values;
232 static int database_match_criteria(struct setting **settings,
233 struct conf_service *service,
234 struct database_criterion *cl)
236 for (; cl; cl = cl->next)
237 if (!match_criterion(settings, service, cl))
239 if (cl) // one of the criteria failed to match -- skip this db
245 // Cycles through databases, calling a handler function on the ones for
246 // which all criteria matched.
247 int session_grep_databases(struct session *se, const char *filter,
248 void (*fun)(struct session *se, struct session_database *db))
250 struct session_database *p;
251 NMEM nmem = nmem_create();
253 struct database_criterion *cl = create_database_criterion(nmem, filter);
255 for (p = se->databases; p; p = p->next)
257 if (p->settings && p->settings[PZ_ALLOW] && *p->settings[PZ_ALLOW]->value == '0')
259 if (!p->settings[PZ_NAME])
261 if (database_match_criteria(p->settings, se->service, cl))
271 int predef_grep_databases(void *context, struct conf_service *service,
272 void (*fun)(void *context, struct database *db))
277 for (p = service->databases; p; p = p->next)
278 if (database_match_criteria(p->settings, service, 0))
289 * c-file-style: "Stroustrup"
290 * indent-tabs-mode: nil
292 * vim: shiftwidth=4 tabstop=8 expandtab