diff options
Diffstat (limited to 'ext/xmlrpc/xmlrpc-epi-php.c')
| -rw-r--r-- | ext/xmlrpc/xmlrpc-epi-php.c | 1377 |
1 files changed, 0 insertions, 1377 deletions
diff --git a/ext/xmlrpc/xmlrpc-epi-php.c b/ext/xmlrpc/xmlrpc-epi-php.c deleted file mode 100644 index 9c2f569f55..0000000000 --- a/ext/xmlrpc/xmlrpc-epi-php.c +++ /dev/null @@ -1,1377 +0,0 @@ -/* - This file is part of, or distributed with, libXMLRPC - a C library for - xml-encoded function calls. - - Author: Dan Libby (dan@libby.com) - Epinions.com may be contacted at feedback@epinions-inc.com -*/ - -/* - Copyright 2001 Epinions, Inc. - - Subject to the following 3 conditions, Epinions, Inc. permits you, free - of charge, to (a) use, copy, distribute, modify, perform and display this - software and associated documentation files (the "Software"), and (b) - permit others to whom the Software is furnished to do so as well. - - 1) The above copyright notice and this permission notice shall be included - without modification in all copies or substantial portions of the - Software. - - 2) THE SOFTWARE IS PROVIDED "AS IS", WITHOUT ANY WARRANTY OR CONDITION OF - ANY KIND, EXPRESS, IMPLIED OR STATUTORY, INCLUDING WITHOUT LIMITATION ANY - IMPLIED WARRANTIES OF ACCURACY, MERCHANTABILITY, FITNESS FOR A PARTICULAR - PURPOSE OR NONINFRINGEMENT. - - 3) IN NO EVENT SHALL EPINIONS, INC. BE LIABLE FOR ANY DIRECT, INDIRECT, - SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES OR LOST PROFITS ARISING OUT - OF OR IN CONNECTION WITH THE SOFTWARE (HOWEVER ARISING, INCLUDING - NEGLIGENCE), EVEN IF EPINIONS, INC. IS AWARE OF THE POSSIBILITY OF SUCH - DAMAGES. - -*/ - -/* auto-generated portions of this file are also subject to the php license */ - -/* - +----------------------------------------------------------------------+ - | Copyright (c) The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 3.01 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_01.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. | - +----------------------------------------------------------------------+ - | Author: Dan Libby | - +----------------------------------------------------------------------+ - */ - -/********************************************************************** -* BUGS: * -* - when calling a php user function, there appears to be no way to * -* distinguish between a return value of null, and no return value * -* at all. The xml serialization layer(s) will then return a value * -* of null, when the right thing may be no value at all. (SOAP) * -**********************************************************************/ - -#ifdef HAVE_CONFIG_H -#include "config.h" -#endif - -#include "php.h" -#include "ext/standard/info.h" -#include "ext/standard/php_string.h" -#include "ext/date/php_date.h" -#include "php_ini.h" -#include "php_xmlrpc.h" -#include "xmlrpc.h" -#include "xmlrpc_arginfo.h" - -#include "Zend/zend_interfaces.h" - -zend_module_entry xmlrpc_module_entry = { - STANDARD_MODULE_HEADER, - "xmlrpc", - ext_functions, - PHP_MINIT(xmlrpc), - NULL, - NULL, - NULL, - PHP_MINFO(xmlrpc), - PHP_XMLRPC_VERSION, - STANDARD_MODULE_PROPERTIES -}; - -#ifdef COMPILE_DL_XMLRPC -ZEND_GET_MODULE(xmlrpc) -#endif - -/******************************* -* local structures and defines * -*******************************/ - -/* per server data */ -typedef struct _xmlrpc_server_data { - zval method_map; - zval introspection_map; - XMLRPC_SERVER server_ptr; - zend_object std; -} xmlrpc_server_data; - - -/* how to format output */ -typedef struct _php_output_options { - int b_php_out; - int b_auto_version; - STRUCT_XMLRPC_REQUEST_OUTPUT_OPTIONS xmlrpc_out; -} php_output_options; - -/* data passed to C callback */ -typedef struct _xmlrpc_callback_data { - zval xmlrpc_method; - zval php_function; - zval caller_params; - zval return_data; - xmlrpc_server_data* server; - char php_executed; -} xmlrpc_callback_data; - -/* output options */ -#define OUTPUT_TYPE_KEY "output_type" -#define OUTPUT_TYPE_KEY_LEN (sizeof(OUTPUT_TYPE_KEY) - 1) -#define OUTPUT_TYPE_VALUE_PHP "php" -#define OUTPUT_TYPE_VALUE_XML "xml" - -#define VERBOSITY_KEY "verbosity" -#define VERBOSITY_KEY_LEN (sizeof(VERBOSITY_KEY) - 1) -#define VERBOSITY_VALUE_NO_WHITE_SPACE "no_white_space" -#define VERBOSITY_VALUE_NEWLINES_ONLY "newlines_only" -#define VERBOSITY_VALUE_PRETTY "pretty" - -#define ESCAPING_KEY "escaping" -#define ESCAPING_KEY_LEN (sizeof(ESCAPING_KEY) - 1) -#define ESCAPING_VALUE_CDATA "cdata" -#define ESCAPING_VALUE_NON_ASCII "non-ascii" -#define ESCAPING_VALUE_NON_PRINT "non-print" -#define ESCAPING_VALUE_MARKUP "markup" - -#define VERSION_KEY "version" -#define VERSION_KEY_LEN (sizeof(VERSION_KEY) - 1) -#define VERSION_VALUE_SIMPLE "simple" -#define VERSION_VALUE_XMLRPC "xmlrpc" -#define VERSION_VALUE_SOAP11 "soap 1.1" -#define VERSION_VALUE_AUTO "auto" - -#define ENCODING_KEY "encoding" -#define ENCODING_KEY_LEN (sizeof(ENCODING_KEY) - 1) -#define ENCODING_DEFAULT "iso-8859-1" - -/* value types */ -#define OBJECT_TYPE_ATTR "xmlrpc_type" -#define OBJECT_VALUE_ATTR "scalar" -#define OBJECT_VALUE_TS_ATTR "timestamp" - -/* faults */ -#define FAULT_CODE "faultCode" -#define FAULT_CODE_LEN (sizeof(FAULT_CODE) - 1) -#define FAULT_STRING "faultString" -#define FAULT_STRING_LEN (sizeof(FAULT_STRING) - 1) - -/*********************** -* forward declarations * -***********************/ -XMLRPC_VALUE_TYPE get_zval_xmlrpc_type(zval* value, zval* newvalue); -static void php_xmlrpc_introspection_callback(XMLRPC_SERVER server, void* data); -int sset_zval_xmlrpc_type(zval* value, XMLRPC_VALUE_TYPE type); -void decode_request_worker(char *xml_in, int xml_in_len, char *encoding_in, zval* method_name_out, zval *retval); -const char* xmlrpc_type_as_str(XMLRPC_VALUE_TYPE type, XMLRPC_VECTOR_TYPE vtype); -XMLRPC_VALUE_TYPE xmlrpc_str_as_type(const char* str); -XMLRPC_VECTOR_TYPE xmlrpc_str_as_vector_type(const char* str); -int set_zval_xmlrpc_type(zval* value, XMLRPC_VALUE_TYPE type); - -/********************* -* XmlRpcServer class * -*********************/ - -zend_class_entry *xmlrpc_server_ce; -static zend_object_handlers xmlrpc_server_object_handlers; - -static inline xmlrpc_server_data *xmlrpc_server_from_obj(zend_object *obj) { - return (xmlrpc_server_data *)((char *)(obj) - XtOffsetOf(xmlrpc_server_data, std)); -} - -#define Z_XMLRPC_SERVER_P(zv) xmlrpc_server_from_obj(Z_OBJ_P(zv)) - -static zend_object *xmlrpc_server_create_object(zend_class_entry *class_type) { - xmlrpc_server_data *intern = zend_object_alloc(sizeof(xmlrpc_server_data), class_type); - - zend_object_std_init(&intern->std, class_type); - object_properties_init(&intern->std, class_type); - intern->std.handlers = &xmlrpc_server_object_handlers; - - return &intern->std; -} - -static zend_function *xmlrpc_server_get_constructor(zend_object *object) { - zend_throw_error(NULL, "Cannot directly construct XmlRpcServer, use xmlrpc_server_create() instead"); - return NULL; -} - -static void xmlrpc_server_free_obj(zend_object *object) -{ - xmlrpc_server_data *server = xmlrpc_server_from_obj(object); - - XMLRPC_ServerDestroy(server->server_ptr); - - zval_ptr_dtor(&server->method_map); - zval_ptr_dtor(&server->introspection_map); - zend_object_std_dtor(&server->std); -} - -static HashTable *xmlrpc_server_get_gc(zend_object *object, zval **table, int *n) -{ - xmlrpc_server_data *xmlrpc_server = xmlrpc_server_from_obj(object); - - *table = &xmlrpc_server->method_map; - *n = 2; - - return zend_std_get_properties(object); -} - -/* module init */ -PHP_MINIT_FUNCTION(xmlrpc) -{ - zend_class_entry ce; - INIT_CLASS_ENTRY(ce, "XmlRpcServer", class_XmlRpcServer_methods); - xmlrpc_server_ce = zend_register_internal_class(&ce); - xmlrpc_server_ce->ce_flags |= ZEND_ACC_FINAL; - xmlrpc_server_ce->create_object = xmlrpc_server_create_object; - xmlrpc_server_ce->serialize = zend_class_serialize_deny; - xmlrpc_server_ce->unserialize = zend_class_unserialize_deny; - - memcpy(&xmlrpc_server_object_handlers, &std_object_handlers, sizeof(zend_object_handlers)); - xmlrpc_server_object_handlers.offset = XtOffsetOf(xmlrpc_server_data, std); - xmlrpc_server_object_handlers.free_obj = xmlrpc_server_free_obj; - xmlrpc_server_object_handlers.get_gc = xmlrpc_server_get_gc; - xmlrpc_server_object_handlers.get_constructor = xmlrpc_server_get_constructor; - xmlrpc_server_object_handlers.clone_obj = NULL; - - return SUCCESS; -} - -/* display info in phpinfo() */ -PHP_MINFO_FUNCTION(xmlrpc) -{ - php_info_print_table_start(); - php_info_print_table_row(2, "core library version", XMLRPC_GetVersionString()); - php_info_print_table_row(2, "author", "Dan Libby"); - php_info_print_table_row(2, "homepage", "http://xmlrpc-epi.sourceforge.net"); - php_info_print_table_row(2, "open sourced by", "Epinions.com"); - php_info_print_table_end(); -} - -/******************* -* random utilities * -*******************/ - -/* Utility functions for adding data types to arrays, with or without key (assoc, non-assoc). - * Could easily be further generalized to work with objects. - */ -#if 0 -static int add_long(zval* list, char* id, int num) { - if(id) return add_assoc_long(list, id, num); - else return add_next_index_long(list, num); -} - -static int add_double(zval* list, char* id, double num) { - if(id) return add_assoc_double(list, id, num); - else return add_next_index_double(list, num); -} - -static int add_string(zval* list, char* id, char* string) { - if(id) return add_assoc_string(list, id, string); - else return add_next_index_string(list, string); -} - -static int add_stringl(zval* list, char* id, char* string, uint32_t length) { - if(id) return add_assoc_stringl(list, id, string, length); - else return add_next_index_stringl(list, string, length); -} - -#endif - -static void add_zval(zval* list, const char* id, zval* val) -{ - if (list && val) { - if (id) { - int id_len = strlen(id); - if (!(id_len > 1 && id[0] == '0') && is_numeric_string((char *)id, id_len, NULL, NULL, 0) == IS_LONG) { - long index = strtol(id, NULL, 0); - zend_hash_index_update(Z_ARRVAL_P(list), index, val); - } else { - zend_hash_str_update(Z_ARRVAL_P(list), (char*)id, strlen(id), val); - } - } else { - zend_hash_next_index_insert(Z_ARRVAL_P(list), val); - } - } -} - -/************************* -* input / output options * -*************************/ - -/* parse an array (user input) into output options suitable for use by xmlrpc engine - * and determine whether to return data as xml or php vars */ -static void set_output_options(php_output_options* options, zval* output_opts) -{ - if (options) { - /* defaults */ - options->b_php_out = 0; - options->b_auto_version = 1; - options->xmlrpc_out.version = xmlrpc_version_1_0; - options->xmlrpc_out.xml_elem_opts.encoding = ENCODING_DEFAULT; - options->xmlrpc_out.xml_elem_opts.verbosity = xml_elem_pretty; - options->xmlrpc_out.xml_elem_opts.escaping = xml_elem_markup_escaping | xml_elem_non_ascii_escaping | xml_elem_non_print_escaping; - - if (output_opts && Z_TYPE_P(output_opts) == IS_ARRAY) { - zval* val; - - /* type of output (xml/php) */ - if ((val = zend_hash_str_find(Z_ARRVAL_P(output_opts), OUTPUT_TYPE_KEY, OUTPUT_TYPE_KEY_LEN)) != NULL) { - if (Z_TYPE_P(val) == IS_STRING) { - if (!strcmp(Z_STRVAL_P(val), OUTPUT_TYPE_VALUE_PHP)) { - options->b_php_out = 1; - } else if (!strcmp(Z_STRVAL_P(val), OUTPUT_TYPE_VALUE_XML)) { - options->b_php_out = 0; - } - } - } - - /* verbosity of generated xml */ - if ((val = zend_hash_str_find(Z_ARRVAL_P(output_opts), VERBOSITY_KEY, VERBOSITY_KEY_LEN)) != NULL) { - if (Z_TYPE_P(val) == IS_STRING) { - if (!strcmp(Z_STRVAL_P(val), VERBOSITY_VALUE_NO_WHITE_SPACE)) { - options->xmlrpc_out.xml_elem_opts.verbosity = xml_elem_no_white_space; - } else if (!strcmp(Z_STRVAL_P(val), VERBOSITY_VALUE_NEWLINES_ONLY)) { - options->xmlrpc_out.xml_elem_opts.verbosity = xml_elem_newlines_only; - } else if (!strcmp(Z_STRVAL_P(val), VERBOSITY_VALUE_PRETTY)) { - options->xmlrpc_out.xml_elem_opts.verbosity = xml_elem_pretty; - } - } - } - - /* version of xml to output */ - if ((val = zend_hash_str_find(Z_ARRVAL_P(output_opts), VERSION_KEY, VERSION_KEY_LEN)) != NULL) { - if (Z_TYPE_P(val) == IS_STRING) { - options->b_auto_version = 0; - if (!strcmp(Z_STRVAL_P(val), VERSION_VALUE_XMLRPC)) { - options->xmlrpc_out.version = xmlrpc_version_1_0; - } else if (!strcmp(Z_STRVAL_P(val), VERSION_VALUE_SIMPLE)) { - options->xmlrpc_out.version = xmlrpc_version_simple; - } else if (!strcmp(Z_STRVAL_P(val), VERSION_VALUE_SOAP11)) { - options->xmlrpc_out.version = xmlrpc_version_soap_1_1; - } else { /* if(!strcmp(Z_STRVAL_P(val), VERSION_VALUE_AUTO)) { */ - options->b_auto_version = 1; - } - } - - } - - /* encoding code set */ - if ((val = zend_hash_str_find(Z_ARRVAL_P(output_opts), ENCODING_KEY, ENCODING_KEY_LEN)) != NULL) { - if (Z_TYPE_P(val) == IS_STRING) { - options->xmlrpc_out.xml_elem_opts.encoding = estrdup(Z_STRVAL_P(val)); - } - } - - /* escaping options */ - if ((val = zend_hash_str_find(Z_ARRVAL_P(output_opts), ESCAPING_KEY, ESCAPING_KEY_LEN)) != NULL) { - /* multiple values allowed. check if array */ - if (Z_TYPE_P(val) == IS_ARRAY) { - zval* iter_val; - - options->xmlrpc_out.xml_elem_opts.escaping = xml_elem_no_escaping; - - ZEND_HASH_FOREACH_VAL(Z_ARRVAL_P(val), iter_val) { - if (Z_TYPE_P(iter_val) == IS_STRING && Z_STRVAL_P(iter_val)) { - if (!strcmp(Z_STRVAL_P(iter_val), ESCAPING_VALUE_CDATA)) { - options->xmlrpc_out.xml_elem_opts.escaping |= xml_elem_cdata_escaping; - } else if (!strcmp(Z_STRVAL_P(iter_val), ESCAPING_VALUE_NON_ASCII)) { - options->xmlrpc_out.xml_elem_opts.escaping |= xml_elem_non_ascii_escaping; - } else if (!strcmp(Z_STRVAL_P(iter_val), ESCAPING_VALUE_NON_PRINT)) { - options->xmlrpc_out.xml_elem_opts.escaping |= xml_elem_non_print_escaping; - } else if (!strcmp(Z_STRVAL_P(iter_val), ESCAPING_VALUE_MARKUP)) { - options->xmlrpc_out.xml_elem_opts.escaping |= xml_elem_markup_escaping; - } - } - } ZEND_HASH_FOREACH_END(); - /* else, check for single value */ - } else if (Z_TYPE_P(val) == IS_STRING) { - if (!strcmp(Z_STRVAL_P(val), ESCAPING_VALUE_CDATA)) { - options->xmlrpc_out.xml_elem_opts.escaping = xml_elem_cdata_escaping; - } else if (!strcmp(Z_STRVAL_P(val), ESCAPING_VALUE_NON_ASCII)) { - options->xmlrpc_out.xml_elem_opts.escaping = xml_elem_non_ascii_escaping; - } else if (!strcmp(Z_STRVAL_P(val), ESCAPING_VALUE_NON_PRINT)) { - options->xmlrpc_out.xml_elem_opts.escaping = xml_elem_non_print_escaping; - } else if (!strcmp(Z_STRVAL_P(val), ESCAPING_VALUE_MARKUP)) { - options->xmlrpc_out.xml_elem_opts.escaping = xml_elem_markup_escaping; - } - } - } - } - } -} - - -/****************** -* encode / decode * -******************/ - -/* php arrays have no distinction between array and struct types. - * they even allow mixed. Thus, we determine the type by iterating - * through the entire array and figuring out each element. - * room for some optimisation here if we stop after a specific # of elements. - */ -static XMLRPC_VECTOR_TYPE determine_vector_type (HashTable *ht) -{ - int bArray = 0, bStruct = 0, bMixed = 0; - zend_ulong num_index, last_num = 0; - zend_string* my_key; - - ZEND_HASH_FOREACH_KEY(ht, num_index, my_key) { - if (my_key == NULL) { - if (bStruct) { - bMixed = 1; - break; - } else if (last_num > 0 && last_num != num_index-1) { - bStruct = 1; - break; - } - bArray = 1; - last_num = num_index; - } else { - if (bArray) { - bMixed = 1; - break; - } - bStruct = 1; - } - } ZEND_HASH_FOREACH_END(); - return bMixed ? xmlrpc_vector_mixed : (bStruct ? xmlrpc_vector_struct : xmlrpc_vector_array); -} - -/* recursively convert php values into xmlrpc values */ -static XMLRPC_VALUE PHP_to_XMLRPC_worker (const char* key, zval* in_val, int depth) -{ - XMLRPC_VALUE xReturn = NULL; - - if (in_val) { - zval val; - XMLRPC_VALUE_TYPE type; - - ZVAL_UNDEF(&val); - type = get_zval_xmlrpc_type(in_val, &val); - - if (!Z_ISUNDEF(val)) { - switch (type) { - case xmlrpc_base64: - if (Z_TYPE(val) == IS_NULL) { - xReturn = XMLRPC_CreateValueEmpty(); - XMLRPC_SetValueID(xReturn, key, 0); - } else { - if (Z_TYPE(val) != IS_STRING) { - zend_string *str = zval_get_string_func(&val); - xReturn = XMLRPC_CreateValueBase64(key, ZSTR_VAL(str), ZSTR_LEN(str)); - zend_string_release_ex(str, 0); - } else { - xReturn = XMLRPC_CreateValueBase64(key, Z_STRVAL(val), Z_STRLEN(val)); - } - } - break; - case xmlrpc_datetime: - if (!try_convert_to_string(&val)) { - return NULL; - } - xReturn = XMLRPC_CreateValueDateTime_ISO8601(key, Z_STRVAL(val)); - break; - case xmlrpc_boolean: - convert_to_boolean(&val); - xReturn = XMLRPC_CreateValueBoolean(key, Z_TYPE(val) == IS_TRUE); - break; - case xmlrpc_int: - ZVAL_LONG(&val, zval_get_long(&val)); - xReturn = XMLRPC_CreateValueInt(key, Z_LVAL(val)); - break; - case xmlrpc_double: - convert_to_double(&val); - xReturn = XMLRPC_CreateValueDouble(key, Z_DVAL(val)); - break; - case xmlrpc_string: - if (!try_convert_to_string(&val)) { - return NULL; - } - xReturn = XMLRPC_CreateValueString(key, Z_STRVAL(val), Z_STRLEN(val)); - break; - case xmlrpc_vector: - { - zend_ulong num_index; - zval* pIter; - zend_string* my_key; - HashTable *ht = NULL; - zval val_arr; - XMLRPC_VECTOR_TYPE vtype; - - ht = HASH_OF(&val); - if (ht && !(GC_FLAGS(ht) & GC_IMMUTABLE)) { - if (GC_IS_RECURSIVE(ht)) { - zend_throw_error(NULL, "XML-RPC doesn't support circular references"); - return NULL; - } - GC_PROTECT_RECURSION(ht); - } - - ZVAL_COPY(&val_arr, &val); - convert_to_array(&val_arr); - - vtype = determine_vector_type(Z_ARRVAL(val_arr)); - xReturn = XMLRPC_CreateVector(key, vtype); - - ZEND_HASH_FOREACH_KEY_VAL(Z_ARRVAL(val_arr), num_index, my_key, pIter) { - ZVAL_DEREF(pIter); - if (my_key == NULL) { - char *num_str = NULL; - - if (vtype != xmlrpc_vector_array) { - spprintf(&num_str, 0, ZEND_LONG_FMT, num_index); - } - - XMLRPC_AddValueToVector(xReturn, PHP_to_XMLRPC_worker(num_str, pIter, depth++)); - if (num_str) { - efree(num_str); - } - } else { - XMLRPC_AddValueToVector(xReturn, PHP_to_XMLRPC_worker(ZSTR_VAL(my_key), pIter, depth++)); - } - } ZEND_HASH_FOREACH_END(); - if (ht && !(GC_FLAGS(ht) & GC_IMMUTABLE)) { - GC_UNPROTECT_RECURSION(ht); - } - zval_ptr_dtor(&val_arr); - } - break; - default: - break; - } - } - } - return xReturn; -} - -static XMLRPC_VALUE PHP_to_XMLRPC(zval* root_val) -{ - return PHP_to_XMLRPC_worker(NULL, root_val, 0); -} - -/* recursively convert xmlrpc values into php values */ -static void XMLRPC_to_PHP(XMLRPC_VALUE el, zval *elem) -{ - const char* pStr; - - if (el) { - XMLRPC_VALUE_TYPE type = XMLRPC_GetValueType(el); - - switch (type) { - case xmlrpc_empty: - ZVAL_NULL(elem); - break; - case xmlrpc_string: - pStr = XMLRPC_GetValueString(el); - if (pStr) { - ZVAL_STRINGL(elem, pStr, XMLRPC_GetValueStringLen(el)); - } - break; - case xmlrpc_int: - ZVAL_LONG(elem, XMLRPC_GetValueInt(el)); - break; - case xmlrpc_boolean: - ZVAL_BOOL(elem, XMLRPC_GetValueBoolean(el)); - break; - case xmlrpc_double: - ZVAL_DOUBLE(elem, XMLRPC_GetValueDouble(el)); - break; - case xmlrpc_datetime: - ZVAL_STRINGL(elem, XMLRPC_GetValueDateTime_ISO8601(el), XMLRPC_GetValueStringLen(el)); - break; - case xmlrpc_base64: - pStr = XMLRPC_GetValueBase64(el); - if (pStr) { - ZVAL_STRINGL(elem, pStr, XMLRPC_GetValueStringLen(el)); - } - break; - case xmlrpc_vector: - array_init(elem); - { - XMLRPC_VALUE xIter = XMLRPC_VectorRewind(el); - - while( xIter ) { - zval val; - ZVAL_UNDEF(&val); - XMLRPC_to_PHP(xIter, &val); - if (!Z_ISUNDEF(val)) { - add_zval(elem, XMLRPC_GetValueID(xIter), &val); - } - xIter = XMLRPC_VectorNext(el); - } - } - break; - default: - break; - } - set_zval_xmlrpc_type(elem, type); - } -} - -/* {{{ proto string xmlrpc_encode_request(string method, mixed params [, array output_options]) - Generates XML for a method request */ -PHP_FUNCTION(xmlrpc_encode_request) -{ - XMLRPC_REQUEST xRequest = NULL; - char *outBuf; - zval *vals, *out_opts = NULL; - char *method = NULL; - size_t method_len; - php_output_options out; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "s!z|a", &method, &method_len, &vals, &out_opts) == FAILURE) { - RETURN_THROWS(); - } - - set_output_options(&out, out_opts ? out_opts : 0); - - xRequest = XMLRPC_RequestNew(); - - if (xRequest) { - XMLRPC_RequestSetOutputOptions(xRequest, &out.xmlrpc_out); - if (method == NULL) { - XMLRPC_RequestSetRequestType(xRequest, xmlrpc_request_response); - } else { - XMLRPC_RequestSetMethodName(xRequest, method); - XMLRPC_RequestSetRequestType(xRequest, xmlrpc_request_call); - } - if (Z_TYPE_P(vals) != IS_NULL) { - XMLRPC_RequestSetData(xRequest, PHP_to_XMLRPC(vals)); - } - - outBuf = XMLRPC_REQUEST_ToXML(xRequest, 0); - if (outBuf) { - RETVAL_STRING(outBuf); -#ifdef HAVE_XMLRPC_BUNDLED - efree(outBuf); -#else - free(outBuf); -#endif - } - XMLRPC_RequestFree(xRequest, 1); - } - - if (strcmp(out.xmlrpc_out.xml_elem_opts.encoding, ENCODING_DEFAULT) != 0) { - efree((char *)out.xmlrpc_out.xml_elem_opts.encoding); - } -} -/* }}} */ - -/* {{{ proto string xmlrpc_encode(mixed value) - Generates XML for a PHP value */ -PHP_FUNCTION(xmlrpc_encode) -{ - XMLRPC_VALUE xOut = NULL; - zval *arg1; - char *outBuf; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "z", &arg1) == FAILURE) { - RETURN_THROWS(); - } - - /* convert native php type to xmlrpc type */ - xOut = PHP_to_XMLRPC(arg1); - - /* generate raw xml from xmlrpc data */ - outBuf = XMLRPC_VALUE_ToXML(xOut, 0); - - if (xOut) { - if (outBuf) { - RETVAL_STRING(outBuf); -#ifdef HAVE_XMLRPC_BUNDLED - efree(outBuf); -#else - free(outBuf); -#endif - } - /* cleanup */ - XMLRPC_CleanupValue(xOut); - } -} -/* }}} */ - -void decode_request_worker(char *xml_in, int xml_in_len, char *encoding_in, zval* method_name_out, zval *retval) /* {{{ */ -{ - XMLRPC_REQUEST response; - STRUCT_XMLRPC_REQUEST_INPUT_OPTIONS opts = {{0}}; - const char *method_name; - opts.xml_elem_opts.encoding = encoding_in ? utf8_get_encoding_id_from_string(encoding_in) : ENCODING_DEFAULT; - - /* generate XMLRPC_REQUEST from raw xml */ - response = XMLRPC_REQUEST_FromXML(xml_in, xml_in_len, &opts); - if (response) { - ZVAL_NULL(retval); - /* convert xmlrpc data to native php types */ - XMLRPC_to_PHP(XMLRPC_RequestGetData(response), retval); - - if (XMLRPC_RequestGetRequestType(response) == xmlrpc_request_call) { - if (method_name_out) { - method_name = XMLRPC_RequestGetMethodName(response); - if (method_name) { - ZEND_TRY_ASSIGN_REF_STRING(method_name_out, method_name); - } else { - ZVAL_NULL(retval); - } - } - } - - /* dust, sweep, and mop */ - XMLRPC_RequestFree(response, 1); - } -} -/* }}} */ - -/* {{{ proto array xmlrpc_decode_request(string xml, string& method [, string encoding]) - Decodes XML into native PHP types */ -PHP_FUNCTION(xmlrpc_decode_request) -{ - char *xml, *encoding = NULL; - zval *method; - size_t xml_len, encoding_len = 0; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "sz|s", &xml, &xml_len, &method, &encoding, &encoding_len) == FAILURE) { - RETURN_THROWS(); - } - - decode_request_worker(xml, xml_len, encoding_len ? encoding : NULL, method, return_value); -} -/* }}} */ - -/* {{{ proto array xmlrpc_decode(string xml [, string encoding]) - Decodes XML into native PHP types */ -PHP_FUNCTION(xmlrpc_decode) -{ - char *arg1, *arg2 = NULL; - size_t arg1_len, arg2_len = 0; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "s|s", &arg1, &arg1_len, &arg2, &arg2_len) == FAILURE) { - RETURN_THROWS(); - } - - decode_request_worker(arg1, arg1_len, arg2_len ? arg2 : NULL, NULL, return_value); -} -/* }}} */ - -/************************* -* server related methods * -*************************/ - -/* {{{ proto XmlRpcServer xmlrpc_server_create(void) - Creates an xmlrpc server */ -PHP_FUNCTION(xmlrpc_server_create) -{ - if (zend_parse_parameters_none() == FAILURE) { - RETURN_THROWS(); - } - - xmlrpc_server_data *server; - - object_init_ex(return_value, xmlrpc_server_ce); - server = Z_XMLRPC_SERVER_P(return_value); - - array_init(&server->method_map); - array_init(&server->introspection_map); - server->server_ptr = XMLRPC_ServerCreate(); - - XMLRPC_ServerRegisterIntrospectionCallback(server->server_ptr, php_xmlrpc_introspection_callback); -} -/* }}} */ - -/* {{{ proto bool xmlrpc_server_destroy(XmlRpcServer server) - Destroys server resources */ -PHP_FUNCTION(xmlrpc_server_destroy) -{ - zval *arg1; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "O", &arg1, xmlrpc_server_ce) == FAILURE) { - RETURN_THROWS(); - } - - RETURN_TRUE; -} -/* }}} */ - -/* called by xmlrpc C engine as method handler for all registered methods. - * it then calls the corresponding PHP function to handle the method. - */ -static XMLRPC_VALUE php_xmlrpc_callback(XMLRPC_SERVER server, XMLRPC_REQUEST xRequest, void* data) /* {{{ */ -{ - xmlrpc_callback_data* pData = (xmlrpc_callback_data*)data; - zval* php_function; - zval xmlrpc_params; - zval callback_params[3]; - - zval_ptr_dtor(&pData->xmlrpc_method); - zval_ptr_dtor(&pData->return_data); - - /* convert xmlrpc to native php types */ - ZVAL_STRING(&pData->xmlrpc_method, XMLRPC_RequestGetMethodName(xRequest)); - XMLRPC_to_PHP(XMLRPC_RequestGetData(xRequest), &xmlrpc_params); - - /* check if the called method has been previous registered */ - if ((php_function = zend_hash_find(Z_ARRVAL(pData->server->method_map), Z_STR(pData->xmlrpc_method))) != NULL) { - ZVAL_COPY_VALUE(&pData->php_function, php_function); - } - - /* setup data hoojum */ - ZVAL_COPY_VALUE(&callback_params[0], &pData->xmlrpc_method); - ZVAL_COPY_VALUE(&callback_params[1], &xmlrpc_params); - ZVAL_COPY_VALUE(&callback_params[2], &pData->caller_params); - - /* Use same C function for all methods */ - - /* php func prototype: function user_func($method_name, $xmlrpc_params, $user_params) */ - call_user_function(NULL, NULL, &pData->php_function, &pData->return_data, 3, callback_params); - - pData->php_executed = 1; - - zval_ptr_dtor(&xmlrpc_params); - - return PHP_to_XMLRPC(&pData->return_data); -} -/* }}} */ - -/* called by the C server when it first receives an introspection request. We pass this on to - * our PHP listeners, if any - */ -static void php_xmlrpc_introspection_callback(XMLRPC_SERVER server, void* data) /* {{{ */ -{ - zval retval, *php_function; - zval callback_params[1]; - zend_string *php_function_name; - xmlrpc_callback_data* pData = (xmlrpc_callback_data*)data; - - /* setup data hoojum */ - ZVAL_COPY_VALUE(&callback_params[0], &pData->caller_params); - - ZEND_HASH_FOREACH_VAL(Z_ARRVAL(pData->server->introspection_map), php_function) { - if (zend_is_callable(php_function, 0, &php_function_name)) { - /* php func prototype: function string user_func($user_params) */ - if (call_user_function(NULL, NULL, php_function, &retval, 1, callback_params) == SUCCESS) { - XMLRPC_VALUE xData; - STRUCT_XMLRPC_ERROR err = {0}; - - /* return value should be a string */ - if (!try_convert_to_string(&retval)) { - zend_string_release_ex(php_function_name, 0); - break; - } - - xData = XMLRPC_IntrospectionCreateDescription(Z_STRVAL(retval), &err); - - if (xData) { - if (!XMLRPC_ServerAddIntrospectionData(server, xData)) { - php_error_docref(NULL, E_WARNING, "Unable to add introspection data returned from %s(), improper element structure", ZSTR_VAL(php_function_name)); - } - XMLRPC_CleanupValue(xData); - } else { - /* could not create description */ - if (err.xml_elem_error.parser_code) { - php_error_docref(NULL, E_WARNING, "XML parse error: [line %ld, column %ld, message: %s] Unable to add introspection data returned from %s()", - err.xml_elem_error.column, err.xml_elem_error.line, err.xml_elem_error.parser_error, ZSTR_VAL(php_function_name)); - } else { - php_error_docref(NULL, E_WARNING, "Unable to add introspection data returned from %s()", ZSTR_VAL(php_function_name)); - } - } - zval_ptr_dtor(&retval); - } else { - /* user func failed */ - php_error_docref(NULL, E_WARNING, "Error calling user introspection callback: %s()", ZSTR_VAL(php_function_name)); - } - } else { - php_error_docref(NULL, E_WARNING, "Invalid callback '%s' passed", ZSTR_VAL(php_function_name)); - } - zend_string_release_ex(php_function_name, 0); - } ZEND_HASH_FOREACH_END(); - - /* so we don't call the same callbacks ever again */ - zend_hash_clean(Z_ARRVAL(pData->server->introspection_map)); -} -/* }}} */ - -/* {{{ proto bool xmlrpc_server_register_method(XmlRpcServer server, string method_name, string function) - Register a PHP function to handle method matching method_name */ -PHP_FUNCTION(xmlrpc_server_register_method) -{ - char *method_key; - size_t method_key_len; - zval *handle, *method_name; - xmlrpc_server_data* server; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "Osz", &handle, xmlrpc_server_ce, &method_key, &method_key_len, &method_name) == FAILURE) { - RETURN_THROWS(); - } - - server = Z_XMLRPC_SERVER_P(handle); - - /* register with C engine. every method just calls our standard callback, - * and it then dispatches to php as necessary - */ - if (XMLRPC_ServerRegisterMethod(server->server_ptr, method_key, php_xmlrpc_callback)) { - /* save for later use */ - - Z_TRY_ADDREF_P(method_name); - /* register our php method */ - add_zval(&server->method_map, method_key, method_name); - - RETURN_TRUE; - } -} -/* }}} */ - -/* {{{ proto bool xmlrpc_server_register_introspection_callback(XmlRpcServer server, string function) - Register a PHP function to generate documentation */ -PHP_FUNCTION(xmlrpc_server_register_introspection_callback) -{ - zval *method_name, *handle; - xmlrpc_server_data* server; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "Oz", &handle, xmlrpc_server_ce, &method_name) == FAILURE) { - RETURN_THROWS(); - } - - server = Z_XMLRPC_SERVER_P(handle); - - Z_TRY_ADDREF_P(method_name); - /* register our php method */ - add_zval(&server->introspection_map, NULL, method_name); - - RETURN_TRUE; -} -/* }}} */ - -/* this function is itchin for a re-write */ - -/* {{{ proto mixed xmlrpc_server_call_method(XmlRpcServer server, string xml, mixed user_data [, array output_options]) - Parses XML requests and call methods */ -PHP_FUNCTION(xmlrpc_server_call_method) -{ - XMLRPC_REQUEST xRequest; - xmlrpc_callback_data data; - STRUCT_XMLRPC_REQUEST_INPUT_OPTIONS input_opts; - xmlrpc_server_data* server; - zval *caller_params, *handle, *output_opts = NULL; - char *rawxml; - size_t rawxml_len; - php_output_options out; - int argc = ZEND_NUM_ARGS(); - - if (zend_parse_parameters(argc, "Osz|a", &handle, xmlrpc_server_ce, &rawxml, &rawxml_len, &caller_params, &output_opts) != SUCCESS) { - RETURN_THROWS(); - } - - set_output_options(&out, output_opts ? output_opts : NULL); - - server = Z_XMLRPC_SERVER_P(handle); - - /* HACK: use output encoding for now */ - input_opts.xml_elem_opts.encoding = utf8_get_encoding_id_from_string(out.xmlrpc_out.xml_elem_opts.encoding); - - /* generate an XMLRPC_REQUEST from the raw xml input */ - xRequest = XMLRPC_REQUEST_FromXML(rawxml, rawxml_len, &input_opts); - - if (xRequest) { - const char* methodname = XMLRPC_RequestGetMethodName(xRequest); - XMLRPC_VALUE xAnswer = NULL; - ZVAL_NULL(&data.xmlrpc_method); /* init. very important. spent a frustrating day finding this out. */ - ZVAL_NULL(&data.return_data); - ZVAL_NULL(&data.return_data); /* in case value is never init'd, we don't dtor to think it is a string or something */ - ZVAL_NULL(&data.xmlrpc_method); - - /* setup some data to pass to the callback function */ - ZVAL_COPY_VALUE(&data.caller_params, caller_params); - data.php_executed = 0; - data.server = server; - - /* We could just call the php method directly ourselves at this point, but we do this - * with a C callback in case the xmlrpc library ever implements some cool usage stats, - * or somesuch. - */ - xAnswer = XMLRPC_ServerCallMethod(server->server_ptr, xRequest, &data); - if (xAnswer && out.b_php_out) { - XMLRPC_to_PHP(xAnswer, &data.return_data); - } else if (data.php_executed && !out.b_php_out && !xAnswer) { - xAnswer = PHP_to_XMLRPC(&data.return_data); - } - - /* should we return data as xml? */ - if (!out.b_php_out) { - XMLRPC_REQUEST xResponse = XMLRPC_RequestNew(); - if (xResponse) { - char *outBuf = 0; - int buf_len = 0; - - /* automagically determine output serialization type from request type */ - if (out.b_auto_version) { - XMLRPC_REQUEST_OUTPUT_OPTIONS opts = XMLRPC_RequestGetOutputOptions(xRequest); - if (opts) { - out.xmlrpc_out.version = opts->version; - } - } - /* set some required request hoojum */ - XMLRPC_RequestSetOutputOptions(xResponse, &out.xmlrpc_out); - XMLRPC_RequestSetRequestType(xResponse, xmlrpc_request_response); - XMLRPC_RequestSetData(xResponse, xAnswer); - XMLRPC_RequestSetMethodName(xResponse, methodname); - - /* generate xml */ - outBuf = XMLRPC_REQUEST_ToXML(xResponse, &buf_len); - if (outBuf) { - RETVAL_STRINGL(outBuf, buf_len); -#ifdef HAVE_XMLRPC_BUNDLED - efree(outBuf); -#else - free(outBuf); -#endif - } - /* cleanup after ourselves. what a sty! */ - XMLRPC_RequestFree(xResponse, 0); - } - } else { /* or as native php types? */ - ZVAL_COPY(return_value, &data.return_data); - } - - /* cleanup after ourselves. what a sty! */ - zval_ptr_dtor(&data.xmlrpc_method); - zval_ptr_dtor(&data.return_data); - - if (xAnswer) { - XMLRPC_CleanupValue(xAnswer); - } - - XMLRPC_RequestFree(xRequest, 1); - } -} -/* }}} */ - -/* {{{ proto int xmlrpc_server_add_introspection_data(XmlRpcServer server, array desc) - Adds introspection documentation */ -PHP_FUNCTION(xmlrpc_server_add_introspection_data) -{ - zval *handle, *desc; - xmlrpc_server_data* server; - XMLRPC_VALUE xDesc; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "Oa", &handle, xmlrpc_server_ce, &desc) == FAILURE) { - RETURN_THROWS(); - } - - server = Z_XMLRPC_SERVER_P(handle); - - xDesc = PHP_to_XMLRPC(desc); - if (xDesc) { - int retval = XMLRPC_ServerAddIntrospectionData(server->server_ptr, xDesc); - XMLRPC_CleanupValue(xDesc); - RETURN_LONG(retval); - } - RETURN_LONG(0); -} -/* }}} */ - -/* {{{ proto array xmlrpc_parse_method_descriptions(string xml) - Decodes XML into a list of method descriptions */ -PHP_FUNCTION(xmlrpc_parse_method_descriptions) -{ - char *arg1; - size_t arg1_len; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "s", &arg1, &arg1_len) == FAILURE) { - RETURN_THROWS(); - } - - STRUCT_XMLRPC_ERROR err = {0}; - XMLRPC_VALUE xVal = XMLRPC_IntrospectionCreateDescription(arg1, &err); - if (xVal) { - XMLRPC_to_PHP(xVal, return_value); - /* dust, sweep, and mop */ - XMLRPC_CleanupValue(xVal); - } else { - /* could not create description */ - if (err.xml_elem_error.parser_code) { - php_error_docref(NULL, E_WARNING, "XML parse error: [line %ld, column %ld, message: %s] Unable to create introspection data", - err.xml_elem_error.column, err.xml_elem_error.line, err.xml_elem_error.parser_error); - } else { - php_error_docref(NULL, E_WARNING, "Invalid xml structure. Unable to create introspection data"); - } - - php_error_docref(NULL, E_WARNING, "XML parse error. no method description created"); - } -} -/* }}} */ - -/************ -* type data * -************/ - -#define XMLRPC_TYPE_COUNT 9 -#define XMLRPC_VECTOR_TYPE_COUNT 4 -#define TYPE_STR_MAP_SIZE (XMLRPC_TYPE_COUNT + XMLRPC_VECTOR_TYPE_COUNT) - -/* return a string matching a given xmlrpc type */ -static const char** get_type_str_mapping(void) /* {{{ */ -{ - static const char* str_mapping[TYPE_STR_MAP_SIZE]; - static int first = 1; - if (first) { - /* warning. do not add/delete without changing size define */ - str_mapping[xmlrpc_none] = "none"; - str_mapping[xmlrpc_empty] = "empty"; - str_mapping[xmlrpc_base64] = "base64"; - str_mapping[xmlrpc_boolean] = "boolean"; - str_mapping[xmlrpc_datetime] = "datetime"; - str_mapping[xmlrpc_double] = "double"; - str_mapping[xmlrpc_int] = "int"; - str_mapping[xmlrpc_string] = "string"; - str_mapping[xmlrpc_vector] = "vector"; - str_mapping[XMLRPC_TYPE_COUNT + xmlrpc_vector_none] = "none"; - str_mapping[XMLRPC_TYPE_COUNT + xmlrpc_vector_array] = "array"; - str_mapping[XMLRPC_TYPE_COUNT + xmlrpc_vector_mixed] = "mixed"; - str_mapping[XMLRPC_TYPE_COUNT + xmlrpc_vector_struct] = "struct"; - first = 0; - } - return (const char**)str_mapping; -} -/* }}} */ - -/* map an xmlrpc type to a string */ -const char* xmlrpc_type_as_str(XMLRPC_VALUE_TYPE type, XMLRPC_VECTOR_TYPE vtype) /* {{{ */ -{ - const char** str_mapping = get_type_str_mapping(); - - if (vtype == xmlrpc_vector_none) { - return str_mapping[type]; - } else { - return str_mapping[XMLRPC_TYPE_COUNT + vtype]; - } -} -/* }}} */ - -/* map a string to an xmlrpc type */ -XMLRPC_VALUE_TYPE xmlrpc_str_as_type(const char* str) /* {{{ */ -{ - const char** str_mapping = get_type_str_mapping(); - int i; - - if (str) { - for (i = 0; i < XMLRPC_TYPE_COUNT; i++) { - if (!strcmp(str_mapping[i], str)) { - return (XMLRPC_VALUE_TYPE) i; - } - } - } - return xmlrpc_none; -} -/* }}} */ - -/* map a string to an xmlrpc vector type */ -XMLRPC_VECTOR_TYPE xmlrpc_str_as_vector_type(const char* str) /* {{{ */ -{ - const char** str_mapping = get_type_str_mapping(); - int i; - - if (str) { - for (i = XMLRPC_TYPE_COUNT; i < TYPE_STR_MAP_SIZE; i++) { - if (!strcmp(str_mapping[i], str)) { - return (XMLRPC_VECTOR_TYPE) (i - XMLRPC_TYPE_COUNT); - } - } - } - return xmlrpc_vector_none; -} -/* }}} */ - -/* set a given value to a particular type. - * note: this only works on strings, and only for date and base64, - * which do not have native php types. black magic lies herein. - */ -int set_zval_xmlrpc_type(zval* value, XMLRPC_VALUE_TYPE newtype) /* {{{ */ -{ - int bSuccess = FAILURE; - - /* we only really care about strings because they can represent - * base64 and datetime. all other types have corresponding php types - */ - if (Z_TYPE_P(value) == IS_STRING) { - if (newtype == xmlrpc_base64 || newtype == xmlrpc_datetime) { - const char* typestr = xmlrpc_type_as_str(newtype, xmlrpc_vector_none); - zval type; - - ZVAL_STRING(&type, typestr); - - if (newtype == xmlrpc_datetime) { - XMLRPC_VALUE v = XMLRPC_CreateValueDateTime_ISO8601(NULL, Z_STRVAL_P(value)); - if (v) { - time_t timestamp = (time_t) php_parse_date((char *)XMLRPC_GetValueDateTime_ISO8601(v), NULL); - if (timestamp != -1) { - zval ztimestamp; - - ZVAL_LONG(&ztimestamp, timestamp); - - convert_to_object(value); - zend_hash_str_update(Z_OBJPROP_P(value), OBJECT_TYPE_ATTR, sizeof(OBJECT_TYPE_ATTR) - 1, &type); - bSuccess = (zend_hash_str_update(Z_OBJPROP_P(value), OBJECT_VALUE_TS_ATTR, sizeof(OBJECT_VALUE_TS_ATTR) - 1, &ztimestamp) != NULL)? SUCCESS : FAILURE; - } else { - zval_ptr_dtor(&type); - } - XMLRPC_CleanupValue(v); - } else { - zval_ptr_dtor(&type); - } - } else { - convert_to_object(value); - zend_hash_str_update(Z_OBJPROP_P(value), OBJECT_TYPE_ATTR, sizeof(OBJECT_TYPE_ATTR) - 1, &type); - bSuccess = SUCCESS; - } - } - } - - return bSuccess; -} -/* }}} */ - -/* return xmlrpc type of a php value */ -XMLRPC_VALUE_TYPE get_zval_xmlrpc_type(zval* value, zval* newvalue) /* {{{ */ -{ - XMLRPC_VALUE_TYPE type = xmlrpc_none; - - if (value) { - switch (Z_TYPE_P(value)) { - case IS_NULL: - type = xmlrpc_base64; - break; -#ifndef BOOL_AS_LONG - - /* Right thing to do, but it breaks some legacy code. */ - case IS_TRUE: - case IS_FALSE: - type = xmlrpc_boolean; - break; -#else - case IS_BOOL: -#endif - case IS_LONG: - case IS_RESOURCE: - type = xmlrpc_int; - break; - case IS_DOUBLE: - type = xmlrpc_double; - break; - case IS_STRING: - type = xmlrpc_string; - break; - case IS_ARRAY: - type = xmlrpc_vector; - break; - case IS_OBJECT: - { - zval* attr; - type = xmlrpc_vector; - - if ((attr = zend_hash_str_find_ind(Z_OBJPROP_P(value), OBJECT_TYPE_ATTR, sizeof(OBJECT_TYPE_ATTR) - 1)) != NULL) { - if (Z_TYPE_P(attr) == IS_STRING) { - type = xmlrpc_str_as_type(Z_STRVAL_P(attr)); - } - } - break; - } - } - - /* if requested, return an unmolested (magic removed) copy of the value */ - if (newvalue) { - zval* val; - - if ((type == xmlrpc_base64 && Z_TYPE_P(value) == IS_OBJECT) || type == xmlrpc_datetime) { - if ((val = zend_hash_str_find_ind(Z_OBJPROP_P(value), OBJECT_VALUE_ATTR, sizeof(OBJECT_VALUE_ATTR) - 1)) != NULL) { - ZVAL_COPY_VALUE(newvalue, val); - } - } else { - ZVAL_COPY_VALUE(newvalue, value); - } - } - } - - return type; -} -/* }}} */ - -/* {{{ proto bool xmlrpc_set_type(string value, string type) - Sets xmlrpc type, base64 or datetime, for a PHP string value */ -PHP_FUNCTION(xmlrpc_set_type) -{ - zval *arg; - char *type; - size_t type_len; - XMLRPC_VALUE_TYPE vtype; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "zs", &arg, &type, &type_len) == FAILURE) { - RETURN_THROWS(); - } - - vtype = xmlrpc_str_as_type(type); - if (vtype != xmlrpc_none) { - zval tmp; - ZVAL_COPY(&tmp, Z_REFVAL_P(arg)); - if (set_zval_xmlrpc_type(&tmp, vtype) == SUCCESS) { - ZEND_TRY_ASSIGN_REF_TMP(arg, &tmp); - RETURN_TRUE; - } - Z_TRY_DELREF(tmp); - } else { - zend_error(E_WARNING,"invalid type '%s' passed to xmlrpc_set_type()", type); - } - RETURN_FALSE; -} -/* }}} */ - -/* {{{ proto string xmlrpc_get_type(mixed value) - Gets xmlrpc type for a PHP value. Especially useful for base64 and datetime strings */ -PHP_FUNCTION(xmlrpc_get_type) -{ - zval *arg; - XMLRPC_VALUE_TYPE type; - XMLRPC_VECTOR_TYPE vtype = xmlrpc_vector_none; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "z", &arg) == FAILURE) { - RETURN_THROWS(); - } - - type = get_zval_xmlrpc_type(arg, 0); - if (type == xmlrpc_vector) { - vtype = determine_vector_type((Z_TYPE_P(arg) == IS_OBJECT) ? Z_OBJPROP_P(arg) : Z_ARRVAL_P(arg)); - } - - RETURN_STRING((char*) xmlrpc_type_as_str(type, vtype)); -} -/* }}} */ - -/* {{{ proto bool xmlrpc_is_fault(array arg) - Determines if an array value represents an XMLRPC fault. */ -PHP_FUNCTION(xmlrpc_is_fault) -{ - zval *arg; - - if (zend_parse_parameters(ZEND_NUM_ARGS(), "a", &arg) == FAILURE) { - RETURN_THROWS(); - } - - /* The "correct" way to do this would be to call the xmlrpc - * library XMLRPC_ValueIsFault() func. However, doing that - * would require us to create an xmlrpc value from the php - * array, which is rather expensive, especially if it was - * a big array. Thus, we resort to this not so clever hackery. - */ - if (zend_hash_str_exists(Z_ARRVAL_P(arg), FAULT_CODE, FAULT_CODE_LEN) && - zend_hash_str_exists(Z_ARRVAL_P(arg), FAULT_STRING, FAULT_STRING_LEN)) { - RETURN_TRUE; - } - - RETURN_FALSE; -} -/* }}} */ |