2 * Copyright (c) 2002-2004, Index Data.
3 * See the file LICENSE for details.
5 * $Id: soap.c,v 1.8 2004-10-02 13:28:26 adam Exp $
11 #include <libxml/parser.h>
12 #include <libxml/tree.h>
14 static const char *soap_v1_1 = "http://schemas.xmlsoap.org/soap/envelope/";
15 static const char *soap_v1_2 = "http://www.w3.org/2001/06/soap-envelope";
17 int z_soap_codec_enc_xsl(ODR o, Z_SOAP **pp,
18 char **content_buf, int *content_len,
19 Z_SOAP_Handler *handlers,
21 const char *stylesheet)
23 if (o->direction == ODR_DECODE)
30 if (!content_buf || !*content_buf || !content_len)
33 *pp = p = (Z_SOAP *) odr_malloc(o, sizeof(*p));
36 doc = xmlParseMemory(*content_buf, *content_len);
38 return z_soap_error(o, p, "SOAP-ENV:Client",
39 "Bad XML Document", 0);
40 /* check that root node is Envelope */
41 ptr = xmlDocGetRootElement(doc);
42 if (!ptr || ptr->type != XML_ELEMENT_NODE ||
43 strcmp(ptr->name, "Envelope") || !ptr->ns)
46 return z_soap_error(o, p, "SOAP-ENV:Client",
47 "No Envelope element", 0);
51 /* determine SOAP version */
52 const char * ns_envelope = ptr->ns->href;
53 if (!strcmp(ns_envelope, soap_v1_1))
55 else if (!strcmp(ns_envelope, soap_v1_2))
60 return z_soap_error(o, p, "SOAP-ENV:Client",
61 "Bad SOAP version", 0);
65 while(ptr && ptr->type == XML_TEXT_NODE)
67 if (ptr && ptr->type == XML_ELEMENT_NODE &&
68 !strcmp(ptr->ns->href, p->ns) &&
69 !strcmp(ptr->name, "Header"))
72 while(ptr && ptr->type == XML_TEXT_NODE)
75 /* check that Body is present */
76 if (!ptr || ptr->type != XML_ELEMENT_NODE ||
77 strcmp(ptr->name, "Body"))
80 return z_soap_error(o, p, "SOAP-ENV:Client",
81 "SOAP Body element not found", 0);
83 if (strcmp(ptr->ns->href, p->ns))
86 return z_soap_error(o, p, "SOAP-ENV:Client",
87 "SOAP bad NS for Body element", 0);
91 while (ptr && ptr->type == XML_TEXT_NODE)
93 if (!ptr || ptr->type != XML_ELEMENT_NODE)
96 return z_soap_error(o, p, "SOAP-ENV:Client",
97 "SOAP No content for Body", 0);
102 return z_soap_error(o, p, "SOAP-ENV:Client",
103 "SOAP No namespace for content", 0);
105 /* check for fault package */
106 if (!strcmp(ptr->ns->href, p->ns)
107 && !strcmp(ptr->name, "Fault") && ptr->children)
111 p->which = Z_SOAP_fault;
112 p->u.fault = (Z_SOAP_Fault *) odr_malloc(o, sizeof(*p->u.fault));
113 p->u.fault->fault_code = 0;
114 p->u.fault->fault_string = 0;
115 p->u.fault->details = 0;
118 if (ptr->children && ptr->children->type == XML_TEXT_NODE)
120 if (!strcmp(ptr->name, "faultcode"))
121 p->u.fault->fault_code =
122 odr_strdup(o, ptr->children->content);
123 if (!strcmp(ptr->name, "faultstring"))
124 p->u.fault->fault_string =
125 odr_strdup(o, ptr->children->content);
126 if (!strcmp(ptr->name, "details"))
127 p->u.fault->details =
128 odr_strdup(o, ptr->children->content);
136 for (i = 0; handlers[i].ns; i++)
137 if (!strcmp(ptr->ns->href, handlers[i].ns))
141 void *handler_data = 0;
142 ret = (*handlers[i].f)(o, pptr, &handler_data,
143 handlers[i].client_data,
145 if (ret || !handler_data)
146 z_soap_error(o, p, "SOAP-ENV:Client",
147 "SOAP Handler returned error", 0);
150 p->which = Z_SOAP_generic;
151 p->u.generic = (Z_SOAP_Generic *)
152 odr_malloc(o, sizeof(*p->u.generic));
153 p->u.generic->no = i;
154 p->u.generic->ns = handlers[i].ns;
155 p->u.generic->p = handler_data;
160 ret = z_soap_error(o, p, "SOAP-ENV:Client",
161 "No handler for NS", ptr->ns->href);
167 else if (o->direction == ODR_ENCODE)
171 xmlNodePtr envelope_ptr, body_ptr;
173 xmlDocPtr doc = xmlNewDoc("1.0");
175 envelope_ptr = xmlNewNode(0, "Envelope");
176 ns_env = xmlNewNs(envelope_ptr, p->ns, "SOAP-ENV");
177 xmlSetNs(envelope_ptr, ns_env);
179 body_ptr = xmlNewChild(envelope_ptr, ns_env, "Body", 0);
180 xmlDocSetRootElement(doc, envelope_ptr);
182 if (p->which == Z_SOAP_fault || p->which == Z_SOAP_error)
184 Z_SOAP_Fault *f = p->u.fault;
185 xmlNodePtr fault_ptr = xmlNewChild(body_ptr, ns_env, "Fault", 0);
186 xmlNewChild(fault_ptr, ns_env, "faultcode", f->fault_code);
187 xmlNewChild(fault_ptr, ns_env, "faultstring", f->fault_string);
189 xmlNewChild(fault_ptr, ns_env, "details", f->details);
191 else if (p->which == Z_SOAP_generic)
193 int ret, no = p->u.generic->no;
195 ret = (*handlers[no].f)(o, body_ptr, &p->u.generic->p,
196 handlers[no].client_data,
204 if (p->which == Z_SOAP_generic && !strcmp(p->ns, "SRU"))
206 xmlDocSetRootElement(doc, body_ptr->children);
207 body_ptr->children = 0;
208 xmlFreeNode(envelope_ptr);
212 char *content = odr_malloc(o, strlen(stylesheet) + 40);
214 xmlNodePtr pi, ptr = xmlDocGetRootElement(doc);
215 sprintf(content, "type=\"text/xsl\" href=\"%s\"", stylesheet);
216 pi = xmlNewPI("xml-stylesheet", content);
217 xmlAddPrevSibling(ptr, pi);
224 xmlDocDumpMemoryEnc(doc, &buf_out, &len_out, encoding);
226 xmlDocDumpMemory(doc, &buf_out, &len_out);
227 *content_buf = (char *) odr_malloc(o, len_out);
228 *content_len = len_out;
229 memcpy(*content_buf, buf_out, len_out);
238 int z_soap_codec_enc_xsl(ODR o, Z_SOAP **pp,
239 char **content_buf, int *content_len,
240 Z_SOAP_Handler *handlers, const char *encoding,
241 const char *stylesheet)
243 static char *err_xml =
244 "<?xml version=\"1.0\"?>\n"
246 " xmlns:SOAP-ENV=\"http://schemas.xmlsoap.org/soap/envelope/\">\n"
247 "\t<SOAP-ENV:Body>\n"
248 "\t\t<SOAP-ENV:Fault>\n"
249 "\t\t\t<faultcode>SOAP-ENV:Server</faultcode>\n"
250 "\t\t\t<faultstring>HTTP error</faultstring>\n"
251 "\t\t\t<detail>SOAP not supported in this YAZ configuration</detail>\n"
252 "\t\t</SOAP-ENV:Fault>\n"
253 "\t</SOAP-ENV:Body>\n"
254 "</SOAP-ENV:Envelope>\n";
255 if (o->direction == ODR_ENCODE)
257 *content_buf = err_xml;
258 *content_len = strlen(err_xml);
263 int z_soap_codec_enc(ODR o, Z_SOAP **pp,
264 char **content_buf, int *content_len,
265 Z_SOAP_Handler *handlers,
266 const char *encoding)
268 return z_soap_codec_enc_xsl(o, pp, content_buf, content_len, handlers,
272 int z_soap_codec(ODR o, Z_SOAP **pp,
273 char **content_buf, int *content_len,
274 Z_SOAP_Handler *handlers)
276 return z_soap_codec_enc(o, pp, content_buf, content_len, handlers, 0);
279 int z_soap_error(ODR o, Z_SOAP *p,
280 const char *fault_code, const char *fault_string,
283 p->which = Z_SOAP_error;
284 p->u.soap_error = (Z_SOAP_Fault *)
285 odr_malloc(o, sizeof(*p->u.soap_error));
286 p->u.soap_error->fault_code = odr_strdup(o, fault_code);
287 p->u.soap_error->fault_string = odr_strdup(o, fault_string);
289 p->u.soap_error->details = odr_strdup(o, details);
291 p->u.soap_error->details = 0;