1 /* This file is part of Pazpar2.
2 Copyright (C) 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>
32 #include "pazpar2_config.h"
37 #include <sys/types.h>
39 enum pazpar2_database_criterion_type {
41 PAZPAR2_SUBSTRING_MATCH
44 struct database_criterion_value {
46 struct database_criterion_value *next;
49 struct database_criterion {
51 enum pazpar2_database_criterion_type type;
52 struct database_criterion_value *values;
53 struct database_criterion *next;
56 struct database *new_database(const char *id, NMEM nmem)
58 return new_database_inherit_settings(id, nmem, 0);
60 struct database *new_database_inherit_settings(const char *id, NMEM nmem, struct settings_array *service_settings)
63 struct setting *idset;
65 db = nmem_malloc(nmem, sizeof(*db));
66 db->id = nmem_strdup(nmem, id);
69 if (service_settings && service_settings->num_settings > 0) {
70 yaz_log(YLOG_DEBUG, "copying settings from service to database %s settings", db->id);
71 db->num_settings = service_settings->num_settings;
72 db->settings = nmem_malloc(nmem, sizeof(*db->settings) * db->num_settings);
73 // Initialize database settings with service settings
74 memcpy(db->settings, service_settings->settings, sizeof(*db->settings) * db->num_settings);
77 yaz_log(YLOG_DEBUG, "No service settings to database %s ", db->id);
78 db->num_settings = PZ_MAX_EOF;
79 db->settings = nmem_malloc(nmem, sizeof(*db->settings) * db->num_settings);
80 memset(db->settings, 0, sizeof(*db->settings) * db->num_settings);
82 idset = nmem_malloc(nmem, sizeof(*idset));
83 idset->precedence = 0;
84 idset->name = "pz:id";
85 idset->target = idset->value = db->id;
86 idset->next = db->settings[PZ_ID];
87 db->settings[PZ_ID] = idset;
92 // Return a database structure by ID. Load and add to list if necessary
93 // new==1 just means we know it's not in the list
94 struct database *create_database_for_service(const char *id,
95 struct conf_service *service)
98 for (p = service->databases; p; p = p->next)
99 if (!strcmp(p->id, id))
102 yaz_log(YLOG_DEBUG, "new database %s under service %s", id,
103 service->id ? service->id : "null");
104 p = new_database_inherit_settings(id, service->nmem, service->settings);
105 p->next = service->databases;
106 service->databases = p;
111 // This whole session_grep database thing should be moved elsewhere
113 int match_zurl(const char *zurl, const char *pattern)
117 if (!strcmp(pattern, "*"))
119 else if (!strncmp(pattern, "*/", 2)) // host wildcard.. what the heck is that for?
121 char *db = strchr(zurl, '/');
124 if (!strcmp(pattern + 2, db))
129 else if (*(pattern + (len = strlen(pattern) - 1)) == '*') // db wildcard
131 if (!strncmp(pattern, zurl, len))
136 else if (!strcmp(pattern, zurl))
142 // This will be generalized at some point
143 static int match_criterion(struct setting **settings,
144 struct conf_service *service,
145 struct database_criterion *c)
147 int offset = settings_lookup_offset(service, c->name);
148 struct database_criterion_value *v;
152 yaz_log(YLOG_WARN, "Criterion not found: %s", c->name);
155 if (!settings[offset])
157 for (v = c->values; v; v = v->next)
159 if (c->type == PAZPAR2_STRING_MATCH)
163 if (match_zurl(settings[offset]->value, v->value))
168 if (!strcmp(settings[offset]->value, v->value))
172 else if (c->type == PAZPAR2_SUBSTRING_MATCH)
174 if (strstr(settings[offset]->value, v->value))
184 // parses crit1=val1,crit2=val2|val3,...
185 static struct database_criterion *create_database_criterion(NMEM m,
188 struct database_criterion *res = 0;
195 nmem_strsplit(m, ",", buf, &values, &num);
196 for (i = 0; i < num; i++)
201 struct database_criterion *new = nmem_malloc(m, sizeof(*new));
203 for (eq = values[i]; *eq; eq++)
206 new->type = PAZPAR2_STRING_MATCH;
211 new->type = PAZPAR2_SUBSTRING_MATCH;
216 yaz_log(YLOG_WARN, "Missing equal-sign/tilde in filter");
220 new->name = values[i];
221 nmem_strsplit(m, "|", eq, &subvalues, &subnum);
223 for (subi = 0; subi < subnum; subi++)
225 struct database_criterion_value *newv
226 = nmem_malloc(m, sizeof(*newv));
227 newv->value = subvalues[subi];
228 newv->next = new->values;
237 static int database_match_criteria(struct setting **settings,
238 struct conf_service *service,
239 struct database_criterion *cl)
241 for (; cl; cl = cl->next)
242 if (!match_criterion(settings, service, cl))
244 if (cl) // one of the criteria failed to match -- skip this db
250 // Cycles through databases, calling a handler function on the ones for
251 // which all criteria matched.
252 int session_grep_databases(struct session *se, const char *filter,
253 void (*fun)(struct session *se, struct session_database *db))
255 struct session_database *p;
256 NMEM nmem = nmem_create();
258 struct database_criterion *cl = create_database_criterion(nmem, filter);
260 for (p = se->databases; p; p = p->next)
262 if (p->settings && p->settings[PZ_ALLOW] && *p->settings[PZ_ALLOW]->value == '0')
264 if (!p->settings[PZ_NAME])
266 if (database_match_criteria(p->settings, se->service, cl))
276 int predef_grep_databases(void *context, struct conf_service *service,
277 void (*fun)(void *context, struct database *db))
282 for (p = service->databases; p; p = p->next)
283 if (database_match_criteria(p->settings, service, 0))
294 * c-file-style: "Stroustrup"
295 * indent-tabs-mode: nil
297 * vim: shiftwidth=4 tabstop=8 expandtab