1 /* This file is part of Metaproxy.
2 Copyright (C) Index Data
4 Metaproxy 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 Metaproxy 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
19 #include "sru_util.hpp"
20 #include <metaproxy/util.hpp>
25 namespace mp = metaproxy_1;
27 // Doxygen doesn't like mp::gdu, so we use this instead
28 namespace mp_util = metaproxy_1::util;
30 const std::string xmlns_explain("http://explain.z3950.org/dtd/2.0/");
32 bool mp_util::build_sru_debug_package(mp::Package &package)
34 Z_GDU *zgdu_req = package.request().get();
35 if (zgdu_req && zgdu_req->which == Z_GDU_HTTP_Request)
37 Z_HTTP_Request* http_req = zgdu_req->u.HTTP_Request;
38 std::string content = mp_util::http_headers_debug(*http_req);
40 mp_util::http_response(package, content, http_code);
43 package.session().close();
47 mp_util::SRUServerInfo mp_util::get_sru_server_info(mp::Package &package)
49 mp_util::SRUServerInfo sruinfo;
51 // getting host and port info
52 sruinfo.host = "localhost";
55 // overwriting host and port info if set from HTTP Host header
56 Z_GDU *zgdu_req = package.request().get();
57 if (zgdu_req && zgdu_req->which == Z_GDU_HTTP_Request)
59 Z_HTTP_Request* http_req = zgdu_req->u.HTTP_Request;
62 std::string http_path = http_req->path;
64 // taking out GET parameters
65 std::string::size_type ipath = http_path.rfind("?");
66 if (ipath != std::string::npos)
67 http_path.assign(http_path, 0, ipath);
69 // assign to database name
70 if (http_path.size() > 1)
71 sruinfo.database.assign(http_path, 1, std::string::npos);
73 std::string http_host_address
74 = mp_util::http_header_value(http_req->headers, "Host");
76 std::string::size_type iaddress = http_host_address.rfind(":");
77 if (iaddress != std::string::npos)
79 sruinfo.host.assign(http_host_address, 0, iaddress);
80 sruinfo.port.assign(http_host_address, iaddress + 1,
86 //std::cout << "sruinfo.database " << sruinfo.database << "\n";
87 //std::cout << "sruinfo.host " << sruinfo.host << "\n";
88 //std::cout << "sruinfo.port " << sruinfo.port << "\n";
94 bool mp_util::build_sru_explain(metaproxy_1::Package &package,
95 metaproxy_1::odr &odr_en,
96 Z_SRW_PDU *sru_pdu_res,
97 SRUServerInfo sruinfo,
98 const xmlNode *explain,
99 Z_SRW_explainRequest const *er_req)
102 // building SRU explain record
103 std::string explain_xml;
108 = mp_util::to_string(
109 "<explain xmlns=\"" + xmlns_explain + "\">\n"
110 " <serverInfo protocol='SRU'>\n"
113 + mp_util::to_string("</host>\n"
116 + mp_util::to_string("</port>\n"
119 + mp_util::to_string("</database>\n"
125 // make new XML DOC with given explain node
126 xmlDocPtr doc = xmlNewDoc(BAD_CAST "1.0");
127 xmlDocSetRootElement(doc, (xmlNode*)explain);
131 xmlDocDumpFormatMemory(doc, &xmlbuff, &xmlbuffsz, 1);
133 explain_xml.assign((const char*)xmlbuff, 0, xmlbuffsz);
137 // z3950'fy recordPacking
138 int record_packing = Z_SRW_recordPacking_XML;
139 if (er_req && er_req->recordPacking && 's' == *(er_req->recordPacking))
140 record_packing = Z_SRW_recordPacking_string;
142 // preparing explain record insert
143 Z_SRW_explainResponse *sru_res = sru_pdu_res->u.explain_response;
145 // inserting one and only explain record
147 sru_res->record.recordPosition = odr_intdup(odr_en, 1);
148 sru_res->record.recordPacking = record_packing;
149 sru_res->record.recordSchema = (char *)xmlns_explain.c_str();
150 sru_res->record.recordData_len = 1 + explain_xml.size();
151 sru_res->record.recordData_buf
152 = odr_strdupn(odr_en, (const char *)explain_xml.c_str(),
153 1 + explain_xml.size());
159 bool mp_util::build_sru_response(mp::Package &package,
162 const Z_SRW_PDU *sru_pdu_res,
164 const char *stylesheet)
167 // SRU request package translation to Z3950 package
169 // std::cout << *(const_cast<Z_SRW_PDU *>(sru_pdu_res)) << "\n";
171 // std::cout << "SRU empty\n";
174 Z_GDU *zgdu_req = package.request().get();
175 if (zgdu_req && zgdu_req->which == Z_GDU_HTTP_Request)
177 Z_GDU *zgdu_res //= z_get_HTTP_Response(odr_en, 200);
178 = odr_en.create_HTTP_Response(package.session(),
179 zgdu_req->u.HTTP_Request,
182 // adding HTTP response code and headers
183 Z_HTTP_Response * http_res = zgdu_res->u.HTTP_Response;
184 //http_res->code = http_code;
186 std::string ctype("text/xml");
189 ctype += "; charset=";
193 z_HTTP_header_add(odr_en,
194 &http_res->headers, "Content-Type", ctype.c_str());
196 // packaging Z_SOAP into HTML response
197 static Z_SOAP_Handler soap_handlers[4] = {
198 {(char *)YAZ_XMLNS_SRU_v1_1, 0, (Z_SOAP_fun) yaz_srw_codec},
199 {(char *)YAZ_XMLNS_SRU_v1_0, 0, (Z_SOAP_fun) yaz_srw_codec},
200 {(char *)YAZ_XMLNS_UPDATE_v0_9, 0, (Z_SOAP_fun) yaz_ucp_codec},
205 // empty stylesheet means NO stylesheet
206 if (stylesheet && *stylesheet == '\0')
209 // encoding SRU package
211 soap->u.generic->p = (void*) sru_pdu_res;
213 z_soap_codec_enc_xsl(odr_en, &soap,
214 &http_res->content_buf, &http_res->content_len,
215 soap_handlers, charset, stylesheet);
218 package.response() = zgdu_res;
221 package.session().close();
227 Z_SRW_PDU * mp_util::decode_sru_request(mp::Package &package,
230 Z_SRW_PDU *sru_pdu_res,
234 Z_GDU *zgdu_req = package.request().get();
235 Z_SRW_PDU *sru_pdu_req = 0;
237 //assert((zgdu_req->which == Z_GDU_HTTP_Request));
239 //ignoring all non HTTP_Request packages
240 if (!zgdu_req || !(zgdu_req->which == Z_GDU_HTTP_Request))
245 Z_HTTP_Request* http_req = zgdu_req->u.HTTP_Request;
249 // checking if we got a SRU GET/POST/SOAP HTTP package
250 // closing connection if we did not ...
251 if (0 == yaz_sru_decode(http_req, &sru_pdu_req, soap,
253 &(sru_pdu_res->u.explain_response->diagnostics),
254 &(sru_pdu_res->u.explain_response->num_diagnostics)))
256 if (sru_pdu_res->u.explain_response->num_diagnostics)
258 //sru_pdu_res = sru_pdu_res_exp;
259 package.session().close();
264 else if (0 == yaz_srw_decode(http_req, &sru_pdu_req, soap,
269 //sru_pdu_res = sru_pdu_res_exp;
270 package.session().close();
278 mp_util::check_sru_query_exists(mp::Package &package,
280 Z_SRW_PDU *sru_pdu_res,
281 Z_SRW_searchRetrieveRequest const *sr_req)
283 #ifdef Z_SRW_query_type_cql
284 if ((sr_req->query_type == Z_SRW_query_type_cql && !sr_req->query.cql))
286 yaz_add_srw_diagnostic(odr_en,
287 &(sru_pdu_res->u.response->diagnostics),
288 &(sru_pdu_res->u.response->num_diagnostics),
289 YAZ_SRW_MANDATORY_PARAMETER_NOT_SUPPLIED,
291 yaz_add_srw_diagnostic(odr_en,
292 &(sru_pdu_res->u.response->diagnostics),
293 &(sru_pdu_res->u.response->num_diagnostics),
294 YAZ_SRW_QUERY_SYNTAX_ERROR,
295 "CQL query is empty");
298 if ((sr_req->query_type == Z_SRW_query_type_xcql && !sr_req->query.xcql))
300 yaz_add_srw_diagnostic(odr_en,
301 &(sru_pdu_res->u.response->diagnostics),
302 &(sru_pdu_res->u.response->num_diagnostics),
303 YAZ_SRW_QUERY_SYNTAX_ERROR,
304 "XCQL query is empty");
307 if ((sr_req->query_type == Z_SRW_query_type_pqf && !sr_req->query.pqf))
309 yaz_add_srw_diagnostic(odr_en,
310 &(sru_pdu_res->u.response->diagnostics),
311 &(sru_pdu_res->u.response->num_diagnostics),
312 YAZ_SRW_QUERY_SYNTAX_ERROR,
313 "PQF query is empty");
319 yaz_add_srw_diagnostic(odr_en,
320 &(sru_pdu_res->u.response->diagnostics),
321 &(sru_pdu_res->u.response->num_diagnostics),
322 YAZ_SRW_MANDATORY_PARAMETER_NOT_SUPPLIED,
324 yaz_add_srw_diagnostic(odr_en,
325 &(sru_pdu_res->u.response->diagnostics),
326 &(sru_pdu_res->u.response->num_diagnostics),
327 YAZ_SRW_QUERY_SYNTAX_ERROR,
328 "CQL query is empty");
337 mp_util::build_esn_from_schema(mp::odr &odr_en, const char *schema)
342 Z_ElementSetNames *esn
343 = (Z_ElementSetNames *) odr_malloc(odr_en, sizeof(Z_ElementSetNames));
344 esn->which = Z_ElementSetNames_generic;
345 esn->u.generic = odr_strdup(odr_en, schema);
350 std::ostream& std::operator<<(std::ostream& os, Z_SRW_PDU& srw_pdu)
354 switch (srw_pdu.which)
356 case Z_SRW_searchRetrieve_request:
357 os << " " << "searchRetrieveRequest";
359 Z_SRW_searchRetrieveRequest *sr = srw_pdu.u.request;
363 os << " " << (sr->database);
367 os << " " << *(sr->startRecord);
370 if (sr->maximumRecords)
371 os << " " << *(sr->maximumRecords);
374 if (sr->recordPacking)
375 os << " " << (sr->recordPacking);
379 if (sr->recordSchema)
380 os << " " << (sr->recordSchema);
384 #ifdef Z_SRW_query_type_cql
385 switch (sr->query_type){
386 case Z_SRW_query_type_cql:
389 os << " " << sr->query.cql;
391 case Z_SRW_query_type_xcql:
394 case Z_SRW_query_type_pqf:
397 os << " " << sr->query.pqf;
401 os << " " << (sr->queryType ? sr->queryType : "cql")
407 case Z_SRW_searchRetrieve_response:
408 os << " " << "searchRetrieveResponse";
410 Z_SRW_searchRetrieveResponse *sr = srw_pdu.u.response;
413 if (! (sr->num_diagnostics))
416 if (sr->numberOfRecords)
417 os << " " << *(sr->numberOfRecords);
420 //if (sr->num_records)
421 os << " " << (sr->num_records);
424 if (sr->nextRecordPosition)
425 os << " " << *(sr->nextRecordPosition);
432 if (sr->diagnostics && sr->diagnostics->uri)
433 os << " " << (sr->diagnostics->uri);
436 if (sr->diagnostics && sr->diagnostics->message)
437 os << " " << (sr->diagnostics->message);
440 if (sr->diagnostics && sr->diagnostics->details)
441 os << " " << (sr->diagnostics->details);
450 case Z_SRW_explain_request:
451 os << " " << "explainRequest";
453 case Z_SRW_explain_response:
454 os << " " << "explainResponse";
456 case Z_SRW_scan_request:
457 os << " " << "scanRequest";
459 case Z_SRW_scan_response:
460 os << " " << "scanResponse";
462 case Z_SRW_update_request:
463 os << " " << "updateRequest";
465 case Z_SRW_update_response:
466 os << " " << "updateResponse";
469 os << " " << "UNKNOWN";
478 * c-file-style: "Stroustrup"
479 * indent-tabs-mode: nil
481 * vim: shiftwidth=4 tabstop=8 expandtab