initial

1 files changed, 386 insertions, 0 deletions

diff --git a/libcsoap/soap-env.c b/libcsoap/soap-env.c
new file mode 100644
index 0000000..f7c1449
--- /dev/null
+++ b/libcsoap/soap-env.c
@@ -0,0 +1,386 @@
+/******************************************************************
+ *  $Id: soap-env.c,v 1.1 2004/02/03 08:10:05 snowdrop Exp $
+ *
+ * CSOAP Project:  A SOAP client/server library in C
+ * Copyright (C) 2003  Ferhat Ayaz
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA  02111-1307, USA.
+ * 
+ * Email: ayaz@jprogrammer.net
+ ******************************************************************/
+#include <libcsoap/soap-env.h>
+#include <stdarg.h>
+
+
+static char *soap_env_ns = "http://schemas.xmlsoap.org/soap/envelope/";
+static char *soap_env_enc = "http://schemas.xmlsoap.org/soap/encoding/";
+static char *soap_xsi_ns = "http://www.w3.org/1999/XMLSchema-instance";
+static char *soap_xsd_ns = "http://www.w3.org/1999/XMLSchema";
+
+/*
+  Parameters:
+  1- soap_env_ns
+  2- soap_env_enc
+  3- xsi_ns
+  4- xsd_ns
+  3- method name
+  4- uri
+  5- method name(again)
+ */
+#define _SOAP_MSG_TEMPLATE_ \
+  "<SOAP-ENV:Envelope xmlns:SOAP-ENV=\"%s\" SOAP-ENV:encoding=\"%s\"" \
+  " xmlns:xsi=\"%s\"" \
+  " xmlns:xsd=\"%s\">" \
+  " <SOAP-ENV:Body>"\
+  "  <m:%s xmlns:m=\"%s\">"\
+  "  </m:%s>" \
+  " </SOAP-ENV:Body>"\
+  "</SOAP-ENV:Envelope>"
+
+
+
+SoapEnv *soap_env_new_with_fault(fault_code_t faultcode, 
+				 const char *faultstring,
+				 const char *faultactor,
+				 const char *detail)
+{
+  xmlDocPtr doc;
+  doc = soap_fault_build(faultcode, faultstring,
+			 faultactor, detail);
+  if (doc == NULL) return NULL;
+  return soap_env_new_from_doc(doc);
+}
+
+
+SoapEnv *soap_env_new_with_response(SoapEnv* request)
+{
+  char urn[100];
+  char methodname[150];
+  char methodname2[150];
+
+  if (request == NULL) {
+    log_error1("request object is NULL");
+    return NULL;
+  }
+
+  if (request->root == NULL) {
+    log_error1("request has no xml");
+    return NULL;
+  }
+
+  if (!soap_env_find_methodname(request, methodname)) {
+    return NULL;
+  }
+
+  if (!soap_env_find_urn(request, urn)) {
+    
+    /* here we have no chance to find out the namespace */
+    /* try to continue without namespace (urn) */
+    urn[0] = '\0';
+  } 
+
+  sprintf(methodname2, "%sResponse", methodname);
+  return soap_env_new_with_method(urn, methodname2);
+}
+
+
+SoapEnv *soap_env_new_with_method(const char *urn, const char *method)
+{
+  xmlNodePtr env;
+  xmlNodePtr node;
+  SoapEnv *call;
+  char buffer[1054];
+
+  
+  log_verbose2("URN = '%s'", urn);
+  log_verbose2("Method = '%s'",method);
+
+  sprintf(buffer, _SOAP_MSG_TEMPLATE_, 
+	  soap_env_ns, soap_env_enc, soap_xsi_ns, 
+	  soap_xsd_ns, method, urn, method);
+
+  env = xmlParseDoc(buffer);
+  call = soap_env_new_from_doc(env);
+
+  return call;
+}
+
+
+
+xmlNodePtr
+soap_env_add_item(SoapEnv *call, const char *type, 
+		  const char *name, const char *value)
+{
+
+  xmlNodePtr newnode;
+
+  newnode = xmlNewTextChild(call->cur, NULL, name, value);
+
+  if (newnode == NULL) {
+    log_error1("Can not create new xml node");
+    return NULL;
+  }
+
+  if (type) {
+    if (!xmlNewProp(newnode, "xsi:type", type)) {
+      log_error1("Can not create new xml attribute");
+      return NULL;
+    }
+  }
+  
+  return newnode;  
+}
+
+
+xmlNodePtr
+soap_env_add_itemf(SoapEnv *call, const char *type,
+		    const char *name, const char *format, ...)
+{
+
+  va_list ap;
+  char buffer[1054];
+  xmlNodePtr newnode;
+  
+
+  va_start(ap, format);
+  vsprintf(buffer, format, ap);
+  va_end(ap);
+
+  return soap_env_add_item(call, type, name, buffer);
+}
+
+
+xmlNodePtr
+soap_env_push_item(SoapEnv *call, const char *type,
+		   const char *name)
+{
+
+  xmlNodePtr node;
+
+  node =  soap_env_add_item(call, type, name, "");
+
+  if (node) {
+    call->cur = node;
+  }
+
+  return node;
+}
+
+
+void
+soap_env_pop_item(SoapEnv *call)
+{
+  call->cur = call->cur->parent;
+}
+
+void soap_env_free(SoapEnv *env)
+{
+  if (env) {
+    if (env->root) {
+      xmlFreeDoc(env->root->doc);
+    }
+    free(env);
+  }
+}
+
+
+SoapEnv *soap_env_new_from_doc(xmlDocPtr doc)
+{
+  SoapEnv *env;
+  xmlNodePtr node;
+
+  if (doc == NULL) {
+    log_error1("Can not create xml document!");
+    return NULL;
+  }
+
+  node = xmlDocGetRootElement(doc);
+  if (node == NULL) {
+    log_error1("xml document is empty!");
+    return NULL;
+  }
+  
+  env = (SoapEnv*)malloc(sizeof(SoapEnv));
+
+  /* set root */
+  env->root = node;
+
+  /* set method root
+     set call->cur (current node) to <method>.
+     xpath: //Envelope/Body/
+   */
+  node = soap_xml_get_children(env->root);
+  env->cur = soap_xml_get_children(node);
+
+  return env;
+}
+
+
+
+
+SoapEnv *soap_env_new_from_buffer(const char* buffer)
+{
+  xmlDocPtr doc;
+  SoapEnv *env;
+
+  if (buffer == NULL) return NULL;
+
+  doc = xmlParseDoc(buffer);
+  if (doc == NULL) return NULL;
+
+  env = soap_env_new_from_doc(doc);
+  if (env == NULL) {
+    xmlFreeDoc(doc);
+    return NULL;
+  }
+
+  return env;
+}
+
+
+xmlNodePtr
+soap_env_get_body(SoapEnv* env)
+{
+  xmlNodePtr node;
+
+  if (env == NULL) {
+    log_error1("env object is NULL");
+    return NULL;
+  }
+
+  if (env->root == NULL) {
+    log_error1("env has no xml");
+    return NULL;
+  }
+
+  node = soap_xml_get_children(env->root);
+
+  while (node != NULL) {
+    if (!strcmp(node->name, "Body"))
+      return node;
+    node = soap_xml_get_next(node);
+  }
+
+  log_error1("Node Body tag found!");
+  return NULL;
+}
+
+
+xmlNodePtr
+_soap_env_get_body(SoapEnv* env)
+{
+  xmlNodePtr node, body;
+  xmlNodeSetPtr nodeset; 
+  xmlXPathObjectPtr xpathobj;
+  char *urn;
+  char methodname[150];
+
+  if (env == NULL) {
+    log_error1("env object is NULL");
+    return NULL;
+  }
+
+  if (env->root == NULL) {
+    log_error1("env has no xml");
+    return NULL;
+  }
+
+  /* 
+     find <Body> tag find out namespace
+     xpath: //Envelope/Body/
+   */
+  xpathobj = soap_xpath_eval(env->root->doc, "//Envelope/Body");
+
+  if (!xpathobj) {
+    log_error1("No Body (xpathobj)!");
+    return NULL;
+  }
+
+  nodeset = xpathobj->nodesetval;
+  if (!nodeset) {
+    log_error1("No Body (nodeset)!");
+    return NULL;
+  }
+
+  if (nodeset->nodeNr < 1) {
+    log_error1("No Body (nodeNr)!");
+    xmlXPathFreeObject(nodeset);
+    return NULL;
+  }
+
+  body = nodeset->nodeTab[0]; /* body is <Body> */
+  xmlXPathFreeObject(nodeset);
+  return body;
+
+}
+
+
+int soap_env_find_urn(SoapEnv *env, char *urn)
+{
+  xmlNsPtr ns;
+  xmlNodePtr body, node;
+
+  body = soap_env_get_body(env);
+  if (body == NULL) {
+    log_verbose1("body is NULL");
+    return 0;
+  }
+
+ /* node is the first child */
+  node = soap_xml_get_children(body);
+  
+  if (node == NULL) {
+    log_error1("No namespace found");
+    return 0;
+  } 
+
+  if (node->ns && node->ns->prefix) {
+    ns = xmlSearchNs(body->doc, node, node->ns->prefix);
+    if (ns != NULL) {
+      strcpy(urn, (char*)ns->href);
+      return 1; /* namesapce found! */
+    }
+  }
+
+  log_error1("No namespace found. Returning 0");
+  return 0;
+}
+
+
+int soap_env_find_methodname(SoapEnv *env, char *method)
+{
+  xmlNodePtr body, node;
+
+  body = soap_env_get_body(env);
+  if (body == NULL) return 0;
+
+  node = soap_xml_get_children(body); /* node is the first child */
+  
+  if (node == NULL) {
+    log_error1("No method found");
+    return 0;
+  } 
+
+  if (node->name == NULL) {
+    log_error1("No methodname found");
+    return 0;
+
+  }
+
+  strcpy(method, node->name);
+  
+  return 1;
+}