yaz_retrieval_t conv_configure(const char *xmlstring, WRBUF w) { xmlDocPtr doc = xmlParseMemory(xmlstring, strlen(xmlstring)); if (!doc) { wrbuf_printf(w, "xmlParseMemory"); return 0; } else { xmlNodePtr ptr = xmlDocGetRootElement(doc); yaz_retrieval_t p = yaz_retrieval_create(); if (p) { const char *srcdir = getenv("srcdir"); if (srcdir) yaz_retrieval_set_path(p, srcdir); } if (!ptr) { wrbuf_printf(w, "xmlDocGetRootElement"); yaz_retrieval_destroy(p); p = 0; } else if (!p) { wrbuf_printf(w, "yaz_retrieval_create"); } else { int r = yaz_retrieval_configure(p, ptr); if (r) { wrbuf_puts(w, yaz_retrieval_get_error(p)); yaz_retrieval_destroy(p); p = 0; } } xmlFreeDoc(doc); return p; } }
static void xml_config_read(void) { struct gfs_server **gfsp = &gfs_server_list; struct gfs_listen **gfslp = &gfs_listen_list; xmlNodePtr ptr = xml_config_get_root(); if (!ptr) return; for (ptr = ptr->children; ptr; ptr = ptr->next) { struct _xmlAttr *attr; if (ptr->type != XML_ELEMENT_NODE) continue; attr = ptr->properties; if (!strcmp((const char *) ptr->name, "listen")) { /* <listen id="listenerid">tcp:@:9999</listen> */ const char *id = 0; const char *address = nmem_dup_xml_content(gfs_nmem, ptr->children); for ( ; attr; attr = attr->next) if (!xmlStrcmp(attr->name, BAD_CAST "id") && attr->children && attr->children->type == XML_TEXT_NODE) id = nmem_dup_xml_content(gfs_nmem, attr->children); if (address) { *gfslp = gfs_listen_new(id, address); gfslp = &(*gfslp)->next; *gfslp = 0; /* make listener list consistent for search */ } } else if (!strcmp((const char *) ptr->name, "server")) { xmlNodePtr ptr_server = ptr; xmlNodePtr ptr; const char *listenref = 0; const char *id = 0; struct gfs_server *gfs; for ( ; attr; attr = attr->next) if (!xmlStrcmp(attr->name, BAD_CAST "listenref") && attr->children && attr->children->type == XML_TEXT_NODE) listenref = nmem_dup_xml_content(gfs_nmem, attr->children); else if (!xmlStrcmp(attr->name, BAD_CAST "id") && attr->children && attr->children->type == XML_TEXT_NODE) id = nmem_dup_xml_content(gfs_nmem, attr->children); else yaz_log(YLOG_WARN, "Unknown attribute '%s' for server", attr->name); gfs = *gfsp = gfs_server_new(); gfs->server_node_ptr = ptr_server; if (listenref) { int id_no; struct gfs_listen *gl = gfs_listen_list; for (id_no = 1; gl; gl = gl->next, id_no++) if (gl->id && !strcmp(gl->id, listenref)) { gfs->listen_ref = id_no; break; } if (!gl) yaz_log(YLOG_WARN, "Non-existent listenref '%s' in server " "config element", listenref); } for (ptr = ptr_server->children; ptr; ptr = ptr->next) { if (ptr->type != XML_ELEMENT_NODE) continue; if (!strcmp((const char *) ptr->name, "host")) { gfs->host = nmem_dup_xml_content(gfs_nmem, ptr->children); } else if (!strcmp((const char *) ptr->name, "config")) { strcpy(gfs->cb.configname, nmem_dup_xml_content(gfs_nmem, ptr->children)); } else if (!strcmp((const char *) ptr->name, "cql2rpn")) { gfs->cql_transform = cql_transform_open_fname( nmem_dup_xml_content(gfs_nmem, ptr->children) ); } else if (!strcmp((const char *) ptr->name, "ccl2rpn")) { char *name; FILE *f; name = nmem_dup_xml_content(gfs_nmem, ptr->children); if ((f = fopen(name, "r")) == 0) { yaz_log(YLOG_FATAL, "can't open CCL file '%s'", name); exit(1); } gfs->ccl_transform = ccl_qual_mk(); ccl_qual_file (gfs->ccl_transform, f); fclose(f); } else if (!strcmp((const char *) ptr->name, "directory")) { gfs->directory = nmem_dup_xml_content(gfs_nmem, ptr->children); } else if (!strcmp((const char *) ptr->name, "docpath")) { gfs->docpath = nmem_dup_xml_content(gfs_nmem, ptr->children); } else if (!strcmp((const char *) ptr->name, "maximumrecordsize")) { gfs->cb.maxrecordsize = atoi( nmem_dup_xml_content(gfs_nmem, ptr->children)); } else if (!strcmp((const char *) ptr->name, "stylesheet")) { char *s = nmem_dup_xml_content(gfs_nmem, ptr->children); gfs->stylesheet = (char *) nmem_malloc(gfs_nmem, strlen(s) + 2); sprintf(gfs->stylesheet, "/%s", s); } else if (!strcmp((const char *) ptr->name, "explain")) { ; /* being processed separately */ } else if (!strcmp((const char *) ptr->name, "retrievalinfo")) { if (yaz_retrieval_configure(gfs->retrieval, ptr)) { yaz_log(YLOG_FATAL, "%s in config %s", yaz_retrieval_get_error(gfs->retrieval), control_block.xml_config); exit(1); } } else { yaz_log(YLOG_FATAL, "Unknown element '%s' in config %s", ptr->name, control_block.xml_config); exit(1); } } gfsp = &(*gfsp)->next; } } *gfsp = 0; }