clones/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2024-09-23 10:57:26 +00:00
Code Issues Packages Projects Releases Wiki Activity
356e8f9b7d
php-src/ext/soap/php_packet_soap.c

279 lines
8.3 KiB
C
Raw Normal View History

- Add our standard header
2004-01-29 09:27:06 +00:00
/*
+----------------------------------------------------------------------+
| PHP Version 5 |
+----------------------------------------------------------------------+
| Copyright (c) 1997-2004 The PHP Group |
+----------------------------------------------------------------------+
| This source file is subject to version 3.0 of the PHP license, |
| that is bundled with this package in the file LICENSE, and is |
| available through the world-wide-web at the following url: |
| http://www.php.net/license/3_0.txt. |
| If you did not receive a copy of the PHP license and are unable to |
| obtain it through the world-wide-web, please send a note to |
| license@php.net so we can mail you a copy immediately. |
+----------------------------------------------------------------------+
fix: "Authors" corrected
2004-01-29 11:51:11 +00:00
| Authors: Brad Lafountain <rodif_bl@yahoo.com> |
| Shane Caraveo <shane@caraveo.com> |
| Dmitry Stogov <dmitry@zend.com> |
- Add our standard header
2004-01-29 09:27:06 +00:00
+----------------------------------------------------------------------+
*/
/* $Id$ */
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
#include "php_soap.h"
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
/* SOAP client calls this function to parse response from SOAP server */
int parse_packet_soap(zval *this_ptr, char *buffer, int buffer_size, sdlFunctionPtr fn, char *fn_name, zval *return_value TSRMLS_DC)
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
{
Fix some warnings
2004-01-19 00:10:41 +00:00
char* envelope_ns = NULL;
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
xmlDocPtr response;
SOAP Encoding/Decoding were improved.
2004-01-09 14:16:30 +00:00
xmlNodePtr trav, env, head, body, resp, cur, fault;
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
int param_count = 0;
XML parsing warnings and notices were disabled.
2004-01-13 09:31:50 +00:00
int old_error_reporting;
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
int soap_version;
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
ZVAL_NULL(return_value);
XML parsing warnings and notices were disabled.
2004-01-13 09:31:50 +00:00
old_error_reporting = EG(error_reporting);
EG(error_reporting) &= ~(E_WARNING|E_NOTICE|E_USER_WARNING|E_USER_NOTICE);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
/* Parse XML packet */
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
response = xmlParseMemory(buffer, buffer_size);
xmlCleanupParser();
XML Schema support was improved suport for type extension
2004-01-23 09:15:58 +00:00
XML parsing warnings and notices were disabled.
2004-01-13 09:31:50 +00:00
EG(error_reporting) = old_error_reporting;
XML Schema support was improved suport for type extension
2004-01-23 09:15:58 +00:00
- protect the function against a non-xml document - initializing variables reduces the number of seg-faults
2002-11-22 13:41:51 +00:00
if (!response) {
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
add_soap_fault(this_ptr, "Client", "looks like we got no XML document", NULL, NULL TSRMLS_CC);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
return FALSE;
- protect the function against a non-xml document - initializing variables reduces the number of seg-faults
2002-11-22 13:41:51 +00:00
}
SOAP message must not contain a Document Type Declaration
2004-01-14 15:35:27 +00:00
if (xmlGetIntSubset(response) != NULL) {
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
add_soap_fault(this_ptr, "Client", "DTD are not supported by SOAP", NULL, NULL TSRMLS_CC);
SOAP message must not contain a Document Type Declaration
2004-01-14 15:35:27 +00:00
return FALSE;
}
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
/* Get <Envelope> element */
env = NULL;
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
trav = response->children;
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
while (trav != NULL) {
SOAP versioning model was implemented (support for SOAP 1.1 and SOAP 1.2)
2004-01-08 15:27:50 +00:00
if (trav->type == XML_ELEMENT_NODE) {
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
if (env == NULL && node_is_equal_ex(trav,"Envelope",SOAP_1_1_ENV_NAMESPACE)) {
Source cleanup.
2004-01-09 18:22:03 +00:00
env = trav;
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
envelope_ns = SOAP_1_1_ENV_NAMESPACE;
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
soap_version = SOAP_1_1;
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
} else if (env == NULL && node_is_equal_ex(trav,"Envelope",SOAP_1_2_ENV_NAMESPACE)) {
Source cleanup.
2004-01-09 18:22:03 +00:00
env = trav;
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
envelope_ns = SOAP_1_2_ENV_NAMESPACE;
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
soap_version = SOAP_1_2;
Source cleanup.
2004-01-09 18:22:03 +00:00
} else {
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
add_soap_fault(this_ptr, "Client", "looks like we got bad SOAP response\n", NULL, NULL TSRMLS_CC);
SOAP Encoding/Decoding were improved.
2004-01-09 14:16:30 +00:00
xmlFreeDoc(response);
return FALSE;
Source cleanup.
2004-01-09 18:22:03 +00:00
}
}
trav = trav->next;
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
}
if (env == NULL) {
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
add_soap_fault(this_ptr, "Client", "looks like we got XML without \"Envelope\" element\n", NULL, NULL TSRMLS_CC);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
xmlFreeDoc(response);
return FALSE;
}
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
SOAP Encoding/Decoding were improved.
2004-01-09 14:16:30 +00:00
/* Get <Header> element */
head = NULL;
trav = env->children;
while (trav != NULL && trav->type != XML_ELEMENT_NODE) {
Source cleanup.
2004-01-09 18:22:03 +00:00
trav = trav->next;
SOAP Encoding/Decoding were improved.
2004-01-09 14:16:30 +00:00
}
if (trav != NULL && node_is_equal_ex(trav,"Header",envelope_ns)) {
Source cleanup.
2004-01-09 18:22:03 +00:00
head = trav;
trav = trav->next;
SOAP Encoding/Decoding were improved.
2004-01-09 14:16:30 +00:00
}
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
/* Get <Body> element */
body = NULL;
while (trav != NULL) {
SOAP Encoding/Decoding were improved.
2004-01-09 14:16:30 +00:00
if (trav->type == XML_ELEMENT_NODE) {
Source cleanup.
2004-01-09 18:22:03 +00:00
if (body == NULL && node_is_equal_ex(trav,"Body",envelope_ns)) {
body = trav;
} else {
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
add_soap_fault(this_ptr, "Client", "looks like we got bad SOAP response\n", NULL, NULL TSRMLS_CC);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
xmlFreeDoc(response);
return FALSE;
Source cleanup.
2004-01-09 18:22:03 +00:00
}
}
trav = trav->next;
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
}
if (body == NULL) {
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
add_soap_fault(this_ptr, "Client", "looks like we got \"Envelope\" without \"Body\" element\n", NULL, NULL TSRMLS_CC);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
xmlFreeDoc(response);
return FALSE;
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
/* Check if <Body> contains <Fault> element */
SOAP versioning model was implemented (support for SOAP 1.1 and SOAP 1.2)
2004-01-08 15:27:50 +00:00
fault = get_node_ex(body->children,"Fault",envelope_ns);
Source cleanup.
2004-01-09 18:22:03 +00:00
if (fault != NULL) {
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
char *faultcode = NULL, *faultstring = NULL, *faultactor = NULL;
zval *details = NULL;
xmlNodePtr tmp;
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
if (soap_version == SOAP_1_1) {
tmp = get_node(fault->children,"faultcode");
if (tmp != NULL && tmp->children != NULL) {
faultcode = tmp->children->content;
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
tmp = get_node(fault->children,"faultstring");
if (tmp != NULL && tmp->children != NULL) {
faultstring = tmp->children->content;
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
tmp = get_node(fault->children,"faultactor");
if (tmp != NULL && tmp->children != NULL) {
faultactor = tmp->children->content;
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
tmp = get_node(fault->children,"detail");
if (tmp != NULL) {
details = master_to_zval(NULL, tmp);
}
} else {
tmp = get_node(fault->children,"Code");
if (tmp != NULL && tmp->children != NULL) {
Support for SOAP 1.2 Fault/Code/Value and Fault/Reason/Text
2004-01-26 17:11:05 +00:00
tmp = get_node(tmp->children,"Value");
if (tmp != NULL && tmp->children != NULL) {
faultcode = tmp->children->content;
}
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
}
tmp = get_node(fault->children,"Reason");
if (tmp != NULL && tmp->children != NULL) {
Support for SOAP 1.2 Fault/Code/Value and Fault/Reason/Text
2004-01-26 17:11:05 +00:00
/* TODO: lang attribute */
tmp = get_node(tmp->children,"Text");
if (tmp != NULL && tmp->children != NULL) {
faultstring = tmp->children->content;
}
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
SOAP 1.2 Fault support (Code,Reason,Datail instead of faultcode,faultstring,...)
2004-01-26 16:19:29 +00:00
tmp = get_node(fault->children,"Detail");
if (tmp != NULL) {
details = master_to_zval(NULL, tmp);
}
}
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
add_soap_fault(this_ptr, faultcode, faultstring, faultactor, details TSRMLS_CC);
xmlFreeDoc(response);
return FALSE;
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
/* Parse content of <Body> element */
Source ceanup
2004-01-13 15:58:01 +00:00
array_init(return_value);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
resp = body->children;
Source ceanup
2004-01-13 15:58:01 +00:00
while (resp != NULL && resp->type != XML_ELEMENT_NODE) {
resp = resp->next;
}
if (resp != NULL) {
if (fn != NULL && fn->binding && fn->binding->bindingType == BINDING_SOAP) {
/* Function has WSDL description */
sdlParamPtr *h_param, param = NULL;
xmlNodePtr val = NULL;
char *name, *ns = NULL;
zval* tmp;
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
sdlSoapBindingFunctionPtr fnb = (sdlSoapBindingFunctionPtr)fn->bindingAttributes;
int res_count = zend_hash_num_elements(fn->responseParameters);
zend_hash_internal_pointer_reset(fn->responseParameters);
while (zend_hash_get_current_data(fn->responseParameters, (void **)&h_param) == SUCCESS) {
param = (*h_param);
if (fnb->style == SOAP_DOCUMENT) {
name = param->encode->details.type_str;
ns = param->encode->details.ns;
} else {
name = fn->responseName;
/* ns = ? */
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
/* Get value of parameter */
cur = get_node_ex(resp, name, ns);
if (!cur) {
cur = get_node(resp, name);
/* TODO: produce warning invalid ns */
}
if (cur) {
if (fnb->style == SOAP_DOCUMENT) {
val = cur;
} else {
val = get_node(cur->children, param->paramName);
if (val == NULL && res_count == 1) {
val = get_node(cur->children, "return");
}
SOAP Encoding/Decoding were improved.
2004-01-09 14:16:30 +00:00
if (val == NULL && res_count == 1) {
val = get_node(cur->children, "result");
}
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
}
}
some more doc/lit stuff some more wsdl stuff
2002-08-14 05:26:25 +00:00
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
if (!val) {
/* TODO: may be "nil" is not OK? */
MAKE_STD_ZVAL(tmp);
ZVAL_NULL(tmp);
/*
SOAP 1.2 support was improved
2004-01-15 10:59:24 +00:00
add_soap_fault(this_ptr, "Client", "Can't find response data", NULL, NULL TSRMLS_CC);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
xmlFreeDoc(response);
return FALSE;
*/
} else {
/* Decoding value of parameter */
if (param != NULL) {
tmp = master_to_zval(param->encode, val);
} else {
XML Schema support (decoding of xsi:nil with attributes) Source Cleanup
2004-01-26 09:51:07 +00:00
tmp = master_to_zval(NULL, val);
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
}
}
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
add_assoc_zval(return_value, param->paramName, tmp);
param_count++;
zend_hash_move_forward(fn->responseParameters);
}
Source ceanup
2004-01-13 15:58:01 +00:00
} else {
/* Function hasn't WSDL description */
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
xmlNodePtr val;
Source ceanup
2004-01-13 15:58:01 +00:00
val = resp->children;
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
while (val != NULL) {
Source cleanup.
2004-01-09 18:22:03 +00:00
while (val && val->type != XML_ELEMENT_NODE) {
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
val = val->next;
}
if (val != NULL) {
Support for SOAP 1.2 RPC binding (<rpc:result>)
2004-01-26 15:13:45 +00:00
if (!node_is_equal_ex(val,"result",RPC_SOAP12_NAMESPACE)) {
zval *tmp;
tmp = master_to_zval(NULL, val);
if (val->name) {
add_assoc_zval(return_value, (char*)val->name, tmp);
} else {
add_next_index_zval(return_value, tmp);
}
++param_count;
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
}
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
val = val->next;
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
}
}
}
}
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
if (Z_TYPE_P(return_value) == IS_ARRAY) {
if (param_count == 0) {
Source cleanup.
2004-01-09 18:22:03 +00:00
zval_dtor(return_value);
ZVAL_NULL(return_value);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
} else if (param_count == 1) {
Source cleanup.
2004-01-09 18:22:03 +00:00
zval *tmp = *(zval**)Z_ARRVAL_P(return_value)->pListHead->pData;
tmp->refcount++;
zval_dtor(return_value);
*return_value = *tmp;
FREE_ZVAL(tmp);
PHP5 support, better encoding and WSDL support, interop round 2 base and groupB
2004-01-05 16:44:01 +00:00
}
}
import php-soap library from sourceforge
2002-07-07 23:03:43 +00:00
xmlFreeDoc(response);
return TRUE;
}
Reference in New Issue Copy Permalink