-/* $Id: pazpar2.c,v 1.48 2007-02-05 16:15:41 quinn Exp $ */
+/* $Id: pazpar2.c,v 1.53 2007-03-26 14:00:21 marc Exp $ */
#include <stdlib.h>
#include <stdio.h>
#include "reclists.h"
#include "relevance.h"
#include "config.h"
+#include "database.h"
#define MAX_CHUNK 15
static void connection_destroy(struct connection *co);
static int client_prep_connection(struct client *cl);
static void ingest_records(struct client *cl, Z_Records *r);
-static struct conf_retrievalprofile *database_retrieval_profile(struct database *db);
+//static struct conf_retrievalprofile *database_retrieval_profile(struct database *db);
void session_alert_watch(struct session *s, int what);
IOCHAN channel_list = 0; // Master list of connections we're handling events to
static struct connection *connection_freelist = 0;
static struct client *client_freelist = 0;
-static struct host *hosts = 0; // The hosts we know about
-static struct database *databases = 0; // The databases we know about
-
static char *client_states[] = {
"Client_Connecting",
"Client_Connected",
{
"",
"",
+ "",
0,
0,
30,
static void send_init(IOCHAN i)
{
+
struct connection *co = iochan_getdata(i);
struct client *cl = co->client;
Z_APDU *a = zget_APDU(global_parameters.odr_out, Z_APDU_initRequest);
ODR_MASK_SET(a->u.initRequest->protocolVersion, Z_ProtocolVersion_1);
ODR_MASK_SET(a->u.initRequest->protocolVersion, Z_ProtocolVersion_2);
ODR_MASK_SET(a->u.initRequest->protocolVersion, Z_ProtocolVersion_3);
+
+
+ /* add virtual host if tunneling through Z39.50 proxy */
+
+ if (0 < strlen(global_parameters.zproxy_override)
+ && 0 < strlen(cl->database->url))
+ yaz_oi_set_string_oidval(&a->u.initRequest->otherInfo,
+ global_parameters.odr_out, VAL_PROXY,
+ 1, cl->database->url);
+
+
+
if (send_apdu(cl, a) >= 0)
{
iochan_setflags(i, EVENT_INPUT);
int res;
void *addr;
- yaz_log(YLOG_DEBUG, "Connection create %s", cl->database->url);
+
if (!(link = cs_create(tcpip_type, 0, PROTO_Z3950)))
- {
- yaz_log(YLOG_FATAL|YLOG_ERRNO, "Failed to create comstack");
- exit(1);
- }
+ {
+ yaz_log(YLOG_FATAL|YLOG_ERRNO, "Failed to create comstack");
+ exit(1);
+ }
+
+ if (0 == strlen(global_parameters.zproxy_override)){
+ /* no Z39.50 proxy needed - direct connect */
+ yaz_log(YLOG_DEBUG, "Connection create %s", cl->database->url);
+
+ if (!(addr = cs_straddr(link, cl->database->host->ipport)))
+ {
+ yaz_log(YLOG_WARN|YLOG_ERRNO,
+ "Lookup of IP address %s failed",
+ cl->database->host->ipport);
+ return 0;
+ }
+
+ } else {
+ /* Z39.50 proxy connect */
+ yaz_log(YLOG_DEBUG, "Connection create %s proxy %s",
+ cl->database->url, global_parameters.zproxy_override);
- if (!(addr = cs_straddr(link, cl->database->host->ipport)))
- {
- yaz_log(YLOG_WARN|YLOG_ERRNO, "Lookup of IP address %s failed?",
- cl->database->host->ipport);
- return 0;
+ yaz_log(YLOG_LOG, "Connection cs_create_host %s proxy %s",
+ cl->database->url, global_parameters.zproxy_override);
+
+ if (!(addr = cs_straddr(link, global_parameters.zproxy_override)))
+ {
+ yaz_log(YLOG_WARN|YLOG_ERRNO,
+ "Lookup of IP address %s failed",
+ global_parameters.zproxy_override);
+ return 0;
+ }
}
res = cs_connect(link, addr);
return 0;
}
+#ifdef GAGA // Moved to database.c
+
// This function will most likely vanish when a proper target profile mechanism is
// introduced.
void load_simpletargets(const char *fn)
fclose(f);
}
+#endif
+
static void pull_terms(NMEM nmem, struct ccl_rpn_node *n, char **termlist, int *num)
{
switch (n->kind)
s->watchlist[what].data = 0;
}
-// This needs to be extended with selection criteria
-static struct conf_retrievalprofile *database_retrieval_profile(struct database *db)
+//callback for grep_databases
+static void select_targets_callback(void *context, struct database *db)
{
- if (!config)
- {
- yaz_log(YLOG_FATAL, "Must load configuration (-f)");
- exit(1);
- }
- if (!config->retrievalprofiles)
- {
- yaz_log(YLOG_FATAL, "No retrieval profiles defined");
- }
- return config->retrievalprofiles;
+ struct session *se = (struct session*) context;
+ struct client *cl = client_create();
+ cl->database = db;
+ cl->session = se;
+ cl->next = se->clients;
+ se->clients = cl;
}
// This should be extended with parameters to control selection criteria
// Associates a set of clients with a session;
-int select_targets(struct session *se)
+int select_targets(struct session *se, struct database_criterion *crit)
{
- struct database *db;
- int c = 0;
-
while (se->clients)
client_destroy(se->clients);
- for (db = databases; db; db = db->next)
- {
- struct client *cl = client_create();
- cl->database = db;
- cl->session = se;
- cl->next = se->clients;
- se->clients = cl;
- c++;
- }
- return c;
+
+ return grep_databases(se, crit, select_targets_callback);
}
int session_active_clients(struct session *s)
return res;
}
-char *search(struct session *se, char *query)
+// parses crit1=val1,crit2=val2|val3,...
+static struct database_criterion *parse_filter(NMEM m, const char *buf)
+{
+ struct database_criterion *res = 0;
+ char **values;
+ int num;
+ int i;
+
+ if (!buf || !*buf)
+ return 0;
+ nmem_strsplit(m, ",", buf, &values, &num);
+ for (i = 0; i < num; i++)
+ {
+ char **subvalues;
+ int subnum;
+ int subi;
+ struct database_criterion *new = nmem_malloc(m, sizeof(*new));
+ char *eq = strchr(values[i], '=');
+ if (!eq)
+ {
+ yaz_log(YLOG_WARN, "Missing equal-sign in filter");
+ return 0;
+ }
+ *(eq++) = '\0';
+ new->name = values[i];
+ nmem_strsplit(m, "|", eq, &subvalues, &subnum);
+ new->values = 0;
+ for (subi = 0; subi < subnum; subi++)
+ {
+ struct database_criterion_value *newv = nmem_malloc(m, sizeof(*newv));
+ newv->value = subvalues[subi];
+ newv->next = new->values;
+ new->values = newv;
+ }
+ new->next = res;
+ res = new;
+ }
+ return res;
+}
+
+char *search(struct session *se, char *query, char *filter)
{
int live_channels = 0;
struct client *cl;
+ struct database_criterion *criteria;
yaz_log(YLOG_DEBUG, "Search");
+ nmem_reset(se->nmem);
+ criteria = parse_filter(se->nmem, filter);
strcpy(se->query, query);
se->requestid++;
- nmem_reset(se->nmem);
+ // Release any existing clients
+ select_targets(se, criteria);
for (cl = se->clients; cl; cl = cl->next)
{
- cl->hits = -1;
- cl->records = 0;
- cl->diagnostic = 0;
-
if (client_prep_connection(cl))
live_channels++;
}
while (s->clients)
client_destroy(s->clients);
nmem_destroy(s->nmem);
- wrbuf_free(s->wrbuf, 1);
+ wrbuf_destroy(s->wrbuf);
}
struct session *new_session()
session->watchlist[i].fun = 0;
}
- select_targets(session);
-
return session;
}
yaz_log_init(YLOG_DEFAULT_LEVEL, "pazpar2", 0);
- while ((ret = options("f:x:h:p:C:s:d", argv, argc, &arg)) != -2)
+ while ((ret = options("f:x:h:p:z:C:s:d", argv, argc, &arg)) != -2)
{
switch (ret) {
case 'f':
case 'p':
strcpy(global_parameters.proxy_override, arg);
break;
+ case 'z':
+ strcpy(global_parameters.zproxy_override, arg);
+ break;
case 's':
load_simpletargets(arg);
break;
" -C cclconfig\n"
" -s simpletargetfile\n"
" -p hostname[:portno] (HTTP proxy)\n"
+ " -z hostname[:portno] (Z39.50 proxy)\n"
" -d (show internal records)\n");
exit(1);
}